index.asp

微型论坛完整版

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" or jd_membercls=9 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 img_foot()
End Select
if (Sessionwebname ="Login" or  jd_membercls=9) and jd_sty=1 then
.Write("<table width='"&jd_table_w&"' border='0' cellspacing='1' cellpadding='4' align='center'> <tr><td height='20'  class='unnamed1'>")
.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=action_del >")

if action="Del_Topics" then
.Write("<input name='Del_Topics' type='hidden' value='Del_Topics'>")
end if

.Write("&nbsp;</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'>")
call viewpage(jd100_page_count,jd100_page_n,jd100_page_x,page,"action="&action&"&forumid="&forumid&"","主题数:")

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

Function reArry(s1,s2,t1)
t1=cStr(t1)
dim s3,s4
s3=split(s1,"|")
s4=split(s2,"|")
dim si
For si=0 to ubound(s3)
if s3(si)=t1 then reArry=s4(si):exit Function
Next
End Function

'''''''''管理员登陆接口,会员登录
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;}"
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_titlemu align='center'>"&login_title&"登录</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='jd_tx1' maxlength='25'></td></tr><tr><td width='122'><div align='right'>密 码：</div></td><td width='358'> <input name='password' type='password' class='jd_tx1' 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'  class='jd_tx1'>&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("<table width='"&jd_table_w&"' border='1' align='center' cellpadding='4' cellspacing='0'  class='jd_tab' style='border-collapse:collapse'><tr><td colspan='3' align='center' class=jd_titlemu>功能帮助</td></tr><tr> <td colspan='3' valign='top' class=unnamed1>") 
.Write("<strong>积分帮助:</strong><br><font color='#666666'>")
.Write("1 有一些功能必需使用积分换取,或者必须积分大于零时才能使用")
.Write("<br>2 发表贴子和回复贴子都可得分")
.Write("<br>3 要求版主加分,如:发表一些有意义的贴子,原创贴 或者精华贴")
.Write("<br>4 被删除贴子将加倍扣分,无意义灌水将视情节扣分,甚至封号处理")
.Write("<br>5 广告贴/非法贴一律封号或封IP,情节严重则记录交公安处理")
.Write("</font><br>")
.Write("<p><strong>编辑器功能:</strong><br><font color='#666666'>")
.Write("1 所见即所得,支持html及复制,请不要使用JS非法代码,文本单行换行请用 Shift+Enter")
.Write("<br>2 图文排版例: 图文环绕:将文章所有的文字打上,上传/或链接一图片,剪切图片到相应位置,然后拖选(象选择文字一样拖选图片变蓝),点击编辑器图标""图像左对齐"",完成,即形成文字对图片的环绕效果 ")

.Write("</font><br><br><p><strong>UBB功能标签说明:</strong><br>")
.Write("<font color='#666666'>UBB标签就是不允许使用HTML语法的情况下，通过特殊转换程序，可以支持少量常用的、无危害性的HTML效果显示。以下为具体使用说明：<br>" &_
"※ [img][/img]：在标签的中间插入图片地址可以实现插图效果。<br>"&_
"※ [color=颜色代码]文字[/color]：输入您的颜色代码，在标签的中间插入文字可以实现文字颜色改变。<br>"&_
"※ [size=数字]文字[/size]：输入您的字体大小，在标签的中间插入文字可以实现文字大小改变。<br>"&_
"※ [face=字体]文字[/face]：输入您需要的字体，在标签的中间插入文字可以实现文字字体转换。<br>"&_
"※ [B]文字[/B]：在文字的位置可以任意加入您需要的字符，显示为粗体效果。<br>"&_
"※ [I]文字[/I]：在文字的位置可以任意加入您需要的字符，显示为斜体效果。<br>"&_
"※ [U]文字[/U]：在文字的位置可以任意加入您需要的字符，显示为下划线效果<br>"&_
"※ [flash]Flash连接地址[/Flash]：在标签的中间插入Flash地址，播放Flash。<br>"&_
"※ [fly]文字[/fly]：在标签的中间插入文字可以实现文字来回飘动效果。<br>"&_
"※ [move]文字[/move]：在标签的中间插入文字可以实现跑马灯效果。<br>"&_
"※ [align=center]文字[/align]：在文字的位置可以任意加入您需要的字符，center位置center表示居中，left表示居左，right表示居右。<br>"&_
"※ [URL]http://网址[/URL]<br>"&_
"※ [URL=HTTP://网址]中文网站名[/URL]：有两种方法加入超连接，连接具体地址或者文字连接。<br>"&_
"※ [EMAIL]电子邮件地址[/EMAIL]<br>"&_
"※ [EMAIL=MAILTO:电子邮件地址]邮件用户名[/EMAIL]：有两种方法加入邮件连接，可连接具体地址或者文字连接。<br>"&_
"※ [code]文字[/code]：在标签中写入文字可实现html中编号效果。<br>"&_
"※ [quote]引用[/quote]：在标签的中间插入文字可以实现HTMl中引用文字效果。<br>"&_
"※ [list]文字[/list] [list=a]文字[/list] [list=1]文字[/list]：更改list属性标签，实现HTML目录效果。<br>"&_
"※ [glow=255,red,2]文字[/glow]：在标签的中间插入文字可以实现文字发光特效，glow内属性依次为宽度、颜色和边界大小。<br>"&_
"※ [shadow=255,red,2]文字[/shadow]：在标签的中间插入文字可以实现文字阴影特效，shadow内属性依次为宽度、颜色和边界大小。<br>"&_
"※ [DIR=500,350]http://[/DIR]：为插入shockwave格式文件，中间的数字为宽度和长度<br>"&_
"※ [RM=500,350]http://[/RM]：为插入realplayer格式的rm文件，中间的数字为宽度和长度<br>"&_
"※ [MP=500,350]http://[/MP]：为插入为midia player格式的文件，中间的数字为宽度和长度<br>"&_
"※ [QT=500,350]http://[/QT]：为插入为Quick time格式的文件，中间的数字为宽度和长度</font>")
.Write("</p>")
.Write("</td></tr></table>")
end with
End Sub
'管理员修改密码
Sub EditPWD()
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><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'>")
.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'> ")
.Write("<input type='text' name='oldusername' class='input1'>")
.Write("</td></tr><tr> <td align='right' valign='middle' width='105' height='38'>新用户名：</td><td width='226' height='38' align='left'> ")
.Write("<input type='text' name='username' class='input1'>")
.Write("</td></tr><tr> <td align='right' valign='middle' width='105' height='38'>确认新用户名：</td> <td width='226' height='38' align='left'> ")
.Write("<input type='text' name='username_c' class='input1'>")
.Write("</td></tr><tr> <td align='right' valign='middle' width='105' height='38'> 旧 密 码： </td><td width='226' height='38' align='left'> ")
.Write("<input type='password' name='oldpwd' class='input1'>")
.Write("</td></tr><tr><td align='right' valign='middle' width='105'>新 密 码： </td><td width='226' align='left'>")
.Write("<input type='password' name='newpwd' class='input1'>")
.Write("</td></tr><tr> <td align='right' valign='middle' width='105' height='38'>确认新密码：</td><td width='226' align='left' height='38'> ")
.Write("<input type='password' name='newpwd_c' class='input1'><input type='hidden' name='action_e' value='EditPWD'>")
.Write("</td></tr><tr align='center'> <td colspan='2'>") 
.Write("<input type='submit' name='EditPWD' value='修改密码' class='input1'>")
.Write("</td></tr></form></table></TD></TR></TBODY></TABLE>")
end with
End Sub

'管理 基本设置
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"),200)
   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_bkww")=cint(Request.Form("jd_bkww"))
	rs("jd_online")=cint(Request.Form("jd_online"))
	rs("jd_regopen")=restr(Request.Form("jd_week"))
	
	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("jd_findpw")=cint(Request.Form("jd_findpw"))
rs("jd_onlinetime")=int(Request.Form("jd_onlinetime"))
rs("jd_classname")=restr(Request.Form("jd_classname"))

rs("jd_upsize")=int(Request.Form("jd_upsize"))
rs("jd_upstyle")=restr(Request.Form("jd_upstyle"))
rs("jd_uppath")=restr(Request.Form("jd_uppath"))


   rs.update
   conn.execute("update a set jd_sys=jd_sys+1")
   rs.close
   set rs=nothing
call msg_List("修改成功","",3,indexfilename&"?action=Edit_web&forumid="&forumid&"")
end if

dim noregtext,jd_wee,jd_mailname,jd_smtp,jd_mailpw,regtime,jd_fla
dim jd_findpw,jd_onlinetime,jd_classname,jd_gbyn,jd_upsize,jd_upstyle,jd_uppath
set rs=conn.execute("Select jd_imgpath,jd_regopen,jd_noregtext,jd_qmpic,jd_mailname,jd_smtp,jd_mailpw,jd_regtime,jd_pagetime,jd_fla,jd_findpw,jd_onlinetime,jd_classname,jd_gbyn,jd_upsize,jd_upstyle,jd_uppath 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)
jd_fla=rs(9)
jd_findpw=rs(10)
jd_onlinetime=rs(11)
jd_classname=rs(12)
jd_gbyn=rs(13)
jd_upsize=rs(14)
jd_upstyle=rs(15)
jd_uppath=rs(16)
end if
jd_wee=","&jd_wee&","
jd_wee=Replace(jd_wee,",,",",")
call rsClose()

with Response
call jd_table_top("基本设置","jd_titlemu","*","center",1,1,1,1,0)
call jd_table_add("jd_title","center")
call jd_allcount(1)
call jd_table_end()

.Write "<form name='form' method='post' action='"&indexfilename&"' onSubmit='submitonce(this)'>"

call jd_table_top("留言板名称：","jd_title","160","right",0,1,1,1,0)
call jd_table_mid("*","unnamed1")
.Write "<input name='webname' type='text' id='webname' value='"&webname&"' size='50' 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 "<textarea name='webtitle' cols='50' rows='3' id='webtitle'>"&webtitle&"</textarea>"
call jd_table_end()

call jd_table_top("词语过滤：","jd_title","160","right",0,1,1,1,0)
call jd_table_mid("*","unnamed1")
.Write "<textarea name='webggg' cols='50' rows='3' id='webggg'>"&webgl&"</textarea><br>用 | 隔开 如: aaa|bbb"
call jd_table_end()

call jd_table_top("禁止注册字符：","jd_title","160","right",0,1,1,1,0)
call jd_table_mid("*","unnamed1")
.Write "<textarea name='noregtext' cols='50' rows='3' id='webtitle'>"&noregtext&"</textarea>"
call jd_table_end()