index.asp

平凡BBS1.0

Set Rs = Server.CreateObject("ADODB.RecordSet")
Sql="Select * From admin "
Rs.Open Sql,Conn,2,3

   rs("jd_title")=Request.Form("webtitle")
   rs("jd_gl")=Request.Form("webggg")
   rs("jd_gbyn")=cint(Request.Form("webyn"))
   if lentrue(Request.Form("webname"))>50 then call backerr("字数太多")
   if Not IsNumeric(Request.Form("jd_n")) then call backerr("只能输入数字")
   rs("jd_webname")=Request.Form("webname")
   rs("jd_imgpath")=Request.Form("jd_imgpath")
   rs("jd_n")=Request.Form("jd_n")
   if Not IsNumeric(Request.Form("jd_x"))  then call backerr("只能输入数字")
   if Not IsNumeric(Request.Form("jd_txt"))  then call backerr("只能输入数字")
    rs("jd_x")=Request.Form("jd_x")
    rs("jd_txt")=int(Request.Form("jd_txt"))
   rs("jd_fla")=lefttrue(Request.Form("jd_fla"),50)
   rs("jd_table_w")=lefttrue(Request.Form("jd_table_w"),4)
   if cint(Request.Form("jd_mm"))=1 then
    rs("jd_mm")=1
   else
    rs("jd_mm")=0
   end if
   rs("jd_bg")=lefttrue(Request.Form("jd_bg"),50)
   rs("jd_top_addr")=lefttrue(Request.Form("jd_top_addr"),255)
   rs("jd_top_h")=Request.Form("jd_top_h")
   rs("jd_foot_addr")=lefttrue(Request.Form("jd_foot_addr"),50)
   rs("jd_foot_h")=Request.Form("jd_foot_h")
   rs("jd_sty")=Request.Form("jd_sty")
   rs("jd_repyn")=Request.Form("jd_repyn")
   if Not IsNumeric(Request.Form("jd_repn"))  then call backerr("只能输入数字")
   rs("jd_repn")=cint(Request.Form("jd_repn"))
   rs("jd_memyn")=cint(Request.Form("jd_memyn"))
   rs("jd_http")=lefttrue(Request.Form("http"),200)
   rs("jd_kt")=cint(Request.Form("jd_kt"))
   rs("jd_qmpic")=cint(Request.Form("jd_qmpic"))
   rs("jd_editorstyle")=cint(Request.Form("jd_editorstyle"))
   rs("jd_upfile")=cint(Request.Form("jd_upfile"))
	rs("jd_bkww")=cint(Request.Form("jd_bkww"))
	rs("jd_online")=cint(Request.Form("jd_online"))
	rs("jd_regopen")=restr(Request.Form("jd_week"))
	rs("jd_photoup")=cint(Request.Form("photoup"))
	rs("jd_pagetime")=cint(Request.Form("pagetime"))
	rs("jd_regtime")=cint(Request.Form("regtime"))
	rs("jd_img2")=Request.Form("jd_img2")
	rs("jd_noregtext")=Request.Form("noregtext")
	rs("jd_mailname")=Request.Form("jd_mailname")
	rs("jd_smtp")=Request.Form("jd_smtp")
	rs("jd_mailpw")=Request.Form("jd_mailpw")
   rs.update
   
   conn.execute("update a set jd_sys=jd_sys+1")
   rs.close
call msg_List("修改成功","",3,indexfilename&"?action=Edit_web&forumid="&forumid&"")
end if

dim a,b,d,e,f,g
g=conn.execute("select count(*) from member where jd_cls>-3",0,1)(0)
a=conn.execute("select count(*) from topics",0,1)(0)
b=conn.execute("select count(*) from reply",0,1)(0)
Conn.Execute("update a set jd_t="&a&",jd_z="&a+b&",jd_m="&g)
set rs=conn.execute("select hits,hots from a",0,1)
d="<div align='center'>(主题总数:<font color=#ff0000>" & a &" </font>回复总数:<font color=#ff0000>" & b &"</font> 浏览统计:<font color=#ff0000>" & rs(0) &"</font> 人次,刷新量:<font color=#ff0000>"& rs(1) &"</font> 次)</div>"
call rsClose()
dim noregtext,jd_wee,jd_mailname,jd_smtp,jd_mailpw,regtime
set rs=conn.execute("Select jd_imgpath,jd_regopen,jd_noregtext,jd_qmpic,jd_mailname,jd_smtp,jd_mailpw,jd_regtime,jd_pagetime From admin ",0,1)
if not rs.eof then
indeximg=rs(0)
jd_wee=rs(1)
noregtext=rs(2)
jd_qmpic=rs(3)
jd_mailname=rs(4)
jd_smtp=rs(5)
jd_mailpw=rs(6)
regtime=rs(7)
pagetime=rs(8)
end if
jd_wee=","&jd_wee&","
jd_wee=Replace(jd_wee,",,",",")
call rsClose()
with Response
.Write("<TABLE width='"&jd_table_w&"' height=51 border=1 align=center cellPadding=0 cellSpacing=0 class='jd_tab' style='border-collapse:collapse' ><TBODY><TR ><TD height=25 class=jd_titlemu align='center'>基本设置</TD></TR><TR><TD height='21' align=middle valign='top' class='jd_tab' > <table width='90%' border='0' align='center' cellpadding='2' cellspacing='0'  class='unnamed1'> <tr> <td>"&d&"</td></tr><tr><td height='2' class='jd_title' colspan='1' align='center'></td></tr></table>")

.Write("<table width='90%' border='1' align='center' cellpadding='4' cellspacing='1' bordercolor='#CCCCCC' class='unnamed1' style='border-collapse:collapse'><form name='form' method='post' action='"&indexfilename&"' onSubmit='submitonce(this)'><tr><td colspan='2' align='center'>&nbsp; </td></tr> <tr> <td width='150' align='right' valign='top'>留言板名称</td><td width='470'><input name='webname' type='text' id='webname' value='"&webname&"' size='50' maxLength=25> </td></tr><tr align='center'> <td align='right'>公告内容：</td><td align='left'><textarea name='webtitle' cols='50' rows='3' id='webtitle'>"&webtitle&"</textarea></td></tr><tr align='center'> <td align='right'>词语过滤：</td><td align='left'><textarea name='webggg' cols='50' rows='3' id='webggg'>"&webgl&"</textarea><br>用 | 隔开 如: aaa|bbb</td></tr><tr align='center'> <td align='right'>禁止注册字符：</td><td align='left'><textarea name='noregtext' cols='50' rows='3' id='webtitle'>"&noregtext&"</textarea></td></tr><tr align='center'> <td align='right'>正常/审批：</td> <td align='left'>")
.Write("<input name='webyn' type='checkbox' id='webyn' value='1' ")
if webyn=1 then .Write("checked")
.Write("> 是 (打上勾则访客的留言必须经过版主同意方显示)</td></tr><tr align='center'> <td align='right'>开放秘密留言：</td><td align='left'><input name='jd_mm' type='checkbox' id='jd_mm' value='1' ")
if jd_mm=1 then .Write("checked")
.Write("> 是 </td></tr><tr align='center'> <td align='right'>最大字数：</td><td align='left'><input name='jd_txt' type='text' id='jd_txt' value='"&jd_txt&"' size='20' maxlength='10'> <font color='#666666'>0 则不限制</font></td></tr><tr align='center'> <td align='right'>每页显示留言数：</td><td align='left'><input name='jd_n' type='text' id='jd_n' value='"&jd100_page_n&"' size='20' maxlength='2'></td></tr><tr align='center'> <td align='right'>每页显示页数：</td><td align='left'><input name='jd_x' type='text' id='jd_x' value='"&jd100_page_x&"' size='20' maxlength='2'></td></tr><tr align='center'> <td align='right'>默认模板路径：</td><td align='left'><input name='jd_imgpath' type='text' id='jd_imgpath' value='"&indeximg&"' size='20' maxlength='50'> <font color='#666666'>默认 img/1/ </font></td></tr><tr align='center'> <td align='right'>头像表情路径：</td><td align='left'><input name='jd_img2' type='text' id='jd_img2' value='"&img2&"' size='20' maxlength='50'> <font color='#666666'>默认 img/ </font></td></tr>")
.Write("<tr align='center'> <td align='right'>版主邮箱：</td><td align='left'><input name='jd_fla' type='text' id='jd_fla' value='"&jd_fla&"' size='20' maxlength='50'></td></tr>")
.Write("<tr align='center'> <td align='right'>邮箱登录名：</td><td align='left'><input name='jd_mailname' type='text'  value='"&jd_mailname&"' size='20' maxlength='50'>以下三项要同版主邮箱对应,用于JMAIL发邮件</td></tr>")
.Write("<tr align='center'> <td align='right'>邮箱SMTP：</td><td align='left'><input name='jd_smtp' type='text'  value='"&jd_smtp&"' size='20' maxlength='50'></td></tr>")
.Write("<tr align='center'> <td align='right'>邮箱密码：</td><td align='left'><input name='jd_mailpw' type='text'  value='"&jd_mailpw&"' size='20' maxlength='50'></td></tr>")
.Write("<tr align='center'> <td align='right'>背景图片：</td><td align='left'><input name='jd_bg' type='text' id='jd_bg' value='"&jd_bg&"' size='20' maxlength='50'> <font color='#666666'> 默认 img/1/bookbg.gif </font></td> </tr> <tr align='center'> <td align='right'>表格宽度：</td><td align='left'><input name='jd_table_w' type='text' id='jd_table_w' value='"&jd_table_w&"' size='20' maxlength='6'> <font color='#666666'> 如:760 或 100% </font></td></tr> <tr align='center'>  <td align='right'>页顶横幅：</td> <td align='left'><input name='jd_top_addr' type='text' id='jd_top_addr' value='"&jd100_top&"' size='20' maxlength='255'> <font color='#666666'>http://www.pfsj8.net/top.htm</font></td></tr><tr align='center'> <td align='right'>横幅高度：</td><td align='left'><input name='jd_top_h' type='text' id='jd_top_h' value='"&jd_top_h&"' size='20' maxlength='6'></td></tr><tr align='center'> <td align='right'>页脚：</td> <td align='left'><input name='jd_foot_addr' type='text' id='jd_foot_addr' value='"&jd_foot_addr&"' size='20' maxlength='50'> <font color='#666666'>http://www.pfsj8.net/foot.htm</font> </td></tr><tr align='center'> <td align='right'>页脚高度：</td><td align='left'><input name='jd_foot_h' type='text' id='jd_foot_h' value='"&jd_foot_h&"' size='20' maxlength='6'></td></tr><tr align='center'> <td align='right'>每页显示回复数：</td> <td align='left'><input name='jd_repn' type='text' id='jd_repn' value='"&jd_repn&"' size='20' maxlength='6'></td></tr>")

.Write("<tr align='center'> <td align='right'>每行几个菜单：</td><td align='left'><input name='jd_bkww' type='text' id='jd_bkww' value='"&bkww&"' size='20' maxlength='6'></td></tr>")

.Write("<tr align='center'> <td align='right'>开放回复：</td> <td align='left'><input name='jd_repyn' type='radio' value='0' ")
if jd_repyn=0 then .Write("checked")
.Write("> 否 <input type='radio' name='jd_repyn' value='1' ")
if jd_repyn=1 then .Write("checked")
.Write("> 是 </td></tr>")

.Write("<tr align='center'> <td align='right'>会员功能：</td><td align='left'><input name='jd_memyn' type='radio' value='0' ")
if jd_memyn=0 then .Write("checked")
.Write("> 不开放 <input type='radio' name='jd_memyn' value='1' ")
if jd_memyn=1 then .Write("checked")
.Write("> 仅会员可发表 <input type='radio' name='jd_memyn' value='2' ")
if jd_memyn=2 then .Write("checked")
.Write("> 非会员也可以发表</td> </tr><tr align='center'>  <td align='right'>留言板样式：</td><td align='left'><input name='jd_sty' type='radio' value='0' ")
if jd_sty=0 then .Write("checked")
.Write("> 平板式  <input type='radio' name='jd_sty' value='1' ")
if jd_sty=1 then .Write("checked")
.Write("> 列表式 </td></tr> <tr align='center'> <td align='right'>会员模式：</td><td align='left'><input name='jd_kt' type='radio' value='0' ")
if jd_kt=0 then .Write("checked")
.Write("> 注册就开通   <input type='radio' name='jd_kt' value='1' ")
if jd_kt=1 then .Write("checked")
.Write("> 审批开通 </td> </tr><tr align='center'> <td align='right'>开放注册时间：</td><td align='left'><input name='jd_week' type='checkbox' value='0' ")
if instr(jd_wee,",0,")>0 then .Write("checked")
.Write("><font color='#ff0000'>完全</font>&nbsp;<br>星期:")
			  for i=1 to 7
.Write("<input name='jd_week' type='checkbox' value='"&jd_week(i)&"' ")
if instr(jd_wee,jd_week(i))>0 then .Write("checked")
.Write(">"&jd_week(i)&"&nbsp;")
              next
.Write("<br>每月:")
			  for i=1 to 31
.Write("<input name='jd_week' type='checkbox' value='"&i&"' ")
if instr(jd_wee,","&i&",")>0 then .Write("checked")
.Write(">"&i&"&nbsp;")
if i/8=int(i/8) then .Write("<br>")
              next

.Write("</td> </tr><tr align='center'>  <td align='right'>签名支持UBB：</td> <td align='left'><input name='jd_qmpic' type='radio' value='0' ")
if jd_qmpic=0 then .Write("checked")
.Write("> 不支持 <input type='radio' name='jd_qmpic' value='1' ")
if jd_qmpic=1 then .Write("checked")
.Write("> 支持</td> </tr> <tr align='center'>  <td align='right'>编辑器：</td> <td align='left'><input name='jd_editorstyle' type='radio' value='0' ")
if jd_editorstyle=0 then .Write("checked")
.Write("> 使用UBB  <input type='radio' name='jd_editorstyle' value='1' ")
if jd_editorstyle=1 then .Write("checked")
.Write("> 使用编辑器</td> </tr> <tr align='center'>  <td align='right'>上传功能：</td> <td align='left'><input name='jd_upfile' type='radio' value='0' ")
if jd_upfile=0 then .Write("checked")
.Write("> 不使用  <input type='radio' name='jd_upfile' value='1' ")
if jd_upfile=1 then .Write("checked")
.Write("> 使用</td> </tr> <tr align='center'>  <td align='right'>在线功能：</td> <td align='left'><input name='jd_online' type='radio' value='0' ")
if jd_acview=0 then .Write("checked")
.Write("> 不显示   <input type='radio' name='jd_online' value='1' ")
if jd_acview=1 then .Write("checked")
.Write("> 显示 <input type='radio' name='jd_online' value='2' ")
if jd_acview=2 then .Write("checked")
.Write("> 管理显示 </td></tr>")
.Write("<tr align='center'> <td align='right'>主页地址：</td> <td align='left'><input name='http' type='text' id='http' value='"&jd_http&"' size='20'><font color='#666666'>请用绝对地址,如:http://www.pfsj8.net/</font></td></tr>")

.Write("<tr align='center'> <td align='right'>发多少贴可上传：</td><td align='left'><input name='photoup' type='text' value='"&photoup&"' size='6' maxlength='6'>贴</td></tr>")
.Write("<tr align='center'> <td align='right'>发贴间隔：</td><td align='left'><input name='pagetime' type='text' value='"&pagetime&"' size='6' maxlength='4'>秒</td></tr>")
.Write("<tr align='center'> <td align='right'>注册后多久可发贴：</td><td align='left'><input name='regtime' type='text' value='"&regtime&"' size='6' maxlength='4'>分</td></tr>")
.Write("<tr align='center'>  <td colspan='2'> <font color=#ff0000></font><br>  <input type='hidden' name='action_e' value='Edit_web'> <input type='submit' name='Submit' value='修改' id='Submit' class='input1'>  </td> </tr> </form> </table></TD></TR> </TBODY></TABLE>")
end with
End Sub 

'''''#################显示回复 之 楼主贴
Sub View_topics()
call jd_loginyn()
repage = Request("repage")
if repage="" then repage=page
repage=int(repage)

'浏览主题贴
dim id
dim ax,bx
dim words,reply,lou,listtitle,jd100_page_count
dim wid,jd_cls,view_rep,jd_class
dim viewadmin,view,titlead,user_xx,sqlid,head,j
           view_rep=0 '显示回复初始为否
		   id= checkStr(Request.QueryString("id"))
		   id= int(id)
           Conn.Execute("update topics set jd_hit=jd_hit+1 Where id="&id) ' 点击统计
ax="topics"
bx="member"

sql="select "&_
" "&ax&".id,"&ax&".jd_userid,"&ax&".jd_name,"&ax&".jd_reid,"&ax&".jd_title,"&ax&".jd_words," &_
" "&ax&".jd_date,"&ax&".jd_editdate,"&ax&".jd_reply,"&ax&".jd_ip,"&ax&".jd_view," &_
" "&ax&".jd_cls,"&ax&".jd_rep,"&bx&".jd_cls,"&bx&".jd_sex,"&bx&".jd_web," &_
" "&bx&".jd_email,"&bx&".jd_date,"&bx&".jd_come,"&bx&".jd_qq,"&bx&".jd_head," &_
" "&bx&".jd_qm,"&bx&".jd_topic,"&bx&".jd_view ,"&bx&".jd_jf,"&ax&".jd_hit," &_
" "&bx&".jd_tx ,"&ax&".jd_top,"&ax&".jd_rnd" &_
" From "&ax&" left join "&bx&" on "&ax&".jd_userid="&bx&".id " &_
" where "&ax&".id="&id&" and "&ax&".jd_forumid="&forumid

set rs=conn.execute(sql)
if rs.eof then call msg_List("错误","非法的数据操作",3,indexfilename&"?forumid="&forumid)
dim msg0,msg1,msg2,msg3,msg4,msg5,msg6,msg7,msg8
dim ip,msgtemp,t_cls,t_ch,t_rnd
wid=rs(0) 
msg0=rs(2)
listtitle=untitle(rs(4))
words=Ubb(rs(5),"")
user_xx=rs(6)
reply=rs(8)
ip=rs(9)
view=rs(10)
jd_class=rs(11) 
jd100_page_count=rs(12)
t_cls=rs(13)
t_ch=rs(25)
t_rnd=rs(28)
msgtemp="-"&t_cls
if rs(27)=1 and datediff("h",rs(6),now) > 23 then
Conn.Execute("update topics set jd_top=0 Where id="&id)
end if
if listtitle<>"" then
titlead="<table width='100%' height='20' border='0' cellpadding='0' cellspacing='0' style='table-layout:fixed;word-break:break-all;word-wrap:break-word;'>"&_
"<tr><td  style='word-break:break-all' class=jd_title>&nbsp; ※&nbsp;<b>"&listtitle&"</b>  &