index.asp

一个简易论坛自己手动写成的代码一个简易论坛自己手动写成的代码一个简易论坛自己手动写成的代码

   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>"

indeximg=conn.execute("Select jd_imgpath From admin ",0,1)(0)
dim jd_wee
jd_wee=conn.execute("Select jd_regopen From admin ",0,1)(0)
jd_wee=","&jd_wee&","
jd_wee=Replace(jd_wee,",,",",")
call rsClose()

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_title' ><div align='center'> <font size='3'><strong>基本设置</strong></font></div></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'></td></tr></table>")

Response.Write("<table width='620' border='1' align='center' cellpadding='4' cellspacing='1' bordercolor='#566276' 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='5' id='webtitle'>"&webtitle&"</textarea></td></tr><tr align='center'> <td align='right'>词语过滤：</td><td align='left'><textarea name='webggg' cols='50' rows='5' id='webggg'>"&webgl&"</textarea><br>用 | 隔开 如: aaa|bbb</td></tr><tr align='center'> <td align='right'>正常/审批：</td> <td align='left'>")
Response.Write("<input name='webyn' type='checkbox' id='webyn' value='1' ")
if webyn=1 then Response.Write("checked")
Response.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 Response.Write("checked")
Response.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_fla' type='text' id='jd_fla' value='"&jd_fla&"' size='20' maxlength='50'> </td> </tr><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.11987.com/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.11987.com/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>")

Response.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>")

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

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

Response.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 Response.Write("checked")
Response.Write("> 不支持 <input type='radio' name='jd_qmpic' value='1' ")
if jd_qmpic=1 then Response.Write("checked")
Response.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 Response.Write("checked")
Response.Write("> 使用UBB  <input type='radio' name='jd_editorstyle' value='1' ")
if jd_editorstyle=1 then Response.Write("checked")
Response.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 Response.Write("checked")
Response.Write("> 不使用  <input type='radio' name='jd_upfile' value='1' ")
if jd_upfile=1 then Response.Write("checked")
Response.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 Response.Write("checked")
Response.Write("> 不显示   <input type='radio' name='jd_online' value='1' ")
if jd_acview=1 then Response.Write("checked")
Response.Write("> 显示 <input type='radio' name='jd_online' value='2' ")
if jd_acview=2 then Response.Write("checked")
Response.Write("> 管理显示 </td> </tr> <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.11987.com/</font></td></tr><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 Sub 

'''''#################显示回复 之 楼主贴
Sub View_topics()
call jd_loginyn()

'浏览主题贴
           dim wid,jd_cls,view_rep,id,jd_class,ax,bx
		   dim lou,words,reply,listtitle
           dim viewadmin,view,titlead,user_xx,sqlid,head,j
           view_rep=0
		   id= checkStr(Request.QueryString("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_sex,"&ax&".jd_head,"&ax&".jd_web,"
sql=sql&""&ax&".jd_email,"&ax&".jd_title,"&ax&".jd_words,"&ax&".jd_date,"&ax&".jd_editdate,"&ax&".jd_reply,"
sql=sql&""&ax&".jd_ip,"&ax&".jd_come,"&ax&".jd_view,"&ax&".jd_qq,"&ax&".jd_cls,"&ax&".jd_rep, " '$$主题/会员
sql=sql&""&bx&".jd_user,"&bx&".jd_cls,"&bx&".jd_sex,"&bx&".jd_web,"&bx&".jd_email,"&bx&".jd_date,"&bx&".jd_ip,"
sql=sql&""&bx&".jd_come,"&bx&".jd_qq,"&bx&".jd_head,"&bx&".jd_qm,"&bx&".jd_topic,"&bx&".jd_view "
sql=sql&","&bx&".jd_jf,"&ax&".jd_hit,"&bx&".jd_tx ,"&ax&".jd_top"
sql=sql&" 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)
sql=""

		   if rs.eof then
		    call msg_List("错误","非法的数据操作",3,indexfilename&"?forumid="&forumid)
		   else
		   wid=rs(0) 
		   end if
		   jd_class=rs(17) 
dim jd100_page_count
jd100_page_count=rs(18)
 'jd100_page_count=rsCount(jd100_ID,jd100_biao,jd100_order)

reply=""
words=""
words=rs(9)
words=Ubb(words)
titlead=""
listtitle=unHtml(rs(8))
if rs(8)<>"" 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;'>"
titlead=  titlead &  "  <tr><td  style='word-break:break-all' class=jd_title>&nbsp; ※&nbsp;<b>"&unHtml(rs(8))&"</b>  &nbsp;&nbsp;"&admin_ls(rs(0),rs(35),rs(17))&"</td></tr></table> "
end if

if rs("jd_editdate")<>"" then words=words & "<br><br><div align='right'><font color='#009900'>[留言于:"&rs("jd_editdate")&"被编辑过]</font></div >"
  reply=rs("jd_reply")
  if reply<>"" then
  reply="<hr size='1'> <span class='style1'>版主回复:</span><br><font color='#990000'> "&Ubb(reply)&" </font>" 
  end if
  words=words & reply
  view=rs(15)
if webyn=1 and Sessionwebname <> "Login"  and view<>1 and jd_membercls<5 and jd_username<>rs(2) then
  words=splyb("留言需要审批才能查看")
  titlead=""
  reply=""
  view_rep=1
end if  
if webyn=1 and view=0  and (Sessionwebname = "Login" or jd_membercls=9 or jd_username=rs(2)) then
  words= "<div align='right'><font color='#009900'><strong>[未审批]</strong></font></div ><br>" & words 
end if
if view=2 and Sessionwebname <> "Login" and jd_membercls<5 and jd_username<>rs(2) then
  words=splyb("这是给版主的留言")
  titlead=""
  reply=""
  view_rep=1
end if  
if view=2 and (Sessionwebname = "Login" or jd_membercls=9 or jd_username=rs(2)) then
  words= "<div align='right'><font color='#009900'><strong>[秘密]</strong></font></div ><br>" & words 
end if  

if Sessionwebname ="Login" or jd_membercls=9 or jd_membercls=5 then
viewadmin="<a href=http://www.11987.com/ip/showip.asp?ip="&rs(13)& " target='_blank'><img src="&indeximg&"ip.gif border=0 alt=查询IP来源地></a> " &rs(13)   				
end if

 user_xx="发表于:"&rs(10)
dim msg0,msg1,msg2,msg3,msg4,msg5,msg6,msg7,msg8
dim msgtemp
dim swfsss
 msgtemp="-"&rs(19)
 if  int(rs(1))=0 or msgtemp="-" then

msg0=rs(2)
         if jd_membercls=9 or Sessionwebname = "Login" then
		 msg1=msg1 &"<a href='"&rs(6)&"' target='_blank'><img src="&indeximg&"homepage.gif alt='浏览我的主页:"&rs(6)&"'  border='0'></a>" 
         msg1=msg1 &"<a href='mailto:"&rs(7)&"'><img src="&indeximg&"email.gif alt='发EMAIL给我:"&rs(7)&"'  border='0'></a>"
         msg1=msg1 &"<img src='"&indeximg&"oicq.gif' alt='QQ号:"&rs(16)&"'  border='0'>"
         msg1=msg1 &"<img src='"&indeximg&"come.gif' alt='我来自:"&rs(14)&"' border='0'>"
         end if
		 msg1=msg1 & "<a href=?action=View_topics&quote=topics&id="&rs(0)&"&forumid="&forumid&"#quote><img src="&indeximg&"quote.gif alt='引用'  border='0'></a>"

		 msg1=msg1 & "<a href=?action=edit_my&myaction=topics&cid="&rs(0)&"&id="&rs(0)&"&forumid="&forumid&"><img src="&indeximg&"reply.gif alt='编辑'  border='0'></a>"' & "｜｜｜"
		 msg2=rs(4) '性别
		 msg3=rs(5) '头像
		 msg4=rs(13) 'IP
		 msg5="" '发贴数
		 msg6="" '签名
	
else
          msg0=rs(19)
         msg1=msg1 &"<a href='"&rs(22)&"' target='_blank'><img src="&indeximg&"homepage.gif alt='浏览我的主页:"&unHtml(rs(22))&"'  border='0'></a>" 
         if rs(31)=1 or jd_membercls=9 or Sessionwebname = "Login" then
		 msg1=msg1 &"<a href='mailto:"&rs(23)&"'><img src="&indeximg&"email.gif alt='发EMAIL给我:"&rs(23)&"'  border='0'></a>"
         msg1=msg1 &"<img src='"&indeximg&"oicq.gif' alt='QQ号:"&rs(27)&"'  border='0'>"
         msg1=msg1 &"<img src='"&indeximg&"come.gif' alt='我来自:"&rs(26)&"' border='0'>" 
         end if
		 msg1=msg1 & "<a href=?action=View_topics&quote=topics&id="&rs(0)&"&forumid="&forumid&"#quote><img src="&indeximg&"quote.gif alt='引用'  border='0'></a>"
        msg1=msg1 & "<a href=?action=edit_my&myaction=topics&cid="&rs(0)&"&id="&rs(0)&"&forumid="&forumid&"><img src="&indeximg&"reply.gif alt='编辑'  border='0'></a>" '& "｜｜｜"
		msg2=rs(21)
		msg3=rs(28)
		msg4=rs(25)
		msg5=rs(30)
		msg6=rs(29)
		msg7=rs(32)
		if len(rs(34))>0 then
		msg8="头衔:"&rs(34)
		else
		msg8="头衔:超级网虫"
		end if
	   '会员等级显示
	   jd_cls=jd_usercls(rs(20),msg5)
       ' 增加签名
          if (rs(29)<>"" or rs(29)<>null) and view_rep=0 then
		  words=words & "<br><br><table width='100%' border='0' cellpadding='3' class=unnamed2 style='table-layout:fixed;word-break:break-all;word-wrap:break-word;'><tr><td width='' style='word-break:break-all'><img src='' width='5%' height='1' style='background-color: #999999'>&nbsp<font color='#999999'><span class='unnamed1'>"&webname&" 版权所有</span></font>&nbsp<img src='' width='40%' height='1' style='background-color: #999999'></td></tr><tr><td width='' style='word-break:break-all'><span class='unnamed1'><font color='#666666'>"
		      if jd_qmpic=1 then 
				swfsss=Replace(rs(29),"swf]","{$swf}")
				swfsss=Replace(swfsss,"flash]","{$swf}")
				swfsss=ubb(unHtml(swfsss))
				swfsss=Replace(swfsss,"{$swf}","swf]")
		        words=words & swfsss
		      else
                  words=words