📄 pray.asp

📁 5237 论坛.rar
💻 ASP
字号:
<!--#include file="Connections/connY.asp" -->
<!--#include file="Inc/Info.asp" -->
<!--#include file="Inc/TimeFormat.asp" -->
<!--#include file="Inc/UBBCode.asp" -->
<!--#include file="Inc/SetCss.asp" -->
<%
State="浏览许愿版"
%>
<html>
<head>
<title><%=Forum_Title%></title>
<meta http-equiv="Content-Type" content="text/html;">
<meta http-equiv="Expires" CONTENT="0">
<meta http-equiv="Cache-Control" CONTENT="no-cache">
<meta http-equiv="Pragma" CONTENT="no-cache">
<!--#include file="Inc/Css.asp" -->
<script language=Javascript src="Js/Menu.Js"></script>
<script language=Javascript src="Js/Button.Js"></script>
<script language=Javascript src="Js/Operate.Js"></script>
</head>
<body leftmargin="0" topmargin="0" bgcolor="<%=Forum_ColorList_BgColor%>" vlink="<%=Forum_Css_A_Link_Color%>">
<!--#include file="Inc/Top.asp" -->
<table width="<%=Forum_Width%>" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="<%=Forum_ColorList_BorderColor%>">
  <tr> 
    <td height="20" bgcolor="<%=Forum_ColorList_BgColor%>"> 
      <table width="100%" border="0" cellspacing="0" cellpadding="0" class="font">
        <tr> 
          <td width="40%">&nbsp;您所在的位置： <a href="../" onfocus="this.blur()">首页</a> 
            &gt;&gt; <a href="List.asp" onfocus="this.blur()">讨论组</a> &gt;&gt; 
            <font color="<%=Forum_ColorList_NavFontColor%>">许愿版</font></td>
          <td width="30%">
          </td>
          <td width="30%"> 
            <div align="right"><img src="<%=Forum_Pic_Open%>" width="15" height="14" border="0" alt="显示个人工具箱" onClick="ShowInfo()" style="CURSOR: hand" align="texttop"></div>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<table width="<%=Forum_Width%>" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr>
    <td height=1></td>
  </tr>
</table>
<table width="<%=Forum_Width%>" border="0" cellspacing="1" cellpadding="0" align="center" id=info style="DISPLAY: none" bgcolor="<%=Forum_ColorList_BorderColor%>">
  <tr>
    <td valign="top" bgcolor="<%=Forum_ColorList_BgColor%>"><!--#include file="Inc/Tools.asp" --></td>
  </tr>
</table>
<table width="<%=Forum_Width%>" border="0" cellspacing="0" cellpadding="0" align="center" id=infoborder style="DISPLAY: none">
  <tr>
    <td height=1></td>
  </tr>
</table>
<table width="<%=Forum_Width%>" border="0" cellspacing="1" cellpadding="2" align="center" bgcolor="<%=Forum_ColorList_BorderColor%>" class="font">
                  <%
                  Set rsWish=Server.CreateObject("ADODB.Recordset")
                  Sql="Select *  From tWishManage Order By rTime Desc"
                  rsWish.Open Sql,ConnY,3,3
				  If Not rsWish.Eof Then
                  Dim PageSize
				  Dim RowNum
                  rsWish.PageSize=35
                  PageSize=rsWish.PageSize
                  If Request("Page")<>"" Then
                  CurrentPage=Cint(Request("Page"))
                  Else
                  CurrentPage=1
                  End If
	              TotalNum=rsWish.RecordCount
	              If (TotalNum Mod PageSize)=0 Then
                  TotalPage=TotalNum \ PageSize
                  Else
                  TotalPage=TotalNum \ PageSize+1
                  End If
                  If CurrentPage<1 Then
                  CurrentPage=1
                  End If
	              If CurrentPage>TotalPage Then
                  CurrentPage=TotalPage
                  End If
                  rsWish.Move(CurrentPage-1)*PageSize
                  End If
                  %>
				  <form name="form1" method="post" action="" onsubmit="return vdf('Page','页码','NinRange1:<%=TotalPage%>');">
  <tr bgcolor="<%=Forum_ColorList_BgColor%>"> 
    <td height="16"><br>
	<div align="center"><a href="Wish.asp" onFocus="this.blur()"><font color="<%=Forum_ColorList_PFontColor%>">我要许愿</font></a>,目前共有<%=rsWish.RecordCount%>个愿望,<%
			      If CurrentPage<=1 Then
                  Response.Write "<font color="&Forum_ColorList_UFontColor&">首页 上页</font>"
                  Else 
                  Response.Write "<a href='javascript:ToPage(1)' onFocus='this.blur()'>首页</a> <a href='javascript:ToPage("&(Cint(CurrentPage)-1)&")' onFocus='this.blur()'>上页</a>"
                  End If
				  Response.Write " <font color='"&Forum_ColorList_PFontColor&"'>"&CurrentPage&"</font>/"&TotalPage&" "
                  If CurrentPage>=TotalPage Then
				  Response.Write "<font color="&Forum_ColorList_UFontColor&">下页 末页</font>"
                  Else
				  Response.Write "<a href='javascript:ToPage("&(Cint(CurrentPage)+1)&")' onFocus='this.blur()'>下页</a> <a href='javascript:ToPage("&TotalPage&")' onFocus='this.blur()'>末页</a>"
                  End If
			%> 跳转至第 
                <input type="text" name="Page" class="Textfiled_Bottom" size="1" maxlength="3">
              页 
              <input type="submit" name="Submit" class="Button_None" value="提交" onFocus="this.blur()"></div><br>
        <table width="100%" border="0" cellspacing="2" cellpadding="4" class="font" align="center">
                  <%
		          I=1
		          Response.Write "<tr>"
		          While Not rsWish.Eof And I<36 And PageSize>0
				  If rsWish("rSex") Then
				  If rsWish("rIsSecret") Then
				  WishImage=Forum_Pic_WishBoy2
				  Else
				  WishImage=Forum_Pic_WishBoy1
				  End If
				  Else
				  If rsWish("rIsSecret") Then
				  WishImage=Forum_Pic_WishGirl2
				  Else
				  WishImage=Forum_Pic_WishGirl1
				  End If
				  End If
		          Response.Write "<td height='60'><div align='center'><a href='ShowWish.asp?I="&rsWish("rID")&"' onFocus='this.blur()'><img src='"&WishImage&"' onFocus='this.blur()' alt='"&rsWish("rWho")&"许愿于"&rsWish("rTime")&"' border='0'></a></div></td>"
		          If I Mod 7 = 0 Then Response.Write "</tr><tr>"
				  I=I+1
				  PageSize=PageSize-1
				  rsWish.MoveNext
		          Wend
				  rsWish.Close
				  Set rsWish=Nothing
		          Response.Write "</tr>"
		          %>
        </table>
		<br><br>
    </td>
  </tr></form>
  </table>
<table width="<%=Forum_Width%>" border="0" cellspacing="0" cellpadding="0" align="center" id=onlineborder>
  <tr>
    <td height=1></td>
  </tr>
</table>
<table width="<%=Forum_Width%>" border="0" cellspacing="1" cellpadding="1" align="center" bgcolor="<%=Forum_ColorList_BorderColor%>" id=online>
  <tr> 
    <td valign="top" bgcolor="<%=Forum_ColorList_OnlineColor%>"> 
      <!--#include file="Inc/Online.asp" -->
    </td>
  </tr>
</table>
<!--#include file="Inc/Bottom.asp" --></body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -