📄 mainnote.asp
字号:
<!-- #include file="config.inc" -->
<html>
<head><title></title>
<style>
<!--
.class1{font:10pt;color:#000080;border-width:1;}
td{font:10pt;}
-->
</style>
</head><body style="font:10pt;margin-left:4pt">
<font color="#ff0000">您的位置：BBS社区</font>
<hr color="#999933" size=1>
<br><a style="color:blue;cursor:hand;font:10pt;text-decoration:underline"
onclick="window.open('noteadd.html','_blank','toolbars=no,scrollbars=yes,width=470,height=440')">
添加新的留言</a> <font style="font:10pt;color:=#CC66FF">如果您看不到您的留言，
单击刷新按钮，稍后就可</font>
<table width=570 border=0 cellPadding=0 cellSpacing=1 bordercolor="#baccff">
<%
dim ipagesize
ipagesize=15
page=request.querystring("page")' 取得客户段利用get方法传递的数据
if page="" then
page=1
end if
set conn=server.createobject("adodb.connection")'创建connectiong 对象，用来建立数据源和ADO 程序之间的联系
conn.open connstring
set objnoters=server.createobject("adodb.recordset")
ssq1="select * from notebook order by notetime desc"
objnoters.open ssq1,conn,1,3
if objnoters.eof then
response.write"目前还没有任何文章信息"
response.end
end if
response.write "<tr bgcolor=#baccff class=class1 align=center ><td width=50>序号</td><td width=140>主题</td><td width=70>作者</td><td width=140>E-mail</td><td width=130>留言时间</td></tr>"
objnoters.pagesize=ipagesize
pagetotal=objnoters.pagecount
objnoters.absolutepage=page
response.write"<tr><td colspan=""6""><table width=""100%"" border=0 cellspacing=0 cellspacing=2 bgcolor=#eeeeee>"
for position=1 to ipagesize
response.write"<tr align=center><td width=50>"
if objnoters("status")=0 then
response.write cint(right(objnoters("noteid"),5))
else
response.write "<font color=#ff00ff>回文 < /font>"
end if
response.write"</td>"
response.write"<td width=150>"
%>
<a style="cursor:hand;color:blue;text-decoration:underline"
onclick="window.open('noteview.asp?noteid=<%=objnoters("noteid")%>','_blank','toolbars=no,scrollbars=yes,width=320,height=300')"
<%=objnoters("subject")%></a>
<%
response.write"</td>"
response.writer"<td width=70>"& objnoters("userid")&"</td>"
response.write"<td width=140>"
%><a href="mailto:<%=objnoters("email")%>"<%=objnoters("email")%></a>
<%
response.write"</td>"
response.write"<td width=130>"& objnoters("notetime")&"</td>"
response.write"<td width=40>"&objnoters("readnum")&"</td></tr>"
objnoters.movenext
if objnoters.eof then
exit for
end if
next
%></table></td></tr>
</table>
<%
response.write " 页码:"
for pagetemp=1 to pagetotal
if pagetemp=cint(page) then
response.write"<font color=#cc00ff>"&PAGETEMP &"></font>"
response.wrie"<font color=#cc0ff>"&"></font>"
else
%>
<font color=#009900>
<a href="mainnote.asp?page=<%=pagetemp%></a>></font>
<%
end if
next
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -