📄 baomingsave.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/connect.asp" -->
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (Request("name") <> "") Then
Recordset1__MMColParam = Request("name")
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
con= MM_connect_STRING
sql= "SELECT * FROM baomingmessage WHERE name = '" + Replace(Recordset1__MMColParam, "'", "''") + "'"
Recordset1.Open sql,con,1,3
Recordset1_numRows = 0
%>
<html>
<body bgcolor="#6699CC">
<%
if recordset1.recordcount>=1 then
response.write("你已经注册过了")
else
if request("name")<>"" and request("address")<>"" then
recordset1.addnew
Recordset1("name")=request("name")
Recordset1("sex")=request("sex")
Recordset1("age")=request("age")
Recordset1("tel")=request("tel")
Recordset1("address")=request("address")
Recordset1("email")=request("email")
recordset1.update
response.write("记录成功")
else
response.Write("名子不能为空和地址不能为空")
end if
end if
Dim rs
Dim rs_numRows
Set rs = Server.CreateObject("ADODB.Recordset")
rscon = MM_connect_STRING
rssql= "SELECT * FROM baomingmessage where name='"&request("name")&"'"
rs.Open rssql,rscon,1,1
rs_numRows = 0
Recordset2__MMColParam =rs("baomingid")
Dim Recordset2
Dim Recordset2_numRows
Set Recordset2 = Server.CreateObject("ADODB.Recordset")
con2=MM_connect_STRING
sql2="SELECT jiangzuoid FROM baoming WHERE baomingid ="&Recordset2__MMColParam
Recordset2.Open sql2,con2,1,3
Recordset2_numRows = 0
if recordset2.recordcount<1 then
Recordset2.addnew
recordset2("jiangzuoid")=request("baoming")
response.Write(request("guyuanid"))
on error resume next
Recordset2("baomingid")="2"
if err then
response.Write("<br>"&err.source&"<br>")
end if
response.Write(rs.Fields.Item("baomingid").Value)
'recordset2("guyuanid")=request("guyuanid")
recordset2.update
else
response.write("请选择要报名的课程")
end if
%>
</body>
</html>
<%
Recordset2.Close()
Set Recordset2 = Nothing
rs.close
set rs=nothing
Recordset1.Close()
Set Recordset1 = Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -