mem_up_data.asp

1。超强文件读写锁定

<!--#include file="manage/mConn.asp"-->
<!--#include file="manage/mConst.asp"-->
<%
  If Session("SK2User")="" Then
    Response.Write ("<script Language=Javascript>alert('Please input username/password and try again!!!');window.open('index.asp','_top');</script>")
    Response.End
  End If

  If CheckStr(Request.Form("password"))="" Then
    Response.Write ("<script Language=Javascript>alert('Please input password!!!');history.go(-1)</script>")
    Response.End
  End If

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

  Set Rs6=Server.CreateObject("Adodb.RecordSet")
  Set Rs6=Conn.Execute("update m_member set Login_Pwd='"&Login_Pwd&"' Where Login_Name='"&Session("SK2User")&"'")
  Set Rs6=Nothing

  Response.Redirect "mem_data.asp"
  Response.End
%>