📄 xiugai.asp

📁 机票预定系统各个模块的设计-ticket reservation systems detailed design system modules of the design
💻 ASP
字号:
<!--#include file="function/conn.asp"-->
<!--#include file="function.asp"-->
<!--#include file="power.asp"-->
<%
if admin_Remark_bak<>"super" then
%>
<script language="javascript">
alert("权限不够！该管理员没有此权限！\n请换管理员再试吧！");
window.close();
window.location="index.asp";
</script>
<%
end if
caozuo=trim(request("caozuo"))
action=trim(request("action"))
mem_id=trim(request("mem_id"))
mon_num=trim(request("mon_num"))
mon_money=trim(request("mon_money"))
if not isnumeric(mon_num) then
mon_num=0
end if
if not isnumeric(mon_money) then
mon_money=0
end if
mon_num=clng(mon_num)
if action="add" then
 msg="手动操作增加积分"
 msg1="增加新的积分（<font color=red>限整数</font>）"
 msg2="消费金额（<font color=red>限整数</font>）"
else
 msg="手动减少积分操作"
 msg1="减少积分（<font color=red>限整数</font>）"
 msg2="消费金额（<font color=red>限整数</font>）"
end if
if caozuo="edit" then
admin_name=trim(session("login_name"))
if admin_name="" then
admin_name=trim(request.Cookies("login_name"))
end if
if admin_name="" then
admin_name="超级管理员"
end if
mon_memo=trim(request("mon_memo"))
if mon_memo="" then mon_memo="不详"
set qq=server.createobject("adodb.recordset")
sql="select * from tmember where mem_id = "&mem_id
qq.open sql,conn,3,2
if not qq.eof then
mon_own=qq("mem_loginname")
money_count=qq("mem_money")
if trim(money_count)="" or isnull(money_count) then
money_count=0
else
money_count=clng(money_count)
end if
if action="add" then
money_count=money_count+mon_num
qq("mem_money")=money_count
else
money_count=money_count-mon_num
qq("mem_money")=money_count
mon_num=-mon_num
mon_money=-mon_money
end if
qq.update
qq.close
sql="select * from mem_money"
qq.open sql,conn,3,2
qq.addnew
qq("mon_own")=mon_own
qq("mon_date")=now()
qq("mon_money")=mon_money
qq("mon_point")=mon_num
qq("mon_admin")=admin_name
qq("mon_memo")=mon_memo
qq.update
qq.close
%>
<script language="javascript">
window.opener.location.reload();
window.close();
window.location="error.htm"
</script>
<%
else
msg_error("操作错误！请再试一次！")
end if
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>会员积分手动操作</title>
<style type="text/css">
<!--
.style1 {
	font-size: 12px;
	font-family: "宋体";
}
.style2 {color: #FF0000}
.STYLE3 {
	color: #FFFFFF;
	font-weight: bold;
}
-->
</style>
</head>
<body>
<form name="form1" action="xiugai.asp">
<input type="hidden" name="action" value="<%=action%>">
<input type="hidden" name="mem_id" value="<%=mem_id%>">
<input type="hidden" name="caozuo" value="edit">
<table width="460"  border="1" cellpadding="2" cellspacing="0" bordercolor="#003366" bordercolordark="#FFFFFF">
  <tr>
    <td height="23" colspan="2" align="center" bgcolor="#518BCB" class="style1"><span class="STYLE3"><%=msg%></span></td>
  </tr>
  <tr>
    <td width="145" align="right" class="style1"><%=msg1%></td>
      <td width="309" height="23" class="style1"><input name="mon_num" type="text" size="41" maxlength="8"></td>
  </tr>
  <tr>
    <td width="145" align="right" class="style1"><%=msg2%></td>
    <td width="309" height="23" class="style1"><input name="mon_money" type="text" size="41" maxlength="8"></td>
  </tr>
  <tr>
      <td height="23" align="right" class="style1">增加积分原因</td>
      <td height="23" class="style1"><textarea name="mon_memo" cols="40" rows="10" id="mon_memo"></textarea></td>
  </tr>
  <tr>
    <td height="23" colspan="2" class="style1"><table width="100%"  border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td width="50%" align="right"><input name="submit" type="submit" value="提交"></td>
        <td width="3%" align="right">&nbsp;</td>
        <td width="47%"><input name="reset" type="reset" id="reset" value="清空"></td>
      </tr>
    </table></td>
  </tr>
</table>
</form>
</body>
</html>
⌨️ 快捷键说明

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