?? cjcxcjcx.asp
字號:
<html>
<head>
<title></title>
<style type=text/css>
td {font-size: 15px;line-height: 140%;color:#004F27}
</STYLE>
</head>
<body background="bg.gif" bgproperties="fixed">
<font color="green"><h1 align="center"><font face="幼圓">0203206學生成績查詢</font></h1></font>
<form method="POST" action="gjcjcx.asp">
輸入姓名進行查詢: <input type=text name="tiaojian">
<input type=submit value="確定">
<input type=reset vallue="重填">
</form>
<%
dim cn,rs
dim ipage
set cn=Server.CreateObject("ADODB.Connection")
cn.open="Driver={SQL SERVER};Server=SUNZY;Database=xuexi;UID=sa;PWD=;"
set rs=Server.CreateObject("ADODB.RecordSet")
rs.open "select * from 成績",cn,1,1
rs.Pagesize=10
If Len(Request("page"))=0 Then
ipage=1
Else
ipage=Request("page")
End if
rs.Absolutepage=ipage
%>
<p align=center>共有<%=rs.recordcount%>個學生</p>
<p align="center">學生信息第<%=ipage%>頁</p>
<table border=1 align="center">
<tr>
<td width=100 align=center>姓名</td>
<td width=100 align=center>操作系統(tǒng)</td>
<td width=80 align=center>數(shù)據(jù)庫技術</td>
<td width=100 align=center>計算機組成</td>
<td width=200 align=center>計算機網(wǎng)絡</td>
<td width=100 align=center>JAVA</td>
<td width=100 align=center>數(shù)據(jù)庫原理</td>
</tr>
<%
For i=1 to rs.pagesize
if not rs.eof then
%><tr>
<td width=100 align=center><%=rs(0) %></td>
<td width=100 align=center><%=rs(1) %></td>
<td width=80 align=center><%=rs(2) %></td>
<td width=100 align=center><%=rs(3)%></td>
<td width=200 align=center><%=rs(4)%></td>
<td width=100 align=center><%=rs(5)%></td>
<td width=100 align=center><%=rs(6)%></td>
</tr>
<% end if
If not rs.Eof Then rs.MoveNext
next
%>
</table>
<p align="center">
<%
If CInt(ipage)=1 Then
%>
第一頁 |上一頁|
<%
else
%>
<a href="cjcxcjcx.asp?page=1">第一頁</a>
<a href="cjcxcjcx.asp?page=<%=ipage-1%>">上一頁</a>|
<%
end if
%>
<%
if CInt(ipage)=CInt(rs.pagecount) Then
%>
下一頁| 最后一頁
<%
Else
%>
<a href="cjcxcjcx.asp?page=<%=ipage+1%>">下一頁</a>|
<a href="cjcxcjcx.asp?page=<%=rs.pagecount%>">最后一頁</a>
<%
end if
%>
<%
rs.close
set rs=nothing
cn.close
set cn=nothing
%>
<hr width=60% color=green>
</body>
</html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -