?? search2.asp
字號:
<!-- #include file="func/db.fun" -->
<!--#include file="OnePage.fun" -->
<%
jgh=request("jgh")
if jgh<> empty then
sql="select * from userdase where 學號='" & jgh & "'"
set rs=GetMdbStaticRecordset("data/user.mdb",sql)
if rs is nothing then
%>
<script language="VBScript">
MsgBox "出錯了，聯系管理員吧~~"
history.back()
</script>
<%
end if
else
%>
<script language="VBScript">
MsgBox "請輸入學號。"
history.back()
</script>
<%
end if
%>
<html>
<body bgcolor="ffffff">
<h2 align=center><font size=2>"學生學歷" 查詢結果</font>
<link rel="stylesheet" href="style.css">
</h2>
<hr>
<%
rs.PageSize = 10
Page = CLng(Request("Page"))
If Page > rs.PageCount Then Page = rs.PageCount
If Page < 1 Then Page = 1
ShowOnePage rs, Page
%>
<center>
<DIV ALIGN=right><P><HR>
<FORM Action="<%=Myself%>" Method=GET>
<%If Page <> 1 Then ' 如果不是位于第一頁%>
<A HREF=<%=Myself%>?Page=1&jgh=<%=jgh%>>第一頁</A>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -