wish.asp
来自「飞天论坛FTBBS PHP版 v4.1.ASP源代码」· ASP 代码 · 共 109 行
ASP
109 行
<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<html>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<head>
<title><%=title%></title>
<SCRIPT src="tip.js" type=text/javascript></SCRIPT>
<style type="text/css">
<!--
body,table,td,p,th { font-size: 9pt}
a { text-decoration: none;color:<%=linkcolor%>}
a:hover { text-decoration: none}
#tipBox {
BACKGROUND: #ffffff; BORDER-BOTTOM: black 1pt solid; BORDER-LEFT: black 1pt solid; BORDER-RIGHT: black 1pt solid; BORDER-TOP: black 1pt solid; FONT-FAMILY: 宋体; FONT-SIZE: 9pt; POSITION: absolute; VISIBILITY: hidden; padding:2 ;Z-INDEX: 100
}
-->
</style>
</head>
<body bgcolor="<%=bgcolor%>" text="<%=textcolor%>" link="<%=linkcolor%>">
<div align="center">
<table align=center cellpadding=2 cellspacing=1 width=550 border=1 bordercolor=#6284C1>
<tr>
<td align=center>
<font color="<%=titlelightcolor%>"><%=title%></font>
</td>
</tr>
</table>
<br>
<div align="center">
<center>
<DIV id=tipBox></DIV>
<table border="0" cellpadding="0" cellspacing="0" width="490" align=center>
<tr>
<td valign="bottom" colspan="5"><img src="IMG/Standtop.gif" width="500" height="95"></td>
</tr>
<tr>
<td align="right" valign="top" width="50"><img src="img/standleft.gif" width="15" height="200"></td>
<td valign="top" width="380" background="img/standbg.gif" style="padding:5">
<%
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from wish order by id desc"
rs.open sql,conn,1,1
if not (rs.bof or rs.eof) then
page=request.querystring("page")
pmcount=24 '每页显示记录数
rs.pagesize=pmcount
maxpage=rs.pagecount
total=rs.recordcount
if isempty(page) or cint(page)<1 or cint(page)>maxpage then
page=1
end if
rs.absolutepage=page
rc=rs.pagesize
re=1
for i=1 to 4
for x=1 to 6
if rs.eof and rc>0 then exit for
%>
<a href ="wishshow.asp?id=<%=rs("id")%>" onmouseover="this._tip = '<font color=#808080>有<%=rs("counter")%>人看过<br><%=rs("name")%>(<%=rs("sex")%>)的愿望</font><br><font color=#5a5a5a>请按此看看</font>'">
<img src="img/<%=rs("wishtype")%>/card.gif" width=50 height=30 border=0></a>
<%
rs.movenext
next
if rs.eof and rc>0 then exit for
response.write "<br>"
next
end if
%>
</td>
<td valign="top" width="15"><img src="img/standleft.gif" width="15" height="200"></td>
<td valign="top" width="50"><a href="lucky.asp" target="_blank" onmouseover="this._tip = '<font color=<%=linkcolor%>>按此看看今日运程</font>'" onclick="window.open('lucky.asp','Luck','width=158,height=297,scrollbars=no'); return false;"><img src="img/luck.gif" border="0" width="50" height="100"></a><br><a href="write.asp"><img src="img/chim.gif" border="0" width="50" height="100"></a></td>
<td valign="top" width="50"><img src="img/standleft.gif" width="15" height="200"></td>
</tr>
</table>
</center>
</div>
<br>
<div align="center">
<table align=center cellpadding=2 cellspacing=1 width=552 border=1 bordercolor=#6284C1>
<tr>
<td align="center" bgcolor=<%=titledarkcolor%> width="130"><a href="write.asp"><font color="ffffff">写下愿望</font></a></td>
<td align="center" bgcolor=<%=titledarkcolor%> width="268"><font color="ffffff">
页数【
<%
for num=1 to maxpage
if num=cint(page) then
response.write num
else
response.write "<b> <a href=wish.asp?page=" & num & ">" & num & "</a> </b>"
end if
next
%>
】</font></td>
<td align="center" width="130" bgcolor=<%=titledarkcolor%>>
<p align="center"><font color="ffffff">现有<font color="ff0000"><b><%=rs.recordcount%></b></font>个祈愿</p>
</td>
</tr>
</table>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?