基于web的QQ实现代码(asp) ——在网叶(web)上实现简单QQ功能(转)

发送信息页面send.asp

 

发送信息页面send.asp

< html >
< head >
< title > 发送信息页面 </ title >
< meta  http-equiv ="Content-Type"  content ="text/html; charset=gb2312" >
</ head >
<% if  request( " text " ) = ""   then %>
< body  bgcolor ="#FFFFFF"  text ="#000000" >
发送给： < select  size ="1"  name ="name" >
＜%for i=1 to 30
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 ="2"  name ="text"  cols ="20" ></ textarea >
</ body > <% else
for  i = 1   to   30
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 >

 

接收信息页面inform.asp

接收信息页面inform.asp             

<% for  i = 1   to   30
if  application( " towho " & i) = session( " user " )
response.wtite( " 来自： " & application( " from " & i) & " <br> " & " 内容 " & application( " text " & i))
end   if %> //有关回信息只要加键接到send.asp(自己补充)

 

显示页面show.asp

显示页面show.asp

< html >
< head >
< title > 基于web的QQ程序1 </ title >
< meta  http-equiv ="refresh"  content ="5" > //每五秒取得一次信息（前面已经完成了有关登录之类的工作）
< meta  http-equiv ="Content-Type"  content ="text/html; charset=gb2312" >
</ head >
< body  bgcolor ="#FFFFFF"  text ="#000000" >
//假设同时通信量为30
<%
response.write( " 现在在线： " & " <br> "
for  i = 1   to   30
if  application( " user " & i) = session( " user " )  then
response.write( " <font color=#FFFF00> " )
response.write(session( " user " ) & " </font> " ) 
else
response.write(application( " user " & i) & " <br> " )
end   if
if  application( " towho " & i) = session( " user " )  then %>  


< script  language ="javascript" >
window.open( " inform.asp " , "" , " width=200,height=400 " )
</ script >  

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