📄 showdetail.asp

📁 同样是一个在ASP.NET+SQL基础环境下开发的网上BBS系统
💻 ASP
字号:
<!--#include file="conn.inc"-->
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>显示文章内容</title>
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="Microsoft Border" content="none">
<style type="text/css">
<!--
	a:visited,a:link  {  text-decoration: none; color: #003399}
	a:hover {  text-decoration: none; color: #3333FF}
	a.linkwhite:link,a.linkwhite:visited { text-decoration:none; color:white}
	a.linkwhite:hover { text-decoration: underline; color:white}
	a.linkblack:link,a.linkblack:visited { text-decoration:none; color:black}
	a.linkblack:hover { text-decoration: underline; color:black}
	input { font-family: "宋体"; font-size: 9pt}
	td {  font-family: "宋体"; font-size: 9pt; color: #000000}
	.en {  font-family:"Verdana", "Arial"; font-size: 9pt}
	.white {  color: #FFFFFF}
	.line {  line-height: 20px}
	.title { font-size: 14px }
-->
</style>

</head>

<body bgcolor="#FFFFFF">
<%
Check Request("SerialNum")

Num=Request("Num")
If Num="" then
Response.Write "<center><font size=4 color=green><b><i>Every One Is  Welcom!</i></b></font></center>"
Response.End
End If

sql="SELECT * FROM ever_user WHERE UID IN ("
sql=sql & "SELECT UID FROM current_user WHERE SerialNum='" & Request("SerialNum") & "')"
Set  Save_Rs=conn.Execute(sql)
If Save_Rs.Eof OR Save_Rs.Bof Then
Response.Write "您的帐号已经过期，请重新登录或注册新的用户.<br>"
Response.End
Else
If IsNull(Save_Rs("HowMany")) Then
HaveRead=0
Else
HowMany=Save_Rs("HowMany")
End If
HowMany=HowMany+1
sql="UPDATE ever_user SET HowMany=" & HowMany & " WHERE UID='" & Save_Rs("UID") & "'"
conn.Execute(sql)
End If

sql="SELECT * FROM details WHERE Num=" & Num
Set Rs=conn.Execute(sql)
On error resume next
Rs.MoveFirst
newhits=Rs("VisitTimes")+1
sql="UPDATE details SET VisitTimes=" & newhits & "  WHERE Num=" & Num
conn.Execute sql
%>

<table border="2" width="100%" cellspacing="4" height="163">
  <tr>
    <td width="100%" height="17"><b><font size="2">文章标题：</font><big><% =Rs("Theme")%></big></b></td>
  </tr>
<% If Rs("Email")="" Then %>
  <tr>
    <td width="100%" height="17"><b><font size="2">文章作者：</font><big><% =Rs("UID")%></big></b></td>
  </tr>
<%Else %>
  <tr>
    <td width="100%" height="21"><b><font size="2">文章作者：</font><big><a
    href="mailto:<% =Rs("Email")%>"><% =Rs("UID")%></a></big></b></td>
  </tr>
<%End If %>
  <tr>
    <td width="100%" height="17"><b><font size="2">发表时间：</font><big><% =Rs("DateAndTime")%></big></b></td>
  </tr>
<% If Rs("HomePage")<>"" then %>
  <tr>
    <td width="100%" height="21"><b><font size="2">个人主页：</font><big><a
    href="<% =Rs("HomePage")%>"><% =Rs("HomePage")%></a></big></b></td>
  </tr>
<% End If %>
  <tr>
    <td width="100%" height="-1"><b><% =Rs("Content")%>
      </b>
</td>
  </tr>
<%If Rs("child")<>""  AND  Rs("child")<>"0" then %>
<%End If
%>


<p><strong><font size="2">请回复</font></strong></p>           
           
<form method="POST" action="save.asp">           
  <input type="hidden" name="parentid" value="<%=Rs("Num")%>"><input type="hidden"           
  name="SerialNum" value="<%=Request("SerialNum")%>"><p><b><font size="2">主题：</font><input           
  type="text" name="Theme" size="50" value="R:<%=Rs("Theme")%>"           
  style="background-color: rgb(192,192,192); color: rgb(128,0,0)"><br>           
  <font size="2">内容：</font></b><br>           
  <textarea rows="8" name="Content" cols="50"           
  style="background-color: rgb(192,192,192); color: rgb(128,0,0)"></textarea></p>           
  <p><input type="submit" value="Submit" name="B1"><input type="reset" value="Reset"           
  name="B2"></p>           
</form>           
<%           
Rs.close           
Set Rs=Nothing           
%>           
</body>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -