📄 viewfunc.asp
字号:
<head>
<style>
<!--
.main { font-size: 9pt }
-->
</style>
<%
Sub ShowArticle( rs )
Words = Replace( "" & rs("Words"), Chr(13), "<BR>" )
Set rsUser = conn.Execute("SELECT Email, Logo FROM Users WHERE UserName='" & rs("UserName") & "'")
Email = "<A HREF=mailto:" & rsUser("Email") & ">电子邮箱</A>"
%>
</head>
<div align="center">
<center>
<table border="1" cellpadding="0" cellspacing="0" width="100%" bordercolor="#E1F5FF" height="35">
<tr>
<td width="24%" bordercolor="#E1F5FF" height="16" bgcolor="#E1F5FF" class="main">
<p align="center"> <%=rs("UserName")%></p>
</td>
<td width="76%" height="16" bgcolor="#E1F5FF" class="main"> <%=rs("Subject")%></td>
</tr>
<tr>
<td width="24%" height="90" valign="top" class="main">
<p align="center"><img border="0" src="images/<%=rsUser("Logo")%>" width="32" height="32">
<p align="center"> <%=Email%></td>
<td width="76%" height="90" valign="top" class="main">
<p style="margin-top: 0; margin-bottom: 0">
<p style="margin-top: 0; margin-bottom: 0"><%=Words%></p><BR>
</td>
</tr>
<tr>
<td width="24%" height="15" valign="top" class="main">
<p align="center"><%=rs("CreateTime")%></td>
</center>
<td width="76%" height="15" valign="top" class="main">
<p align="right">
<% '显示浏览次数
If rs("UpperId") = 0 Then %>
<font color="#800000"> 您是此帖的第<%=rs("HitCount")%>位浏览者
</font>
<% End If
'显示删除和置顶的链接
If Session("UserName") = rs("UserName") Or Session("UserName") = "Admin" Then
Response.Write "<a href=""artDelt.asp?ContId=" & rs("ContId") & """>删除</a> "
End If
If Session("UserName") = "Admin" And rs("UpperId") = 0 Then
If rs("IsTop") = False Then
Response.Write "<a href=""setTop.asp?ContId=" & rs("ContId") & "&Flag=1"">置顶</a> "
Else
Response.Write "<a href=""setTop.asp?ContId=" & rs("ContId") & "&Flag=0"">取消置顶</a> "
End If
End If
%>
</td>
</tr>
</table>
</div>
<% End Sub %>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -