?? home.asp
字號:
<!--
'******************************以下信息切記一定不要刪除******************************************************'
'** *****'
'** 啟迪信息平臺由www.7di.net開發完成，如果需要轉載，請保留作者的勞動成果 *****'
'** 此程序由 我（qq:9256114）和 沒有魚的水（356754）開發完成，歷時2周。 *****'
'** 我的站點是http://www.7di.net，最近正在加緊改版，歡迎提出寶貴建議。 *****'
'** 沒有魚的水的站點是http://www.heartyue.com，這是一個不錯的文學站點，由我們兩人合作完成 *****'
'** *****'
'************************************************************************************************************' -->
<body bgcolor="#FFFFFF" topmargin="0" leftmargin="0">
<p>
<div align="center">
<center>
<table width=524 height=38 cellspacing=0 cellpadding=0 border="0" style="border-collapse: collapse">
<tr bgcolor=#ffffff height=300>
<td height="36" width="524">
<table border=0 cellspacing=0 cellpadding=3 align=left width="102" height="88" bgcolor="#FFFFFF" style="border-collapse: collapse" bordercolor="#111111">
<!--#include file="conn.asp"-->
<%
dim rs
dim sql
dim row
msg_per_page = 3
set rs=server.createobject("adodb.recordset")
sql="select * from link where yanzheng='ok' order by id DESC"
rs.cursorlocation = 3
rs.pagesize = msg_per_page
rs.open sql,conn,0,1
if err.number<>0 then
response.write "數據庫操作失敗：" & err.description
err.clear
else
if not (rs.eof and rs.bof) then
totalrec = RS.RecordCount
if rs.recordcount mod msg_per_page = 0 then
n = rs.recordcount\msg_per_page
else
n = rs.recordcount\msg_per_page+1
end if
currentpage = request("page")
If currentpage <> "" then
currentpage = cint(currentpage)
if currentpage < 1 then
currentpage = 1
end if
if err.number <> 0 then
err.clear
currentpage = 1
end if
else
currentpage = 1
End if
if currentpage*msg_per_page > totalrec and not((currentpage-1)*msg_per_page < totalrec)then
currentPage=1
end if
rs.absolutepage = currentpage
rowcount = rs.pagesize
while not rs.eof and rowcount>0
if therow mod 3 = 0 then
response.write("<tr>")
end if
%><span style="font-size: 9pt"> </span>
<td align=center width=152 height=82 bgcolor="#FFFFFF">
<table width=122 height=1 cellspacing=0 cellpadding=0 bgcolor=#FFFFFF style="border-collapse: collapse">
<tr bgcolor=#ffffff height=40>
<td align=center height="14" width="127">
<span style="font-size: 9pt">
<img border="0" src="<%=rs("imgurl")%>" width=145 height=108 alt="精品回顧">
</span>
<tr bgcolor=#ffffff>
<td align=center bgcolor="#ffffff" height="1" width="160"><span style="font-size: 9pt">
<a target="_blank" href="<%=rs("url")%>" style="text-decoration: none">
<font color="#808080"><%=rs("site")%></font></a>
</span>
</table>
<%
therow=therow+1
rowcount=rowcount-1
rs.MoveNext
wend
end if
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
if therow mod 5<>0 then
for i=1 to 5-(therow mod 5)
response.write("<td width=110 height=60> ")
next
end if
%><span style="font-size: 9pt"> </span>
</table><span style="font-size: 9pt"><br>
</span>
</center>
</div>
</div>
</div>
</body>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -