?? show.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"-->
<%id=int(Request.querystring("id"))
set rsx=server.createobject("adodb.recordset")
rsx.open "Select * From book where id="&id,conn,1,1
if rsx.recordcount=0 then
response.write"<SCRIPT language=JavaScript>alert('該帖子不存在，可能已被刪除！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if
forumid=Conn.Execute("Select bid From book where id="&id)(0)
sql="select * from board where bid="&forumid&""
Set Rs1=Conn.Execute(sql)
if rs1.EOF or rs1.bof then
response.write"<SCRIPT language=JavaScript>alert('該帖子不存在，可能已被刪除！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if
bidname=rs1("bidname")
bid=rs1("bid")
if rs1("rzh")=1 and session("manbid")<>20000 then
username2=rs1("username")
username2=trim(username2)
if username2<>"" then
bsort2=split(username2,",")
for i=0 to ubound(bsort2)
bsortb2=bsort2(i)
bsortb2=trim(bsortb2)
user_name=session("username")
if instr(user_name,bsortb2)>0 then
if ll=0 then%>
<%call bbs%>
<%else%>
<%if session("username")="" then
response.redirect"login.asp"
else%>
<%call bbs%>
<%end if%>
<%end if
else
response.redirect"login.asp"
end if
next
end if
else
if ll=0 then%>
<%call bbs%>
<%else%><%
if session("username")="" then
response.redirect"login.asp"
else%><%call bbs%>
<%end if%>
<%end if
end if
%>
<%sub bbs()
set rs=server.createobject("adodb.recordset")
if Request.querystring("action")="next" then
sql="select top 1 * from book where id < "&id&" and bid="&forumid&" and type=0"
elseif Request.querystring("action")="Previous" then
sql="select top 1 * from book where id > "&id&" and bid="&forumid&" and type=0 "
else
sql="select * from book where ID="&id&" or fid=" &id& ""
end if
rs.open sql,conn,1,3
if rs.EOF or rs.bof then
response.write"<SCRIPT language=JavaScript>alert('到頂了！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if
rs("hits")=rs("hits")+1
rs.update
%>
<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> → <a href=list.asp?bid=<%=bid%>><%=bidname%></a> → <%=rs("title")%> </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">
<tr >
<td height="20" colspan="2"><table width="100%" height="30" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><img src="images/Order_27.gif" width="13" height="12" align="absmiddle"> <a href="?action=Previous&id=<%=rs("id")%>">上一篇</a> <img src="images/Order_28.gif" width="13" height="12" align="absmiddle"> <a href="javascript:this.location.reload()">刷 新</a> <a href="?action=next&id=<%=rs("id")%>">下一篇</a> <img src="images/Order_30.gif" width="13" height="12" align="absmiddle"> </td>
<td width="90" align="center" bgcolor="#FFFFFF"><div align="center"><a href="reg.asp" target="_blank"> </a><a href="post.asp?bid=<%=bid%>"><img src="images/fb.gif" width="80" height="20" border="0"></a></div></td>
<td width="90" align="center" bgcolor="#FFFFFF"><a href="reply.asp?bid=<%=bid%>&id=<%=id%>&title=<%=rs("title")%>"><img src="images/hf.gif" width="80" height="20" border="0"></a></td>
<td width="90" align="center" bgcolor="#FFFFFF"><a href="smallpaper.asp?bid=<%=bid%>"><img src="images/xb.gif" width="80" height="20" border="0"></a></td>
</tr>
</table>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="8"></td>
</tr>
</table>
<div align="center">
<center>
<table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="73D1E9">
<%shownum=10
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
number=1
for i=1 to rs.pagesize and not rs.bof
body=rs("body")
'''''''投票''''''''
if rs("vote_title")<>"" then
if rs("vote_dx")=1 then
vote_dx="checkbox"
else
vote_dx="radio"
end if
body=""&body&"<form action=vote.asp?id="&rs("id")&" method=POST><table><tr><td><table>"
vote=split(rs("vote_title"),"|")
for n = 0 to ubound(vote)
if not vote(n)="" then
body=""&body&"<tr><td height=22 valign=bottom>"&n+1&".<input type="&vote_dx&" value="&n&" name=postvote id=postvote"&n&"><label for=postvote"&n&">"&vote(n)&"</label></td></tr>"
end if
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -