📄 save.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/connect.asp" -->
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#6699CC">
<%
con= MM_connect_STRING
sql="select * from baomingmessage where name='"&request("name")&"'"
set rsmm=server.CreateObject("ADODB.RECORDSET")
rsmm.open sql,con,1,3
if rsmm.recordcount<1 and request("name")<>"" then
rsmm.addnew
rsmm("name")=request("name")
rsmm("sex")=request("sex")
rsmm("age")=request("age")
rsmm("tel")=request("tel")
rsmm("address")=request("address")
rsmm("email")=request("email")
rsmm.update
response.write("记录成功")
else
response.Write("你已经注册过了")
end if
rsmm.close
set rsmm=nothing
set rss=server.createobject("ADODB.RECORDSET")
rss.open sql,con,1,1
baoming=rss("baomingid")
set rsbm=server.CreateObject("ADODB.RECORDSET")
sql="select * from baoming where baomingid="&baoming
rsbm.open sql,con,1,3
dim boo
while not rsbm.eof
if rsbm("jiangzuoid")=request("baoming") then
boo=true
end if
rsbm.movenext
wend
if boo then
response.Write("你已经报过此班了")
else
rsbm.addnew
rsbm("baomingid")=baoming
rsbm("jiangzuoid")=request("baoming")
rsbm("guyuanid")=request("guyuanid")
rsbm.update
end if
%>
</body>
<%
rss.close
set rss=nothing
%>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -