password_save.asp

1。超强文件读写锁定

<!--#include file="../Manage/mConn.asp"-->
<!--#include file="../Manage/mConst.asp"-->
<%If Session("Sk2sub")="" Then
    Response.Write ("<script Language=Javascript>window.open('index.asp','_top');</script>")
	Response.End
End If
  Dim password
    password=Request.Form("password")
  Dim Rs6
    Set Rs6=Server.CreateObject("adodb.Recordset")
	Set Rs6=Conn.Execute("update m_reportuser set Login_Pwd='"&password&"' Where Login_Name='"&Session("SK2sub")&"'")
	Set Rs6=Nothing
session("SK2sub")=""
session("SK2B")=""
session("SK2F")=""
response.write("<script>top.document.location='index.Asp';</script>")
  Response.end
%>