edit.asp

asp构建网站bbs.采用B/S架构

<!--#include file="up.asp"--><style>TABLE {BORDER-TOP: 0px; BORDER-LEFT: 0px; BORDER-BOTTOM: 1px; }TD {BORDER-RIGHT: 0px; BORDER-TOP: 0px;}</style>
<%
function hell(str)
dim re
Set re=new RegExp
re.IgnoreCase=true
re.Global=True
re.Pattern=""&chr(10)&""&chr(10)&""&chr(10)&"(\[right\])(\[color=(.[^\[]*)\])(.[^\[]*)(\[\/color\])(\[\/right\])"
str=re.Replace(str,"")
str = replace(str, ">", "&gt;")
str = replace(str, "<", "&lt;")
set re=Nothing
hell=str
end function
t1="<div align=center><center> <table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' width='98%' height='24'><tr><td width='180' background='pic/"&sp&"3.gif'>&nbsp;<img border='0' src='pic/fl.gif'> <font color='#FFFFFF'><b>"
t2="</b></font></td></tr></table></center></div><div align=center><center><table border=1 cellpadding=0 cellspacing=0 style='border-collapse: collapse' bordercolor="&c1&" width=98% >"
d1="<tr><td width=100% ><P style='MARGIN: 15px'>"
d2="</td></tr></table></center></div>"
abc=true
set edit=myconn.execute("select*from bbs"&totable&" where bbsid="&id&"")
nnn=edit("name")
if lgname<>nnn then
abc=false
end if

set che=myconn.execute("select name from [user] where name='"&lgname&"' and password='"&lgpwd&"'")
if che.eof then
abc=false
end if
set che=nothing

set adok=myconn.execute("select name from admin where name='"&lgname&"' and password='"&lgpwd&"' and (bd='70767766' or bd='"&bd&"')")
if not adok.eof then
abc=true
end if
set adok=nothing

if abc=false then
%><br><br>
<%=t1%>错 误 信 息<%=t2&d1%>·你不是该帖的作者或该版面的斑竹，不能编辑该帖子·<%=d2%>
<%
response.end
end if
%>

<%
ed=replace(request.querystring("ed"),"'","''")
reid=replace(request.querystring("reid"),"'","''")
%>
<%if ed=1 then
add=edit("zhuti")
tlid=edit("id")
else
add="re"
end if
zhuti=Replace(Request.Form("zhuti"),"'","''")
zhuti=Replace(zhuti,"|?|","")
zhutiok=Replace(zhuti," ","")

body=Replace(Request.Form("body"),"'","''")
body=replace(body,"|?|","")
bodyok=Replace(body," ","")
riqi=now+timeset/24
body=""&body&chr(10)&chr(10)&chr(10)&"[right][color="&c1&"]「该帖子被 "&lgname&" 在 "&riqi&" 编辑过」[/color][/right]"
face=Replace(Request.Form("face"),"'","''")
if zhutiok="" or bodyok="" or face="" then
%><br>
<SCRIPT>
function emoticon(theSmilie){
document.kbbs.body.value +=theSmilie + '';
document.kbbs.body.focus();
}
</SCRIPT><SCRIPT src="ybbcode.js"></SCRIPT>
<SCRIPT>var i=0;
function presskey(eventobject){if(event.ctrlKey && window.event.keyCode==13){i++;if (i>1) {alert('帖子正在发出，请耐心等待！');return false;}this.document.kbbs.submit();}}
</SCRIPT><form method=POST name=kbbs>

<%=t1%>编 辑 帖 子<%=t2%>

<div align="center">
 <center>
 <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="<%=c1%>" width="98%">
 <tr>
<td width="24%" height="30">&nbsp;<b>帖子主题：</b>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<select onchange="document.kbbs.zhuti.focus(); document.kbbs.zhuti.value = this.options[this.selectedIndex].value + document.kbbs.zhuti.value;" style="font-size: 9pt"> 
<option value='' selected>选择话题</option>
<option value=【原创】>【原创】</option>
<option value=【转帖】>【转帖】</option>
<option value=【贴图】>【贴图】</option>
<option value=【求助】>【求助】</option>
<option value=【公告】>【公告】</option>
<option value=【注意】>【注意】</option>
<option value=【建议】>【建议】</option>
<option value=【灌水】>【灌水】</option>
<option value=【Hack】>【Hack】</option>
<option value=【砖头】>【砖头】</option>
<option value=【乱弹】>【乱弹】</option>
<option value=【讨论】>【讨论】</option>
<option value=【警告】>【警告】</option>
<option value=【推荐】>【推荐】</option>
<option value=【下载】>【下载】</option>
<option value=【分享】>【分享】</option>
</select></td>

 <td width="76%">&nbsp;<input type=text name=zhuti size=80 maxlength=59 value="<%=add%>">
 <font color="<%=c1%>">*</font></td>
 </tr>
 <tr>
 <td width="24%" height="50">
 <p style="line-height: 150%; margin-left: 5; margin-top: 5"><b>你的表情：</b> <br>·放在帖子前面。</td>
 <td width="76%"><input type=radio value=face1 name=face checked> 
 <img border=0 src=face/face1.gif width="16" height="16"> <input type=radio value=face2 name=face> 
 <img border=0 src=face/face2.gif width="16" height="16"> <input type=radio value=face3 name=face> 
 <img border=0 src=face/face3.gif width="16" height="16"> <input type=radio value=face4 name=face> 
 <img border=0 src=face/face4.gif width="16" height="16"> <input type=radio value=face5 name=face> 
 <img border=0 src=face/face5.gif width="16" height="16"> <input type=radio value=face6 name=face> 
 <img border=0 src=face/face6.gif width="16" height="16"> <input type=radio value=face7 name=face> 
 <img border=0 src=face/face7.gif width="16" height="16"> <input type=radio value=face8 name=face> 
 <img border=0 src=face/face8.gif width="16" height="16"> <input type=radio value=face9 name=face> 
 <img border=0 src=face/face9.gif width="16" height="16"><p style='margin-top: 2; margin-bottom: 2'>
 <input type=radio value=face10 name=face> 
 <img border=0 src=face/face10.gif width="16" height="16"> <input type=radio value=face11 name=face> 
 <img border=0 src=face/face11.gif width="16" height="16"> <input type=radio value=face12 name=face> 
 <img border=0 src=face/face12.gif width="16" height="16"> <input type=radio value=face13 name=face> 
 <img border=0 src=face/face13.gif width="16" height="16"> <input type=radio value=face14 name=face> 
 <img border=0 src=face/face14.gif width="16" height="16"> <input type=radio value=face15 name=face> 
 <img border=0 src=face/face15.gif width="16" height="16"> <input type=radio value=face16 name=face> 
 <img border=0 src=face/face16.gif width="16" height="16"> <input type=radio value=face17 name=face> 
 <img border=0 src=face/face17.gif width="16" height="16"> <input type=radio value=face18 name=face> 
 <img border=0 src=face/face18.gif width="16" height="16"></td>
 </tr>
<tr>
 <td width="24%" height="266" valign="top">
<p style="line-height: 150%; margin-left: 5; margin-top: 5">
<b>帖子内容：</b><br>
·HTML标签：禁用<br>
·UBB标签：可用<br>
·贴图标签：可用<br>
·Flash标签：可用<br>
·表情字符转换：禁用<br>
·上传图片：可用<br>
·最多15KB<br><b>特殊内容：</b><br>
·<a href="javascript:grade()" title='格式：[showtograde=1]内容[/s]表示只有等级在“1”以上才能浏览“内容”“1”和“内容”可以自定， 使用该项请点击！'>等级可见内容</a><br>·<a href="javascript:reply()" title='格式：[showtoreply]内容[/s] 表示只有回复者才能浏览“内容”， “内容”可以自定， 使用该项请点击！'>回复可见内容</a><br>·<a href="javascript:name()" title='格式：[showtoname=zym]内容[/s] 表示只有“zym”才能浏览“内容” “zym”和“内容”可以自定， 使用该项请点击！'>指定读者内容</a><br>·<a href="javascript:smoney()" title='格式：[smoney=1000]内容[/s] 表示只有金钱不小于“1000”才能浏览“内容”“1000”和“内容”可以自定，使用该项请点击！'>金钱</a>·<a href="javascript:smeili()" title='格式：[smeili=1]内容[/s] 表示只有魅力在“1000”以上才能浏览“内容” “1000”和“内容”可以自定，使用该项请点击！'>魅力</a>·<a href="javascript:sjingyan()" title='格式：[sjingyan=1000]内容[/s] 表示只有经验不小于“1000”才能浏览“内容” “1000”和“内容”可以自定，使用该项请点击！'>经验</a>·