📄 index.asp
字号:
mrs.movenext
loop
.Write("</marquee>")
.Write("</td></tr></table>")
.Write("</td></tr>")
end if
mrs.close
set mrs=nothing
'''###小字报结束
'广告
.Write("<tr><td colspan='2' class='unnamed1'>"&ad_jd100("1")&"</td></tr>")
.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="&action&"&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 words,reply,lou
dim jd_cls,view_rep,jd_class
dim viewadmin,view,user_xx,head,j
view_rep=0 '显示回复初始为否
dim msg0,msg1,msg2,msg3,msg4,msg5,msg6,msg7,msg8
dim ip,msgtemp,t_cls,t_ch,t_rnd
sql="select "&_
" topics.id,topics.jd_userid,topics.jd_name,topics.jd_reid,topics.jd_title,topics.jd_words," &_
" topics.jd_date,topics.jd_editdate,topics.jd_reply,topics.jd_ip,topics.jd_view," &_
" topics.jd_cls,topics.jd_rep,member.jd_cls,member.jd_sex,member.jd_web," &_
" member.jd_email,member.jd_date,member.jd_come,member.jd_qq,member.jd_head," &_
" member.jd_qm,member.jd_topic,member.jd_view ,member.jd_jf,topics.jd_hit," &_
" member.jd_tx ,topics.jd_top,topics.jd_rnd,topics.jd_top,topics.jd_topdate" &_
" From topics left join member on topics.jd_userid=member.id " &_
" where topics.id in ("& SqlId &") order by topics.jd_top desc,topics.jd_rdate desc"
Set Rs=Conn.Execute(sql,0,1)
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
'复制主题
wid=rs(0)
msg0=rs(2)
listtitle=untitle(rs(4))
words=Ubb(rs(5),"")
user_xx=rs(6)
reply=rs(8)
ip=rs(9)
view=rs(10)
jd_class=rs(11)
t_cls=rs(13)
t_ch=rs(25)
t_rnd=rs(28)
msgtemp="-"&t_cls
if jd_class=37 and jd_membercls<>9 then response.redirect indexfilename&"?forumid="&forumid
if rs(29)=1 and datediff("h",rs(30),now) > 0 then
Conn.Execute("update topics set jd_top=0 Where id="&id)
end if
if listtitle<>"" then
titlead="<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 style='word-break:break-all' class=jd_title> ※ <a href='index.asp?repage=1&action=view_topics&id="&wid&"&forumid="&forumid&"'><b>"&listtitle&"</b></a> [有"&rs(12)&"个回复] "&admin_ls(wid)&"</td></tr></table> "
end if
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
Select Case (view)
Case 0
if webyn=1 then
if admin_class("当前版主","")=true or jd_username=msg0 then
words= "<div align='right'><font color='#009900'><b>[未审核]</b></font></div><br>" & words
else
words=splyb("留言需要审核才能查看")
titlead=""
reply=""
view_rep=1
end if
end if
Case 1
words= "<div align='right'><font color='#009900'><b>[已审核]</b></font></div><br>" & words
Case 2
if admin_class("当前版主","")=true or jd_username=msg0 then
words= "<div align='right'><font color='#009900'><b>[给版主的留言]</b></font></div><br>" & words
else
words=splyb("这是给版主的留言")
titlead=""
titlead=""
reply=""
view_rep=1
end if
Case 8
if admin_class("当前版主","")=true or jd_username=msg0 then
words= "<div align='right'><font color='#009900'><b>[回复可见留言]</b></font></div><br>" & words
else
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("本留言回复可见")
titlead=""
else
words= "<div align='right'><font color='#009900'><b>[回复可见留言]</b></font></div><br>" & words
end if
end if
end if
case else
words=splyb("未知")
titlead=""
End Select
Select Case (jd_class)
Case 1
words= "<div align='right'><font color='#009900'><strong>[精华贴子]</strong></font></div><br>" & words
Case 2
words= "<div align='right'><font color='#009900'><strong>[锁定]</strong></font></div><br>" & words
Case 3
if Sessionwebname <> "Login" and jd_membercls<>9 then
words=splyb("本贴已被单贴屏蔽")
titlead=""
reply=""
else
words= "<div align='right'><font color='#009900'><strong>[单贴屏蔽]</strong></font></div><br>" & words
end if
Case 4
if Sessionwebname <> "Login" and jd_membercls<>9 then
words=splyb("本贴已被完全屏蔽")
titlead=""
reply=""
view_rep=1
else
words= "<div align='right'><font color='#009900'><strong>[完全屏蔽]</strong></font></div><br>" & words
end if
Case 5
if Sessionwebname <> "Login" and jd_membercls<>9 then
words=splyb("本贴已被完全屏蔽并锁定会员")
titlead=""
reply=""
view_rep=1
else
words= "<div align='right'><font color='#009900'><strong>[绝对屏蔽]</strong></font></div><br>" & words
end if
Case Else
End Select
if Sessionwebname ="Login" or jd_membercls>=5 then
viewadmin="<a href=http://www.ddtaobao.com/ip/showip.asp?ip="&ip& " target='_blank'><img src="&indeximg&"ip.gif border=0 alt=查询IP来源地></a> " &ip
end if
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
msg4=ip 'IP
msg5="" '发贴数
msg6="" '签名
else
msg1=msg1_fun(rs(15),rs(23),rs(16),rs(19),rs(18))
msg2=rs(14)
msg3=rs(20)
msg5=rs(22)
msg6=jd_qmfun(rs(21))
msg7=rs(24)&"<br> 注册:"&year(rs(17))&"-"&month(rs(17))&"-"&day(rs(17))
if len(rs(26))>0 then
msg8="头衔:"&rs(26)
else
msg8="头衔:精点网虫"
end if
jd_cls=rs(13)
if view_rep=1 then msg6=""
if rs(13)=-3 then msg0="会员已删除":msg1="":msg5="":msg6=""
if rs(13)=-2 and jd_membercls<>9 then words= splyb("该会员贴子已经被禁止"):msg6=""
end if
call img_top()
call view_content(msg0,msg1,msg2,msg3,msg5,msg7,msg8,jd_cls,viewadmin,user_xx,titlead,words,msg6,lou,"",wid,rs(12))
call img_foot()
lou=lou-1
rs.movenext
loop
call RsClose()
' 标题列,列表模式
Case 1
dim lbmode
lbmode=restr(request("mode"))
dim s1,s2
if action="Del_Topics" then
set rs=conn.execute("select id,jd_name from forum order by id")
do while not rs.eof
s1=s1&"|"&rs(0)
s2=s2&"|"&rs(1)
rs.movenext
loop
s1=right(s1,len(s1)-1)
s2=right(s2,len(s2)-1)
rs.close
set rs=nothing
end if
call img_top()
'set Rs=server.createobject("adodb.recordset")
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,jd_forumid From topics where id in("& SqlId &") order by jd_top desc,jd_rdate desc",0,1)
.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' align='center'>人气</TD><TD width='6%' class='jd_tab' align='center'>回复</TD><TD width='53%' class='jd_tab' align='center'>标题</TD><TD width='20%' class='jd_tab' align='center'>作者|回复</TD><TD width='14%' class='jd_tab' align='center'>时间</TD>")
if admin_class("总版主","")=true then
.Write("<TD class='jd_tab' align='center'>管</TD>")
end if
.Write("</TR>")
ki=0
titlepic=""
dim titletime,retime
do while not rs.eof and ki<jd100_page_n
ki=ki+1
wid=rs(0)
if admin_class("总版主","")=true then viewadmin="<input name='id' type=checkbox id=delall value="&rs("id")&"> "
titlepic=topic_best(rs("jd_top"),rs("jd_cls"))
titletime=""
titletime=rs("jd_date")
if titletime<>"" and DATEDIFF("d",titletime,date()) < 2 then
titletime=" <img src="&indeximg&"new.gif border=0 alt='最新贴子'>"
else
if rs("jd_hit")>300 or rs("jd_rep")>30 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="&rs("jd_forumid")&" ' title='主题:"&untitle(rs("jd_title"))&"
发表时间:"&rs("jd_date")&"
回复时间:"&rs("jd_rdate")
if action="Del_Topics" then titlead=titlead & "
所属版块：" & reArry(s1,s2,rs("jd_forumid"))
titlead=titlead&"'>"&titlepic&" "&title_color(untitle(rs("jd_title")),rs("jd_color"))&"</a>"
if webyn=1 and (rs("jd_view")=0 or rs("jd_view")=1) then
Select Case (rs("jd_view"))
Case 0
if admin_class("当前版主","")=true or jd_username=rs(4) then
titlead=titlead & " <font color=#ff6600>[未审]</font>"
else
titlead="<a href='?action=view_topics&id="&wid&"&forumid="&rs("jd_forumid")&" '><font coloe=#cccccc>"&titlepic&" 【未审核留言】</font></a>"
end if
Case 1
titlead=titlead & " <font color=#006600>[已审]</font>"
case else
End Select
end if
if rs("jd_view")=2 then titlead="<a href='?action=view_topics&id="&wid&"&forumid="&rs("jd_forumid")&" '><font color=#800000>"&titlepic&" 【给版主的留言】</font></a>"
.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 jd_membercls>=5 or Sessionwebname ="Login" then .write admin_ls(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")))
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -