📄 vew.asp
字号:
<%
Set Conn=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("bbspp1.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;"
Conn.Open connstr
%>
<body bgcolor="#CCCCCC" link="#000080" vlink="#008080">
<P>
<a href="wordadd1.asp?No=<%Response.Write Request("No")%>">我要发言</a>
<a href="leave.asp?No=<%Response.Write Request("No")%>">离开论坛</a>
<a href="adminlogin.asp">管理员入口</a><p><br>
<%
sql="SELECT * FROM 发言表 WHERE 发言次序=1 ORDER BY ID DESC"
dim rootRs
Set rootRs=Server.CreateObject("ADODB.RecordSet")
rootRs.Open sql,conn,1,1
If rootRs.Bof OR rootRs.Eof Then
Response.Write "目前还没有发言内容。"
else
set name1=rootrs("发言标题")
set name2=rootrs("用户名")
set name3=rootrs("回复数")
set name4=rootrs("电子信箱")
set Num=rootrs("Num")
rootRs.pagesize=10
rootRs.AbsolutePage =1
if Request("page")<>"" then rootRs.AbsolutePage =Request("page")
RowCount =rootRs.pagesize
If Not rootRs.Eof Then
%>
<table border="1" cellspacing="0" width="650" height="20"
bgcolor="#FFFFFF" cellpadding="4">
<%Do While Not rootRs.Eof AND RowCount>0%>
<tr>
<td width="95" valign="top"><font color="#800000"><a href="mailto:<%Response.Write name4%>"><%Response.Write Name2%></a></font>
<td width="295" valign="top"><font color="#800000"><%Response.Write Name1%></font>
<td width="95" valign="top"><font color="#800000"><%Response.Write Name3%>人回复</font>
<td width="145" valign="top"><a href="vew2.asp?Num=<%Response.Write Num%>&No=<%Response.Write Request("No")%>">言论内容</a></font>
</tr>
<%rootRs.MoveNext
RowCount=RowCount-1
Loop
End If
If rootRs.pagecount>1 then
Response.Write "<table border='0'>"
Response.Write "<tr>"
Response.Write "<td><b>帖子分页：</b></td>"
For i=1 to rootRs.pagecount
Response.Write "<td><a href='vew.asp?page=" & i & "&No=" & Request("No") & "'>"
Response.Write "[<b>" & i & "</b>]</a>"
Response.Write "</td>"
Next
Response.Write "</tr></table>"
End if
End if
rootRs.close
Set rootRs=nothing
conn.close
Set conn=nothing
%> </p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -