⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 tj.asp

📁 报名系统
💻 ASP
字号:
🔍 
<%@ Language=VBScript %>
<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="guest_lib.asp" -->
<%
dim ASPBook
dim StrSQL

if not isempty(request("page")) then
      Mypage=cint(Request("page"))
else
      Mypage=1
end if

set ASPBook = Server.CreateObject("ADODB.Recordset")

StrSQL = "Select * from guest order by ID desc"
ASPBook.open StrSQL,conn,1,1

ASPBook.pagesize=Mypagesize
maxpages=cint(ASPBook.pagecount)
totalsize=cint(Mypagesize)
ASPBook.absolutepage=Mypage
GuestTotal=ASPBook.RecordCount

if cint(Mypage) >1 then
    if cint(Mypage) > maxpages then
         MESSAGE("<li>没有你所想去的页数！</li>")
         Response.End 
    end if
end if
HEADER "显示留言"
MyMenu
%>
<html>

<head>


<title>大连天龙计算机专修学校-在线报名系统-报名成功</title>
</head>

<body topmargin="0" leftmargin="0">

<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" width="777" height="1">
    <tr>
      <td width="777" height="12">
        <p align="center">有<b><font color="#FF0000"><%=ASPBook("ID")%></font></b>位网上报名的学生</td>
    </tr>
  </center>
  </table>
</div>

</body>

</html>
<%  
  
function PageLink  
  
PageShowSize = 10  
Scriptname=Request.Servervariables("script_name")  
PageNextSize=int((MyPage-1)/PageShowSize)+1  
Pagetpage=int((GuestTotal-1)/MyPageSize)+1  
  
if Maxpages > 1 then  
   if PageNextSize >1 then  
       PagePrev=PageShowSize*(PageNextSize-1)  
       Response.write "<a href='" & Scriptname & "?page=" & PagePrev & "'>[<<]</a>-"  
   end if  
   if Mypage-1 > 0 then  
       Prev_Page = MyPage - 1  
       Response.write "<a href='" & Scriptname & "?page=" & Prev_Page & "'>[<]</a> "  
   end if  
   if maxpages>=PageNextSize*PageShowSize then  
       PageSizeShow = PageShowSize  
   else  
       PageSizeShow = Maxpages-PageShowSize*(PageNextSize-1)  
   end if  
   for PageCounterSize=1 to PageSizeShow  
       PageLink = (PageCounterSize+PageNextSize*10)-10  
       if PageLink <> cint(Mypage) then  
	   Response.write "<a href='" & Scriptname & "?page=" & PageLink & "'>[" & PageLink & "]</a> "  
       else  
           Response.Write PageLink  & "  "  
       end if   
   next  
   if Mypage+1 <=Pagetpage  then  
       Next_Page = MyPage + 1  
       Response.write "<a href='" & Scriptname & "?page=" & Next_Page & "'>[>]</a>"  
   end if  
   if maxpages > PageShowSize*PageNextSize then  
       PageNext = PageShowSize * PageNextSize + 1  
       Response.write "-<a href='" & Scriptname & "?page=" & PageNext & "'>[>>]</a>"  
   end if  
   else  
       Response.write "[1]"  
end if  
END function  
  
set ASPBook=nothing  
conn.Close  
set conn = nothing  
%>

⌨️ 快捷键说明

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