谢谢!
<!--#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
%>
<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="">第一页</a> <a href="">上一页</a> <a href="">下一页</a> <a href="">最后一页</a> 页次:/页</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>