📄 booksave.asp
字号:
<!--#include file="conndb.asp"-->
<html>
<head>
<title>旅游在线报名</title>
</head>
<body>
<%
If Not isDate(Request("tdate")) Then
Response.Write "日期格式不正确，请重新输入。<a href='javascript:history.go(-1)'>返回</a>"
Response.End
End If
Function changechr(str)
changechr = Replace(str," "," ")
changechr = Replace(changechr,Chr(13),"<br>")
changechr = Replace(changechr,"'","‘")
End Function
Dim LineId
'取得线路编号
LineId = Request.QueryString("lid")
Set rs = Server.CreateObject("ADODB.RECORDSET")
'在数据库表Book中插入新线路
sql="Select * from Book"
rs.Open sql,Conn,1,3
rs.AddNew
rs("LineId")= CInt(LineId)
rs("TraNum") = CInt(Request("num"))
rs("StartDate") = Request("tdate")
rs("BookPerson") = Request("name")
rs("PostDate") = Date()
rs("WorkPlace") = Request("workplace")
rs("Email") = Request("email")
rs("Address") = Request("address")
rs("Zip") = Request("zipcode")
rs("Telephone") = Request("phone")
rs("Mobile") = Request("mobile")
rs("Fax") = Request("fax")
rs("IdCard") = Request("idcard")
rs("Comment") = changechr(Request("comment"))
rs("Flag") = 0
rs.Update
Set rs = Nothing
Response.Write "<h3>旅游报名成功保存</h3>"
%>
</body>
<script language="javascript">
setTimeout("window.close()", 800);
</script>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -