📄 viewtheme.asp
字号:
<%@ Language=VBScript %>
<% option explicit %>
<!-- #include file="conn_forum.asp" -->
<!-- #include file="conn_member.asp" -->
<!-- #include file="inc_session.asp" -->
<!-- #include file="inc_transtag.asp" -->
<%
dim uid
uid=GetSession()
dim sSort '//parent sort
dim iSort '//parent sort
dim iDay '//parent iDay
dim iPage '//page of the parent (class area) pages
dim iArea
dim iId
dim iChildPage '//page of this theme
iSort=clng(Request("lstSort"))
iPage=clng(Request("Page"))
iArea=clng(Request("Area"))
if Request("lstDay")="" then
iDay=90
else
iDay=clng(Request("lstDay"))
end if
iChildPage=clng(Request("ChildPage"))
if iChildPage =0 then iChildPage =1
'//theme id
iId=clng(Request("id"))
'//Adminstrator's name
dim iAdminCount
dim sAdminName
'//Get the Area name
dim sAreaName
dim rs
set rs=Server.CreateObject ("ADODB.Recordset")
rs.Open "SELECT areaName,master FROM tindex WHERE areaID=" & iArea ,connf,1 ,1
sAreaName=rs("areaName")
sAdminName=rs("master")
rs.Close
dim i
dim bShowadmin
bShowadmin=0
if LCase(uid)="admin" then bShowadmin=1
if IsEmpty(sAdminName) then
sAdminName=""
else
sAdminName=Split(sAdminName,",")
iAdminCount=ubound(sAdminName)+1
for i=1 to iAdminCount
if LCase(uid)=LCase(sAdminName(i-1)) then
bShowAdmin=1
end if
next
end if
'//anti-cheat. Update HITs require at least 10 second interval on one theme
dim bCanAdd
dim dBefore
bCanAdd=0
If IsEmpty(Session("LastReadTime")) then
bCanAdd=1
Session("LastReadTime")=Now
Session("LastReadId")=iId
else
dBefore=DateAdd("s",10,Session("LastReadTime"))
if Now>=dBefore or CLng(Session("LastReadId"))<>iId then
bCanAdd=1
Session("LastReadTime")=Now
Session("LastReadId")=iId
end if
end if
'//List The Theme
rs.Open "SELECT * FROM tcontent WHERE ThemeID=" & iId ,connf,1 ,3
if rs.BOF and rs.EOF then
Response.Write "This theme doesnot exist."
Response.End
end if
'//Get the author info
dim rsa '//author
set rsa=Server.CreateObject("ADODB.Recordset")
dim sTmp
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>查看主题 - <%=rs("Theme") & " - " & sAreaName%></title>
<link rel="stylesheet" type="text/css" href="../main.css">
</head>
<body bgcolor="#FFFFFF">
<SCRIPT language=JavaScript src="../include/header.inc" type=text/javascript></SCRIPT>
<center>
<!-- Header -->
<table border="0" width="760" cellspacing="0">
<tr>
<td width="43%"><a href="index.asp"><img border="0" src="images/logo_forum.gif" alt="论坛首页"></a></td>
<td width="57%" align="left" valign="top">
<img src="images/f_root.gif" border="0" align="top" width="63" height="17"><a href="index.asp">论坛首页</a><br>
<img src="images/f_theme.gif" border="0" align="top" width="81" height="16"><a href="listtheme.asp?area=<%=iArea%>&lstsort=<%=iSort%>&lstday=<%=iDay%>&page=<%=iPage%>"><%=sAreaName%></a><br>
<img src="images/f_content.gif" border="0" align="top" width="93" height="17"><%=left(rs("Theme"),35)%>
</td>
</tr>
<tr>
<td width="43%"></td>
<td width="57%" align="right">
<%
Response.Write "<a href='write.asp?area=" & iarea & "&Parentid=-1" & "'>" & _
"<img src='images/b_newtheme.gif' alt='发新文章' border='0'></a> "
dim bLock
bLock=rs("lock")
if bLock=1 then
Response.Write "<img src='images/lock.gif' alt='该主题不能回复' border='0'>"
else
Response.Write "<a href='write.asp?area=" & iarea & "&Parentid=" & iId & "'>" & _
"<img src='images/b_reply.gif' alt='回复主题' border='0'></a>"
end if
%>
</td>
</tr>
</table>
<!-- the 1st block -->
<div align="center">
<center>
<table border="0" width="760" cellspacing="1" bgcolor="#C0C0C0" height="26">
<tr>
<td width="146" height="22" bgcolor="#687088"><b><font color="#FFFFFF">作 者：</font></b></td>
<td width="600" height="22" bgcolor="#687088"><b><font color="#FFFFFF">
<%
response.Write "<img src='images/titleicon/" & rs("icon") & "' border='0'> "
response.Write rs("Theme") & "</a>"
if rs("selected")=1 then
Response.Write " <img src='images/topmost.gif' alt='顶端主题' border='0'>"
end if
if rs("Hit") >= 35 then
Response.Write " <img src='images/hot.gif' alt='热门主题' border='0'>"
end if
%>
</font></b></td>
</tr>
</table>
</center>
</div>
<!-- the 2nd block -->
<% if iChildPage=1 then %>
<div align="center">
<center>
<table border="0" width="760" bgcolor="#C0C0C0" cellspacing="1">
<tr>
<td width="146" bgcolor="#F5F5F5" valign="top">
<%
rsa.Open "SELECT * FROM tmember WHERE uid='" & rs("author") & "'" ,connm,1 ,1
if rsa("lock")=1 then
Response.Write "<p> <img border='0' src='images/lock.gif' alt='该用户已经被封锁'>"
end if
Response.Write "<a href='viewinfo.asp?uid=" & rs("author") & "'>"
Response.Write "<b>" & rs("author") & "</b> "
Response.Write "</a><br>"
Response.Write "<img border='0' src='images/level/level" & rsa("level") & ".gif'>"
if rsa("userportrait")<>"" then
Response.Write "<p> <img border='0' src='" & rsa("userportrait") & "'>"
else
if rsa("portrait")<>"" then
Response.Write "<p> <img border='0' src='images/portrait/" & rsa("portrait") & "'>"
else
Response.Write "<br> "
Response.Write "<TABLE height='100' cellSpacing=1 width='100' border=0 bgcolor='#DDDDDD'>"
Response.Write "<TR><TD bgcolor='#EFEFEF' align='center'>未设定图片。</TD></TR></TABLE>"
end if
end if
%>
<p></p>
</td>
<td width="600" bgcolor="#F5F5F5" valign="bottom"><br>
<%
sTmp=rs("content")
call transtext(stmp)
call transtag(sTmp,4)
if rsa("level")>=2 then
call transtag(sTmp,1)
call transtag(sTmp,2)
call transtag(sTmp,3)
end if
Response.Write sTmp & "<br>"
if rsa("sign")<>"" then
sTmp=rsa("sign")
call transtext(stmp)
call transtag(sTmp,4)
if rsa("level")>=2 then
call transtag(sTmp,1)
call transtag(sTmp,2)
'//call transtag(sTmp,3) '//disable EMBED in sing
end if
response.Write "<br><hr width='200' noshade size='1' color='#CCCCCC' align='left'><br>"
response.Write sTmp
end if
%>
</td>
</tr>
<tr>
<td width="146" bgcolor="#F5F5F5"><img border="0" src="images/post.gif" width="12" height="13" alt="发表时间">
<%=rs("writetime") %></td>
<td width="600" bgcolor="#F5F5F5" align="right">
<%
if rsa("homepage")<>"" then
Response.Write "<a href='" & rsa("homepage") & "'>"
Response.Write "<img border='0' src='images/homepage.gif' width='14' height='14' alt='" & rsa("homepage") & "'>"
Response.Write "</a> "
Response.Write vbcrlf
end if
if rsa("email")<>"" then
Response.Write "<a href='mailto:" & rsa("email") & "'>"
Response.Write "<img border='0' src='images/email.gif' width='24' height='11' alt='" & rsa("email") & "'>"
Response.Write "</a> "
Response.Write vbcrlf
end if
if rsa("qq")<>"" then
Response.Write "<a href='http://search.tencent.com/cgi-bin/friend/user_show_info?ln=" & rsa("qq") & ">"
Response.Write "<img border='0' src='images/oicq.gif' width='16' height='16' alt='" & rsa("qq") & "'>"
Response.Write "</a> "
Response.Write vbcrlf
end if
if rsa("msn")<>"" then
Response.Write "<img border='0' src='images/msn.gif' width='16' height='16' alt='" & rsa("msn") & "'> "
Response.Write vbcrlf
end if
if bShowAdmin=1 then
Response.Write " | 管理： <a href='modifytheme.asp?areaid=" & iArea & "&tid=" & iId & "&action=delete'>"
Response.Write "<img border='0' src='images/delete.gif'> 删除主题" & "</a> " & vbcrlf
if rs("lock")=1 then
Response.Write " <a href='modifytheme.asp?areaid=" & iArea & "&tid=" & iId & "&action=unlock'>"
Response.Write "<img border='0' src='images/subtract.gif'> 解锁定主题" & "</a> " & vbcrlf
else
Response.Write " <a href='modifytheme.asp?areaid=" & iArea & "&tid=" & iId & "&action=lock'>"
Response.Write "<img border='0' src='images/plus.gif'> 锁定主题" & "</a> " & vbcrlf
end if
if rs("selected")=1 then
Response.Write " <a href='modifytheme.asp?areaid=" & iArea & "&tid=" & iId & "&action=unselected'>"
Response.Write "<img border='0' src='images/subtract.gif'> 设定为非顶端主题" & "</a> " & vbcrlf
else
Response.Write " <a href='modifytheme.asp?areaid=" & iArea & "&tid=" & iId & "&action=selected'>"
Response.Write "<img border='0' src='images/plus.gif'> 设定为顶端主题" & "</a> " & vbcrlf
end if
Response.Write " <a href='movetheme.asp?areaid=" & iArea & "&tid=" & iId & "'>"
Response.Write "<img border='0' src='images/move.gif'> 移动主题" & "</a> " & vbcrlf
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -