index.asp

平凡BBS1.0

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="主题:&nbsp;<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&quote=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&quote=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'>&nbsp;<b>")
.Write(untitle(msg0))
.Write("</b></td><td width='72%'> <div align='right'>"&user_xx&"&nbsp;"&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 "&nbsp;<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 "&nbsp 发贴:" & msg5 &"<br>"
				  .write "&nbsp 金币:" & 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("&nbsp;<a href='?action=View_topics&id="&wid&"&forumid="&forumid&"'>"&titlead&"</a> &nbsp;<font color='#999999'>(有"&rs(12)&"个回复)</font>&nbsp;"&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")&"> "