<%
dim Cssstyleid,action,paper,id,picurl,lguserid,topicuserid,lgname,bbsid,bd,totable,adminbd,usertype,i,badwords
Cssstyleid=request.cookies(prefix&"1")("styleid")
%>
<%
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,"|")
%><%=checktitle(application(prefix&"bbsname"))%>——查看公告
<%
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,"|","│")
%>
<%=checktitle(application(prefix&"bbsname"))%>——预览内容
预览内容
<%=checktitle(topic)%>
<%=ubb(content)%>
<%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,"|")
%>
<%=checktitle(application(prefix&"bbsname"))%>——回收站
<%set rs=nothing%>
<%case"checkreg"
%><%
dim name,email,mes,z
name=Replace(Request.Form("name"),"'","''")
email=Replace(Request.Form("email"),"'","''")
if name="" or email="" then
mes="·请填写完整用户名和E-mail，以便检测，谢谢。 "
else
if strlength(name)>16 then
mes="·你的用户名长度超过了16。 "
end if
if not pass_name(name) then
mes=mes&"·你的用户名含有非法字符。 "
end if
badwords=split(application(prefix&"badwords"),"|")
for z=0 to ubound(badwords)
if instr(name,badwords(z))>0 then
mes=mes&"·你的用户名含有论坛禁止使用的字词。 "
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&"·该用户名已经被注册了。 "
end if
'结束
email=server.HTMLEncode(email)
if not IsValidEmail(email) then mes=mes&"·你的E-mail填写错误。 "
if isnull(mes) or mes="" then mes="您填写的资料可以正常注册。"
end if%>
检测用户名