agent_oper.asp

1。超强文件读写锁定

<!--#include file="../Manage/mConn.asp"-->
<!--#include file="../Manage/mConst.asp"-->
<%
If Session("SK2B")="" Then
    Response.Write ("<script Language=Javascript>window.open('index.asp','_top');</script>")
	Response.End
End If
If Session("SK2F")="" Then
    Response.Write ("<script Language=Javascript>window.open('index.asp','_top');</script>")
	Response.End
End If


Select Case Request("K6")
  Case "K1"
    K1
  Case "K2"
    K2
  Case Else
    Response.Redirect "index.asp"
End Select

Sub K1

If Not Isnumeric(Request.Form("wager_max")) Then
  Response.Write ("<script language=javascript>alert('请输入数字！');history.go(-1)</script>")
  Response.End
End If

Dim Caution

  Caution=cLng(Request.Form("wager_max"))

Dim Rs6
  Set Rs6=Server.CreateObject("Adodb.RecordSet")

  Set Rs6=Conn.Execute("update m_agent set Caution="&Caution&" Where Login_Name='"&cstr(Session("SK2B"))&"'")
  Set Rs6=Nothing

  Response.Redirect "index_en.asp"

End Sub

Sub K2
  If CheckStr(Request.Form("password"))="" Then
   Response.Write ("<script language=javascript>alert('请输入数字！');history.go(-1)</script>")
   Response.End
  End If

  Dim password
    password=CheckStr(Request.Form("password"))

  Dim Rs6
    Set Rs6=Server.CreateObject("adodb.Recordset")
	Set Rs6=Conn.Execute("update m_agent set Login_Pwd='"&password&"' Where Login_Name='"&Session("SK2B")&"'")
	Set Rs6=Nothing
Session("Sk2B")=""
response.write("<script>top.document.location='index.Asp';</script>")
Response.end

End Sub
%>