📄 regt.asp
字号:
<% language="VBSCRIPT" %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<style type="text/css"><!--
body {font-family:"宋体"; font-size: 12px; line-height:17px;}
td {font-family:"宋体"; font-size: 12px;}
-->
</style>
<link rel="stylesheet" type="text/css" href="new.css">
<meta name="Microsoft Border" content="none">
</head>
<body>
<div align="center">
<center>
<table cellspacing="0" cellpadding="0" border="1" width="45%" height="25%" bordercolor="#FFFFFF">
<tr><td bgcolor="#F7F3F7" bordercolor="#808080" >
<p align="center"><%
dim conn
dim connstr
dim err
nbuyorsell = request("buyorsell")
ngoods = "票务预订：类型：" & request("select") & " 从-" & request("name2") & "到-" & request("name3")
nkind = request("kind")
nprice = request("price")
namount = request("amount")
nbuydate = request("buydate")
ndegree = request("degree")
nname = request("name")
nemail = request("email")
nprovince = request("province")
ncity = request("city")
ntelephone = request("telephone")
nbbcall = request("bbcall")
nicq = request("icq")
noicq = request("oicq")
ntrademode = request("trademode")
ncontent = request("content")
if request("name2")="" or request("name3")="" then
response.write "<script language='javascript'>"
response.write "alert('没有输入从什么地方到什么地方');"
response.write "history.go(-1);"
response.write "</script>"
response.end
else
connstr = "DBQ="+server.mappath("_database/redtoolsdata.asp")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set DataConn = Server.CreateObject("ADODB.Connection")
dataconn.open connstr
Set InsertCursor = Server.CreateObject("ADODB.Recordset")
Set cmdTemp = Server.CreateObject("ADODB.Command")
cmdTemp.CommandText = " select * from data where (goods IS NULL) "
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = dataconn
InsertCursor.Open cmdTemp, , 1, 3
InsertCursor.AddNew
InsertCursor("buyorsell") = nbuyorsell
InsertCursor("date") = date()
InsertCursor("time") = time()
InsertCursor("goods") = ngoods
InsertCursor("kind") = nkind
InsertCursor("price") = nprice
InsertCursor("amount") = namount
InsertCursor("degree") = ndegree
InsertCursor("buydate") = nbuydate
InsertCursor("name") = nname
InsertCursor("email") = nemail
InsertCursor("province") = nprovince
InsertCursor("city") = ncity
InsertCursor("telephone") = ntelephone
InsertCursor("bbcall") = nbbcall
InsertCursor("icq") = nicq
InsertCursor("oicq") = noicq
InsertCursor("trademode") = ntrademode
InsertCursor("content") = ncontent
InsertCursor("num") = 0
InsertCursor("deal") = 0
InsertCursor.Update
InsertCursor.close
dataconn.close
set InsertCursor=nothing
set dataconn=nothing
response.write "<p align='center'>预订成功，谢谢！您可以关闭此窗口了</p>"
end if
%></td></tr></table>
</center>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -