📄 18-3.asp
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>18-3.asp</title>
</head>
<%
sub addticket()
dim name,sex,number
dim trainitem,trainday,placetime
dim address
dim phone,mobil,bb
dim money
dim afetch
'将表单数据存到上述变量中
name=request.form("realname")
sex=request.form("sex")
number=request.form("number")
trainitem=request.form("trainitem")
trainday=request.form("trainday")
placetime=request.form("nowtime")
address=request.form("address")
phone=request.form("phone")
mobil=request.form("mobil")
bb=request.form("bb")
money=request.form("money")
'建立与数据库的连接
set adocon=server.createobject("adodb.connection")
adocon.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\ASP教程\tianjiao.mdb;Persist Security Info=False"
'将表单中的内容添加到数据库中的tickets表
sqlstr="insert into tickets(Name,Sex,Number1,TrainItem,TrainDay,PlaceTime,Address,Phone1,Mobil,Bp,Money1)"
sqlstr1="values('"&name&"','"&sex&"',"&number& ",'"&trainitem&"','"&trainday&"','"&placetime&"','"&address& "','"&phone&"','"&mobil&"','"&bb&"',"&money&")"
sqlstr=sqlstr&" "&sqlstr1
response.write sqlstr
'adocon.execute sqlstr,afetch,-1
adocon.execute "insert into tickets( Name,Sex,Number1,TrainItem,TrainDay,PlaceTime,Money1) values('" & name & "','"& sex &"',"& number& ",'"&trainitem&"','"&trainday&"','"&placetime&"',"&money&")"
'若出错给出错误信息
if err.Number<>0 then
response.write"操作出现错误!"
response.write"错误号码："& err.Number &"<br>"
response.write"错误描述："& err.description &"<br>"
'若无错显示成功页面
else
response.write"<br>操作成功!"&"<br>"
response.write"我们将会尽快为您送票!"
end if
'关闭数据库
adocon.close
end sub
%>
<body>
<%
call addticket()
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -