system_user_act.asp

来自「一套六合彩投注程序」· ASP 代码 · 共 30 行

<!--#include file="mConn.asp"-->
<!--#include file="mConst.asp"-->
<%
If Session("SK2Admin")="" Then
  Response.Redirect "Admin_Login.Asp"
  Response.End
End If
If Not Isnumeric(Request("ID")) Then
  Response.Write ("<script language=javascript>alert('非法参数！');history.go(-1)</script>")
  Response.End
End If
If Not Isnumeric(Request("mod_number")) or len(trim(Request("mod_number")))>2 or len(trim(Request("mod_number")))=1 Then
  Response.Write ("<script language=javascript>alert('填写错误！');history.go(-1)</script>")
  Response.End
End If
If Not Isnumeric(Request("mod_money")) or len(trim(Request("mod_money")))>8 or len(trim(Request("mod_money")))<2 Then
  Response.Write ("<script language=javascript>alert('填写错误！');history.go(-1)</script>")
  Response.End
End If
mod_money=request("mod_money")
ID=request("ID")
mod_number=request("mod_number")
'response.Write request("ID")&"&nbsp;"&Request("mod_number")
 Dim Rs6
   Set Rs6=Server.CreateObject("Adodb.RecordSet")
   Set Rs6=Conn.Execute("update m_chilp set sum_m="&mod_money&",chilp_value='"&mod_number&"' Where ID='"&ID&"'")
   Set Rs6=Nothing
  Response.Write ("<script language=javascript>location.href='system_user4.asp'</script>")
  Response.End 
%>