index.asp

微型论坛完整版

call jd_table_top("开放秘密留言：","jd_title","160","right",0,1,1,1,0)
call jd_table_mid("*","unnamed1")
.Write "<input name='jd_mm' type='checkbox' id='jd_mm' value='1' "
if jd_mm=1 then .Write("checked")
.Write("> 是 ")
call jd_table_end()

call jd_table_top("最大字数：","jd_title","160","right",0,1,1,1,0)
call jd_table_mid("*","unnamed1")
.Write "<input name='jd_txt' type='text' id='jd_txt' value='"&jd_txt&"' size='20' maxlength='10'> 0 则不限制"
call jd_table_end()


call jd_table_top("每页显示分页码：","jd_title","160","right",0,1,1,1,0)
call jd_table_mid("*","unnamed1")
.Write "<input name='jd_x' type='text' id='jd_x' value='"&jd100_page_x&"' size='20' maxlength='2'>"
call jd_table_end()

call jd_table_top("默认模板路径：","jd_title","160","right",0,1,1,1,0)
call jd_table_mid("*","unnamed1")
.Write "<input name='jd_imgpath' type='text' id='jd_imgpath' value='"&indeximg&"' size='20' maxlength='50'>默认 img/1/ "
call jd_table_end()

call jd_table_top("头像表情路径：","jd_title","160","right",0,1,1,1,0)
call jd_table_mid("*","unnamed1")
.Write "<input name='jd_img2' type='text' id='jd_img2' value='"&img2&"' size='20' maxlength='50'>默认 img/ "
call jd_table_end()

call jd_table_top("版主邮箱：","jd_title","160","right",0,1,1,1,0)
call jd_table_mid("*","unnamed1")
.Write "<input name='jd_fla' type='text' id='jd_fla' value='"&jd_fla&"' size='20' maxlength='50'>1 四个邮箱信息全填才可能发邮件"
call jd_table_end()

call jd_table_top("邮箱登录名：","jd_title","160","right",0,1,1,1,0)
call jd_table_mid("*","unnamed1")
.Write "<input name='jd_mailname' type='text'  value='"&jd_mailname&"' size='20' maxlength='50'>2"
call jd_table_end()

call jd_table_top("邮箱SMTP：","jd_title","160","right",0,1,1,1,0)
call jd_table_mid("*","unnamed1")
.Write "<input name='jd_smtp' type='text'  value='"&jd_smtp&"' size='20' maxlength='50'>3"
call jd_table_end()

call jd_table_top("邮箱密码：","jd_title","160","right",0,1,1,1,0)
call jd_table_mid("*","unnamed1")
.Write "<input name='jd_mailpw' type='text'  value='"&jd_mailpw&"' size='20' maxlength='50'>4"
call jd_table_end()

call jd_table_top("网页宽度：","jd_title","160","right",0,1,1,1,0)
call jd_table_mid("*","unnamed1")
.Write "<input name='jd_table_w' type='text' id='jd_table_w' value='"&jd_table_w&"' size='20' maxlength='6'>如:760 或 98% "
call jd_table_end()

call jd_table_top("页脚地址：","jd_title","160","right",0,1,1,1,0)
call jd_table_mid("*","unnamed1")
.Write "<input name='jd_foot_addr' type='text' id='jd_foot_addr' value='"&jd_foot_addr&"' size='20' maxlength='50'>完整路径(可以是:htm,jpg,gif,swf文件)"
call jd_table_end()

call jd_table_top("页脚高度：","jd_title","160","right",0,1,1,1,0)
call jd_table_mid("*","unnamed1")
.Write "<input name='jd_foot_h' type='text' id='jd_foot_h' value='"&jd_foot_h&"' size='20' maxlength='6'>"
call jd_table_end()

call jd_table_top("每页显示回复数：","jd_title","160","right",0,1,1,1,0)
call jd_table_mid("*","unnamed1")
.Write "<input name='jd_repn' type='text' id='jd_repn' value='"&jd_repn&"' size='20' maxlength='6'>"
call jd_table_end()

call jd_table_top("每行几个菜单：","jd_title","160","right",0,1,1,1,0)
call jd_table_mid("*","unnamed1")
.Write "<input name='jd_bkww' type='text' id='jd_bkww' value='"&bkww&"' size='20' maxlength='6'>"
call jd_table_end()

call jd_table_top("开放回复：","jd_title","160","right",0,1,1,1,0)
call jd_table_mid("*","unnamed1")
.Write("<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("> 是 ")
call jd_table_end()

call jd_table_top("会员功能：","jd_title","160","right",0,1,1,1,0)
call jd_table_mid("*","unnamed1")
.Write("<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("> 非会员也可以发表")
call jd_table_end()

call jd_table_top("会员模式：","jd_title","160","right",0,1,1,1,0)
call jd_table_mid("*","unnamed1")
.Write("<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("> 审核开通 ")
call jd_table_end()

call jd_table_top("开放注册时间：","jd_title","160","right",0,1,1,1,0)
call jd_table_mid("*","unnamed1")
.Write("<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
call jd_table_end()

call jd_table_top("签名UBB：","jd_title","160","right",0,1,1,1,0)
call jd_table_mid("*","unnamed1")
.Write("<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(">是")
call jd_table_end()

call jd_table_top("编辑器：","jd_title","160","right",0,1,1,1,0)
call jd_table_mid("*","unnamed1")
.Write("<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("> 使用编辑器")
call jd_table_end()

call jd_table_top("在线功能：","jd_title","160","right",0,1,1,1,0)
call jd_table_mid("*","unnamed1")
.Write("<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("> 管理显示 ")
call jd_table_end()

call jd_table_top("主页地址：","jd_title","160","right",0,1,1,1,0)
call jd_table_mid("*","unnamed1")
.Write "<input name='http' type='text' id='http' value='"&jd_http&"' size='20'>完整地址,如:http://www.ddtaobao.com/"
call jd_table_end()


call jd_table_top("发贴间隔：","jd_title","160","right",0,1,1,1,0)
call jd_table_mid("*","unnamed1")
.Write "<input name='pagetime' type='text' value='"&pagetime&"' size='6' maxlength='4'>秒"
call jd_table_end()


call jd_table_top("注册后多久可发贴：","jd_title","160","right",0,1,1,1,0)
call jd_table_mid("*","unnamed1")
.Write "<input name='regtime' type='text' value='"&regtime&"' size='6' maxlength='4'>分"
call jd_table_end()

call jd_table_top("开放找回密码：","jd_title","160","right",0,1,1,1,0)
call jd_table_mid("*","unnamed1")
.Write("<input name='jd_findpw' type='text' value='"&jd_findpw&"' size='1' maxlength='1' id='jd_findpw' readonly style='background-color: #cccccc;'> ")
.Write("<a style=cursor:hand onclick=""document.form.jd_findpw.value='1';"">1.开放</a>&nbsp;&nbsp;")
.Write("<a style=cursor:hand onclick=""document.form.jd_findpw.value='0';"">2.不开放</a>")
call jd_table_end()


call jd_table_top("开放积分交易：","jd_title","160","right",0,1,1,1,0)
call jd_table_mid("*","unnamed1")
.Write("<input name='jd_gbyn' type='text' value='"&jd_gbyn&"' size='1' maxlength='1' id='jd_gbyn' readonly style='background-color: #cccccc;'> ")
.Write("<a style=cursor:hand onclick=""document.form.jd_gbyn.value='1';"">1.开放</a>&nbsp;&nbsp;")
.Write("<a style=cursor:hand onclick=""document.form.jd_gbyn.value='0';"">2.不开放</a>")
call jd_table_end()


call jd_table_top("在线刷新时间：","jd_title","160","right",0,1,1,1,0)
call jd_table_mid("*","unnamed1")
.Write "<input name='jd_onlinetime' type='text' value='"&jd_onlinetime&"' size='6' maxlength='4'> 分,必填数字"
call jd_table_end()

call jd_table_top("上传文件大小：","jd_title","160","right",0,1,1,1,0)
call jd_table_mid("*","unnamed1")
.Write "<input name='jd_upsize' type='text' value='"&jd_upsize&"' size='6' maxlength='6'> K,必填数字"
call jd_table_end()

call jd_table_top("上传文件目录：","jd_title","160","right",0,1,1,1,0)
call jd_table_mid("*","unnamed1")
.Write "<input name='jd_uppath' type='text' value='"&jd_uppath&"' size='25' maxlength='25'>"
call jd_table_end()

call jd_table_top("上传文件类型：","jd_title","160","right",0,1,1,1,0)
call jd_table_mid("*","unnamed1")
.Write "<input name='jd_upstyle' type='text' value='"&jd_upstyle&"' size='60' maxlength='125'>"
call jd_table_end()

call jd_table_top("等级名称：","jd_title","160","right",0,1,1,1,0)
call jd_table_mid("*","unnamed1")
.Write "<input name='jd_classname' type='text' value='"&jd_classname&"' size='60' maxlength='125'> 必填"
call jd_table_end()

call jd_table_top("<input type='hidden' name='action_e' value='Edit_web'><input type='submit' name='Submit' value='修改' id='Submit' class='input1'>","jd_title","*","center",0,1,1,1,1)

.Write "</form>"
end with
End Sub 

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

'浏览主题贴
dim id
id= checkStr(Request.QueryString("id"))
id= int(id)
Conn.Execute("update topics set jd_hit=jd_hit+1 Where id="&id) ' 点击统计

dim words,reply,lou,jd100_page_count
dim wid,jd_cls,view_rep,jd_class
dim viewadmin,view,titlead,user_xx,sqlid,head,j
           view_rep=0 '显示回复初始为否
dim msg0,msg1,msg2,msg3,msg4,msg5,msg6,msg7,msg8
dim ip,msgtemp,t_cls,t_ch,t_rnd

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

set rs=conn.execute(sql)
if rs.eof then call msg_List("错误","非法的数据操作",3,indexfilename&"?forumid="&forumid)

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
call gbhead(listtitle)
if jd_class=37 and jd_membercls<>9 then response.redirect indexfilename&"?forumid="&forumid
if rs(29)=1 and datediff("h",rs(30),now) > 0 then Conn.Execute("update topics set jd_top=0 Where id="&id)
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>  &nbsp;&nbsp;"&admin_ls(wid)&"</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>"
  
  if reply<>"" then
  reply="<hr size='1'><span class='style1'>版主回复:</span><br><font color='#990000'> "&Ubb(reply,"")&" </font>" 
  end if
  words=words & reply

	Select Case (view) 
		Case 0
if webyn=1 then 
		if admin_class("当前版主","")=true or jd_username=msg0 then
			words= "<div align='right'><font color='#009900'><b>[未审核]</b></font></div><br>" & words 
		else
		  w