⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 xsxx_editop.asp

📁 这是一个基于SQL平台的数据库程序
💻 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 + -