<!--#include file="include\conn.asp"-->
<!--头信息-->
<%
response.expires= -1
response.addheader "pragma","no-cache"
response.AddHeader "cache-control","no-store"
response.Write Server.ScriptTimeout
%>
<!--titile标题-->
<%
a=request("FormId")
'response.Write request("formId")
if a<1 then
a=1
end if
On error Resume Next
set Formid=server.createobj("adodb.recordset")
sql="select * from Form where Formid="&a
Formid.open sql,conn,3,1
if err then
response.Write(err.description)
end if
'------------分页显示数据s-------------------------
dim page
'IsEmpty(varname)
'返回一个布尔值指明变量是否已经初始化了
'IsNumeric(expression)
'expression 参数可以是任意表达式。
'返回 Boolean 值指明表达式的值是否为数字
IF not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Then
page=1
Else
'Int(number)
'返回一个整数(负数只舍不入)
'Abs(number)
'返回绝对值
Page=Int(Abs(Request("page")))' 获取页码的原始信息
End if
rs.pagesize=10'设置或返回显示一页中的记录数（缺省为每页10条记录）
totalrs=rs.RecordCount ' 记录总数
totalpage=rs.pageCount'返回页面的数目
mypagesize=rs.pagesize
rs.absolutepage=page'设置当前页
%>
<html>
<head>
<title><%=Formid("FormTitle")%></title>
<link href="css/style.css" rel="stylesheet" type="text/css">
</head>
<body>
<!-----------------------------------------论坛头信息----------------------------------->
<table width="780" border="0" align="center" cellpadding="0" cellspacing="2">
<tr>
<td width="271"> 当前位置：<a href="index.asp">论坛首页</a>>><a href=""></a> 版主：<%=Formid("FormAdmin")%></td>
<form name="form1" method="post" action="" onSubmit="return check()">
<td width="503"><div align="right">
<script language=JavaScript>
function check()
{
if(window.document.form1.keyword.value=="")
{
alert("请输入关键字!");
window.document.form1.keyword.focus();
return false;
}
return true;
}
</script>
关键字
<input type="text" name="keyword" maxlength="10" size="10">
<select name="gate">
<option value="title" selected>标题</option>
<option value="username">作者</option>
</select>
范围
<select name="sboardid">
<option value=""></option>
<option value="">所有论坛</option>
</select>
发布时间
<select name="daterange">
<option value="" selected>不限</option>
<option value="1">1天内</option>
<option value="7">7天内</option>
<option value="30">30天内</option>
<option value="365">一年内</option>
</select>
<input type="submit" name="Submit2" value="搜索">
</div></td>
</form>
</tr>
</table>
<%Formid.close%>
<table width="780" border="0" align="center" cellpadding="0" cellspacing="2">
<tr>
<td width="584"><a href=""><img src="pic/05.gif" width="35" height="20" border="0"></a> <a href="bbs_login.asp"><img src="pic/06.gif" width="35" height="20" border="0"></a> <a href=""><IMG alt=发表一个新帖子 src="pic/postnew.gif" border=0></a>
<div align="left"></div>
<div align="right"> </div></td>
<td width="190"><div align="right">快速通道：
<select name="selectboard" onChange="window.navigate(this.value)">
<option value="" ></option>
</select>
</div></td>
</tr>
</table>
<!--------------------------------------显示主题列表信息-------------------------------------------->
<table width="768" align=center cellpadding=1 cellspacing=1 class=tableborder1>
<tbody>
<!----------------------------主题标题--------------------->
<tr>
<th width=32 height=25 background="pic/title_bg.gif" id=tabletitlelink><a href=""><font color="#FFFFFF">状态</font></a> </th>
<th width=* background="pic/title_bg.gif"><a href=""><font color="#FFFFFF">主 题</font></a></th>
<th width=80 background="pic/title_bg.gif"><a href=""><font color="#FFFFFF">作者</font></a></th>
<th width=40 background="pic/title_bg.gif"><a href=""><font color="#FFFFFF">回复</font></a></th>
<th width=40 background="pic/title_bg.gif"><a href=""><font color="#FFFFFF">人气</font></a></th>
<th width=195 background="pic/title_bg.gif"><a href=""><font color="#FFFFFF">最后更新</font></a></th>
</tr>
<!---------用户发表的主题标题--------------->
<%
On error resume next
set rs=server.createobject("adodb.recordset")
sql="select formid,topicid,topicname,topictitle, username,topicOutime,ReplyDate,Replynum,ClidkNum,lastreply from topic inner join userinfo on topic.userid=userinfo.userid where formid="&a
rs.open sql,conn,3,3
if err then
response.Write(err.description)
end if
do while not rs.eof
%>
<tr>
<td class=tablebody2 align=middle height=27><IMG alt=总固顶的主题 src="pic/folder.gif"></td>
<td class=tablebody1 align=left><a href="bbs_TopicReplyShow.asp?Topicid=<%=rs("TopicId")%>"><%=rs("TopicName")%><!--主题--></td>
<td class=tablebody2 align=middle><%=rs("Username")%><!--'发表作者--></td>
<td class=tablebody1 align=middle><%=rs("ReplyNum")%><!--'回复数--></td>
<td class=tablebody1 align=middle><%=rs("ClidkNum")%><!--'人气--></td>
<td class=tablebody2 nowrap align=left> <font color=#ff0000><%=rs("ReplyDate")%>|<%=rs("lastreply")%></font> </td><!--回复时间-|-回复作者-->
</tr>
<!---------------对帖子的删除操作--------------->
<form name="form3" method="post" action="admin_bbsdo.asp?action=bbsseldel">
<%
rs.movenext
loop
rs.close
%>
<tr>
<td class=tablebody2 align=middle height=27 colspan="6"><div align="right">
<input name="button" type=button onClick=this.value=check(this.form.box) value="选定该页">
<input type="submit" name="Submit22" value="删除选择">
</div></td>
</tr>
</form>
<!---------------------------------分页显示数据------------------------------------->
<tr>
<td height=27 colspan="6" align=middle class=tablebody2>
<table border="0" align="right" cellpadding="0" cellspacing="1">
<tr>
<td valign="baseline"><a href="?action=<%=action%>&username=<%=username%>&pwd=<%=pwd%>&page=1">第一页</a>
<a href="?action=<%=action%>&username=<%=username%>&pwd=<%=pwd%>&page=<%=page-1%>">上一页</a>
<a href="?action=<%=action%>&username=<%=username%>&pwd=<%=pwd%>&page=<%=page+1%>">下一页</a>
<a href="?action=<%=action%>&username=<%=username%>&pwd=<%=pwds%>&page=<%=totalpage%>">最后一页</a>
页次：<%=page%>/<%=totalpage%>页</td>
<form name="form2" method="post" action="">
<td>转到第 <input name="page" type="text" id="page" value="" size="5"> 页 </td>
</form>
</tr>
</table>
</td>
</tr>
<!----------------------------------------------------------------->
<tr id=follow899514 style="DISPLAY: none">
<td class=tablebody1 id=followTd899514 colspan=7></td>
</tr>
<tr id=follow901898 style="DISPLAY: none">
<td class=tablebody1 id=followTd901898 colspan=7></td>
</tr>
</table>
<br>
<!--------------------------------------------------论坛图标说明------------------------------------------>
<TABLE class=tableborder1 cellSpacing=1 cellPadding=3 width="100%"
align=center>
<TBODY>
<TR>
<TH width="72%" height="24" align=left background="pic/title_bg.gif"> <font color="#FFFFFF">-=>
论坛图例</font></TH>
<TH width="28%" align=right background="pic/title_bg.gif">所有时间均为 - 北京时间 </TH>
</TR>
<TR>
<TD class=tablebody1 align=middle colSpan=2><TABLE cellSpacing=4 cellPadding=0 width="96%" align=center border=0>
<TBODY>
<TR>
<TD><IMG src="pic/folder.gif" align=absMiddle> 开放的话题</TD>
<TD><IMG alt=回复超过10贴 src="pic/hotfolder.gif" align=absMiddle> 热门的话题</TD>
<TD><IMG src="pic/lockfolder.gif" align=absMiddle> 锁定的话题</TD>
<TD><IMG src="pic/isbest.gif" align=absMiddle> 精华帖 </TD>
<TD> </TD>
<TD><IMG src="pic/ztop.gif" align=absMiddle> 固顶话题 </TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE>
<%
rs.close
conn.close
%>
<!--#include file="include/bottom.asp"-->
</body>
</html>
Active Server Pages, ASP 0113 (0x80004005)
超过了脚本运行的最长时间。可以为 Server.ScriptTimeOut 属性指定新值或更改 IIS 管理工具中的相应值来更改此限制。
在线等~！
