📄 index_four_success.asp
字号:
<%@ language="vbscript"%>
<%response.Expires = 0%>
<%
DbPath = SERVER.MapPath("Lottery_Table.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
set rs=server.createobject("adodb.recordset")
sqltext="select * from Lottery_Table where Person_Name='" & request.form("Person_Name") & "'"
rs.open sqltext,conn,1,1
set rs=server.createobject("adodb.recordset")
sqltext="select * from Lottery_Table"
rs.open sqltext,conn,3,3
'添加数据到数据库
rs.addnew
rs("Invoice_ID")=request.form("Invoice_ID")
rs("Person_Name")=request.form("Person_Name")
rs("Person_Sex")=request.form("Person_Sex")
rs("Person_Old")=request.form("Person_Old")
rs("Person_Add")=request.form("Person_Add")
rs("Person_Code")=request.form("Person_Code")
rs("Person_Email")=request.form("Person_Email")
rs("Person_Tel")=request.form("Person_Tel")
rs.update
rs.close
conn.close
response.write "<p align='center'><big><big><font color='#ff0000'><b>英语沙龙网</b></font></big></big><br><br><br><br>欢迎您!</p>"
response.write"<SCRIPT language=JavaScript>alert('抽奖信息登记成功，请按“回车键”，返回英语沙龙网首页！');"
response.write"this.location.href='../';</SCRIPT>"
%>
<%
Invoice_ID=request.form("Invoice_ID")
Person_Name=request.form("Person_Name")
Person_Sex=request.form("Person_Sex")
Person_Old=request.form("Person_Old")
Person_Add=request.form("Person_Add")
Person_Code=request.form("Person_Code")
Person_Email=request.form("Person_Email")
Person_Tel=request.form("Person_Tel")
%>
<html>
<head>
<title>抽奖用户登记成功</title>
<meta content="text/html; charset=gb2312" http-equiv="Content-Type">
</style>
<meta content="MSHTML 5.00.2614.3500" name="GENERATOR">
</head>
<body bgColor="#ffffff">
</body>
</html>
<html></html>
<html></html>
<html></html>
<html></html>
<html></html>
<html></html>
<html></html>
<html></html>
<html></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -