?? paper.asp
字號(hào):
<!--#include file="conn.asp"--><!--#include file="inc/fun.asp"--><!--#include file="inc/ubbcode.asp"-->
<%
dim Cssstyleid,action,paper,id,picurl,lguserid,topicuserid,lgname,bbsid,bd,totable,adminbd,usertype,i,badwords
Cssstyleid=request.cookies(prefix&"1")("styleid")
%>
<link rel="stylesheet" type="text/css" href="skin/<%=Cssstyleid%>/bbs.css">
<link rel="stylesheet" type="text/css" href="skin/<%=Cssstyleid%>/global.css">
<body topmargin=0>
<%
action=request.querystring("action")
select case action
case"showpic"
id=checknum(request.querystring("id"))
picurl=request.querystring("picurl")
conn.execute("update upload set hits=hits+1 where id="&id&"")
response.redirect"upload/"&picurl
case""
id=checknum(request.querystring("id"))
set rs=conn.execute("select*from paper where id="&id&"")
paper=rs("paper")
paper=split(paper,"|")
%><title><%=checktitle(application(prefix&"bbsname"))%>——查看公告</title>
<div class=papertop>查看公告</div>
<div class=papertitle><%=checktitle(paper(0))%></div>
<div class=paperbody><%=ubb(paper(3))%></div>
<div class=papertime><%=checktitle(paper(1))%> 發(fā)表于： <%=checktitle(paper(2))%></div>
<%
set rs=nothing
case "preview"
dim topic,content,bad,b
function checkbad(str)
if isnull(str) then exit function
bad=split(application(prefix&"badcontent"), "|")
for b=0 to ubound(bad)
str=Replace(str,bad(b),string(len(bad(b)),"*"))
next
checkbad=str
end function
topic=Request.Form("topic")
topic=checkbad(Replace(topic,"|","│"))
content=checkbad(Request.Form("content"))
content=replace(content,"|","│")
%>
<title><%=checktitle(application(prefix&"bbsname"))%>——預(yù)覽內(nèi)容</title>
<div class=papertop>預(yù)覽內(nèi)容</div>
<div class=papertitle><%=checktitle(topic)%></div>
<div class=paperbody><%=ubb(content)%></div>
<%case"showdelbbs"
bbsid=checknum(request.querystring("bbsid"))
bd=checknum(request.querystring("bd"))
totable=checknum(request.querystring("totable"))
adminbd=session(prefix&"adminbd")
usertype=checknum(session(prefix&"usertype"))
if usertype<3 or (usertype=3 and instr("|"&adminbd&"|","|"&bd&"|")=0) then
response.end
end if
set rs=conn.execute("select top 1 * from bbs"&totable&" where bbsid="&bbsid&" and bd="&bd&"")
content=rs("content")
content=split(content,"|")
%>
<title><%=checktitle(application(prefix&"bbsname"))%>——回收站</title>
<div class=papertop>查看帖子</div>
<div class=paperbody><%=ubb(content(4))%></div>
<div class=papertime><%=checktitle(content(2))%> 發(fā)表于 <%=checktitle(content(5))%></div>
<%set rs=nothing%>
<%case"checkreg"
%><!--#include file="inc/regfun.asp"--><%
dim name,email,mes,z
name=Replace(Request.Form("name"),"'","''")
email=Replace(Request.Form("email"),"'","''")
if name="" or email="" then
mes="·請(qǐng)?zhí)顚?xiě)完整用戶(hù)名和E-mail，以便檢測(cè)，謝謝。<br>"
else
if strlength(name)>16 then
mes="·你的用戶(hù)名長(zhǎng)度超過(guò)了16。<br>"
end if
if not pass_name(name) then
mes=mes&"·你的用戶(hù)名含有非法字符。<br>"
end if
badwords=split(application(prefix&"badwords"),"|")
for z=0 to ubound(badwords)
if instr(name,badwords(z))>0 then
mes=mes&"·你的用戶(hù)名含有論壇禁止使用的字詞。<br>"
exit for
end if
next
'添加 2005-2-4
if pass_name(name) then
if not conn.execute("select top 1 userid from [user] where name='"&name&"'").eof then mes=mes&"·該用戶(hù)名已經(jīng)被注冊(cè)了。<br>"
end if
'結(jié)束
email=server.HTMLEncode(email)
if not IsValidEmail(email) then mes=mes&"·你的E-mail填寫(xiě)錯(cuò)誤。<br>"
if isnull(mes) or mes="" then mes="您填寫(xiě)的資料可以正常注冊(cè)。"
end if%>
<title>檢測(cè)用戶(hù)名</title>
<div class=papertop>檢測(cè)用戶(hù)名</div>
<div class=paperbody><%=mes%></div>
<%end select%><div class=paperclose><a href=# onclick="window.close();">[× 關(guān)閉窗口]</a></div>
<%set rs=nothing%>?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -