一个简单聊天试的源代码!(四)

80酷酷网    80kuku.com

  源代码frft.asp


<!DOCTYPE HTML PUBLIC "
-//IETF//DTD HTML//EN" >
<html >
<head >
<meta http-equiv="Content-Type"
content="text/html; charset=gb_2312-80" >
<meta name="GENERATOR"
content="Microsoft FrontPage 2.0" >
<title ></title >
</head >
<body >

<% kname=request.QueryString("kname")%>
<base target="main" >
<form name="fm1" method="POST" action="forum.asp" >
<p align="center" ><input type="text" size="90"
name="content" ></p >
<p align="center" ><input type="button" name="B1"
value=" 提 交/ 刷 新" ><input type="reset"
name="B2" value=" 重 写" ></p>
<input type="hidden" name="kname"
value=<% =kname%> >
<p><input type="hidden" name="log" size="20" value="1">
</p>
</form>


<SCRIPT LANGUAGE="VBScript" >
Sub IeTimer1_Timer()
if fm1.content.value="" then
fm1.content.value=""
fm1.submit
else
end if
end sub

sub b1_onclick()
fm1.submit
fm1.content.value=""
end sub
</SCRIPT >
<OBJECT ID="IeTimer1" WIDTH=39 HEIGHT=39
CLASSID="CLSID:59CCB4A0-727D-
11CF-AC36-00AA00A47DD2"
CODEBASE="http://208.208.208.201/asp/ietimer.ocx" >
<PARAM NAME="_ExtentX" VALUE="1005" >
<PARAM NAME="_ExtentY" VALUE="1005" >
<PARAM NAME="Interval" VALUE="7000" >
</OBJECT >

</body >
</html >

分享到
  • 微信分享
  • 新浪微博
  • QQ好友
  • QQ空间
点击: