📄 user_card_add.asp

📁 电影ASP文件
💻 ASP
字号:
<!--#include file="../film_conn.asp"-->
<!-- #include file="user_session.asp" -->
<!-- #include file="../set_url.asp" -->
<HTML><HEAD><TITLE><%=webname%> - 会员管理中心 - 影卡充值</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<script>
//*****************************************************
function isnum()
	{   
	    if(event.keyCode==13 ) addGame(document.regist);
		if(event.keyCode<48 || event.keyCode>57)
		{
		   event.keyCode=0;
		}  
		if(event.keyCode==13 ) addGame(document.regist);
	}
function valid_register(){

 if(  document.regist.car1.value.length<5 || document.regist.car1.value.length>25 )
    {window.alert("对不起，影卡卡号应在5-25位字符之间！");
       document.regist.car1.focus();
       return false;
      } ;
     ii=0;
     bString="0123456789";
    
	 while (ii<document.regist.car1.value.length) 
	 {
		if (bString.indexOf(document.regist.car1.value.substring(ii,ii+1))==-1) 
		{
			alert("对不起，影卡卡号不能包含非法字符，只能由数字0-9组成。")
  document.regist.car1.focus()
  return false;
		}
		ii=ii+1;
} ; 
 if(  document.regist.car2.value.length<5 || document.regist.car2.value.length>25  )
    {window.alert("对不起，影卡密码应在5-25位字符之间！");
       document.regist.car2.focus();
       return false;
      } ;
     ii=0;
     bString="0123456789";
    
	 while (ii<document.regist.car2.value.length) 
	 {
		if (bString.indexOf(document.regist.car2.value.substring(ii,ii+1))==-1) 
		{
			alert("对不起，影卡密码不能包含非法字符，只能由数字0-9组成。")
  document.regist.car2.focus()
  return false;
		}
		ii=ii+1;
} ;  
 if(  document.regist.userid.value.length<5  )
    {window.alert("会员帐号太短！至少为5位字符。");
       document.regist.userid.focus();
       return false;
      } ;
 if(  document.regist.userid.value.length>15  )
    {window.alert("会员帐号太长！至多为15位字符。");
       document.regist.userid.focus();
       return false;
      } ;
     ii=0;
     bString="0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ-_";
    
	 while (ii<document.regist.userid.value.length) 
	 {
		if (bString.indexOf(document.regist.userid.value.substring(ii,ii+1))==-1) 
		{
			alert("对不起，会员帐号不能包含非法字符。只能由数字0-9、字母a-z以及符号 - _ 组成。")
  document.regist.userid.focus()
  return false;
		}
		ii=ii+1;
} ;
}
</script>
</HEAD>
<BODY bgColor=#71757b leftMargin=0 topMargin=0 rightMargin=0 marginheight="0" marginwidth="0" botmargin="0">
<!--#include file="../top.asp"-->
<TABLE cellSpacing=0 cellPadding=0 width=778 align=center background=../images/bg-content.gif border=0 valign="top">
  <TBODY>
  <TR>
    <TD width=778 height=1>
      <TABLE style="BORDER-COLLAPSE: collapse" borderColor=#111111 height=1 
      cellSpacing=0 cellPadding=0 width=778 align=left border=0 valign="top">
        <TBODY>
  <TR>
    <TD width=778 height=188>
      <TABLE style="BORDER-COLLAPSE: collapse" borderColor=#111111 cellSpacing=0 
      cellPadding=0 width=778 border=0>
        <TBODY>
        <TR>
          <TD width=15 height=151>　</TD>
          <TD vAlign=top width=194 height=151><!--#include file="../left1.asp"--></TD>
          <TD vAlign=top width=4></TD>
          <TD vAlign=top width=550 height=151>
            <TABLE style="BORDER-COLLAPSE: collapse" borderColor=#111111 
            cellSpacing=5 cellPadding=0 width="100%" border=0>
              <TBODY>
              <TR>
                <TD vAlign=top width="100%" height=386>
                  <TABLE style="BORDER-COLLAPSE: collapse" borderColor=#111111 
                  height=246 cellSpacing=0 cellPadding=0 width="91%" border=0>
                    <TBODY>
                    <TR>
                      <TD vAlign=top width="100%" height=39><!--#include file="../query.asp"--></TD></TR>
                    <TR>
                      <TD width="100%" height=5></TD></TR>
                    <TR>
                      <TD width="100%" height=8></TD></TR>
                    <TR>
                      <TD width="100%" height=5></TD></TR>
                    <TR>
                      <TD width="100%" height=3>
                      <IMG height=21 
                        src="../images/b.gif" width=538 border=0></TD></TR>
                    <TR>
                      <TD width="100%" background=../images/b01.gif height=465 valign="top">
                      <div align="center">
                        <center>
                        <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="98%" id="AutoNumber1">
                          <tr>
                            <td width="100%" style="font-size: 12px">

<p>　</p>
<div align="center" style="font-size: 12px">
  <center>
  <table border="0" cellpadding="2" cellspacing="0" width="60%" id="AutoNumber4" fpstyle="24,011111100" style="border-collapse: collapse; border-left: .75pt solid #DBDBDB; border-right: .75pt solid #DBDBDB; border-top: 1.5pt solid #DBDBDB; border-bottom: 1.5pt solid #DBDBDB; background-color: #E8E8E8">
      <tr>
        <td width="100%" style="font-weight: bold; border-left-style: none; border-right-style: none; border-top-style: none; border-bottom: .75pt solid gray; background-color: silver; font-size:12px" colspan="2">
        <p align="center"><font size="2">影卡充值</font></td>
      </tr>
      <tr>
        <td width="100%" style="color: black; border-style: none; font-size:12px" colspan="2">
      <% if request("type")="s" then
if trim(request("car1"))="" or trim(request("car2"))="" then
response.redirect "user_card_add.asp"
end if
      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 money,starlook,oklook,askmejoin from users where userid='"&request("userid")&"'"
      rs1.open sql1,conn,1,3
      if rs1.eof and rs1.bof then
      response.write"<script>alert('该会员帐号不存在！');history.back();</Script>"
      response.end
      else
      rs1("starlook")=now()
      if rs1("money")-now()<1 then
      rs1("money")=now() + dayer
      rs1("oklook")=oklook
      else
      rs1("money")=rs1("money") + dayer
      rs1("oklook")=oklook
      end if
      rs1.update
      conn.execute"delete from car where carid='"&car1&"'"
      end if
      if rs1("askmejoin")<>"" then

      set rs2=server.createobject("adodb.recordset")
      sql2="select getmoney,payno,oklook from users where userid='"&rs1("askmejoin")&"'"
      rs2.open sql2,conn,1,3
      if rs2("oklook")=0 or rs2("oklook")=1 then
      give=1
      elseif rs2("oklook")=2 then
      give=2
      elseif rs2("oklook")=3 then
      give=3
      end if
      rs2("getmoney")=cint(rs2("getmoney"))+paymoney/10*give
      rs2("payno")=cint(rs2("payno"))+1
      rs2.update
      rs2.close
      set rs2=nothing
      end if
      if oklook=1 then
      oklook="普通"
      elseif oklook=2 then
      oklook="白银"
      elseif oklook=3 then
      oklook="黄金"
      end if
      end if
      rs.close
      rs1.close
      
      set rs=nothing
      set rs1=nothing
      
      %> <font size="2">已经成功地将<%=dayer%>天的<%=oklook%>卡充入你的帐号，您现在是<%=oklook%>会员。</font></td>
      </tr>
      <%end if
      conn.close
      set conn=nothing%>
      <form method="POST" action="user_card_add.asp?type=s" name="regist" onsubmit="return valid_register()">
      <tr>
        <td width="28%" style="color: black; border-style: none; font-size:12px" align="center">
        <font size="2">影卡号码：</font></td>
        <td width="72%" style="color: black; border-style: none; font-size:12px">
        <input type="text" name="car1" onkeypress="isnum()" maxlength="20" size="20"></td>
      </tr>
      <tr>
        <td width="28%" style="color: black; border-style: none; font-size:12px" align="center">
        <font size="2">影卡密码：</font></td>
        <td width="72%" style="color: black; border-style: none; font-size:12px">
        <input type="text" name="car2" onkeypress="isnum()" maxlength="20" size="20"></td>
      </tr>
      <tr>
        <td width="28%" style="color: black; border-style: none; font-size:12px" align="center">
        <font size="2">会员帐号：</font></td>
        <td width="72%" style="color: black; border-style: none; font-size:12px">
        <input type="text" name="userid" size="20" value="<%=request.cookies("userid")%>"></td>
      </tr>
      <tr>
        <td width="100%" style="color: black; border-style: none; font-size:12px" colspan="2" align=center>
        <input type="submit" value="提交" name="B1">&nbsp;&nbsp;&nbsp; <input type="reset" value="重置" name="B2"></td>
      </tr>
    </form>
  </table>
  </center>
</div>
<p align="center"><font size="2">注：本页面只适合购买或获赠影卡的用户使用</font></p>
<p align="center">　</p>
  </td>
                          </tr>
                          <tr>
                            <td width="100%">　</td>
                          </tr>
                        </table>
                        </center>
                      </div>
                      </TD></TR>
                    <TR>
                      <TD width="100%" height=1>
                      <IMG height=5 
                        src="../images/b02.gif" width=538 
                    border=0></TD></TR></TBODY></TABLE></TD></TR>
              </TBODY></TABLE></TD>
          <TD width=15 height=151>　</TD></TR></TBODY></TABLE></TD></TR>
  </TBODY></TABLE>
</table>
<!--#include file="../bottom.asp"-->
</BODY></HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -