📄 admin_cardtype.asp

📁 QQ呱唧网
💻 ASP
字号:
<!--#include file="../conn.asp"-->
<!--#include file="Admin_ChkPurview.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></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_type  where  typename='"&request("typename")&"'"
rs.open sql,conn,3,2
if rs.eof then
rs.addnew
rs("typename")=request("typename")
rs("day")=request("day")
rs("money")=request("money")
rs.update
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_type  where  id="&request("id")
rs.open sql,conn,3,2
if rs.eof then
response.write "<script language=javascript>alert('不存在该类型');history.back(-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_type 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="134" height='16' align='center'><strong>编号ID</strong></td>
    <td width="248" align='center'><b>冲值卡类别</b></td>
    <td width="471" align='center'><b>有效期</b></td>
    <td width="471" align='center'><b>耗费金钱</b></td>
    <td width='129' height='16' align='center'><strong> 操作</strong></td>
  </tr>
  <% 
set rs=server.createobject("adodb.recordset")
sql="select * from card_type"
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 align='center'><%= rs("id") %></td>
    <td align='center'>
      <% =rs("TypeName") %>
    </td>
    <td align='center'>
      <%=rs("Day")%>
    </td>
    <td align='center'>
      <%=rs("Money")%>
    </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>
<%end sub%>

<%sub  addtype() %>
<body leftmargin='2' topmargin='0' marginwidth='0' marginheight='0'> 
<form method='POST'  action=?action=saveadd  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='typename' type='text' id='typename2' value='<%=request("typename")%>' size='30'> 
      </td>
    </tr>
    <tr class='tdbg'> 
      <td height="25" align='right'>有效期：</td>
      <td><input name='day' type='text' id='typename3' value='<%=request("day")%>' size='30'>
        天 </td>
    </tr>
    <tr class='tdbg'> 
      <td align='right'>耗费金钱：</td>
      <td><input name='money' type='text' id='typename3' value='<%=request("money")%>' size='30'>
        元</td>
    </tr>
    <tr class='tdbg'> 
      <td align='right'>操作：</td>
      <td> <input type='submit' name='Submit2' value=' 添 加 '> </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_type  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 align='right'>冲值卡类型名称：</td>
      <td> <input name='typename' type='text' id='typename2' value='<%=rs("typename")%>' size='30'> 
      </td>
    </tr>
    <tr class='tdbg'> 
      <td align='right'>有效期：</td>
      <td><input name='day' type='text' id='typename3' value='<%=rs("day")%>' size='30'>
        天</td>
    </tr>
    <tr class='tdbg'> 
      <td align='right'>耗费金钱：</td>
      <td><input name='money' type='text' id='typename3' value='<%=rs("money")%>' size='30'>
        元</td>
    </tr>
    <tr class='tdbg'> 
      <td width="36%" align='right'>操作：</td>
      <td width="64%"> <input type='submit' name='Submit' value='修改'> </td>
    </tr>
    <tr class='tdbg'> 
      <td height='40' colspan='2' align='center'>&nbsp; </td>
    </tr>
  </table>
</form></body></html>
<%end   sub%>
<% call CloseConn() %>
⌨️ 快捷键说明

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