📄 sqvip.asp
字号:
<html>
<!--#include file="head.asp"-->
<!--#include file="UserSession.asp"-->
<title><%=NetName%> - 申请VIP</title>
<body>
<%
if Session("usertype")="VIP用户" then
session("Errmsg") = session("Errmsg")+" - 你已经是VIP用户了，如果你继续申请，当前信息将被覆盖。<br>"
end if
%>
<%
if trim(request("action"))="reg" then
Vip1=trim(request("Vip1"))
Vip2=trim(request("Vip2"))
Vip3=trim(request("Vip3"))
Vip4=trim(request("Vip4"))
Vip5=trim(request("Vip5"))
CheckCode=trim(request("CheckCode"))
if Vip1="" then
response.write "<script>alert('帐户姓名');window.history.back();</script>"
response.End()
end if
if Vip2="" then
response.write "<script>alert('银行帐号');window.history.back();</script>"
response.End()
end if
if Vip3="" then
response.write "<script>alert('开户地址');window.history.back();</script>"
response.End()
end if
if Vip4="" then
response.write "<script>alert('联系电话');window.history.back();</script>"
response.End()
end if
if Vip5="" then
response.write "<script>alert('通信地址');window.history.back();</script>"
response.End()
end if
if Trim(Request("CheckCode"))="" or isnull(Request("CheckCode")) then
response.write "<script>alert('请输入附加码');window.history.back();</script>"
response.End()
elseif session("Num")="" then
response.write "<script>alert('请不要重复提交，如需重新登陆请返回登陆页面');window.history.back();</script>"
response.End()
elseif Trim(Request("CheckCode"))<>session("Num") then
response.write "<script>alert('你输入的附加码和系统产生的不符');window.history.back();</script>"
response.End()
end if
'session("Num")=""
sql="select * from Users where Id="&Session("Id")
rs.open sql,conn,1,3
if not rs.eof then
rs("Vip1")=Vip1
rs("Vip2")=Vip2
rs("Vip3")=Vip3
rs("Vip4")=Vip4
rs("Vip5")=Vip5
rs("IsVip")=1
rs("VipTime")=now()
rs.update
end if
'清空已登录标记
session("Errmsg") = ""
Session("usertype")="VIP用户"
Response.Write("<script>alert(""恭喜您,申请成功"");location.href=""login.asp"";</script>")
Response.End()
end if
%>
<!--#include file="toper.asp"-->
<table width="750" height="5" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td></td>
</tr>
</table>
<table width="750" height="5" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align=left><br>
<%ShowMenuBuy%>
<BR></td>
</tr>
</table>
<table cellspacing="0" cellpadding="0" width="550" align="center" border="0">
<form name="f" onSubmit="return checkvip()" action="sqvip.asp?action=reg" method="post">
<tr>
<td style="line-height:200%"><p><%=ShowContent%><br><br>
<%
if session("Errmsg") <> "" then
response.write "· 在尝试处理您的申请时发生了以下错误:<br>"
response.write "<font color=red>"
response.write session("Errmsg")
response.write "</font>"
session("Errmsg") = ""
end if
%></p>
<table cellspacing="0" cellpadding="0">
<TR>
<TD width="100" height="24">用 户 名：</TD>
<TD height="24"><INPUT size="30" value="<%=Session("UserName")%>" name="t1" readonly></TD>
<TD height="24"> 不可修改，与会员用户名相同</TD>
</TR>
<TR>
<TD width="100" height="24">帐户姓名：</TD>
<TD height="24"><INPUT name="Vip1" id="Vip1" size="30" maxlength="255"></TD>
<TD height="24"> 银行帐号的所有者姓名</TD>
</TR>
<TR>
<TD width="100" height="24">银行帐号：</TD>
<TD height="24"><INPUT name="Vip2" id="Vip2" size="30" maxlength="255"></TD>
<TD height="24"> <span class="red">工行</span>帐号，对于买入者您需开通网上支付功能</TD>
</TR>
<TR>
<TD width="100" height="24">开户地址：</TD>
<TD height="24"><INPUT name="Vip3" id="Vip3" size="30" maxlength="255"></TD>
<TD height="24"> 如：辽宁省大连市，就是此帐号开户的省、市</TD>
</TR>
<TR>
<TD width="100" height="24">联系电话：</TD>
<TD height="24"><INPUT name="Vip4" id="Vip4" size="30" maxlength="255"></TD>
<TD height="24"> 如有问题时，我们及时与您联系</TD>
</TR>
<TR>
<TD width="100" height="24">通信地址：</TD>
<TD height="24"><INPUT name="Vip5" id="Vip5" size="30" maxlength="255"></TD>
<TD height="24"> 如有问题时，我们及时与您联系</TD>
</TR>
<TR>
<TD width="100" height="24"><span style="MARGIN: 16px 0px 6px;">验 证 码</span>：</TD>
<TD height="24"><span style="MARGIN: 16px 0px 6px;">
<input size="6" name="CheckCode" />请输入<img src="GetCode.asp" /></span></TD>
<TD width="372" height="24"> </TD>
</TR>
</table>
<p>
<input type="hidden" name="action" value=1>
<input type="submit" value=" 申 请 " name="submit1" />
<br>
<br>
<br>
</p></td>
</tr>
</form>
</table>
<table width="750" height="5" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td></td>
</tr>
</table>
<!--#include file="foot.asp"-->
</body>
</html>
<%
Function ShowContent ()
sql="select sqvip from Notice"
set rs=conn.execute (sql)
if not rs.eof then
response.write rs(0)
rs.close
end if
End Function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -