subuser_add_act.asp

1。超强文件读写锁定

<!--#include file="../manage/mConn.asp"-->
<!--#include file="../manage/mConst.asp"-->
<%
If Session("SK2B")="" Then
  Response.Redirect "888_Login.Asp"
  Response.End
End If

Dim Login_Name,password,alias,level
password=request.form("new_pass")
alias=request.form("new_alias")
level=request.form("new_username_cut_level")
if session("SK2F")=0 then
Login_Name="h"&request.form("new_user")
else
Login_Name="i"&request.form("new_user")
end if
Manager=Session("SK2B")
 Dim Rs6
   Set Rs6=Server.CreateObject("Adodb.RecordSet")
   Set Rs6=Conn.Execute("Select Login_Name From m_reportuser Where Login_name='"&Login_Name&"' Order By ID Desc")
   If Not Rs6.Eof Then
    Set Rs6=Nothing
    Response.Write ("<script language=javascript>alert('添加错误："&Login_Name&"已注册！');history.go(-1)</script>")
	Response.End
   End If
   Set Rs6=Conn.Execute("Select Login_Name From m_agent Where Login_name='"&Login_Name&"' Order By ID Desc")
   If Not Rs6.Eof Then
    Set Rs6=Nothing
    Response.Write ("<script language=javascript>alert('添加错误："&Login_Name&"已注册！');history.go(-1)</script>")
	Response.End
   End If
   'response.Write "Insert into m_member (Login_Name,Login_Pwd,TrueName,Manager,memed,RegTime,stat) values ('"&Login_Name&"','"&password&"','"&alias&"','"&Manager&"','"&med&"',GetDate(),0)"
Set Rs6=Conn.Execute("Insert into m_reportuser (Login_Name,Login_Pwd,TrueName,Manager,memed,RegTime,stat) values ('"&Login_Name&"','"&password&"','"&alias&"','"&Manager&"','"&session("SK2F")&"',GetDate(),0)")
response.Redirect "index_subuser.asp"
%>