?? xsxx_editop.asp
字號:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>無標題文檔</title>
</head>
<body>
<!--#include file = "conn.asp"-->
<%
dim rs, sql
set rs = server.CreateObject("ADODB.Recordset")
'rs.LockType = adLockOptimistic
op = Request.Form("Stuop")
xh1 = Request.Form("StuXH")
xm1 = Request.Form("StuXM")
xb1 = Request.Form("StuXB")
cssj1 = Request.Form("StuCSSJ")
zy1 = Request.Form("StuZY")
zxf1 = Request.Form("StuZXF")
bz1 = Request.Form("StuBZ")
response.Write("數據庫操縱正在進行...<p>")
sql = "SELECT * FROM XS WHERE XH='"&xh1&"'"
rs.open sql,conn,1,3
if op = "顯 示" then
if rs.eof then
response.Write("該編號記錄不存在!")
else
response.Write("學號:"+rs("XH")+"<p>")
response.Write("姓名:"+rs("XM")+"<p>")
if rs("XB") then
temp = "男"
else
temp = "女"
end if
response.Write("性別:"+temp+"<p>")
response.Write("出生時間:"&rs("CSSJ")&"<p>")
response.Write("專業:"&rs("ZY")&"<p>")
response.Write("總學分:"&rs("ZXF")&"<p>")
response.Write("備注:"&rs("BZ")&"<p>")
end if
end if
if op = "添 加" then
if rs.eof then
rs.AddNew
rs("XH") = trim(xh1)
rs("XM") = trim(xm1)
if xb1 = "男" then
rs("XB") = true
else
rs("XB") = false
end if
rs("CSSJ") = Cdate(cssj1)
rs("ZY") = zy1
rs("ZXF") = Cint(zxf1)
rs("BZ") = bz1
rs.Update
response.Write("新記錄已經加入!")
else
response.Write("該編號記錄已經存在!")
end if
end if
if op = "刪 除" then
if rs.eof then
response.Write("該編號記錄不存在!")
else
rs.delete
rs.update
response.Write("記錄已經被刪除!")
end if
end if
if op = "修 改" then
if rs.eof then
response.Write("該編號記錄不存在!")
else
rs("XM") = xm1
if xb1 = "男" then
rs("XB") = true
else
rs("XB") = false
end if
rs("CSSJ") = Cdate(cssj1)
rs("ZY") = zy1
rs("ZXF") = Cint(zxf1)
rs("BZ") = bz1
rs.Update
response.Write("記錄已經被修改!")
end if
end if
%>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -