?? index.asp
字號:
call jd_loginyn()
if reStr(Request.QueryString("cls"))="del" and (jd_membercls>=5 or Sessionwebname="Login") then call deltopics()
dim jd100_zd,jd100_page_count
dim titlepic,listad,jd_usermsg,titlead
'const jd100_biao="topics"
jd100_page_count=rsCount("topics","where jd_forumid="&forumid)
with Response
if jd100_page_count>0 then
'打開記錄集
dim sqlid
if pagestyle<>0 or jd_sty=0 then
SqlId=repageid("topics",jd100_page_n,Page,"where jd_forumid="&forumid&" order by jd_top desc,jd_rdate desc")
end if
.Write("<table width='"&jd_table_w&"' border='0' cellspacing='1' cellpadding='4' align='center'>")
if len(webtitle)>2 then
.Write("<tr> <td height='20' colspan='2' align='right' class='unnamed2'> <marquee onMouseOut=start(); onMouseOver=stop(); scrollamount=3>")
.Write(Ubb(untitle(webtitle),""))
.Write("</marquee></td></tr>")
end if
.Write("<tr><td class='unnamed1' style='table-layout:fixed;word-break:break-all;word-wrap:break-word;'>")
if jd_ad="" then
.write("【版主:暫無】")
else
.write("【版主:"&jd_ad&"】")
end if
if jd_tologin=5 then
.write("【認證版】" )
if jd_membercls=9 or Sessionwebname="Login" then .write("〖授權會員:"&jd_rz&"〗")
end if
.Write("</td><td height='16' class='unnamed1'><div align='right'>")
call viewpage(jd100_page_count,jd100_page_n,jd100_page_x,page,"action=View_Words&forumid="&forumid&"","主題數:")
.Write("</div></td></tr></table>")
.Write("<form name='form' method='post' action='"&indexfilename&"' onSubmit='submitonce(this)'>")
dim edit_list,wid
Select Case jd_sty
Case 0,""
dim cx,dx
cx="topics"
dx="member"
sql="select " &_
" "&cx&".id,"&cx&".jd_userid,"&cx&".jd_name,"&cx&".jd_reid,"&cx&".jd_title,"&cx&".jd_words," &_
" "&cx&".jd_date,"&cx&".jd_editdate,"&cx&".jd_reply,"&cx&".jd_ip,"&cx&".jd_view,"&_
" "&cx&".jd_cls,"&cx&".jd_rep,"&dx&".jd_cls,"&dx&".jd_sex,"&dx&".jd_web,"&_
" "&dx&".jd_email,"&dx&".jd_date,"&dx&".jd_come,"&dx&".jd_qq,"&dx&".jd_head,"&_
" "&dx&".jd_qm,"&dx&".jd_topic,"&dx&".jd_view,"&cx&".jd_top,"&dx&".jd_jf,"&cx&".jd_rnd "&_
" From "&cx&" left join "&dx&" on "&cx&".jd_userid="&dx&".id where "&cx&".jd_forumid="&forumid &_
" and "&cx&".id in ("& SqlId &") order by jd_top desc,jd_rdate desc"
Set Rs=Conn.Execute(sql,0,1)
dim lou,words,reply,t_rnd
dim viewadmin,view,jd_cls,user_xx,view_rep
dim msg0,msg1,msg2,msg3,msg4,msg5,msg6,msg7
if page<2 then
lou=jd100_page_count
else
lou=jd100_page_count-((page-1)*jd100_page_n)
end if
ki=0
do while not rs.eof and ki<jd100_page_n
ki=ki+1
msg0=""
msg1=""
msg2=""
msg3=""
msg4=""
msg5=""
msg6=""
msg7=""
titlead=""
reply=""
words=""
wid=rs(0)
msg0=rs(2)
words=Ubb(rs(5),"")
view=rs(10)
reply=rs("jd_reply")
titlead="主題: <b>"&untitle(rs(4))&"</b>"
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
if webyn=1 and Sessionwebname <> "Login" and view<>1 and jd_membercls<5 and jd_username<>msg0 then
words=splyb("留言需要審批才能查看")
titlead=""
reply=""
view_rep=1
end if
if webyn=1 and view=0 and (Sessionwebname = "Login" or jd_membercls=9 or jd_username=msg0) then
words= "<div align='right'><font color='#009900'><strong>[未審批]</strong></font></div ><br>" & words
end if
if view=2 and Sessionwebname <> "Login" and jd_membercls<5 and jd_username<>msg0 then
words=splyb("這是給版主的留言")
titlead=""
reply=""
view_rep=1
end if
if view=2 and (Sessionwebname = "Login" or jd_membercls=9 or jd_username=msg0) then
words= "<div align='right'><font color='#009900'><strong>[秘密]</strong></font></div ><br>" & words
end if
if view=8 and (Sessionwebname <> "Login" and jd_membercls<5 and jd_username<>msg0) then
if jd_memberid="" then
words=splyb("本留言回復可見")
else
if conn.Execute("select id from reply where jd_id="&wid&" and jd_userid="&jd_memberid&" ",0,1).eof then
words=splyb("本留言回復可見")
end if
end if
end if
if Sessionwebname ="Login" or jd_membercls>=5 then
viewadmin="<a href=http://www.jd100.net/ip/showip.asp?ip="&rs(9)& " target='_blank'><img src="&indeximg&"ip.gif border=0 alt=查詢IP來源地></a> " &rs(9)
end if
user_xx="<font color=#666666>時間:"&rs(6)&"</font> "
dim msgtemp
msgtemp="-"&rs(13)
if msgtemp="-" then
dim grs
set grs=conn.execute("select jd_web,jd_email,jd_qq,jd_come,jd_sex,jd_head from guest where jd_rnd='"&t_rnd&"'",0,1)
if not grs.eof then
msg1=msg1_fun(grs(0),1,grs(1),grs(2),grs(3))
msg2=grs(4) '性別
msg3=grs(5) '頭像
end if
grs.close
set grs=nothing
msg1=msg1 & "<a href=?action=View_topics"e=topics&id="&wid&"&forumid="&forumid&"#quote><img src="&indeximg&"quote.gif alt='引用' border='0'></a>"
msg1=msg1 & "<a href=?action=edit_my&myaction=topics&cid="&wid&"&id="&wid&"&forumid="&forumid&"#quote><img src="&indeximg&"reply.gif alt='編輯' border='0'></a>"
msg4=rs(9) 'IP
msg5="" '發貼數
msg6="" '簽名
else
msg1=msg1_fun(rs(15),rs(23),rs(16),rs(19),rs(18))
msg1=msg1 & "<a href=?action=View_topics"e=topics&id="&wid&"&forumid="&forumid&"#quote><img src="&indeximg&"quote.gif alt='引用' border='0'></a>"
msg1=msg1 & "<a href=?action=edit_my&myaction=topics&cid="&wid&"&id="&wid&"&forumid="&forumid&"#quote><img src="&indeximg&"reply.gif alt='編輯' border='0'></a>"
msg2=rs(14)
msg3=rs(20)
'msg4=rs(25)
msg5=rs(22)
msg6=rs(21)
msg7=rs(25)
'會員等級顯示
jd_cls=jd_usercls(rs(13),msg5)
' 增加簽名
if rs(13)=-3 then msg0="會員已刪除":msg1="":msg5="":msg6=""
if len(msg6)>1 and view_rep=0 then words=jd_qmfun(words,msg6)
if rs(13)=-2 then words= splyb("該會員貼子已經被禁止")
end if
edit_list=admin_ls(wid,rs(24),rs(11))
call img_top()
.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 colSpan=2 height=25 class='jd_tab' ><table width='100%' border='0' class='unnamed1'><tr> <td width='20%' height='21' class='unnamed1'> <b>")
.Write(untitle(msg0))
.Write("</b></td><td width='72%'> <div align='right'>"&user_xx&" "&msg1)
If Sessionwebname = "Login" Then
.Write("<a href='?action=Delete&id="&wid&"&forumid="&forumid&"' onClick=""return confirm('確定要刪除嗎？\n\n該操作不可恢復！')""><img src='"&indeximg&"del.gif' alt='刪除留言' border='0'></a></font>")
end if
.write " <a href='#'><img src="&indeximg&"backtop.gif alt='反回頂部' border='0'></a>"
.Write("</div></td> <td width='8%'><div align='right'> <font color='#ff0000'>"&lou &"</font> 樓</div></td> </tr></table></TD></TR><TR> <TD width='120' height='21' align=middle valign='top' class='jd_tab' ><table width='100%' border='0' align='center' class='unnamed1'><tr> <td width='94' > <div align='center'>")
if indeximg<>"" then call headpic(msg2,msg3)
if rs(1)<>0 then
.write "<font color=#666666>"&jd_cls
.write "  發貼:" & msg5 &"<br>"
.write "  金幣:" & msg7 &"</font><br>"
end if
.write viewadmin
.Write("</div></td></tr></table></TD><TD width='' height='21' valign='top' class=unnamed2 style='word-break:break-all'> <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 width='' style='word-break:break-all' class=jd_title>")
.Write(topic_best(rs(24),rs(11)))
.Write(" <a href='?action=View_topics&id="&wid&"&forumid="&forumid&"'>"&titlead&"</a> <font color='#999999'>(有"&rs(12)&"個回復)</font> "&edit_list&"</td></tr></table><table width='100%' border='0' cellpadding='3' class=unnamed2 style='table-layout:fixed;word-break:break-all;word-wrap:break-word;'><tr> <td width='' style='word-break:break-all'> "&words&" </td></tr></table></TD></TR></TBODY></TABLE>")
call img_foot()
lou=lou-1
rs.movenext
loop
call RsClose()
' 標題列表######
Case 1
dim lbmode
lbmode=restr(request("mode"))
call img_top()
if pagestyle=0 then
set Rs=server.createobject("adodb.recordset")
Rs.Open "select id,jd_userid,jd_reid,jd_title,jd_name,jd_date,"&_
" jd_rdate,jd_hit,jd_rep,jd_top,jd_cls,jd_view,jd_color From topics where "&_
" jd_forumid="&forumid&" order by jd_top desc,jd_rdate desc",Conn,1,1,&H0001
Rs.AbsolutePosition=Rs.AbsolutePosition+((Abs(Page)-1)*jd100_page_n)
else
Set Rs=Conn.Execute("select id,jd_userid,jd_reid,jd_title,jd_name,jd_date,jd_rdate,jd_hit,jd_rep,jd_top,jd_cls,jd_view,jd_color From topics where jd_forumid="&forumid&" and id in("& SqlId &") order by jd_top desc,jd_rdate desc",0,1)
end if
.Write("<TABLE width='"&jd_table_w&"' height=51 border=1 align=center cellPadding=3 cellSpacing=0 class='jd_tab' style='border-collapse:collapse;word-wrap:break-word;'> <TBODY> <TR class=jd_titlemu> <TD width='6%' class='jd_tab' > <div align='center'>人氣</div></TD><TD width='6%' class='jd_tab' > <div align='center'>回復</div></TD><TD width='53%' class='jd_tab' > <div align='center'>標題</div></TD><TD width='20%' class='jd_tab' > <div align='center'>作者|回復</div></TD> <TD width='14%' class='jd_tab' ><div align='center'>時間</div></TD>")
if Sessionwebname ="Login" then
.Write("<TD class='jd_tab' ><div align='center'>管</div></TD>")
end if
.Write("</TR>")
ki=0
titlepic=""
dim titletime,retime
'層菜單JS
if Sessionwebname ="" and lbmode="guanli" then call jd_jsdiv()
do while not rs.eof and ki<jd100_page_n
ki=ki+1
wid=rs(0)
if lbmode="guanli" or Sessionwebname ="Login" then edit_list=admin_ls(wid,rs(9),rs(10))
if Sessionwebname ="Login" or jd_membercls=9 then viewadmin="<input name='id' type=checkbox id=delall value="&rs("id")&"> "
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -