📄 look.asp
字号:
<%
response.buffer=false
Set Conn=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("bbsdb.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
%>
<html>
<head>
<title></title>
</head>
<body bgcolor="#CCFFFF" link="#000080" vlink="#008080" >
<table width="340" border="0" cellspacing="0" cellpadding="0" align="right" bgcolor="#FFFFCC">
<tr align="center">
<td width="138" height="20" nowrap><font color="#CCFFFF"><a href="item1.asp?No=<%Response.Write Request("No")%>">我要设立新主题</a></font></td>
<td width="83" height="20" nowrap><font color="#CCFFFF"><a href="quit.asp?No=<%Response.Write Request("No")%>">离开论坛</a></font></td>
<td width="113" height="20" nowrap><font color="#CCFFFF"><a href="login.asp">管理员入口</a></font></td>
</tr>
</table>
<p> </p>
<p><%
sql="SELECT * FROM info WHERE forder=1 ORDER BY ID DESC"
dim rootRs
Set rootRs=Server.CreateObject("ADODB.RecordSet")
rootRs.Open sql,conn,1
If rootRs.Bof OR rootRs.Eof Then
%>
<script language=javascript>
<!--
if (!confirm("目前还没有发言内容。想发言吗？"))
window.history.go(-1);
//-->
</script>
<%
else
set name1=rootrs("subject")
set name2=rootrs("username")
set name3=rootrs("recallnm")
set name4=rootrs("email")
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
%><br>
<table border="1" cellspacing="0" width="650" height="20"
bgcolor="#FFCCFF" cellpadding="4" align="center"><tr bgcolor="#CCFFCC">
<td width="95" valign="top"><font color="#800000">发起人</font>
<td width="295" valign="top">标题
<td width="95" valign="top">回复次数
<td width="145" valign="top">浏览
</tr>
<%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="look2.asp?Num=<%Response.Write Num%>&No=<%Response.Write Request("No")%>">论谈内容</a>
</tr>
<%
rootRs.MoveNext
RowCount=RowCount-1
Loop
End If
%>
</table>
<%
If rootRs.pagecount>1 then
%>
<p> </p>
<table border=0 cellpadding="0" cellspacing="0" width="126" align="center">
<tr bgcolor="#FFFFCC">
<td nowrap>论题分页：</td>
<%
For i=1 to rootRs.pagecount
%>
<td nowrap bgcolor="#99FFFF"><a href='look.asp?page=<%= i%>&No=<%= Request("No") %>'>
[<b> <%=i%> </b>]</a> </td>
<%
next
%>
</table>
<%
End if
End if
rootRs.close
Set rootRs=nothing
conn.close
Set conn=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -