?? 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> <% = 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>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -