📄 mainnote2.asp
字号:
<!--#include file="config.inc"-->
<%
connstring = "DRIVER={Microsoft Access Driver(*.mdb));"
connstring = connstring & "DBQ=" & server.mappath("shopping.mdb")
pagesize=3
timeoutsession=5
session.timeout=timeoutsession
function sqlstr(data)
sqlstr="'" & Replace(data,"'","''")& "'"
end function
%>
<html>
<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"> 你的位置：会员社区</font><hr color="#999933" size=1>
<br><a style="color:blue;cursor:hand;font:10pt;text-decoration:underline"
onclick="window.open('noteadd.htm','_blank','toolbars=no,scrollbars=yes,width=470,height=440')">添加新留言</a>
</font>
<table width=570 border=0 cellpadding=0 cellspacing=1 bordeolor=#baccff>
<%
dim ipagesize
ipagesize=15
page=request.querystring("page")
if page=" " then
page=1
end if
set conn=server.createobject("adodb.connection")
conn.open connstring
set objnoters=server.createobject("adodb.recordset")
ssql="select * form notebook order by notetime desc"
objnoters.open ssql,conn,1,3
'jackexu,complete database open
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><td width=40>阅读数</td></tr>"
objnotes.pagesize=ipagesize'jacke,每页 显示的记录数
pagetotal=objnoters.pagecount
objnoters.absolutepage=page'jacke,转到要显示的页
response.write"<tr><td colspan=""6""><table width=""100%"" border=0 cellspacing=0 cellpadding=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"
onclik="window.open('noteview.asp?noteid<%=objnoters("noteid")%>','_blank','toolbars=no,scrollbars=yes,width=320,
height=300')"><%=objnoters("subject")%></a>
<%
response.write"<td>"
response.write"<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>"
objoters.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=#ccooff>"&pagetemp&"></font>
else
%>
<font color=#009900>
<a href="mainnote.asp?page=<%=pagetemp%>"><%=pagetemp%></a></font>
<%
end if
next
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -