📄 view.asp
字号:
<!-- #include File="viewfunc.asp" -->
<html>
<head>
<style>
<!--
.main { font-size: 9pt }
-->
</style>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>论坛首页</title>
<script Language="JavaScript">
function ChkFields() {
if (document.formadd.Subject.value=='') {
window.alert ("请输入主题！");
formadd.Subject.focus();
return false
}
if (document.formadd.Subject.value.length>50) {
window.alert ("主题超长！");
formadd.Subject.focus();
return false
}
if (document.formadd.Words.value.length>1000) {
window.alert ("留言内容超长！");
formadd.Words.focus();
return false
}
return true
}
</script>
</head>
<body topmargin="0" background="images/Back.jpg" vlink="#000000" link="#000000">
<%
'接受留言编号
ContId = CLng(Request("ContId"))
'=============连接数据库===============
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.ConnectionString="driver={SQL Server};server=JINWEN;UID=sa;PWD=821026;Database=Discuss"
Conn.Open
'人气加1
Conn.Execute("UPDATE Content Set HitCount = HitCount + 1 WHERE ContId=" & ContId)
'============从表Content中读取数据==============
Set rs=Server.CreateObject("ADODB.Recordset")
Set rs.ActiveConnection = Conn
rs.CursorType = 3
'打开记录集
rs.Open "SELECT * FROM Content WHERE ContId=" & ContId
'============读取回帖数据==============
Set rs1=Server.CreateObject("ADODB.Recordset")
Set rs1.ActiveConnection = Conn
rs1.CursorType = 3
'打开记录集
rs1.Open "SELECT * FROM Content WHERE UpperId=" & ContId & " ORDER BY LastAnswerTime DESC"
%>
<div align="center">
<center>
<table width="714" border="0" height="218" cellspacing="0" cellpadding="0">
<tr> <td height="112"><img border="0" src="images/Titlebar.jpg"></td> </tr>
</center>
<tr> <td height="18" class="main">
<p align="right" class="main"><a href="index.asp">返回首页</a>
</td></tr>
<tr> <td height="18" class="main">
<% If rs.EOF Then
Response.Write("此帖不存在，可能已经被删除")
Else
Call ShowArticle(rs)
Do Until rs1.EOF
Call ShowArticle(rs1)
rs1.MoveNext
Loop
End If
%>
</td></tr>
<% If Session("UserName") <> "" Then %>
<tr> <td height="15">
<p align="center" class="main"></p>
</td></tr>
<tr> <td height="15">
<p align="center"><b><font color="#0000FF">欢迎回帖</font></b> </td></tr>
<tr> <td height="15">
<form method="POST" action="artSave.asp?UpperId=<%=ContId%>" name="formadd" onsubmit = "return ChkFields()">
<table align="center" border="1" cellpadding="1" cellspacing="1" width="473" bordercolor="#008000" bordercolordark="#FFFFFF" height="108">
<tr>
<td align=left bgcolor="#E1F5FF" width="77" height="24" class="main">用户名</td>
<td width="380" height="24" class="main"> <%=Session("UserName")%></td>
</tr>
<tr>
<td align=left bgcolor="#E1F5FF" width="77" height="23" class="main">标题</td>
<td width="380" height="23" class="main"><input name="Subject" size="51"></td>
</tr>
<tr>
<td align=left bgcolor="#E1F5FF" width="77" height="43" class="main" valign="top">具体内容</td>
<td width="380" height="43" class="main" valign="top"><textarea rows="4" name="Words" cols="50"></textarea></td>
</tr>
</table>
<p align="center"><input type="submit" value="提交" name="B1"><input type="reset" value="全部重写" name="B2"></p>
</form>
</td></tr>
<% End IF %>
<tr> <td height="15"> </td></tr>
<tr> <td height="15"> <p align="center" class="main"></td></tr>
</table>
</body>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -