📄 paper.asp
字号:
<!--#include file="conn.asp"--><!--#include file="inc/fun.asp"--><!--#include file="inc/ubbcode.asp"-->
<%response.write"<link rel=stylesheet type=text/css href=inc/Comm.css><body topmargin=0>"
dim id,paper,lguserid,lgname,topicname,action,topicuserid,name,bbsid,bd,totable,usertype,adminbd,badwords,email,mes,i,z,picurl
dim tinfo,binfo,ttop,tbottom,tbw,c1,c2,tbg,bbsinfo
tinfo=request.cookies(prefix&"1")("tinfo")
binfo=request.cookies(prefix&"1")("binfo")
ttop=request.cookies(prefix&"1")("ttop")
tbottom=request.cookies(prefix&"1")("tbottom")
tbw=request.cookies(prefix&"1")("tbw")
c1=request.cookies(prefix&"1")("c1")
c2=request.cookies(prefix&"1")("c2")
tbg=request.cookies(prefix&"1")("tbg")
set rs=conn.execute("select bbsinfo from config")
bbsinfo=rs("bbsinfo")
bbsinfo=split(bbsinfo,"|")
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><%=kbbs(application(prefix&"bbsname"))%>——查看公告</title>
<table bordercolor="<%=c1%>" align="center" border="1" cellpadding="0" cellspacing="0" style='border-collapse: collapse;TABLE-LAYOUT: fixed; WORD-BREAK: break-all' width="100%">
<tr>
<td class=td1 width="100%" bgcolor="<%=c1%>" background="<%=tbg%>" height="28"> <img src="pic/gl.gif" border="0">
<font color=black>查看公告</font></td>
</tr>
<tr>
<td width="100%" bgcolor="<%=c2%>">
<p style="margin: 4; line-height:120%"><img src="pic/fl.gif"> <%=kbbs(paper(0))%></td>
</tr>
<tr>
<td width="100%">
<p style="margin: 5; line-height:120%"><img src="pic/tl.gif"> <%=ubb(paper(3))%></td>
</tr>
<tr>
<td width="100%" align="right" bgcolor="<%=c2%>">
<p style="margin: 5;"><%=kbbs(paper(1))%> 在 <%=kbbs(paper(2))%> 发表</td>
</tr>
<tr>
<td width="100%" align="center" height="30">
<a href=# onclick="window.close();">
<img border="0" src="pic/close.gif" align="absmiddle"> 关闭窗口</a></td>
</tr>
</table>
<%
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=Replace(Request.Form("topic"),"'","''")
topic=checkbad(Replace(topic,"|","│"))
content=checkbad(Request.Form("content"))
content=replace(content,"|","│")
content=replace(content,"'","''")
%>
<title><%=kbbs(application(prefix&"bbsname"))%>——预览内容</title>
<table align="center" border="1" cellpadding="0" bordercolor="<%=c1%>" cellspacing="0" style='border-collapse: collapse;TABLE-LAYOUT: fixed; WORD-BREAK: break-all' width="100%">
<tr>
<td class=td1 width="100%" bgcolor="<%=c1%>" background="<%=tbg%>" height="28"> <img src="pic/gl.gif" border="0">
<font color=black>预览内容</font></td>
</tr>
<tr>
<td width="100%" bgcolor="<%=c2%>">
<p style="margin: 4; line-height:120%"><img src="pic/fl.gif"> <%=kbbs(topic)%></td>
</tr>
<tr>
<td width="100%">
<blockquote>
<p style="margin: 5; line-height:120%"><img src="pic/tl.gif"> <%=ubb(content)%></blockquote>
</td>
</tr>
<tr>
<td width="100%" align="center" height="30">
<a href=# onclick="window.close();">
<img border="0" src="pic/close.gif" align="absmiddle"> 关闭窗口</a></td>
</tr>
</table>
<%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><%=kbbs(application(prefix&"bbsname"))%>——回收站</title>
<table align="center" border="1" cellpadding="0" cellspacing="0" style='border-collapse: collapse;TABLE-LAYOUT: fixed; WORD-BREAK: break-all' width="100%">
<tr>
<td class=td1 width="100%" bgcolor="<%=c1%>" background="<%=tbg%>" height="28"> <img src="pic/gl.gif" border="0">
预览内容</td>
</tr>
<tr>
<td width="100%" bgcolor="<%=c2%>">
<p style="margin: 4; line-height:120%"><img src="pic/fl.gif"> <%=kbbs(content(2))%> 发表于 <%=kbbs(content(5))%></td>
</tr>
<tr>
<td width="100%">
<blockquote>
<p style="margin: 5; line-height:120%"><img src="pic/tl.gif"> <%=ubb(content(4))%></blockquote>
</td>
</tr>
<tr>
<td width="100%" align="center" height="30">
<a href=# onclick="window.close();">
<img border="0" src="pic/close.gif" align="absmiddle"> 关闭窗口</a></td>
</tr>
</table>
<%set rs=nothing%>
<%case"checkreg"
%><!--#include file="inc/regfun.asp"--><%
name=Replace(Request.Form("name"),"'","''")
email=Replace(Request.Form("email"),"'","''")
if name="" or email="" then
mes="·请填写完整用户名和E-mail，以便检测，谢谢。<br>"
else
if strlength(name)>16 then
mes="·你的用户名长度超过了16。<br>"
end if
if not pass_name(name) then
mes=mes&"·你的用户名含有非法字符。<br>"
end if
badwords=split(application(prefix&"badwords"),"|")
for z=0 to ubound(badwords)
if instr(name,badwords(z))>0 then
mes=mes&"·你的用户名含有论坛禁止使用的字词。<br>"
exit for
end if
next
if pass_name(name) then
if not conn.execute("select top 1 userid from [user] where name='"&name&"'").eof then mes=mes&"·该用户名已经被注册了。<br>"
end if
email=server.HTMLEncode(email)
if not IsValidEmail(email) then mes=mes&"·你的E-mail填写错误。<br>"
if isnull(mes) or mes="" then mes="您填写的资料可以正常注册。"
end if%>
<title>检测用户名</title>
<table align="center" border="1" cellpadding="0" cellspacing="0" style='border-collapse: collapse;TABLE-LAYOUT: fixed; WORD-BREAK: break-all' width="100%">
<tr>
<td class=td1 width="100%" bgcolor="<%=c1%>" background="<%=tbg%>" height="28"> <img src="pic/gl.gif" border="0"> 检测用户名：</td>
</tr>
<tr>
<td width="100%" bgcolor="<%=c2%>">
<p style="margin: 8; line-height:150%"><%=mes%></td>
</tr>
<tr>
<td width="100%" align="center" height="30">
<a href=# onclick="window.close();">
<img border="0" src="pic/close.gif" align="absmiddle"> 关闭窗口</a></td>
</tr>
</table>
<%end select%>
<%set rs=nothing%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -