📄 reg_trueisok.asp
字号:
<html>
<head>
<title>对不起，您已经参加了抽奖登记！</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#FFFFFF" text="#000000" topmargin=0>
<table width="750" border="0" cellspacing="0" cellpadding="0" align="center">
<tr valign="bottom">
<td colspan="3" height="27"> </td>
</tr>
<tr valign="top">
<td colspan="3">
<hr size="1" align="center" width="750" color=red>
</td>
</tr>
<tr>
<td colspan="3" valign="top" height="398">
<%
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")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("Lottery_Table.mdb")
sql="select Person_ID from Lottery_Table where Person_Name= '" & Person_Name & "' and Invoice_ID= '" & Invoice_ID & "'"
Set rs = Conn.execute(sql)
if rs.EOF then
nStatus = 0
else
nStatus = 1
end if
%>
<%if nStatus=1 then%>
<p align="center"><br>
<br>
<br>
对不起，您已经参加了抽奖登记，2002年12月30日中午我们将会在网上公布抽奖名单!<br>
<br>
<input type=button onClick="javascript:window.history.back(1)" value=返回 id=button1 name=button1>
</p>
<%else %>
<%if nStatus = 0 then %>
<script language=javascript>
<!--
window.navigate("index_three.asp?Invoice_ID=<%=Invoice_ID%>&Person_Name=<%=Person_Name%>&Person_Sex=<%=Person_Sex%>&Person_Old=<%=Person_Old%>&Person_Add=<%=Person_Add%>&Person_Code=<%=Person_Code%>&Person_Email=<%=Person_Email%>&Person_Tel=<%=Person_Tel%>");
//-->
</script>
<%else%>
<p align="center"><br>
<br>
<br>
对不起，数据库操作错误，请返回重新注册。
<input type=button onClick="javascript:window.history.back(1)" value=返回 name="button">
<%end if%>
<br>
</p>
<%end if %>
</td>
</tr>
<tr>
<td colspan="3" valign="top" height="2">
<hr size="1" color="#ff0066" width="750">
</td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -