📄 treelist.asp
字号:
<!-- #include file="const.asp" -->
<!-- #include file="power_func.asp" -->
<%
response.Cookies("matrix3")("list")="treelist"
dim page,CID,ID,FID,rid
dim sql,rs,pic,color
dim ftitle,ctitle,fadmin,fprofile,authent,authentlist
dim topic,addtime,author,face,ip,content,rootid,istop,isbest,ulevel,sexstr
dim totalcount,totalpages,psize,i,admin,clicked,ac,ad,tmpid,html,name,uploadfile,filepath,viewsign,fileext
dim post,nickname,phone,birthday,city,country,qq,msn,signature,touxiang,shengxiao,right1,regtime
dim meili,money,credit,level,touxian,jingyan,weiwang,menpai,shuxing,website,xingzuo,logintimes,Email
psize=10
totalpages=1
totalcount=0
page=trim(request("page"))
if page="" then
page=1
else page=cint(page)
if page<=0 then
page=1
end if
end if
ID=nrequest("id")
if ID="" then
response.Redirect("error.asp?id=3")
response.End()
end if
call opendb()
if request.Cookies("matrix3")("matrix3_admin")="matrix3" then
sql="select bbs.uploadfile,bbs.rootid,bbs.viewsign,bbs.filepath,bbs.topic,bbs.addtime,bbs.FID,bbs.face,bbs.ip as bip,bbs.istop,bbs.isbest,bbs.content,bbs.html,bbs.click,users.* from m3_bbs as bbs,m3_users as users where ID="&ID&" and users.name=bbs.name"
else
sql="select bbs.uploadfile,bbs.rootid,bbs.viewsign,bbs.filepath,bbs.topic,bbs.addtime,bbs.FID,bbs.face,bbs.ip as bip,bbs.istop,bbs.isbest,bbs.content,bbs.html,bbs.click,users.* from m3_bbs as bbs,m3_users as users where ID="&ID&" and users.name=bbs.name and valid=1"
end if
set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.Redirect("error.asp?id=2")
response.End()
else
topic=rs("topic")
author=rs("name")
addtime=rs("addtime")
FID=rs("FID")
face=rs("face")
ip=rs("bip")
istop=rs("istop")
isbest=rs("isbest")
rootid=rs("rootid")
content=rs("content")
html=cint(rs("html"))
post=rs("post")
nickname=trim1(rs("nickname"))
phone=trim1(rs("phone"))
birthday=trim1(rs("birthday"))
city=trim1(rs("city"))
country=trim1(rs("country"))
qq=trim1(rs("qq"))
msn=trim1(rs("msn"))
signature=trim1(rs("signature"))
touxiang=trim1(rs("touxiang"))
shengxiao=trim1(rs("shengxiao"))
meili=rs("meili")
money=rs("money")
credit=rs("credit")
level=rs("level1")
touxian=trim1(rs("touxian"))
jingyan=rs("jingyan")
weiwang=rs("weiwang")
menpai=trim1(rs("menpai"))
shuxing=rs("shuxing")
website=trim1(rs("website"))
xingzuo=trim1(rs("xingzuo"))
right1=rs("power")
logintimes=rs("logintimes")
regtime=rs("regtime")
Email=trim1(rs("Email"))
uploadfile=trim1(rs("uploadfile"))
filepath=trim1(rs("filepath"))
viewsign=rs("viewsign")
if rs("sex")=0 then
sexstr="Male"
else
sexstr="FeMale"
end if
end if
rs.close
set rs=nothing
clicked=request.Cookies("matrix3_login")("clickedstr")
if len(clicked)>200 then
response.Cookies("matrix3_login")("clickedstr")=""
end if
ad=8-len(id)
ac=id+space(ad)
if instr(clicked,ac)=0 then
sql="update m3_bbs set click=click+1 where ID="&ID&" and valid=1"
conn.execute(sql)
response.Cookies("matrix3_login")("clickedstr")=clicked&ac
end if
sql="select forum.FTitle,forum.FAdmin,forum.FProfile,forum.authent,forum.authentlist,category.CID,category.CTitle from m3_forum as forum,m3_category as category where forum.FID="&FID&" and category.CID=forum.CID"
set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
ftitle="unknown forum"
fadmin=""
CID=0
ctitle="unknown category"
else
ftitle=rs("FTitle")
fadmin=rs("FAdmin")
fprofile=rs("FProfile")
CID=rs("CID")
ctitle=rs("CTitle")
authent=cint(rs("authent"))
authentlist=rs("authentlist")
end if
rs.close
set rs=nothing
ulevel=userlevel()
if cint(ulevel)>1 then
admin=1
else
if havepower(FID)=1 then
admin=1
else
admin=0
if authent=1 then
if inlist(authentlist)=0 then
response.Redirect("error.asp?id=13")
response.End()
end if
elseif authent=2 then
if cint(ulevel)<1 then
response.Redirect("error.asp?id=14")
response.End()
end if
end if
end if
end if
position "浏览帖子："&topic&" (树形模式)",0
%>
<html>
<head>
<title><%=sitename%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="images/skin.css" rel="stylesheet" type="text/css">
<script language="JavaScript">
function alertwin(url)
{
if(confirm("警告：确定要删除吗 ？"))
{
location.href=url;
}
}
function popWin(loadurl)
{
wintop=(screen.availHeight-480)/2;
winleft=(screen.availWidth-650)/2;
window.open(loadurl,"","scrollbars=yes,resizable=yes,width=550,height=420,top="+wintop+",left="+winleft+"");
}
function printwin(url) {
window.open(url,'','width=460,height=525,scrollbars=yes,toolbars=yes,menubar=yes,resizable=yes')
}
function runit(obj)
{
var winname=window.open("","test","");
winname.document.open("text/html", "replace");
winname.document.write(obj.value);
winname.document.close();
}
function copyit(obj){
obj.select();
js=obj.createTextRange();
js.execCommand("Copy");
}
function saveAs(obj){
var winname=window.open('','test','top=10000');
winname.document.open("text/html", "replace");
winname.document.write(obj.value);
winname.document.execCommand('saveas','','code.html');
winname.close();
}
</script>
<script language="JavaScript" src="images/effect.js"></script>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0" class="mainbg">
<tr>
<td height="10" align="center" valign="top"><a name=top></a> <!-- #include file="topbar.asp" --> </td>
</tr>
<tr>
<td align="center" valign="top"><table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="12" class="left_main"> </td>
<td width="1" class="left_sp_min"></td>
<td width="10"> </td>
<td valign="top"> <table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<td height="26" colspan="2"><span class="v8"><img src="images/btn_face.gif" width="10" height="7">
<a href="index.asp"><%=sitename%> </a><FONT face=Webdings color="#660000">8</FONT>
<a href="category.asp?cid=<%=CID%>"><%=ctitle%></a> <FONT face=Webdings color="#660000">8</FONT>
<a href="list.asp?forumid=<%=FID%>&page=<%=request.QueryString("listpage")%>"><%=ftitle%></a>
<FONT face=Webdings color="#660000">8</FONT> <font color="#990000"><%=Strleft(topic,70)%></font></span>
</td>
</tr>
<tr>
<td colspan="2" height="1" bgcolor="#ECE9D9"></td>
</tr>
<tr>
<td width="52%" height="30"><a href="javascript:history.back()"> <img src='images/btn_back.gif' border="0" align='absmiddle'>
回上一页</a></td>
<td width="48%" align="right" nowrap class="v8"> <a href="reply.asp?id=<%=ID%>&rootid=<%=id%>">
<img src='images/btn_reply.gif' border="0" align='absmiddle'>
回复主题</a> <a href="post.asp?forumid=<%=FID%>"> <img src='images/btn_new.gif' border="0" align='absmiddle'>
发新帖子</a> <a href="bbs.asp?id=<%=rootid%>&listpage=<%=request.QueryString("listpage")%>"><img src='images/btn_flat.gif' border="0" align='absmiddle'>
平板列表</a> <a href="javascript:printwin('print.asp?id=<%=ID%>')"><img src='images/btn_print.gif' border="0" align='absmiddle'>
简洁打印</a> <a href="javascript:location.reload()"><img src='images/btn_refresh.gif' border="0" align='absmiddle'>
刷新</a> </td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="12"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="130" height="12" bgcolor="#990000"> <span class="v8b"> <img src="images/fang-1.gif" align="absmiddle">
</span><span class="v7"><font color="#FFFFFF">阅读</font></span><span class="v7b"></span></td>
<td height="12" nowrap bgcolor="#CCCCCC" class="v8b"> </td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="1" style="word-break:break-all;WORD-WRAP: break-word;" class="bbs_tb_border">
<tr class="bbs_head">
<td width="120"><span class="v8b"><img src="images/fang-1.gif" align="absmiddle"></span>
发帖人</td>
<td>内容</td>
</tr>
<%if page=1 then%>
<tr class="mainbg">
<td valign="top" nowrap><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr valign="middle">
<td width="61%" height="30" nowrap style="filter:glow(color=#9898BA,strength=2);font-size:14px;"> <a href='profile.asp?name=<%=author%>' target="_blank" title="查看个人简介"><%=author%></a></td>
<td width="39%" align="center" nowrap><img src="images/<%=sexstr%>.gif"></td>
</tr>
</table>
<table width="120" border="0" cellspacing="0" cellpadding="2" style="table-layout: fixed;WORD-WRAP: break-word;">
<tr>
<td>
<%
if trim1(touxiang)<>"" then response.write("<img id=usertx src="""&trim1(touxiang)&""" border=0 alt=""用户自定义头像"" onload=""pic_width(this,110)""><br><br>")
response.write("<img src=""images/level"&userlevelimg(credit,right1)&".gif"">")
if nickname<>"" then response.Write("<br>昵称：<strong>"&nickname&"</strong>")
if shuxing=1 then response.Write("<br>属性：<font color=#FF0000><strong>VIP会员</strong></font>")
response.Write("<br>级别："&usergrade(credit,right1)&"")
if menpai<>"" then response.write("<br>门派："&meipai&"")
response.Write("<br>积分：<font color=#FF0000><strong>+"&credit&"</strong></font>")
'response.write("<br>威望：<strong><font color=#0000FF>+"&weiwang&"</font></strong>")
'response.write("<br>魅力："&meili&"")
response.write("<br>经验："&jingyan&"")
'response.write("<br>现金："&money&"")
response.write("<br>文章："&post&"")
response.write("<br><br>登陆：<strong>"&logintimes&"</strong> 次")
response.write("<br>注册："&datevalue(regtime)&"")
%>
</td>
</tr>
</table>
<br> </td>
<td valign="top"> <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="77%"><a onclick="javascript:popWin('msgnew.asp?name=<%=author%>')" style="cursor:hand"><img title="给<%=author%>发短消息" src="images/message.gif" align="absmiddle"></a>
<img src="images/friend.gif" align="absmiddle" title="把<%=author%>加入我的好友名单！">
<a href='profile.asp?name=<%=author%>' target="_blank"><img title="查看<%=author%>的个人资料" src="images/profile.gif" border="0" align="absmiddle"></a>
<a href="search.asp?type=2&keyword=<%=author%>" target="_blank"><img title="搜索<%=author%>的所有帖子" src="images/find.gif" border="0" align="absmiddle"></a>
<%if Email<>"" then%>
<a href="mailto:<%=Email%>"><img title="给<%=author%>[<%=Email%>]发邮件" src="images/email.gif" border="0" align="absmiddle"></a>
<%end if%>
<%if qq<>"" then%>
<a href="http://search.tencent.com/cgi-bin/friend/user_show_info?ln=<%=qq%>" target="_blank"><img title="查看<%=author%>[<%=qq%>]的QICQ资料" src="images/oicq.gif" border="0" align="absmiddle"></a>
<%end if%>
<%if website<>"" then%>
<a href="<%=website%>" target="_blank"><img src="images/homepage.gif" border="0" align="absmiddle" title="打开<%=author%>的主页[<%=website%>]"></a>
<%end if%>
<%if html=0 then%>
<a href="reply.asp?id=<%=ID%>&rootid=<%=id%>&page=<%=page%>"e=true"><img src="images/reply.gif" border="0" align="absmiddle" title="引用本帖进行回复"></a>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -