📄 marry_new.asp

📁 宁波娱乐在线城市,丰富的内容版块
💻 ASP
字号:
<%@ LANGUAGE = VBScript.Encode %>
<!--#include file="../inc/conn2.asp"-->
<Script language="javascript">
window.resizeTo(screen.availWidth,screen.availHeight); 
</script>
<% 
if Request.Cookies("NC")="" or Request.Cookies("NC")="访客" then
		Response.Write("对不起，您不是社区用户，请先注册！")
        Response.End
end if%>


<%
UserName = Request.Cookies("NC")

set rs = Server.CreateObject("ADODB.RecordSet")
rs.open "Select * From HY Where HaveMarry=True And XB=0 order by MarryTime Desc",conn,1,1
rs.pagesize=21  '这是每页显示几条记录
n = rs.pagecount '取得总页数
page=page_request() '取得页码值
rs.AbsolutePage=page

%>
<html>
<head>
<title>大礼堂</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="style.css">
<script ID="clientEventHandlersJS" LANGUAGE="javascript">
<!--
function ShowGRZL(nc) {
    l = screen.width/2-500/2;
    t = screen.height/2-250/2;
    window.open('../grzl.asp?NC='+nc,'fGRZL','scrollbars=no,toolbar=no,menubar=no,location=no,status=no,resizable=no,width=500,height=250,left='+l+',top='+t);
}//-->
</script>
</head>

<body bgcolor="#FEF7ED">
<table width="85%" border="1" cellspacing="0" cellpadding="0" align="center" bordercolordark="#FFFFFF" bordercolorlight="#000000">
  <tr bgcolor="#F2D9B3" align="center" height=30> 
    <td><b>最新结婚的人</b></td>
  </tr>
</table>

<table width="85%" border="1" cellspacing="0" cellpadding="0" bordercolordark="#FFFFFF" bordercolorlight="#000000" align="center">
  <tr align="center" height=25> 
    <td width="25%"><b>酷哥新郎</b></td>
    <td width="25%"><b>美眉新娘</b></td>
    <td width="25%"><b>结婚日期<b></td>
    <td width="25%"><b>有无结婚证明</b></td>
  </tr>
</table>
<%i = 1
While Not Rs.eof and i < Rs.pagesize
%>
<table width="85%" border="1" cellspacing="0" cellpadding="0" bordercolordark="#FFFFFF" bordercolorlight="#000000" align="center">
  <tr align="center" height=20> 
    <td width="25%"><a href="javascript:ShowGRZL('<%=rs("NC")%>')"><%=rs("NC")%></a></td>
    <td width="25%"><a href="javascript:ShowGRZL('<%=rs("MarryWith")%>')"><%=rs("MarryWith")%></a></td>
    <td width="25%"><%=rs("MarryTime")%></td>
    <td width="25%"><% if rs("MarryCheck") then%>已证明<%else%>无证明<%end if%></td>
  </tr>
</table>
<%
rs.movenext
i = i + 1
Wend
%> 
<table width="85%" border="1" cellspacing="0" cellpadding="0" bordercolordark="#FFFFFF" bordercolorlight="#000000" align="center">
<tr align="center"><td><br>
<%
'out = pagemode1("marry_new.asp",1)
out = pagemode1("marry_new.asp?id=1",0)
'out = pagemode2("marry_new.asp",1)  
response.write out
rs.close
set rs=nothing
%> 
<div align="center"><br><a href="church.asp">[ 返　回 ]</a></div>
</td></tr></table>


</body>
</html>


<%
'设置页码及URL
'value1 翻页地址  
'value2 page的值 
'value3 地址标签 eg:第一页、下一页
'value4 根据vaule1而定
'如果 value1 = "page.asp" 时，value4 = 1; value1 = "page.asp?id=1" 时，value4 = 0;

  function page_url(value1,value2,value3,value4)
  dim result
  dim val 
  if value4 = 1 then
    val = "?"
  else
    val = "&"
  end if
  result = "<a href=" & value1 & val & "page=" & value2 & ">" & value3 & "</a>"
  page_url = result
  end function    



'取得翻页的page参数 即为当前页  
  function page_request()  
    dim page
  
  page = request("page")  
  if ( page <> "" and IsNumeric(page) = false ) or page = "" then
    page = 1
  end if  
  page_request = page
  end function
  


'设置最常用的翻页模式，任意添加和修改
'第一种效果 写的有点繁琐
'n为总页数
  function pagemode1(value1,value2)
        dim out
    
              val1 = value1
    val4 = value2
    page = page_request()
    page = CInt(page)
    
    val2_1 = 1
    val2_2 = page - 1
    val2_3 = page + 1
    val2_4 = n
    
    val3_1 = "第一页"
    val3_2 = "上一页"
    val3_3 = "下一页"
    val3_4 = "最后页"    
          
    if page = 1 then
      out1 = val3_1
      out2 = val3_2
    else
      out1 = page_url(val1,val2_1,val3_1,val4) 
      out2 = page_url(val1,val2_2,val3_2,val4) 
    end if
    
    if page = n then
      out3 = val3_3
      out4 = val3_4
    else
      out3 = page_url(val1,val2_3,val3_3,val4) 
      out4 = page_url(val1,val2_4,val3_4,val4)
    end if
          
    out = out1 & "&nbsp;&nbsp;" & out2 & "&nbsp;&nbsp;" & out3 & "&nbsp;&nbsp;" & out4
    
    pagemode1 = out
  end function    
  
  
'第二种效果
'n 为总页数
  function pagemode2(value1,value2)
    dim out
  val1 = value1  
  val4 = value2
  
  for i = 1 to n
    val2 = i
    val3 = "第" & i & "页"
    out = out & page_url(val1,val2,val3,val4) & "&nbsp;&nbsp;"
  next
  
  pagemode2 = out
  end function
%>  

<%
conn.close
Set conn = Nothing
%>
⌨️ 快捷键说明

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