?? index.asp
字號:
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"))&"
發(fā)表時間:"&rs("jd_date")&"
回復(fù)時間:"&rs("jd_rdate")&"'> "&titlepic&" "&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(" "&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確定要執(zhí)行此項操作嗎？\n該操作不可恢復(fù)!!')){this.document.form.submit();return true;}return false;"" type=submit value=刪除所選記錄 name=action2 >")
.Write(" </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&"","主題數(shù):")
.Write("</td></tr><tr><td height='20' align='right' class='unnamed1'><font color='#999999'>版塊說明: <a title='查看發(fā)表回復(fù)'>普通版</a>、<a title='可查看回復(fù),不可發(fā)表'>「回復(fù)版」</a>、<a title='可查看,不可發(fā)表回復(fù)'>『展示版』</a>、<a title='登錄可查看發(fā)表回復(fù)'>〖會員版〗</a>、<a title='登錄可查看,不可發(fā)表回復(fù)'>【存檔版】</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'> </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'> <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'> </td></tr></form></table>")
else
.Write("你已經(jīng)登錄")
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 發(fā)表貼子和回復(fù)貼子都可得分")
.Write("<br>3 要求版主加分,如:發(fā)表一些有意義的貼子,原創(chuàng)貼 或者精華貼")
.Write("<br>4 被刪除貼子將加倍扣分,無意義灌水將視情節(jié)扣分,甚至封號處理")
.Write("<br>5 廣告貼/非法貼一律封號或封IP,情節(jié)嚴重則記錄交公安處理")
.Write("</font><br>")
.Write("<p><strong>編輯器功能:</strong><br><font color='#666666'>")
.Write("1 所見即所得,支持html及復(fù)制,請不要使用JS非法代碼,文本單行換行請用 Shift+Enter")
.Write("<br>2 圖文排版例: 圖文環(huán)繞:將文章所有的文字打上,上傳/或鏈接一圖片,剪切圖片到相應(yīng)位置,然后拖選(象選擇文字一樣拖選圖片變藍),點擊編輯器圖標""圖像左對齊"",完成,即形成文字對圖片的環(huán)繞效果 ")
.Write("</font><br><br><p><strong>UBB功能標簽說明:</strong><br>")
.Write("<font color='#666666'>UBB標簽就是不允許使用HTML語法的情況下，通過特殊轉(zhuǎn)換程序，可以支持少量常用的、無危害性的HTML效果顯示。以下為具體使用說明：<br>" &_
"※ [img][/img]：在標簽的中間插入圖片地址可以實現(xiàn)插圖效果。<br>"&_
"※ [color=顏色代碼]文字[/color]：輸入您的顏色代碼，在標簽的中間插入文字可以實現(xiàn)文字顏色改變。<br>"&_
"※ [size=數(shù)字]文字[/size]：輸入您的字體大小，在標簽的中間插入文字可以實現(xiàn)文字大小改變。<br>"&_
"※ [face=字體]文字[/face]：輸入您需要的字體，在標簽的中間插入文字可以實現(xiàn)文字字體轉(zhuǎn)換。<br>"&_
"※ [B]文字[/B]：在文字的位置可以任意加入您需要的字符，顯示為粗體效果。<br>"&_
"※ [I]文字[/I]：在文字的位置可以任意加入您需要的字符，顯示為斜體效果。<br>"&_
"※ [U]文字[/U]：在文字的位置可以任意加入您需要的字符，顯示為下劃線效果<br>"&_
"※ [flash]Flash連接地址[/Flash]：在標簽的中間插入Flash地址，播放Flash。<br>"&_
"※ [fly]文字[/fly]：在標簽的中間插入文字可以實現(xiàn)文字來回飄動效果。<br>"&_
"※ [move]文字[/move]：在標簽的中間插入文字可以實現(xiàn)跑馬燈效果。<br>"&_
"※ [align=center]文字[/align]：在文字的位置可以任意加入您需要的字符，center位置center表示居中，left表示居左，right表示居右。<br>"&_
"※ [URL]http://網(wǎng)址[/URL]<br>"&_
"※ [URL=HTTP://網(wǎng)址]中文網(wǎng)站名[/URL]：有兩種方法加入超連接，連接具體地址或者文字連接。<br>"&_
"※ [EMAIL]電子郵件地址[/EMAIL]<br>"&_
"※ [EMAIL=MAILTO:電子郵件地址]郵件用戶名[/EMAIL]：有兩種方法加入郵件連接，可連接具體地址或者文字連接。<br>"&_
"※ [code]文字[/code]：在標簽中寫入文字可實現(xiàn)html中編號效果。<br>"&_
"※ [quote]引用[/quote]：在標簽的中間插入文字可以實現(xiàn)HTMl中引用文字效果。<br>"&_
"※ [list]文字[/list] [list=a]文字[/list] [list=1]文字[/list]：更改list屬性標簽，實現(xiàn)HTML目錄效果。<br>"&_
"※ [glow=255,red,2]文字[/glow]：在標簽的中間插入文字可以實現(xiàn)文字發(fā)光特效，glow內(nèi)屬性依次為寬度、顏色和邊界大小。<br>"&_
"※ [shadow=255,red,2]文字[/shadow]：在標簽的中間插入文字可以實現(xiàn)文字陰影特效，shadow內(nèi)屬性依次為寬度、顏色和邊界大小。<br>"&_
"※ [DIR=500,350]http://[/DIR]：為插入shockwave格式文件，中間的數(shù)字為寬度和長度<br>"&_
"※ [RM=500,350]http://[/RM]：為插入realplayer格式的rm文件，中間的數(shù)字為寬度和長度<br>"&_
"※ [MP=500,350]http://[/MP]：為插入為midia player格式的文件，中間的數(shù)字為寬度和長度<br>"&_
"※ [QT=500,350]http://[/QT]：為插入為Quick time格式的文件，中間的數(shù)字為寬度和長度</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'> </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("錯誤","非法的數(shù)據(jù)操作",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>編輯留言內(nèi)容及回復(fù)(舊版功能)</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'> </td></tr><tr> <td align='right' valign='top'>時間：</td><td>")
.Write("<font color='#ff0000'>"&Rs("jd_date")&" 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'> 留言內(nèi)容：<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'> </td><td align='left'><input name='replyedit' id='replyedit' type='checkbox' value='1'> <font color='#FF0000'>修改原文 </font><font color='#999999'>(如果要修改以上內(nèi)容,必須選擇此項,不支持html,建議不要在這里修改)</font></td></tr><tr align='center'> <td align='right'> </td><td align='left'></td></tr><tr align='center'> <td align='right'>回復(fù)：</td><td align='left'> <font color='#FF0000'>(以下內(nèi)容顯示在主題下面,作為版主回復(fù),255字節(jié)127漢字內(nèi))</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 "(優(yōu)先于審批)"
.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'> <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>")
'管理 基本設(shè)置
Sub Edit_web()
call adminonline()
'call allsystem()
if Request.Form("Submit")="修改" or Request.Form("action_e")="Edit_web" then
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -