📄 forum.asp
字号:
<!--#include file="conn.asp"-->
<%
TopID=Request("topid")
ID=Request("id")
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>{崭}设计_v1.0 [http://www.picicn.com]</title>
<link href="stely.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style1 {color: #666666}
-->
</style>
</head>
<body>
<!--#include file="top.asp"-->
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td height="24" background="images/link_bg.gif" class="yellow"> <img src="images/link_vt.gif" width="13" height="13" align="absmiddle"> 您当前的位置：<a href="index.asp"><span class="red">{崭}设计</span></a> >>> <%
sql="select * from topforum where ID="&TopID
set rs=Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
%><span class="red"><%=rs("Title")%></span>
<%rs.close%> >>> <%
sql="select * from forum where ID="&ID&" and TopForum="&TopID
set rs=Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
ForumTitle=rs("Title")
%><%=ForumTitle%><%rs.close%></td>
</tr>
</table></td>
</tr>
<tr>
<td height="6" bgcolor="#FFFFFF"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td colspan="3" background="images/7_bg.gif"><img src="images/7_bg.gif" width="1" height="10"></td>
</tr>
<tr>
<td width="26" bgcolor="#FF4E00"><img src="images/8_left.gif" width="26" height="23"></td>
<td bgcolor="#FF4E00" class="white"><%=ForumTitle%></td>
<td align="right" bgcolor="#FF4E00" class="white"><%if session("username")<>"游客" then%>
<a href="newtopic.asp?topId=<%=topid%>&id=<%=id%>"><img src="images/ico/newTopic.gif" width="94" height="23" border="0" align="absmiddle"></a>
<%end if%><img src="images/ico/jhTopic.gif" width="94" height="23" align="absmiddle"></td>
</tr>
<tr>
<td colspan="3" background="images/9_bg.gif"><img src="images/9_bg.gif" width="1" height="3"></td>
</tr>
</table>
<Script language="javascript" type="text/javascript">
function imagesrc(TheImg){
TheImg.src='images/ico/shhw2.gif';
}
function imagere(TheImg){
TheImg.src='images/ico/shhw.gif';
}
function imagesrc2(TheImg){
TheImg.src='images/ico/top2.gif';
}
function imagere2(TheImg){
TheImg.src='images/ico/top.gif';
}
</Script>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''度取置顶帖。
sql="select * from ToPic where forumID="&ID&" and top=1 order by ReTime DESC"
set rec=Server.CreateObject("ADODB.Recordset")
rec.open sql,conn,1,1
zds=rec.recordcount
if rec.recordcount<> 0 then
do while not rec.eof
%> <tr>
<td width="30" align="center" background="images/top_td_bg.gif" bgcolor="f4f4f4"><a href="showtopic.asp?topID=<%=TopID%>&ID=<%=ID%>&topicid=<%=rec("ID")%>"><img src="images/ico/top.gif" width="23" height="23" border="0" onMouseOver="imagesrc2(this)" onMouseOut="imagere2(this)"></a></td>
<td background="images/top_td_bg.gif" bgcolor="f4f4f4">
<table width="100%" border="0" cellpadding="2" cellspacing="1">
<tr>
<td class="red"><a href="showtopic.asp?topID=<%=TopID%>&ID=<%=ID%>&topicid=<%=rec("ID")%>"><span class="red"><%=rec("Title")%></span></a></td>
</tr>
<tr>
<td>作者：<%=rec("UserName")%> [<%=rec("EnterTime")%>]</td>
</tr>
</table></td>
<td width="80" background="images/top_td_bg.gif" bgcolor="f4f4f4">
<table width="100%" border="0" cellpadding="2" cellspacing="1">
<tr>
<td nowrap class="red">点击：<%=rec("Click")%>次</td>
</tr>
<tr>
<td class="yellow">回复：<%=rec("Reply")%>次</td>
</tr>
</table></td>
<td width="230" background="images/top_td_bg.gif" bgcolor="f4f4f4"><table width="100%" border="0" cellpadding="2" cellspacing="1">
<tr>
<td class="red"><a href="showtopic.asp?topID=<%=TopID%>&ID=<%=ID%>&topicid=<%=rec("ID")%>&localation=bottom"><span class="red">最后回复:</span><%if len(rec("ReBody"))>13 then%><%=left(rec("ReBody"),10)%>...<%else%><%=rec("ReBody")%><%end if%></a></td>
</tr>
<tr>
<td class="yellow">作者：<%=rec("ReUser")%> </td>
</tr>
</table></td>
</tr>
<%
rec.movenext
loop
end if
rec.close
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''读二级目录
sqls="select * from ToPic where forumID="&ID&" and top=0 order by ReTime DESC"
set rec=Server.CreateObject("ADODB.Recordset")
rec.open sqls,conn,1,1
rec.pagesize=15
infoT=rec.recordcount
pageS=rec.pagecount
if rec.recordcount=0 then
response.write("<tr><td height='25' class='yellow' align='center' background='images/top_td_bg.gif'>目前数据库为空</td></tr>")
else
page=request("page")
if page="" then
page=1
end if
rec.absolutepage=page
k=0
do while not rec.eof
%>
<tr>
<td width="30" align="center" background="images/top_td_bg.gif" bgcolor="f4f4f4"><a href="showtopic.asp?topID=<%=TopID%>&ID=<%=ID%>&topicid=<%=rec("ID")%>"><img src="images/ico/shhw.gif" width="23" height="23" border="0" onMouseOver="imagesrc(this)" onMouseOut="imagere(this)"></a></td>
<td background="images/top_td_bg.gif" bgcolor="f4f4f4">
<table width="100%" border="0" cellpadding="2" cellspacing="1">
<tr>
<td class="red"><a href="showtopic.asp?topID=<%=TopID%>&ID=<%=ID%>&topicid=<%=rec("ID")%>"><span class="red"><%=rec("Title")%></span></a></td>
</tr>
<tr>
<td>作者：<%=rec("UserName")%> [<%=rec("EnterTime")%>]</td>
</tr>
</table></td>
<td width="80" background="images/top_td_bg.gif" bgcolor="f4f4f4">
<table width="100%" border="0" cellpadding="2" cellspacing="1">
<tr>
<td nowrap class="red">点击：<%=rec("Click")%>次</td>
</tr>
<tr>
<td class="yellow">回复：<%=rec("Reply")%>次</td>
</tr>
</table></td>
<td width="230" background="images/top_td_bg.gif" bgcolor="f4f4f4"><table width="100%" border="0" cellpadding="2" cellspacing="1">
<tr>
<td class="red"><a href="showtopic.asp?topID=<%=TopID%>&ID=<%=ID%>&topicid=<%=rec("ID")%>&localation=bottom"><span class="red">最后回复:</span><%if len(rec("ReBody"))>13 then%><%=left(rec("ReBody"),10)%>...<%else%><%=rec("ReBody")%><%end if%></a></td>
</tr>
<tr>
<td class="yellow">作者：<%=rec("ReUser")%> </td>
</tr>
</table></td>
</tr>
<%
rec.movenext
k=k+1
if k>15 then
exit do
end if
loop
end if
%>
</table>
<table width="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td bgcolor="#F6F6F6"><%if pageS<>1 then%><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>本版置顶主题数为：<%=zds%>篇/普通主题数：<%=infoT%>篇/被分为：<%=PageS%>页/每页显示主题：15篇/当前是第：<%=Page%>页</td>
<td width="120" align="right"><a href="forum.asp?Topid=<%=topid%>&id=<%=id%>&page=1">首页</a>/<%if Page<>1 then%><a href="forum.asp?Topid=<%=topid%>&id=<%=id%>&page=<%=page-1%>">上页</a>/<%end if%><%if Cint(page)<>Cint(PageS) then%><a href="forum.asp?Topid=<%=topid%>&id=<%=id%>&page=<%=page+1%>">下页</a>/<%end if%><a href="forum.asp?Topid=<%=topid%>&id=<%=id%>&page=<%=PageS%>">末页</a></td>
<td width="120" align="right"><select onChange="if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;}">
<option selected>跳转到</option>
<% for i= 1 to PageS %>
<option value="forum.asp?Topid=<%=Topid%>&ID=<%=ID%>&page=<%=i%>">第<%=i%>页</option>
<%next%>
</select></td>
</tr>
</table><%end if%></td>
</tr>
<tr>
<td bgcolor="#F3F3F3"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>本版班主：</td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td background="images/10_bg.gif"><img src="images/10_bg.gif" width="2" height="23"></td>
</tr>
</table>
<!--#include file="bottom.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -