熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> .NET編程 >> 正文

顯示頁面show.asp--基於web的QQ程序

2013-11-13 10:29:51  來源: .NET編程 

  <html>
<head>
<title>基於web的QQ程序</title>
<meta httpequiv=refresh content=>//每五秒取得一次信息(前面已經完成了有關登錄之類的工作)
<meta httpequiv=ContentType content=text/html; charset=gb>
</head>
<body bgcolor=#FFFFFF text=#>
//假設同時通信量為
<%
responsewrite(現在在線&<br>
for i= to
if application(user&i)=session(user) then
responsewrite(<font color=#FFFF>)
responsewrite(session(user)&</font>)
else
responsewrite(application(user&i)&<br>)
end if
if application(towho&i)=session(user) then%>

  <script language=javascript>
windowopen(informaspwidth=height=)
</script>

  <%end if
next%>
</body>
</html>

  接收信息頁面informasp基於web的QQ程序

  <%for i= to
if application(towho&i)=session(user)
responsewtite(來自&application(from&i)&<br>&內容&application(text&i))
end if%>//有關回信息只要加鍵接到sendasp(自己補充)

  發送信息頁面sendasp基於web的QQ程序
發送信息頁面sendasp基於web的QQ程序

  March
<html>
<head>
<title>發送信息頁面</title>
<meta httpequiv=ContentType content=text/html; charset=gb>
</head>
<%if request(text)= then%>
<body bgcolor=#FFFFFF text=#>
發送給<select size= name=name>
<%for i= to
if application(towho&i)=session(user) then
a=application(from&i)%>
  <option checked><%=a%></option>
<%else if application(user&i)<>a then%>
<option><%=application(user&i)%></option>
<%end if
end if
next%>
</select>
<br>
內容<textarea rows= name=text cols=></textarea>
</body><%else
for i= to
if application(towho&i)= then
application(towho&I)=request(name)
application(from&i)=session(user)
application(text&i)=request(text)
end if
if application(towho&i)=session(user) then
application(towho&i)=
application(text&i)=
application(from&i)=
end if
next

  end if%>
</html>


From:http://tw.wingwit.com/Article/program/net/201311/13816.html
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.