📄 userlist.asp
字号:
<!--#include file="conn.inc"-->
<%
Check Request("SerialNum")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="ReFresh" content="10;URL=userlist.asp?SerialNum=<%=Request("SerialNum")%>">
<title>当前用户列表</title>
<style type="text/css">
<!--
a:visited,a:link { text-decoration: none; color: #003399}
a:hover { text-decoration: none; color: #3333FF}
a.linkwhite:link,a.linkwhite:visited { text-decoration:none; color:white}
a.linkwhite:hover { text-decoration: underline; color:white}
a.linkblack:link,a.linkblack:visited { text-decoration:none; color:black}
a.linkblack:hover { text-decoration: underline; color:black}
input { font-family: "宋体"; font-size: 9pt}
td { font-family: "宋体"; font-size: 9pt; color: #000000}
.en { font-family:"Verdana", "Arial"; font-size: 9pt}
.white { color: #FFFFFF}
.line { line-height: 20px}
.title { font-size: 14px }
-->
</style>
<%
sql="SELECT * FROM ever_user WHERE UID IN ("
sql=sql & "SELECT UID FROM current_user WHERE SerialNum='" & Request("SerialNum") & "')"
Set Save_Rs=conn.Execute(sql)
If Save_Rs.Eof OR Save_Rs.Bof Then
Response.Write "您的帐号已经过期，请重新登录或注册新的用户.<br>"
Response.End
Else
If IsNull(Save_Rs("TotalTime")) Then
TotalTime=0
Else
TotalTime=Save_Rs("TotalTime")
End If
TotalTime=TotalTime+1
sql="UPDATE ever_user SET TotalTime=" & TotalTime & " WHERE UID='" & Save_Rs("UID") & "'"
conn.Execute(sql)
End If
Set current_user=conn.Execute("SELECT * FROM current_user")
Set NewFile=conn.Execute("SELECT * FROM new_essay")
On error Resume Next
current_user.MoveFirst
NewFile.MoveFirst
If not current_user.Eof Then
%>
<script language="javascript">
<!--
//window.alert("guestinfo.asp?" && document.user.userid.options[selectedindex].value )
function go()
{
if (document.user.userid.selectedIndex!=0)
{
index=document.user.userid.selectedIndex
parent.frames[2].location.href="guestinfo.asp?" + document.user.userid.options[index].value
//window.alert ("guestinfo.asp?" + document.user.userid.options[index].value)
}
}
function readnew()
{
if (document.user.newfile.selectedIndex !=0)
{
index=document.user .newfile .selectedIndex
parent.frames[2].location.href=document.user .newfile .options [index].value
}
}
//-->
</script>
</head>
<body bgcolor="#FFFFFF" link="#FF0000" vlink="#0000FF" alink="#008080">
<form method="POST" name="user" action="" onSubmit="">
<p><b><font face="幼圆" color="#FF0000" size="2">下为论坛朋友</font></b><select size="1" name="userid" style="font-size: 8pt; color: #0000FF" onclick="go()">
<option value="all" selected>所有成员</option>
<%
Do While Not current_user.Eof
%>
<option value="SerialNum=<%=Request("SerialNum")%>&Target=<%=current_user("UID")%>"><%=current_user("UID")%>
<%
current_user.MoveNext
Loop
%>
</select><b><font face="幼圆" color="#FF0000" size="2">新文章列表</font></b>
<select size="1" name="newfile" style="font-size: 8pt; color: #0000FF" onclick="readnew()">
<option>新文章</option>
<%
Do While Not NewFile.Eof
%>
<option value="showdetail.asp?SerialNum=<% =Request("SerialNum") %>&Num=<% =NewFile("FileId") %>"><% =NewFile("UID") %>--<% =NewFile("Theme") %></option>
<%
NewFile.MoveNext
loop
%>
</select>
<font face="幼圆" color="#FF0000" size="2"><b><a href="list.asp?SerialNum=<%=Request("SerialNum")%>" target="left">刷新文章</a>
<a href="addnew.asp?SerialNum=<%=Request("SerialNum")%>" target="right">发表文章
</a></b></font>
<%
set Info=conn.Execute("SELECT Info, NewInfo,current_user.UID FROM ever_user,current_user where ever_user.UID=current_user.UID and current_user.SerialNum='" & Request("SerialNum") & "'")
%>
<% if Info("NewInfo")=0 then
Title="查看以前留言"
else
Title="朋友给你留言"
end if
%>
<b><font face="幼圆" color="#FF0000" size="2"><a href="showinfo.asp?Target=<% =info(2) %>" target="right">
<% =Title %></a></font>
<br>
</form>
<%
End If
If not NewFile.Eof Then
%>
<%
'Response.Write "<ul>"
'Do While Not NewFile.Eof
'Response.Write "<li>"
'Response.Write NewFile("UID")
'Response.Write "刚才发表了题为"
'Response.Write "<a href='showdetail.asp?SerialNum=" & Request("SerialNum") & "&Num=" & NewFile("FileId") & "' target='right'>"
'Response.Write NewFile("Theme") & "</a>的文章.<br>"
'Response.Write "</li>"
'NewFile.MoveNext
'Loop
'Response.Write "</ul>"
%>
<p> </p>
<%
End If
%>
<p> </p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -