⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 index.asp

📁 平凡BBS1.0
💻 ASP
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
titlepic=topic_best(rs("jd_top"),rs("jd_cls"))
titletime=""
titletime=rs("jd_date")

if titletime<>"" and DATEDIFF("d",titletime,date()) <=1  then
	titletime=" <img src="&indeximg&"new.gif border=0 alt='最新贴子'>"
else
  if rs("jd_hit")>200 or rs("jd_rep")>20 then
	titletime=" <img src="&indeximg&"hot.gif border=0 alt='热门贴子'>"
  else
	titletime=""
  end if
end if
titlead=""
titlead="<a href='?repage="&page&"&action=View_topics&id="&wid&"&forumid="&forumid&" ' title='主题:"&untitle(rs("jd_title"))&"&#13发表时间:"&rs("jd_date")&"&#13回复时间:"&rs("jd_rdate")&"'> "&titlepic&"&nbsp;"&title_color(untitle(rs("jd_title")),rs("jd_color"))&"</a>"

if webyn=1 and Sessionwebname <> "Login" and rs("jd_view")<>1 and (jd_membercls<5 or jd_membercls="")  and jd_username<>rs(4) then
	titlead="<a href='?action=View_topics&id="&wid&"&forumid="&forumid&" '><font coloe=#cccccc>这是版主的留言</font></a>"
end if 

.Write("<TR class=unnamed1> <TD width='6%' height='25' align=middle valign='top' class='jd_tab' >"&rs("jd_hit")&"</TD><TD width='6%' height='25' align=middle valign='top' class='jd_tab' >"&rs("jd_rep")&"</TD><TD width='53%' height='25' align=left valign='top' class='jd_tab' >"&titlead&titletime)
if rs("jd_rep")>jd_repn then call list_page(rs("jd_rep"),jd_repn,wid)
if (edit_list<>"" and lbmode="guanli") or Sessionwebname ="Login" then call divlist("&nbsp;"&edit_list,wid)
.Write("</TD><TD width='20%' height='25' align=middle valign='top' class='jd_tab' ><font color=#666666> ")
.Write(untitle(rs("jd_name")))
if rs("jd_reid")<>"0" then .Write("|"&untitle(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 img_foot()
End Select
if Sessionwebname ="Login" 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=action2 >")  
.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=View_Words&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 
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;}"
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 ><div align='center'><font size='3'><strong>"&login_title&"登录</strong></font><font color='#000000'> </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='"&jd_table_w&"' border='1' align='center' cellpadding='4' cellspacing='0'  class='jd_tab' style='border-collapse:collapse'><tr> <td height='20' 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></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_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'>")
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>")

.Write("<font color='#ff0000'>"&Rs("jd_date")&"&nbsp;ip:"&Rs("jd_ip")&"</font></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'>"&Server.HTMLEncode(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><font color='#999999'>(如果要修改以上内容,必须选择此项,不支持html,建议不要在这里修改)</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'> <font color='#FF0000'>(以下内容显示在主题下面,作为版主回复,255字节127汉字内)</font><br>")

.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
12345

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -