?? taddstudent.asp
字號:
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%
db="testsys.MDB"
if Request.ServerVariables("http_method")="POST" and Request.Form("submit")<>"跳到" then
'如果按POST方式提交表單內容
set conn=server.CreateObject("adodb.connection")
conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open
strstid=Request.Form("stid")
strstname=Request.Form("stname")
if Request.Form("submit")="加入" then
'如果執行加入學生信息的請求
strsql="select * from studentinfo where stid='" & strstid & "'"
'根據要加入的學生學號查詢數據庫的表studentinfo中是否存在該學生的記錄
set mrs1=conn.Execute(strsql)
if not(mrs1.BOF and mrs1.EOF) then
'如果要加入的學生學號已存在，則提示重新輸入信息
Response.Write "該學號已經存在，請重新輸入學生信息<br>"
Response.Write "<a href=taddstudent.asp?page=" & request("page") & "&stname=" & strstname & "&stid=" & strstid & ">返回</a>"
else
'如果要加入的學生學號不存在，則向數據庫中加入該學生信息
strsql="insert into studentinfo (stname,stid) values ('" & strstname & "','" & strstid & "')"
conn.Execute(strsql)
strstid=""
strstname=""
end if
end if
if Request.Form("submit")="刪除" then
'如果是刪除學生信息請求
strsql="delete * from studentinfo where stid='" & strstid & "'"
'刪除學生信息
conn.Execute(strsql)
'刪除學生的考試成績
strsql="delete * from score where stid='" & strstid & "'"
conn.Execute(strsql)
strstid=""
strstname=""
end if
conn.Close
set conn=nothing
else
strstname=Request.QueryString("stname")
strstid=Request.QueryString("stid")
end if
%>
<FORM action="taddstudent.asp" method=POST id=form1 name=form1><P><FONT face="幼圓" size=3 color=Crimson>學生信息</FONT><BR>
<FONT face="" size=3>姓名：
<INPUT id=stname name=stname value=<%=strstname%>></FONT><BR>
<FONT face="" size=3>學號：
<INPUT id=stid name=stid value=<%=strstid%>></FONT>
<FONT face="" size=3>
<INPUT id=submit1 name=submit type=submit value=加入>
<INPUT id=submit2 name=submit type=submit value=刪除>
</FONT></P><FONT face="" size=3>
<HR>
</FONT>
<P>
<TABLE border=0 cellPadding=1 cellSpacing=1 width=75%>
<TR bgcolor=Honeydew>
<TD>姓名</TD>
<TD>學號</TD></TR>
<%
set mrs=server.CreateObject("adodb.recordset")
mrs.ActiveConnection="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
mrs.Source="select * from studentinfo"
mrs.Open ,,1,3
'以下是分頁顯示學生的姓名與學號
if not mrs.BOF and not mrs.EOF then
mrs.PageSize=5
if request("page")<>"" then
page=cint(request("page"))
else
page=1
end if
mrs.AbsolutePage=page
for i=1 to mrs.PageSize
if mrs.EOF then
exit for
end if
Response.Write "<TR><TD>"
'顯示學生的姓名，并提供連接，點擊該連接，
'在taddstudent.asp中的文本框中顯示該學生的姓名和學號
Response.Write "<a href=taddstudent.asp?stname="& mrs("stname") & "&stid=" & mrs("stid") & "&page=" & page & ">" & mrs("stname") & "</a>"
Response.Write "</TD>"
'顯示學生的學號
Response.Write "<TD>" & mrs("stid") & "</TD></TR>"
mrs.MoveNext
next
end if
%>
</TABLE>
</P>
<P>
<INPUT id=button1 name=submit type=submit value=跳到>
<INPUT id=page name=page
style="HEIGHT: 21px; WIDTH: 46px" value=<%=Request("page")%>>頁/共<%=mrs.PageCount%>頁
<%
if page>1 then
'當前頁不是是第一頁則提供上一頁的連接
Response.Write "<a href=taddstudent.asp?page=" & page-1 & ">上一頁</a>|"
else
'否則不提供上一頁的連接
Response.Write "上一頁|"
end if
if page<mrs.PageCount then
'當前頁是最后一頁則提供下一頁連接
Response.Write "<a href=taddstudent.asp?page=" & page+1 & ">下一頁</a>"
else
'否則不提供下一頁連接
Response.Write "下一頁"
end if
'關閉數據庫的Recordset對象
mrs.Close
set mrs=nothing
%>
</P>
</FORM>
</BODY>
</HTML>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -