📄 forum_list.asp
字号:
rs2.MoveNext
loop
rs2.close
%>
</select>
</td>
<td width=10></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="<%=tablecolor%>">
<form name=form2 method="post" action="<%=myurl%>">
<tr bgcolor="<%=titlebgcolor%>">
<%if userqx="9" then%>
<td colspan=2 width="40" align="center" height="22"><b><font color="<%=titlecolor%>">管理</font></b></td>
<%end if%>
<td width="40" align="center" height="22"><b><font color="<%=titlecolor%>">符号</font></b></td>
<td align="center"><b><font color="<%=titlecolor%>">主题</font></b></td>
<td align="center" width=80><b><font color="<%=titlecolor%>">作者</font></b></td>
<td align="center" width=40><b><font color="<%=titlecolor%>">回复</font></b></td>
<td align="center" width=40><b><font color="<%=titlecolor%>">人气</font></b></td>
<td width="190" align="center"><b><font color="<%=titlecolor%>">最后更新</font></b></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="<%=tablecolor%>">
<%
i=1
do while not rs.EOF and i<=pagesize
if i mod 2=1 then
color1="f7f7f7"
else
color1="ffffff"
end if
%>
<tr bgcolor="<%=color1%>">
<%if userqx="9" then%>
<td width=10 height=22 align=center>
<input type=hidden name="seleitem<%=i%>" value="<%=rs("keyno")%>">
<input type=checkbox name="checksele<%=i%>" value="0">
</td>
<td width=40 align="center"><a class=a11 href="Javascript:editwin('<%=rs("keyno")%>')"><%=rs("keyno")%></a></td>
<%end if%>
<td width="40" align="center" height="30">
<%
if rs("flag")="1" then
Response.Write ("<img src='images/isbest.gif'>")
elseif rs("flag")="2" then
Response.Write ("<img src='images/closedb.gif'>")
else
select case rs("topflag")
case "2"
Response.Write ("<img src='images/ztop.gif'>")
case "1"
Response.Write ("<img src='images/istop.gif'>")
case else
Response.Write ("<img src='images/folder.gif'>")
end select
end if
%>
</td>
<td>
<table width="98%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td><img src="emote/mood<%=trim(rs("emote"))%>.gif" border="0"><a href="forum_display.asp?keyno=<%=rs("keyno")%>" class="a01"><%=Server.HTMLEncode(trim(rs("title")))%></a>
<font color=50505>(<%=rs("creadate")%>)</font>
</td>
<td> </td>
</tr>
</table>
</td>
<td align="center" width=80><a href="user_display.asp?userno=<%=rs("userno")%>" target=_blank><%=subss(trim(rs("usercode")),12)%></a></td>
<td align="center" width=40><%=rs("replycount")%></td>
<td align="center" width=40><%=rs("querycount")%></td>
<td align="left" width="190">
<%if rs("replyno")>0 then%>
<a href="forum_display.asp?keyno=<%=rs("keyno")%>" class="a01"><%=rs("replytime")%>|<%=subss(trim(rs("replyuser")),12)%></a>
<%end if%>
</td>
</tr>
<%
i=i+1
rs.MoveNext
loop
rs.Close
%>
<input type=hidden value="<%=i-1%>" name=rectot>
</table>
<table width="98%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="30"> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr bgcolor=efefef>
<td width="200">
<%if userqx="9" then%>
<input type="button" name="mydele" value="删除" style="width:60px;height:20px" onclick="delmsg(this.form)">
<input type="checkbox" name="seleall" onclick="checkall(this.form)" >全选
<%end if%>
</td>
<td height="26" align=right>
<font color="#000000">第
<select name="select1" onChange="if(this.options[this.selectedIndex].value!='$') {window.open(this.options[this.selectedIndex].value,'_self')}">
<%for i=1 to pagecount%>
<option value="<%=myurl&"&pageno="&i%>" <%if i=pageno then Response.Write("selected")%>><%=i%></option>
<%next%>
</select>
页 共<%=pagecount%>页<%=reccount%>帖</font>
</td>
</tr>
</form>
</table>
<table width="98%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="<%=tablecolor%>">
<tr bgcolor="<%=titlebgcolor%>">
<td align="left" height=20> <b><font color="<%=titlecolor%>">用户访问情况</font></b></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="<%=tablecolor%>">
<tr bgcolor="#ffffff">
<td height=30>
您的真实IP：<%=Request.ServerVariables("Remote_HOST")%>
操作系统：<%=Request.ServerVariables("Http_User_Agent")%>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="<%=tablecolor%>">
<tr bgcolor="<%=titlebgcolor%>">
<td align="left" height=20> <b><font color="<%=titlecolor%>">在线用户情况</font></b></td>
</tr>
</table>
<%
sql="select count(keyno) from user_login where loginflag='1'"
rs.Open sql,cn,1,1
reccount2=rs(0)
rs.Close
sql="select * from user_login order by logintime "
rs.Open sql,cn,1,1
colzs=8
if rs.RecordCount mod colzs=0 then
rowzs=int(rs.RecordCount/colzs)
else
rowzs=int(rs.RecordCount/colzs)+1
end if
reccount=rs.RecordCount
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr bgcolor="#ffffff">
<td height=30>
目前共有 <b><%=reccount%></b> 人在线，其中注册用户 <b><%=reccount2%></b> 人，访客 <b><%=reccount-reccount2%></b> 人
</td>
</tr>
<tr bgcolor="#ffffff">
<td height=30>
<table width="100%" border="0" cellspacing="1" cellpadding="0" align="center">
<%
for i=1 to rowzs
Response.Write ("<tr>")
for j=1 to colzs
if not rs.EOF then
%>
<td width='12%'>
<%if rs("loginflag")="1" then%>
<a href="user_display.asp?userno=<%=rs("userno")%>" target=_blank><%=trim(rs("usercode"))%></a>
<%else%>
<a href="#" title="<%=trim(rs("ipaddress"))%>"><font color="666666">[游客]</font></a>
<%end if%>
</td>
<%
rs.MoveNext
else
Response.Write("<td width='12%'> </td>")
end if
next
Response.Write ("</tr>")
next
%>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<!-- #include file="end.asp" -->
<!-- #include file="func.inc" -->
<%
if userqx="9" then
%>
<script language=Javascript>
function checkall(form)
{
for (var i=0;i<form.elements.length;i++)
{
var obj = form.elements[i];
var objname=obj.name;
if(objname.substring(0,9)=="checksele")
{
obj.checked=form.seleall.checked
}
}
}
function delmsg(form)
{
var flag=false;
var i,rectot,obj1
rectot=form.rectot.value;
for(i=1;i<=rectot;i++)
{
obj1=eval("form.checksele"+i);
if (obj1.checked) flag=true;
}
if (flag){
if (confirm('确认删除选择的记录吗？')==true) form.submit();
}else alert("请先选择要删除的记录!");
}
function editwin(keyno)
{
window.open("forum_manager.asp?keyno="+keyno,"","toolbar=no,location=no,directories=no,status=no,resizable=no,menubar=no,scrollbars=no,width=400,height=260,left=120,top=70")
}
</script>
<%end if%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -