index.asp

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

		
        .Write(unHtml(rs("jd_name")))
		if rs("jd_reid")<>"0" then .Write("|"&unHtml(rs("jd_reid")))
		retime=""
		retime=rs("jd_rdate")
		retime=right(year(retime),2)&"-"& month(retime) &"-"& day(retime)&" " & hour(retime)&":" & minute(retime)

.Write("</font></TD><TD width='14%' height='25' align=left valign='top' class='jd_tab' ><font color=#666666>"&retime&"</font></TD>")
		if Sessionwebname ="Login" then
.Write("<TD width='1%' height='25' align=middle valign='top' class='jd_tab' >"&viewadmin&"</TD>")
		end if
.Write("</TR>")

		lou=lou-1	 
		rs.movenext
    	loop
call RsClose()

.Write("</TBODY></TABLE>")


'call jdswf("http://www.11987.com/swf/fly.swf",680,350,100,100,1)
.write(img_foot)
End Select

if Sessionwebname ="Login" or jd_membercls>=5 then

.Write("<table width='"&jd_table_w&"' border='0' cellspacing='1' cellpadding='4' align='center'> <tr><td height='20'  class='unnamed1'> ")
         if Sessionwebname ="Login" then
.Write("<input name='action_e' type='hidden' value='Del_all'> <input type='checkbox' name='chkall' value='checkbox' onClick='javascript:CheckAll(this.form)'><font color='#FF0000'> 全选</font> <input onClick=""{if(confirm('\n进行批量删除?\n\n确定要执行此项操作吗？\n该操作不可恢复!!')){this.document.form.submit();return true;}return false;}"" type=submit value=删除所选记录 name=action2 class='tbutton'>")
         end if
.Write("&nbsp; <font color=#566276>编 = 编辑和回复贴子;&nbsp; 固 = 将此主题固顶;&nbsp; 解 = 解除固顶的主题;&nbsp; 精=加为精华贴;&nbsp;锁=锁定不可回复;&nbsp;普=还原为普通贴 </font> </td></tr></table>")

end if 
.Write("</form>")

.Write("<table width='"&jd_table_w&"' border='0' cellspacing='1' cellpadding='4' align='center'><tr><td height='20' align='right' class='unnamed1'> ")
.Write(rsPage( jd100_page_count,jd100_page_n,jd100_page_x,"action=View_Words&forumid="&forumid&"","主题数:"))

.Write("</td></tr><tr><td height='20' align='right' class='unnamed1'><font color='#566276'>版块说明: <a title='查看发表回复'>普通版</a>、<a title='可查看回复,不可发表'>「回复版」</a>、<a title='可查看,不可发表回复'>『展示版』</a>、<a title='登录可查看发表回复'>〖会员版〗</a>、<a title='登录可查看,不可发表回复'>【存档版】</a></font></td></tr></table>")
 
end if 
end with
End Sub 

		'''''''''管理员登陆接口,会员登录
		Sub Admin_Login() 
			dim rndnum
			dim login_title,login_action
			if action="member_login" then 
			login_title="会员"
			login_action="member"
			elseif action="Admin_Login" then
			login_title="管理"
			login_action="admin"
			end if

rndnum=jd_rnd(4)
with Response
.Cookies("JD100_NET_GBBOOK__CK")("login")=rndnum
.Write "</script><script language = ""JavaScript"">function Checklogin(){"
.Write "if (document.form.username.value==""""){alert(""用户名必填！"");document.form.username.focus();return false;}"
.Write "if (document.form.password.value==""""){alert(""密码必填！"");document.form.password.focus();return false;}" 
if action="Admin_Login" then
.Write "if (document.form.yzm.value==""""){alert(""验证码必填！"");document.form.yzm.focus();return false;}"
.Write "if (document.form.yzm.value!="""&rndnum&"""){alert(""验证码错误！"");document.form.yzm.focus();return false;}"
end if
.Write "}</script>"
		
.Write("<br><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>"&login_title&"登录</strong></font><font color='#333333'> </font></div></TD></TR><TR> <TD height='21' align=middle valign='top' class='jd_tab' >")
	  if jd_username="" or action="Admin_Login" then
.Write("<table width='499' border='0' align='center' cellpadding='4' cellspacing='1' class='unnamed1'><form name='form' method='post' action='"&indexfilename&"?forumid="&forumid&"' onSubmit='submitonce(this)'><tr> <td colspan='2' align='center'>&nbsp; </td></tr><tr> <td width='122'> <div align='right'>用户名： </div></td><td width='358'> <input name='username' type='text' class='input1' maxlength='25'> </td></tr><tr> <td width='122'> <div align='right'>密 码： </div></td><td width='358'> <input name='password' type='password' class='input1' maxlength='25'> <input type='hidden' name='action_e' value='"&login_action&"'> </td></tr>")
if action="Admin_Login" then
.Write("<tr><td><div align='right'>验证码：</div></td><td><input name='yzm' type='text' maxlength='4' size='4'>&nbsp<font color=#ffffff style='BACKGROUND-COLOR: #ff6600'>"&rndnum&"</font>")
else
.Write("<tr><td><div align='right'></div></td><td>")
end if
if action="member_login" then
.Write(" 保留登录：<input type='radio' name='baoliu' value='' checked>否 <input type='radio' name='baoliu' value='365'>是")
end if

.Write("</td></tr><tr><input name='backurl' type='hidden' value='"&request.servervariables("HTTP_REFERER")&"'><td colspan='2' align='center'><input type='submit' name='Submit32' value='登陆' onclick='return Checklogin()'></td></tr><tr> <td height='49' colspan='2' align='center'>&nbsp;</td></tr></form></table>")
else
.Write("你已经登录")
end if
.Write("</TD></TR></TBODY></TABLE><br>")
end with
End Sub
 ''''''''''' UBB 帮助
Sub UbbHelp()
with Response
.Write("<div align='left'> <table width='517' border='1' align='center' cellpadding='4' cellspacing='0' bordercolor='#837767' class='unnamed1' style='border-collapse:collapse'><tr> <td height='20' colspan='3' align='center'>UBB功能帮助</td></tr><tr> <td colspan='3' valign='top'> <p><strong>编辑器功能:</strong><br><font color='#FF0000'>")

.Write("1 所见即所得,支持html及复制,请不要使用JS非法代码,文本单行换行请用 Shift+Enter")
.Write("<br>2 图文排版例: 图文环绕:将文章所有的文字打上,上传/或链接一图片,剪切图片到相应位置,然后拖选(象选择文字一样拖选图片变蓝),点击编辑器图标""图像左对齐"",完成,即形成文字对图片的环绕效果 ")

.Write("</font><br><br><p><strong>UBB贴图的方法:</strong><br>")
          .Write("1 点击发贴图标 在文字栏会出现<font color='#FF0000'>[img][/img]</font> ,将光标点中间加入地址<br>")
          .Write("2 打入图片地址后,选择地址,然后点击发图图标<br>")
          .Write("3 直接打入[img]<font color='#FF0000'>http://www.11987.com/aaa.jpg</font>[/img]<br>")
          .Write("4 其它用法同上")
.Write("</p></td></tr></table></div>")
end with
End Sub
'管理员修改密码
Sub EditPWD()
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'><b>修改密码</b></font></div></TD></TR><TR> <TD height='21' align=middle valign='top' class='jd_tab' ><table width='499' border='0' align='center' cellpadding='4' cellspacing='1' class='unnamed1'>")
Response.Write("<form name='form' method='post' action='"&indexfilename&"' onSubmit='submitonce(this)'><tr> <td colspan='2' align='center'>&nbsp; </td></tr><tr> <td align='right' valign='middle' width='105' height='38'>旧用户名：</td><td width='226' height='38' align='left'> ")
Response.Write("<input type='text' name='oldusername' class='input1'>")
Response.Write("</td></tr><tr> <td align='right' valign='middle' width='105' height='38'>新用户名：</td><td width='226' height='38' align='left'> ")
Response.Write("<input type='text' name='username' class='input1'>")
Response.Write("</td></tr><tr> <td align='right' valign='middle' width='105' height='38'>确认新用户名：</td> <td width='226' height='38' align='left'> ")
Response.Write("<input type='text' name='username_c' class='input1'>")
Response.Write("</td></tr><tr> <td align='right' valign='middle' width='105' height='38'> 旧 密 码： </td><td width='226' height='38' align='left'> ")
Response.Write("<input type='password' name='oldpwd' class='input1'>")
Response.Write("</td></tr><tr><td align='right' valign='middle' width='105'>新 密 码： </td><td width='226' align='left'>")
Response.Write("<input type='password' name='newpwd' class='input1'>")
Response.Write("</td></tr><tr> <td align='right' valign='middle' width='105' height='38'>确认新密码：</td><td width='226' align='left' height='38'> ")
Response.Write("<input type='password' name='newpwd_c' class='input1'><input type='hidden' name='action_e' value='EditPWD'>")
Response.Write("</td></tr><tr align='center'> <td colspan='2'>") 
Response.Write("<input type='submit' name='EditPWD' value='修改密码' class='input1'>")
Response.Write("</td></tr></form></table></TD></TR></TBODY></TABLE>")
End Sub

'编辑主题
Sub Edit() 
if jd_membercls<5 then call adminonline()
if jd_membercls=5 then call mastronline()

Sql="Select * From topics Where id="&reStr(Request.QueryString("id"))
set rs=conn.execute(sql)

		   if rs.eof then call msg_List("错误","非法的数据操作",3,indexfilename&"?forumid="&forumid)  
dim view2,view3,view4,view
view2=""
view3=""
view4=""
view=rs("jd_view")
if view=1 then
view2="checked"
end if
if view=2 then
view3="checked"
end if
if view=3 then
view4="checked"
end if
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_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='631' border='0' align='center' cellpadding='4' cellspacing='1' class='unnamed1'>")
.Write("<form name='form' method='post' action='"&indexfilename&"' onSubmit='submitonce(this)'><tr> <td colspan='2' align='center'>&nbsp; </td></tr><tr> <td align='right' valign='top'>留言者：</td><td><font color='#ff0000'>"&unHtml(Rs("jd_name"))&"</font>&nbsp;性别: <font color='#ff0000'> ")

                if Rs("jd_sex")=1 then 
				.Write "男" 
				else 
				.Write "女" 
				end if

.Write("</font> &nbsp;来自:<font color='#ff0000'>"&Rs("jd_come")&"</font> 时间:<font color='#ff0000'>"&Rs("jd_date")&"</font>&nbsp;ip:<font color='#ff0000'>"&Rs("jd_ip")&"</font></td></tr><tr> <td align='right' valign='top'>邮箱：</td> <td>&nbsp;<b>"&Rs("jd_email")&"</b></td></tr><tr><td align='right' valign='top'>主题：</td><td>")
.Write("<input name='title' type='text' id='title' value='"&Rs("jd_title")&"' size='45' maxlength='50'>")
.Write("</td></tr><tr> <td width='139' align='right' valign='top'> 留言内容：<br> <br> </td><td width='473'> <textarea name='reply' cols='60' rows='6' class='input1' id='textarea'>"&Rs("jd_words")&"</textarea></td></tr> <tr align='center'> <td align='right'>&nbsp;</td><td align='left'><input name='replyedit' id='replyedit' type='checkbox' value='1'>  <font color='#FF0000'>修改原文 <font color='#566276'>(如果要修改以上内容,必须选择此项)</font></font></td></tr><tr align='center'> <td align='right'>&nbsp;</td><td align='left'></td></tr><tr align='center'> <td align='right'>回复：</td><td align='left'> ")

.Write("<textarea name='words' cols='60' rows='8' class='input1' id='words'>"&Rs("jd_reply")&"</textarea> <br>")
	if  webyn=1 then
.Write("<br> <input name='view' type='checkbox' id='view' value='1' "&view2&"> <font color='#666666'>通过审批</font> ")
				end if 
.Write("<input name='view2' type='checkbox' id='view2' value='2'  "&view3&"> <font color='#666666'>秘密留言")
                if webyn=1  then .Write "(优先于审批)"
.Write("</font></td></tr> <tr align='center'> <input type='hidden' name='forumid' value='"&forumid&"'><td colspan='2'> <input type='hidden' name='action_e' value='Edit'> <input type='hidden' name='id' value='"&reStr(Request.QueryString("id"))&"'> ")

.Write("<input type='submit' name='Submit' value=' 提 交 ' id='Submit' class='input1'> &nbsp; <input type='reset' name='reset' value=' 取 消 ' id='Submit2' class='input1'> </td></tr></form></table></TD></TR></TBODY></TABLE>")
 call rsClose()
 end with
End Sub 
Response.Write("<br>")

'管理 基本设置
Sub Edit_web() 
call adminonline()
'call allsystem()
if Request.Form("Submit")="修改" or Request.Form("action_e")="Edit_web" then
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.update