📄 admin_autocard.asp

📁 QQ呱唧网
💻 ASP
字号:
<!--#include file="../conn.asp"-->
<!--#include file="Admin_RndCard.asp"-->
<!--#include file="Admin_ChkPurview.asp"-->
<!--#include file="../inc/function.asp"-->
<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>
<link href='Admin_Style.css' rel='stylesheet' type='text/css'>
</head>
<body leftmargin='2' topmargin='0' marginwidth='0' marginheight='0'><table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' Class='border'>
<tr class='topbg'>
    <td height='22' colspan=2 align=center> <strong>冲 值 卡 生 成管 理</strong> </td>
</tr>
<tr class='tdbg'>
<td width='70' height='30'><strong>管理导航：</strong></td>      
    <td height='30'><a href='?'>冲值卡管理首页</a> | <a href="?action=add">添加新冲值卡</a>| 
      <a href="?action=nouse">所有未使用的冲值卡</a>| <a href="?action=use">已经使用的冲值卡</a> 
    </td>
</tr></table>
<br>
<% 
select case lcase(request("action"))
case "add"
call addtype()
case "modifyl"
call Modifyl()
case "del"
call del()
call main()
case "saveadd"
call saveadd()
call main()
case "savemodifyl"
call saveModifyl()
call main()
case else
call main()
end select

sub saveadd()
set rs=server.createobject("adodb.recordset")
sql="select * from card where  CardNumber='"&request("CardNumber")&"'"
rs.open sql,conn,3,2
if rs.eof then
rs.addnew
rs("CardNumber")=request("CardNumber")
rs("pwd")=request("pwd")
rs("CardType")=request("CardType")
rs.update
call WriteSuccessMsg("冲值卡添加成功!<br>卡类型为:" &request("CardType")& "!<br>冲值卡卡号:" & request("CardNumber")&"<br>冲值卡密码:" &request("pwd"))
response.end
else
response.write "<script language=javascript>alert('已经存在该卡号');history.back(-1)</script>"
response.End()
end if
end sub

sub saveModifyl()
set rs=server.createobject("adodb.recordset")
sql="select * from card where  id="&request("id")
rs.open sql,conn,3,2
if rs.eof then
response.write "<script language=javascript>alert('不存在该类型');history.bacn(-1)</script>"
response.End()
else
rs("typename")=request("typename")
rs("day")=request("day")
rs("money")=request("money")
rs.update
end if
end sub

sub del()
set rs=server.createobject("adodb.recordset")
sql="delete from card where id="&request("id")
rs.open sql,conn,3,2
end sub
%>
<% sub main() %>
<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>
  <tr class='title'> 
    <td width="51" height='20' align='center'><strong>编号ID</strong></td>
    <td width="103" align='center'>冲值卡卡号</td>
    <td width="88" align='center'><b>使用状态</b></td>
    <td width="102" align='center'><b>销售代理商</b></td>
    <td width="84" align='center'><b>冲入用户</b></td>
    <td width="104" align='center'><b>冲值卡类别</b></td>
    <td width='75' height='20' align='center'><strong> 操作</strong></td>
  </tr>
  <% 
  sql="select * from card"
set rs=server.createobject("adodb.recordset")
select case lcase(request("action"))
case "nouse"
sql="select * from card  where  usestate=false"
case "use"
sql="select * from card  where  usestate=true"
case "search"
sql="select * from card  where  CardNumber=' " &request("Searchname")& " '"
end select
rs.open sql,conn,1,1
if rs.eof then response.Write("<tr class='tdbg'><td colspan='20' align='center'><br>没有任何信息<br><br></td></tr>")
do until rs.eof
%>
  <tr class='tdbg' onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'"> 
    <td height="22" align='center'><%= rs("id") %></td>
    <td align='center'> 
      <% =rs("CardNumber") %>
    </td>
    <td align='center'> 
      <%if  rs("UseState")=true then response.write "已经使用" else response.write "未使用" end if %>
    </td>
    <td align='center'> <%=rs("Operator")%> </td>
    <td align='center'> <%=rs("QQ")%> </td>
    <td align='center'> <%=rs("CardType")%> </td>
    <td align='center'><a href='?Action=Modifyl&ID=<%= rs("id") %>'>修改</a>&nbsp;<a href='?Action=Del&ID=<%= rs("id") %>' onClick='return confirm("确定要删除冲值信息么?这样有可能在汇总的时候导致统计出错!");'>删除</a></td>
  </tr>
  <%
rs.movenext
loop
call CloseConn()%>
</table><p></p>
<form  method="post" action="?action=search">
  <table width='100%' border='0' cellspacing='1' cellpadding='2' class='border'>
    <tr class='tdbg'> 
      <td width='190' height="23"><strong>冲值卡查询</strong></td>
      <td width='562'> <input name='Searchname' type='text' id="Searchname"  size='20' maxlength='30'> 
        <input type='submit' name='Submit22' value=' 查 询 '>
        若为空，则查询所有记录</td>
    </tr>
  </table>
</form>
<%end sub%>
<%sub  addtype() %><body leftmargin='2' topmargin='0' marginwidth='0' marginheight='0'> 
<form name='search_request' method='get' action=''>
</form>
<form method='POST'  action=?action=saveadd  target='_self'>
  <table width='65%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>
    <tr class='title'> 
      <td height='22' colspan='2' align='center'><strong>添 加 新 冲 值 卡</strong></td>
    </tr>
    <tr class='tdbg'> 
      <td align='right'>冲值卡卡号：</td>
      <td><input name='CardNumber' type='text' id='CardNumber' value='<%=RndCardInfo()%>' size='30'> 
      </td>
    </tr>
    <tr class='tdbg'> 
      <td align='right'>冲值卡密码：</td>
      <td> <input name='pwd' type='text' id='pwd' value='<%=RndPwd()%>' size='30'> 
      </td>
    </tr>
    <tr class='tdbg'> 
      <td width="30%" align='right'>冲值卡类别：</td>
      <td width="70%"> <select name="CardType" id="CardType">
          <%	  
		 set rs=server.createobject("adodb.recordset")
		sql="select * from card_type"
		rs.open sql,conn,1,1
	   do until rs.eof %>
          <option ><%= rs("TypeName") %></option>
          <%
		   rs.movenext
		   loop
		   %>
        </select></td>
    </tr>
    <tr class='tdbg'> 
      <td align='right'>操作：</td>
      <td> <input type='submit' name='Submit2' value='添加到数据库'> <input type='button' value='从新生成冲值卡' onclick="javascript:document.location.href='Admin_AutoCard.asp?action=add';"> 
      </td>
    </tr>
    <tr class='tdbg'> 
      <td height='40' colspan='2' align='center'>&nbsp; </td>
    </tr>
  </table>
</form>
<%end   sub%>
<%
sub  Modifyl()  
set rs=server.createobject("adodb.recordset")
sql="select *  from  card  where  id="&request("id")
rs.open sql,conn,3,2
if  rs.eof  then
response.write "<script language=javascript>alert('不已经存在该类型')</script>"
response.End()
end  if
%>
<body leftmargin='2' topmargin='0' marginwidth='0' marginheight='0'> 
<form method='POST'  action=?action=savemodifyl&id=<%= request("id") %>  target='_self'>  
  <table width='60%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>
    <tr class='title'> 
      <td height='22' colspan='2' align='center'><strong>修 改 </strong></td>
    </tr>
    <tr class='tdbg'> 
      <td width="36%" align='right'>冲值卡卡号：</td>
      <td width="64%"> <input name='CardNumber' type='text' value='<%=rs("CardNumber")%>' size='30'> 
      </td>
    </tr>
    <tr class='tdbg'> 
      <td align='right'>冲值卡密码：</td>
      <td><input name='pwd' type='text' id='typename3' value='<%=rs("pwd")%>' size='30'> 
      </td>
    </tr>
    <tr class='tdbg'> 
      <td align='right'>冲入的QQ：</td>
      <td> <%= RS("QQ") %></td>
    </tr>
    <tr class='tdbg'> 
      <td align='right'>冲值卡类型：</td>
      <td> <%= RS("CardType") %></td>
    </tr>
    <tr class='tdbg'> 
      <td align='right'>使用状态：</td>
      <td> 
        <%if  rs("UseState")=true then response.write "已经使用" else response.write "未使用" end if %>
      </td>
    </tr>
    <tr class='tdbg'> 
      <td align='right'><p>销售代理商：</p></td>
      <td> <%=rs("Operator")%> </td>
    </tr>
    <tr class='tdbg'> 
      <td align='right'><p>销售日期：</p></td>
      <td> <%=rs("AddDate")%> </td>
    </tr>
    <tr class='tdbg'> 
      <td height='40' colspan='2' align='center'>&nbsp; </td>
    </tr>
  </table>
</form>
<%end   sub%>
<% call CloseConn() %>
⌨️ 快捷键说明

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