up.asp
来自「该软件是用asp编写的」· ASP 代码 · 共 155 行
ASP
155 行
<body bgcolor="#303880">
<TABLE width=760 border=0 align="center" cellPadding=0 cellSpacing=0 bgColor=#ffffff>
<TBODY>
<TR>
<TD bgColor=#ffa200 class=bodyleft width=7><IMG height=1
src="img/blank.gif" width=7></TD>
<TD height=50 vAlign=top width=743> <TABLE background=img/dclm_bg3.gif border=0
cellPadding=0 cellSpacing=0 height=25 width=743>
<TBODY>
<TR>
<TD align=middle background=img/dclm_bg1.gif
height=20 width=28> </TD>
<TD align=left background=img/dclm_bg1.gif
width=75> <TABLE border=0 cellPadding=0 cellSpacing=0 width="99%">
<TBODY>
<TR>
<TD class=font_menu4 height=19 vAlign=bottom><FONT
color=#000000><B
class=btd>友情链接</B></FONT></TD>
</TR>
</TBODY>
</TABLE></TD>
<TD align=right vAlign=bottom> </TD>
<TD width=45></TD>
</TR>
</TBODY>
</TABLE>
<table border=0 cellspacing=0 cellpadding=3 align=center>
<%
db="../qt/link/link.mdb"
set conn=server.createobject("ADODB.connection") '连接数据库
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("" & db & "")
conn.open connstr
%>
<%
msg_per_page = 12
set rs=server.createobject("adodb.recordset")
sql="select * from link where yanzheng='good' 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 6 = 0 then
response.write("<tr>")
end if
%>
<td align=center width=110 height=60> <table width=100 height=50 cellspacing=0 cellpadding=0 bgcolor=#cccccc border="0">
<tr bgcolor=#ffffff height=40>
<td align=center><a href="<%=rs("url")%>" target=_blank>
<img src="<%=rs("imgurl")%>" border=0 alt="<%=rs("readme")%>" width=88 height=31></a>
<tr bgcolor=#ffffff>
<td align=center><%=rs("site")%>
</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 6<>0 then
for i=1 to 6-(therow mod 6)
response.write("<td width=110 height=60> ")
next
end if
%>
</table>
<br> <table border="0" align="center">
<tr>
<td align="center" valign="middle"> <%call listPages()%> </td>
</tr>
</table>
<%
sub listPages()
for i=0 to n\msg_per_page-1
for j=1 to msg_per_page
%> <%
next
next
EndPage = n mod msg_per_page
for j=1 to EndPage
%> <%next%> <%end sub%>
</TD>
<TD bgColor=#ffa200 class=bodyright width=6><IMG height=1
src="img/blank.gif" width=6></TD>
</TR>
</TBODY>
</TABLE>
<TABLE width=760 border=0 align="center" cellPadding=0 cellSpacing=0 bgColor=#ffa200>
<TBODY>
<TR>
<TD class=leftbottom height=7 width=7><IMG height=9
src="img/blank.gif" width=7></TD>
<TD class=topbottom><IMG src="img/blank.gif"></TD>
<TD class=rightbottom width=6><IMG
src="img/blank.gif"
width=6></TD>
</TR>
</TBODY>
</TABLE>
<BR>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width=750>
<TBODY>
<TR>
<TD align=middle colSpan=3 height=30><div align="center"><FONT color=#FFFFFF>站点简介</A>
- 联系方法 - 客户服务 - 意见反馈 - 相关法律
- 广告服务 - 帮助中心</FONT> </div></TD>
</TR>
<TR>
<TD width=227><font color="#FFFFFF"> </font></TD>
<TD align=middle class=p2 width=285><font color="#FFFFFF">易63（长春）网络版权所有
© 2003-2005<BR>
</font></TD>
<TD width=238><font color="#FFFFFF"> </font> </TD>
</TR>
</TBODY>
</TABLE>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?