📄 main.asp
字号:
<!--#include file="../conn.asp"-->
<!--#include file="../admin/Admin_RndCard.asp"-->
<!--#include file="../inc/function.asp"-->
<%
if session("name")="" then
response.write "<script>alert('session登陆已经失效!');document.location.href='login.asp'</script>"
response.end
end if
%>
<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>
| 帐户余额(<font color=red><%=GetMoney()%></font>元) | <a href="?action=loginout">退出登录</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 "loginout"
session("name")=""
response.Redirect("login.asp")
case else
call main()
end select
sub saveadd()
if GetMoney<GetCardMoney(Request("CardType")) then
response.write "<script language=javascript>alert('你卡上的余额不足,请联系你的上级代理冲值再进行如下操作!!,');history.back(-1)</script>"
response.End()
end if
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("Operator")=session("name")
rs("CardType")=Request("CardType")
call DeluserMoney(GetCardMoney(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 main() %>
<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>
<tr class='title'>
<td width="61" height='20' align='center'><strong>编号ID</strong></td>
<td width="123" align='center'>冲值卡卡号</td>
<td width="105" align='center'><b>使用状态</b></td>
<td width="122" align='center'><b>销售代理商</b></td>
<td width="100" align='center'><b>冲入用户</b></td>
<td width="117" align='center'><b>冲值卡类别</b></td>
<td width='99' height='20' align='center'><strong> 操作</strong></td>
</tr>
<%
sql="select * from card where Operator='" &session("name")&"'"
set rs=server.createobject("adodb.recordset")
select case lcase(request("action"))
case "nouse"
sql="select * from card where usestate=false and Operator='" &session("name")&"' order by id desc"
case "use"
sql="select * from card where usestate=true and Operator='" &session("name")&"' order by id desc"
case "search"
sql="select * from card where CardNumber like '%" &request("Searchname")&"%' and Operator='" &session("name")&"' order by id desc"
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
UserMoney=Usermoney+GetCardMoney(rs("CardType"))
%>
<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")%> (<%= GetCardMoney(rs("CardType")) %>元)</td>
<td align='center'><a href='?Action=Modifyl&ID=<%= rs("id") %>'>察看详细信息</a></td>
</tr>
<%
rs.movenext
loop
call CloseConn()%>
</table>
<div align=right>你的冲值卡共消费的金额 <font color=red><%=UserMoney%>元</font> 整</div>
<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='?action=add';">
</td>
</tr>
<tr class='tdbg'>
<td height='40' colspan='2' align='center'> </td>
</tr>
</table>
</form>
<%end sub%>
<%
sub Modifyl()
set rs=server.createobject("adodb.recordset")
sql="select * from card where id="&request("id")&" and Operator='" &session("name")&"' order by id desc"
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' 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> <%=GetCardmoney(RS("CardType") )%> 元</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'> </td>
</tr>
</table>
</form>
<%end sub%>
<% call CloseConn() %>
<%
function GetMoney()
set rs=server.createobject("adodb.recordset")
sql="select * from daili where name='"&session("name")&"'"
rs.open sql,conn,3,2
if rs.eof then
money=0
else
GetMoney=rs("money")
end if
end function
function GetCardMoney(typename)
set rs=server.createobject("adodb.recordset")
sql="select * from Card_Type where typename='"&typename&"'"
rs.open sql,conn,3,2
if rs.eof then
response.write "<script>alert('不存在该卡类型');history.back(-1)</script>"
response.end
else
GetCardMoney=rs("money")
end if
end function
sub DeluserMoney(byval Money)
set rs=server.createobject("adodb.recordset")
sql="select * from daili where name='"&session("name")&"'"
rs.open sql,conn,3,2
if rs.eof then
response.write "<script>alert('不存在该用户');history.back(-1)</script>"
response.end
else
rs("Money")=rs("Money")-Money
rs.update
end if
end sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -