📄 wishindex.asp
字号:
<!--#include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<!--#include file="inc/css.asp"-->
<script Language="JavaScript">
tPopWait=50;
tPopShow=5000;
showPopStep=20;
popOpacity=99;
sPop=null;
curShow=null;
tFadeOut=null;
tFadeIn=null;
tFadeWaiting=null;
document.write("<style type='text/css'id='defaultPopStyle'>");
document.write(".cPopText { background-color: #F8F8F5;color:#000000; border: 1px #000000 solid;font-color: font-size: 12px; padding-right: 4px; padding-left: 4px; height: 20px; padding-top: 2px; padding-bottom: 2px; filter: Alpha(Opacity=0)}");
document.write("</style>");
document.write("<div id='dypopLayer' style='position:absolute;z-index:1000;' class='cPopText'></div>");
function showPopupText(){
var o=event.srcElement;
MouseX=event.x;
MouseY=event.y;
if(o.alt!=null && o.alt!=""){o.dypop=o.alt;o.alt=""};
if(o.title!=null && o.title!=""){o.dypop=o.title;o.title=""};
if(o.dypop!=sPop) {
sPop=o.dypop;
clearTimeout(curShow);
clearTimeout(tFadeOut);
clearTimeout(tFadeIn);
clearTimeout(tFadeWaiting);
if(sPop==null || sPop=="") {
dypopLayer.innerHTML="";
dypopLayer.style.filter="Alpha()";
dypopLayer.filters.Alpha.opacity=0;
}
else {
if(o.dyclass!=null) popStyle=o.dyclass
else popStyle="cPopText";
curShow=setTimeout("showIt()",tPopWait);
}
}
}
function showIt(){
dypopLayer.className=popStyle;
dypopLayer.innerHTML=sPop;
popWidth=dypopLayer.clientWidth;
popHeight=dypopLayer.clientHeight;
if(MouseX+12+popWidth>document.body.clientWidth) popLeftAdjust=-popWidth-24
else popLeftAdjust=0;
if(MouseY+12+popHeight>document.body.clientHeight) popTopAdjust=-popHeight-24
else popTopAdjust=0;
dypopLayer.style.left=MouseX+12+document.body.scrollLeft+popLeftAdjust;
dypopLayer.style.top=MouseY+12+document.body.scrollTop+popTopAdjust;
dypopLayer.style.filter="Alpha(Opacity=0)";
fadeOut();
}
function fadeOut(){
if(dypopLayer.filters.Alpha.opacity<popOpacity) {
dypopLayer.filters.Alpha.opacity+=showPopStep;
tFadeOut=setTimeout("fadeOut()",1);
}
else {
dypopLayer.filters.Alpha.opacity=popOpacity;
tFadeWaiting=setTimeout("fadeIn()",tPopShow);
}
}
function fadeIn(){
if(dypopLayer.filters.Alpha.opacity>0) {
dypopLayer.filters.Alpha.opacity-=1;
tFadeIn=setTimeout("fadeIn()",1);
}
}
document.onmouseover=showPopupText;
</script>
<title><%=WebsiteName%></title>
</head>
<body topmargin="0" background="images/bg.gif">
<!--#include file="top.asp"-->
<div align="center">
<center>
<table border="0" width="755" cellspacing="0" cellpadding="0">
<tr>
<td width="189" style="background-color: #FFFFFF; border-left: 1 solid #000000; border-top: 1 solid #000000; border-bottom: 1 solid #000000" valign="top">
<!--#include file="left.asp"-->
</td>
<td width="562" style="background-color: #FFFFFF; border: 1 solid #000000" valign="top">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<!--#include file="navigation.asp"-->
<tr>
<td width="27%" valign="top">
<img border="0" src="images/wishlogo.gif" width="203" height="125">
</td>
<td width="73%" valign="top">
<p style="line-height: 150%; margin-left: 40"><br>
<font color="#990000">一九三二年我从英伦回到上海，见到了梦中的他，只<br>
是勉强的握握手，然后擦肩而去。我在黄埔滩上留下<br>
了心愿，然后等待着英伦的那段梦缘……<br>
</font>[ <a href="wishnew.asp">我要留下心愿</a> ] [ <a href="wishindex.asp">刷新祈愿本</a>
]
</td>
</tr>
<tr>
<td width="100%" valign="top" colspan="2" height="10">
<div align="right">
<table border="0" width="38%" cellspacing="0" cellpadding="0">
<%
SQL="Select * From 真情祝福 Order by ID desc"
Set RS=Server.CreateObject("ADODB.Recordset")
RS.Open SQL,Connstr,1,1
IF Not RS.EOF Then
const WishMaxperpage=24 '定义每一页显示的数据记录的常量
dim currentpage '定义当前页的变量
rs.pagesize=WishMaxperpage
currentpage=request.querystring("pageid")
if currentpage="" then
currentpage=1
elseif currentpage<1 then
currentpage=1
else
currentpage=clng(currentpage)
if currentpage > rs.pagecount then
currentpage=rs.pagecount
end if
end if
'如果变量currentpage的数据类型不是数值型
'就1赋给变量currentpage
if not isnumeric(currentpage) then
currentpage=1
end if
dim totalput,n '定义变量
totalput=rs.recordcount
if totalput mod WishMaxperpage=0 then
n=totalput\WishMaxperpage
else
n=totalput\WishMaxperpage+1
end if
if n=0 then
n=1
end if
rs.move(currentpage-1)*WishMaxperpage
i=1
%>
<tr>
<td width="100%">
<p style="margin-bottom: 4"><%k=currentpage
if k<>1 then%><a href="wishindex.asp?pageid=1">第一页</a><font color="#990000">｜</font><a href="wishindex.asp?pageid=<%=k-1%>">上一页</a><%else%>第一页<font color="#990000">｜</font>上一页<%end if%><font color="#990000">｜</font><%if k<>n then%><a href="wishindex.asp?pageid=<%=k+1%>">下一页</a><font color="#990000">｜</font><a href="wishindex.asp?pageid=<%=n%>">尾 页</a><%else%>下一页<font color="#990000">｜</font>尾 页<%End IF%></p>
</td>
</tr>
</table>
</div>
</td>
</tr>
<tr>
<td width="100%" valign="top" colspan="2">
<div align="center">
<center>
<table border="0" width="90%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" bgcolor="#990000" height="1"></td>
</tr>
<tr>
<td width="100%">
<div align="left">
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<%
Do While I< WishMaxperpage+1 And Not RS.EOF
'Do While Not RS.EOF
%>
<td width="85">
<p align="center"><a href="wishdisplay.asp?id=<%=RS("ID")%>"><img border="0" src="images/wish/<%=RS("类型")%>.gif" title="许 愿 者：<%=RS("姓名")%><BR>性 别：<%IF RS("性别")="女" Then%>女孩<%Else%>男孩<%End IF%><BR>愿望类型：<%IF RS("类型")="family" Then%>家庭<%ElseIF RS("类型")="school" Then%>学校<%ElseIF RS("类型")="life" Then%>生活<%ElseIF RS("类型")="health" Then%>健康<%ElseIF RS("类型")="career" Then%>事业<%ElseIF RS("类型")="future" Then%>未来<%ElseIF RS("类型")="love" Then%>恋爱<%ElseIF RS("类型")="riches" Then%>财富<%End IF%><BR>许愿时间：<%Date1=RS("发布时间")
Date2=Year(Date1)&"-"&Month(Date1)&"-"&Day(Date1)
Response.Write Date2%><BR>"></a></td>
<%
IF I Mod 6=0 Then
Response.Write "</tr><tr><td height=10></td></tr><tr>"
End IF
RS.MoveNext
I=I+1
Loop
%>
</tr>
</table>
</div>
</td>
</tr>
<%
Else
%>
<%End IF%>
<tr>
<td width="100%" bgcolor="#990000" height="1"></td>
</tr>
<tr>
<td width="100%" height="1"></td>
</tr>
</table>
</center>
</div>
</td>
</tr>
<tr>
<td width="100%" valign="top" colspan="2">
<div align="right">
<table border="0" width="38%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%">
<p style="margin-top: 5"> <%k=currentpage
if k<>1 then%><a href="wishindex.asp?pageid=1">第一页</a><font color="#990000">｜</font><a href="wishindex.asp?pageid=<%=k-1%>">上一页</a><%else%>第一页<font color="#990000">｜</font>上一页<%end if%><font color="#990000">｜</font><%if k<>n then%><a href="wishindex.asp?pageid=<%=k+1%>">下一页</a><font color="#990000">｜</font><a href="wishindex.asp?pageid=<%=n%>">尾 页</a><%else%>下一页<font color="#990000">｜</font>尾 页<%End IF%></td>
</tr>
</table>
</div>
</td>
</tr>
<tr>
<td width="100%" valign="top" colspan="2">
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
<!--#include file="bottom.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -