📄 theme.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="../webconfig.asp"-->
<!--#include file="../fuction.asp"-->
<html>
<head>
<title><%=bbsname%>-论坛中心</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="SHORTCUT ICON" href="/shortcut.ico">
<meta name="generator" content="snsn-shop">
<meta name=keywords content="<%=webgjz%>">
<meta name="description" content="<%=webmx%>">
<meta name="MSSmartTagsPreventParsing" content="TRUE">
<meta http-equiv="MSThemeCompatible" content="Yes">
<link href="/css.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="../webtop.asp"-->
<table width="940" align="center" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="6" colspan="3"></td>
</tr>
<tr>
<td width="17"><img src="/img/index_1.gif" width="15" height="16"></td>
<td valign="bottom">您现在的位置是：<a href="<%=weburl%>"><%=webname%></a> -> <span class="table-shangxia"><span class="b14"><a href=index.asp><%=bbsname%></a> → 我发表的主题 → 帖子列表</span></span></td>
<td valign="bottom"></td>
</tr>
<tr>
<td height="6" colspan="3"></td>
</tr>
</table>
<!--#include file="top.asp"-->
<table width="900" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top">
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="8"></td>
</tr>
</table>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="8"></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#CCCCCC">
<tr bgcolor="f1f1f1">
<td width="7%" class="norightbuttonborder2">
<div align="center">状态</div></td>
<td width="49%" class="norightbuttonborder2">
<div align="center">主题</div></td>
<td width="12%" class="norightbuttonborder2">
<div align="center"> 作者</div></td>
<td width="9%" class="norightbuttonborder2">
<div align="center"> 回复/点击</div></td>
<td width="23%" height="20" class="norightbuttonborder2">
<div align="center"> 最后更新</div></td>
</tr>
<%username=nosql(session("username"))
action=nosql(request.querystring("action"))
Set rs = Server.CreateObject("ADODB.Recordset")
if action="" then
sql = "SELECT * FROM book where username='"&username&"' and type=0 order by gd desc,ldate desc"
else
sql="select*from book where id in(select fid from book where username='"&username&"') and type=0 order by gd desc,ldate desc"
end if
rs.open sql, conn, 1, 3
shownum=20
totalrecord=rs.recordcount
rs.pagesize=shownum
maxpage=rs.pagecount
requestpage=clng(request.querystring("page"))
if requestpage="" or requestpage=0 then
requestpage=1
end if
if resquestpage>maxpage then
resquestpage=maxpage
end if
if not requestpage=1 then
rs.move (requestpage-1)*rs.pagesize
end if
for i=1 to rs.pagesize and not rs.bof %><tr bgcolor="#ffffff" onMouseOver='JavaScript:this.style.backgroundColor="#f1f1f1"' onMouseOut='JavaScript:this.style.backgroundColor="ffffff"'>
<script>bbslist("<%=rs("id")%>","<%=rs("faceimg")%>","<%=rs("title")%>","<%=rs("username")%>","<%=rs("reply")%>","<%=rs("hits")%>","<%=rs("ldate")%>","<%=rs("lastname")%>","<%=rs("gd")%>","<%=rs("good")%>","<%=rs("lock")%>");</script>
</tr><%
rs.movenext
if rs.eof then exit for
next
%>
</table>
<table width="100%" height="60" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="50%"></td>
<td width="50%"></td>
</tr>
<tr>
<td width="50%">页次：
<%if request.querystring("page")="" then %>
1
<%else%>
<%=request.querystring("page")%>
<%end if%>
/ <%=maxpage%>页 每页：<%=shownum%> 主题数：<%=totalrecord%></td>
<td width="50%">
<p align="right">
<%
if requestpage-1 mod 10=0 then
p=(requestpage-1) \ 10
else
p=(requestpage-1) \ 10
end if
if requestpage=1 then
response.write "<font face=webdings color=""#FF0000"">9</font>"
else
response.write "<a href=?action="&action&"&username="&username&"&page=1 title=首页><font face=webdings>9</font></a>"
end if
if p*10>0 then response.write "<a href=?action="&action&"&username="&username&"&page="&p*10&" title=上十页><font face=webdings>7</font></a>"
response.write "<b>"
for ii=p*10+1 to P*10+10
if ii=requestpage then
response.write "<font color=""#FF0000"">"&ii&"</font> "
else
response.write "<a href=?action="&action&"&username="&username&"&page="&ii&">"&ii&"</a> "
end if
if ii=maxpage then exit for
next
response.write "</b>"
if ii<maxpage then response.write "<a href=?action="&action&"&username="&username&"&page="&ii&" title=下十页><font face=webdings>8</font></a>"
if requestpage=maxpage then
response.write "<font face=webdings color=""#FF0000"">:</font> "
else
response.write "<a href=?action="&action&"&username="&username&"&page="&maxpage&" title=尾页><font face=webdings>:</font></a>"
end if
response.write" 总共有"&maxpage&"页 "
rs.Close
set rs=nothing
%>
</td>
</tr>
<tr> </tr>
</table>
<div align="center"><font color="666666">栏目图例 <img src="images/Order_16.gif">总固顶主题 ‖<img src="images/top.gif">固顶主题 ‖ <img src="images/Order_18.gif">精华帖子 ‖ <img src="images/Order_19.gif">投票贴子 ‖ <img src="images/Order_15.gif" >锁定的主题 ‖ <img src="images/Order_13.gif">开放的主题</font>
</div>
<p> </p></td>
</tr>
</table></td>
</tr>
</table>
<div align="center">
<!--#include file="../copyright.asp"--> </div>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -