📄 distillate.asp
字号:
<!-- #include file="const.asp" -->
<%
dim page,CID,FID
dim sql,rs,id,pic,author,replies,views,lastname,lasttime,topic,pictips,face
dim ftitle,ctitle,fadmin,fprofile
dim totalcount,totalpages,psize,i,liststr,uploadfile,filepath,fileext
if request.Cookies("matrix3")("list")="" then
liststr="bbs"
else
liststr="treelist"
end if
psize=20
page=trim(request("page"))
if page="" then
page=1
else page=cint(page)
if page<=0 then
page=1
end if
end if
FID=nrequest("forumid")
if FID="" then
response.Redirect("error.asp?id=1")
response.End()
end if
call opendb()
checkuser()
sql="select forum.FTitle,forum.FAdmin,forum.FProfile,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
rs.close
set rs=nothing
call closedb()
response.Redirect("error.asp?id=2")
response.End()
else
ftitle=rs("FTitle")
fadmin=rs("FAdmin")
fprofile=rs("FProfile")
CID=rs("CID")
ctitle=rs("CTitle")
end if
rs.close
set rs=nothing
position "浏览 "&FTitle&" 精华区列表",0
%>
<html>
<head>
<title><%=sitename%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="images/css.css" rel="stylesheet" type="text/css">
<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">
<tr>
<td height="10" align="center" valign="top"> <!-- #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" bgcolor="#ECE9D9"> </td>
<td width="1" bgcolor="#E8BC3C"></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%>"><%=ftitle%></a> <FONT face=Webdings color="#660000">8</FONT>
<font color="#990000">精华区</font></span></td>
</tr>
<tr>
<td colspan="2" height="1" bgcolor="#ECE9D9"></td>
</tr>
<tr>
<td height="30"> - 版主：
<%
dim tmp_i
fadmin=split(fadmin,",")
for tmp_i=0 to ubound(fadmin)
if tmp_i=0 then
response.write("<a href='profile.asp?name="&fadmin(tmp_i)&"' target='_blank'>"&fadmin(tmp_i)&"</a> ")
else
response.write(", <a href='profile.asp?name="&fadmin(tmp_i)&"' target='_blank'>"&fadmin(tmp_i)&"</a>")
end if
next
%>
</td>
<td width="28%" nowrap class="v8" align="center"> <%if request.Cookies("matrix3")("matrix3_admin")="matrix3" then
response.write("<a href='matrix3_post.asp?forumid="&FID&"'>")
%>
<%else%>
<a href="post.asp?forumid=<%=FID%>">
<%end if%>
<img src='images/btn_new.gif' width='24' height='24' border="0" align='absmiddle'>
发表帖子</a> <a href="list.asp?forumid=<%=FID%>"><img src='images/btn_new.gif' width='24' height='24' border="0" align='absmiddle'>
返回论坛</a> <a href="javascript:location.reload()"><img src='images/btn_new.gif' width='24' height='24' 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="#A0AB6D"> <span class="v8b"> <img src="images/fang-1.gif" align="absmiddle">
</span><span class="v7"><font color="#FFFFFF">论坛话题</font></span></td>
<td height="12" nowrap bgcolor="#CCCCCC" class="v8b"> </td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
<tr bgcolor="#FFFFFF">
<td valign="top" class="v7"><span class="v7b"> <img src="images/catbullet.gif" width="12" height="13" align="absmiddle"></span>
<span class="v7"><%=fprofile%></span> </td>
</tr>
</table></td>
</tr>
<tr>
<td><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="2" bgcolor="#ECE9D9"></td>
</tr>
</table></td>
</tr>
</table>
<br> <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></td>
<td height="12" nowrap bgcolor="#CCCCCC" class="v8b"> </td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#CCCCCC">
<tr bgcolor="#FFFFFF">
<td valign="top" class="v7"><table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#DCD6BA">
<tr>
<td colspan="2" align="center" background="images/bg4.gif" bgcolor="#ECE9D9">状态</td>
<td background="images/bg4.gif" bgcolor="#ECE9D9">主题</td>
<td width="80" align="center" background="images/bg4.gif" bgcolor="#ECE9D9">作者</td>
<td width="40" align="center" background="images/bg4.gif" bgcolor="#ECE9D9">回复</td>
<td width="40" align="center" background="images/bg4.gif" bgcolor="#ECE9D9">阅读</td>
<td width="120" align="center" background="images/bg4.gif" bgcolor="#ECE9D9">发表时间</td>
</tr>
<%
sql="select * from m3_bbs where FID="&FID&" and valid=1 and isbest=1 order by istop desc, addtime desc"
set rs=server.CreateObject("ADODB.RecordSet")
rs.open sql,conn,1,1
if not (rs.bof and rs.eof) then
rs.pagesize=psize
rs.cachesize=rs.pagesize
totalpages=rs.pagecount
if page>rs.pagecount then page=rs.pagecount
rs.absolutepage=page
totalcount=int(rs.recordcount)
i=0
do while (not rs.eof) and (i<psize)
if psize>totalcount then psize=totalcount
'do while i<psize
i=i+1
id=rs("ID")
lasttime=rs("lasttime")
if trim(lasttime)="" then
lasttime=rs("addtime")
end if
if rs("istop")=1 then
pic="istop"
pictips="固顶帖子"
else
pic="isbest"
pictips="精华帖子"
end if
face=rs("face")
uploadfile=trim(rs("uploadfile"))
filepath=trim(rs("filepath"))
%>
<tr bgcolor="#FFFFFF" height="20">
<td width="30" height="28" align="center" bgcolor="#F1F3D6"><img title="<%=pictips%>" src="images/<%=pic%>.gif" border="0" align="absmiddle">
</td>
<td width="30" height="24" align="center"><a href="<%=liststr%>.asp?id=<%=id%>" target="_blank"title="新开窗口阅读此主题"><img src="images/f<%=trim(face)%>.gif" border="0"></a></td>
<td height="24">
<%
if uploadfile<>"" and filepath<>"" then
fileext=getext(uploadfile)
if fileext="jpg" or fileext="gif" or fileext="jpeg" or fileext="bmp" then
response.write("<a href='ViewBigImage.asp?url="&filepath&"' target=_blank><img src='images/"&fileext&".gif' border=0 align=absmiddle alt=按此在新窗口浏览图片></a>")
else
response.write("<a href='DownLoadFile.asp?id="&trim(filepath)&"' target=_blank><img src='images/"&fileext&".gif' border=0 align=absmiddle alt=按此下载该帖子附件></a>")
end if
end if
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -