📄 vew.asp
字号:
<%
Set Cnn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.recordset")
StrCnn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("..\base\dumm.mdb")
Cnn.Open StrCnn
rs.open "select * from 发表 where id = " & int(Request("Num")) & "",cnn
session ("num1") = int(Request("Num"))
%>
<html>
<head>
<title>新生代论坛</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
td { font-family: "宋体"; font-size: 9pt; line-height: 25pt; color: #666666}
a { font-family: "宋体"; font-size: 9pt; color: #9900CC; text-decoration: none}
a:hover { font-family: "宋体"; font-size: 9pt; color: #FF0000; text-decoration: underline}
-->
</style>
<script language="JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
// -->
</script>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<div id="Layer1" style="position:absolute; left:188px; top:124px; width:54px; height:18px; z-index:1; visibility: hidden">
<script>
var tc_user="cenozoic1";
var tc_class="15";
var tc_union="";
var tc_type="1";
</script>
<script src="http://stat.t2t2.com/stat.js"></script>
</div>
<table width="750" border="1" cellspacing="0" cellpadding="0" bordercolor="#00CCFF">
<tr>
<td width="197" bgcolor="#588CC8">主题：
<%if not rs.eof then %>
<%=server.htmlencode (rs("文章主题"))%>
<%end if%>
</td>
<td width="223" bgcolor="#588CC8">发贴时间：
<%if not rs.eof then
response.write (rs("时间"))
end if%>
</td>
<td width="107" align="center" bgcolor="#6699CC"><a href="javascript:history.go(-1)">快速返回</a></td>
<td width="213" bgcolor="#6699CC" align="center"> </td>
</tr>
<tr align="center">
<td colspan="4" height="55">
<table width="432" border="0" cellspacing="5" cellpadding="0">
<tr>
<td width="120" align="center"><img src="../../logo.jpg" width="88" height="31"></td>
<td width="297">欢迎发表相关文章。</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="197" bgcolor="#6699CC">作者：
<%if not rs.eof then %>
<%=server.htmlencode (rs("发表人"))%>
<%end if%>
</td>
<td width="223" bgcolor="#6699CC"> </td>
<td width="107" align="center" bgcolor="#6699CC"><a href="huifu.htm">回复</a></td>
<td width="213" bgcolor="#6699CC"> </td>
</tr>
<tr>
<td colspan="4">
<%if not rs.eof then %>
<%=rs("文章内容")%>
<%end if
rs.close
%>
<%rs.open "update 发表 set 查看= 查看 + 1 where id=" & int(Request("Num")) & "",cnn%>
</td>
</tr>
<tr>
<td colspan="4" bgcolor="#CCFFFF"> </td>
</tr>
<tr>
<td colspan="4">
<%set re = Server.CreateObject("ADODB.recordset")
re.open "SELECT * FROM 回复 WHERE 标识=" & int(Request("Num")) & "",cnn
while not re.eof%>
</td>
</tr>
<tr>
<td width="197" bgcolor="#6699CC">回复主题：
<%if not re.eof then %>
<%server.htmlencode (re("回复主题"))%>
<%end if%>
</td>
<td width="223" bgcolor="#6699CC">回复时间：
<%if not re.eof then
response.write (re("时间"))
end if%>
</td>
<td width="107" bgcolor="#6699CC"> </td>
<td width="213" bgcolor="#6699CC">作者：
<%if not re.eof then
response.write (re("回复人"))
end if%>
</td>
</tr>
<tr>
<td colspan="4">
<%if not re.eof then %>
<%=re("回复内容")%>
<%end if
%>
</td>
</tr>
<tr>
<td colspan="4" bgcolor="#CCFFFF"> </td>
</tr>
<tr>
<td colspan="4">
<%re.movenext
wend%>
</td>
</tr>
</table>
<%cnn.close%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -