say.asp

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

<!--#include file="conn.asp"--><%
name=replace(Request.Cookies(cn)("lgname"),"'","''")
if name="" then
Response.Redirect"login.asp"
response.end
end if
session("uploadn")=0
myconn.close
set myconn=nothing%>
<!--#include file="up.asp"-->
<%
function ubbs(str)
dim re
 Set re=new RegExp
 re.IgnoreCase=true
 re.Global=True
re.Pattern="(\[showtoname=(.[^\[]*)\])(.[^\[]*)(\[\/s\])"
str=re.Replace(str,"[enter][color="&c1&"]…… 加密内容不能引用 ……[/color][enter]") 
re.Pattern="(\[showtoreply\])(.[^\[]*)(\[\/s\])"
str=re.Replace(str,"[enter][color="&c1&"]…… 加密内容不能引用 ……[/color][enter]") 
re.Pattern="(\[showtograde=*([0-9]*)\])(.[^\[]*)(\[\/s\])"
str=re.Replace(str,"[enter][color="&c1&"]…… 加密内容不能引用 ……[/color][enter]")
re.Pattern="(\[smoney=*([0-9]*)\])(.[^\[]*)(\[\/s\])"
str=re.Replace(str,"[enter][color="&c1&"]…… 加密内容不能引用 ……[/color][enter]")
re.Pattern="(\[smeili=*([0-9]*)\])(.[^\[]*)(\[\/s\])"
str=re.Replace(str,"[enter][color="&c1&"]…… 加密内容不能引用 ……[/color][enter]")
re.Pattern="(\[sjingyan=*([0-9]*)\])(.[^\[]*)(\[\/s\])"
str=re.Replace(str,"[enter][color="&c1&"]…… 加密内容不能引用 ……[/color][enter]")
re.pattern="(\[quote\])(.[^\[]*)(\[\/color\])"&chr(13)&""&chr(10)&""
str=re.Replace(str,"") 
re.Pattern=""&chr(10)&""&chr(10)&""&chr(10)&"(\[right\])(\[color=(.[^\[]*)\])(.[^\[]*)(\[\/color\])(\[\/right\])"
str=re.Replace(str,"")

str = replace(str, ">", "&gt;")
str = replace(str, "<", "&lt;")
str = replace(str, ""&chr(13)&""&chr(10)&"[/quote]", "")
set re=Nothing
ubbs=str
end function
%>
<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><style>TABLE {BORDER-TOP: 0px; BORDER-LEFT: 0px; BORDER-BOTTOM: 1px; }TD {BORDER-RIGHT: 0px; BORDER-TOP: 0px;}</style>
<%bdlogin(2)
%>
<%
session("upsize")=upsize
session("upnum")=upnum
pagenum=replace(request.querystring("pagenum"),"'","''")
quoteid=replace(request.querystring("quoteid"),"'","''")
re=request.querystring("re")
if re="no" then
action="save.asp?bd="&bd&"&re=no&pagenum="&pagenum&""
zhuti=""%>
<SCRIPT>function showvote(){
if (document.kbbs.voteyn.checked == true) {
vote.style.display = "";
}else{
vote.style.display = "none";
}
}
</SCRIPT>
<%
elseif re="yes" then
action="save.asp?bd="&bd&"&id="&id&"&re=yes&pagenum="&pagenum&""
zhuti="回复ID:"&id&""
set lock=myconn.execute("select type from bbstl where id="&id&"")
if lock("type")<>4 or canre="yes" then
else
response.end
end if
set lock=nothing
end if
%>
<form method=POST name=kbbs action=<%=action%>><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> 发 表 帖 子</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%">
 <tr>
 <td width="24%" height="30"> <b>&nbsp;用户名：</b></td>
 <td width="76%" height="30"> &nbsp;<input type=text name=name size=20 value="<%=name%>">
 <font color="<%=c1%>">*</font> <a href="zhuce.asp">没有注册？</a></td> </tr>
 <tr>
 <td width="24%" height="30">&nbsp;<b>密&nbsp; 码：</b></td>
 <td width="76%">&nbsp;<input type=password name=password size=20 value="<%=lgpwd%>">
 <font color="<%=c1%>">*</font> <a href="getpwd.asp">忘记密码？</a></td>
 </tr>
 <tr>
 <td width="24%" height="30">&nbsp;<b>帖子主题：</b>&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="<%=zhuti%>">
 <font color="<%=c1%>">*</font></td>
 </tr>
 <tr>
 <td width="24%">
 <p style="line-height: 150%; margin-left: 5; margin-top: 5"><b>你的表情：</b> <br>·放在帖子前面。</td>
 <td width="76%">
 <p style="margin: 4"><input type=radio value=face1 name=face checked> 
 <img border=0 src=face/face1.gif> <input type=radio value=face2 name=face> 
 <img border=0 src=face/face2.gif> <input type=radio value=face3 name=face> 
 <img border=0 src=face/face3.gif> <input type=radio value=face4 name=face> 
 <img border=0 src=face/face4.gif> <input type=radio value=face5 name=face> 
 <img border=0 src=face/face5.gif> <input type=radio value=face6 name=face> 
 <img border=0 src=face/face6.gif> <input type=radio value=face7 name=face> 
 <img border=0 src=face/face7.gif> <input type=radio value=face8 name=face> 
 <img border=0 src=face/face8.gif> <input type=radio value=face9 name=face> 
 <img border=0 src=face/face9.gif><br>
 <input type=radio value=face10 name=face> 
 <img border=0 src=face/face10.gif> <input type=radio value=face11 name=face> 
 <img border=0 src=face/face11.gif> <input type=radio value=face12 name=face> 
 <img border=0 src=face/face12.gif> <input type=radio value=face13 name=face> 
 <img border=0 src=face/face13.gif> <input type=radio value=face14 name=face> 
 <img border=0 src=face/face14.gif> <input type=radio value=face15 name=face> 
 <img border=0 src=face/face15.gif> <input type=radio value=face16 name=face> 
 <img border=0 src=face/face16.gif> <input type=radio value=face17 name=face> 
 <img border=0 src=face/face17.gif> <input type=radio value=face18 name=face> 
 <img border=0 src=face/face18.gif></td>
 </tr>
 <%if re="no" then%><%end if%>
<tr>
 <td width="24%" 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>·
<p style="line-height: 150%; margin-left: 5; margin-top: 5">
<%if re="no" then%><input type="checkbox" onclick=showvote() name="voteyn" value="1"> 显示投票选项<%end if%>
</td> <td width="76%" valign="top">
 <p style="margin-left: 4; margin-top: 4">