📄 add.asp
字号:
<html>
<!--#include file="../../conn/dbconn2.asp" -->
<head>
<title>帐号充值</title>
</head>
<body bgColor=#ffffff topmargin="0" leftmargin="0">
<div vlign="top">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="100%" id="AutoNumber1" fpstyle="24,011111100" style="border-collapse: collapse; background-color: white; border-left: .75pt solid #000000; border-right: .75pt solid #000000; border-top: 1.5pt solid #000000; border-bottom: 1.5pt solid #000000">
<form method="POST" action="add.asp">
<tr>
<td width="100%" style="font-weight: bold; color: maroon; border-left-style: none; border-right-style: none; border-top-style: none; border-bottom: .75pt solid gray; background-color: silver" colspan="2">
<p align="center"><font size="2">帐号充值</font></td>
</tr>
<tr>
<td width="100%" style="color: black; border-style: none" colspan="2">
<%
if request("car1")<>"" or request("car2")<>"" then
car1=replace(trim(request("car1")),"'","")
car2=replace(trim(Request("car2")),"'","")
set rs=server.createobject("adodb.recordset")
sql="select * from car where carid='"&car1&"'and carpws='"&car2&"'"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write"<script>alert('该充值卡不存在！');history.back();</Script>"
response.end
else
paymoney=rs("paymoney")
dayer=rs("day")
oklook=rs("oklook")
set rs1=server.createobject("adodb.recordset")
sql1="select * from Qyml where user='"&request("userid")&"'"
rs1.open sql1,conn,3,3
set rs2=server.CreateObject ("adodb.recordset")
sql2="select * from car where carid='"&request("car1")&"'"
rs2.open sql2,conn,1,3
if rs1.eof and rs1.bof then
response.write"<script>alert('该充值帐号不存在！');history.back();</Script>"
response.end
else
if rs2("zhuangtai") <> "尚未使用" then
response.write"<script>alert('该充值帐号已经使用,请慎重！');history.back();</Script>"
response.end
else
'----变成享受付费会员
rs1("flag")=0
rs1("hybz")=1
rs1("uflag")=1
zt=request.form("userid")
rs2("zhuangtai")=zt
rs1("begindate")=date()
if rs1("enddate")-date()<1 then
rs1("enddate")=date() + dayer
else
rs1("enddate")=rs1("enddate")+dayer
end if
end if
end if
rs2.update
rs1.update
end if
set rs=nothing
set rs1=nothing
set rs2=nothing
%> <font size="2">
已经成功地将<%=dayer%>天的冲值卡充入你的帐号</font>操作成功，请<a href=javascript:window.close();><font color=#ff000>关闭窗口</font></a>进行其他操作。</td>
</tr>
<%else%>
<tr>
<td width="36%" style="color: black; border-style: none" align="right">
<font size="2">
卡<span lang="en-us"> </span>号：</font></td>
<td width="64%" style="color: black; border-style: none">
<input type="text" name="car1" size="20"></td>
</tr>
<tr>
<td width="36%" style="color: black; border-style: none" align="right">
<font size="2">
密<span lang="en-us"> </span>码：</font></td>
<td width="64%" style="color: black; border-style: none">
<input type="text" name="car2" size="20"></td>
</tr>
<tr>
<td width="36%" style="color: black; border-style: none" align="right">
<font size="2">充值帐号：</font></td>
<td width="64%" style="color: black; border-style: none">
<input type="text" name="userid" size="20"></td>
</tr>
<tr>
<td width="100%" style="color: black; border-style: none" colspan="2">
<p align="center">
<input type="submit" value="允 值" name="B1"><span lang="en-us"> </span>
<input type="reset" value="清 除" name="B2"></td>
</tr>
<%end if%>
</form>
</table>
</center>
</div>
<center><font size="2">注：本页面只适于购买充值卡的用户使用</font>
<br><font color=green size="2">冲值卡优惠中,请联系购买</font>
<%const newspage=1
dim newsql
dim newrs
newsql="select * from news where bz=3 order by newsid desc"
Set newrs= Server.CreateObject("ADODB.Recordset")
newrs.open newsql,conn,1,1 %>
<DIV align=center>
<TABLE border=0 cellPadding=3 cellSpacing=1 width="88%" height="126" style="border-collapse: collapse" bordercolor="#111111">
<TBODY>
<TR>
<TD height="92" valign="bottom">
<SPAN class=Subject3><FONT color=#333333><%do while not newrs.eof%> <span lang="en-us"><% if len(newrs("Content"))>610 then%><%=left(newrs("Content"),610)%><% else%><%=newrs("Content")%><%end if%></SPAN></FONT>
</TD></TR><tr><TD height="20" valign="middle"><p align="right"><b><SPAN class=Subject3><FONT
color=#333333>
<span lang="en-us">
<%=newrs("Name")%></SPAN></FONT></b></TD></tr><%newrs.movenext
z=z+1
if z>=newspage then Exit Do
loop
newrs.close
set newrs=nothing
%>
</TBODY></TABLE></DIV></TD></TR>
<TR>
<TD height="29">
</TD></TR></TBODY></TABLE></DIV>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -