qq_zx.asp

国产亿人多用户在线聊天系统

<!--#include file="conn.asp"-->
<link rel="stylesheet" href="style.css" type="text/css">
<%set rs=server.createobject("adodb.recordset")
exec="select * from admin where yhm = '" + session("qqyhm") + "'"
rs.open exec,conn,1,1
if rs.eof then
	exec = "insert into admin (nc,yhm) values ('临时','" + session("qqyhm") + "')"
	conn.execute exec
end if

exec = "update admin set zt = '1' where yhm = '" + session("qqyhm") + "'"
conn.execute exec
set rs=server.createobject("adodb.recordset")
exec="select * from admin where zt = '1'"
rs.open exec,conn,1,1%>
<table width="100%" border="0" cellpadding="1" cellspacing="1" align="center">
<%do while not rs.eof%>
<tr bgcolor="#E3E9F1" height="25">
<td>&nbsp;&nbsp;&nbsp;<% = rs("yhm")%>(<%=rs("nc")%>)</td>
<td width="20%" align="center"><%=rs("xb")%></td></tr>
<%rs.movenext
loop%>
</table>
<center><%=rs.recordcount%>人在线</center>
<Script language="javascript">
  setTimeout("window.location='qq_zx.asp'",5000);
</Script>