<!--#Include File="Connection.Asp"-->
<!--#Include File="JaClog.Asp"-->
<!--#Include File="../JaInc/Ja_MD5.Asp"-->
<!--#Include File="Function.Asp"-->
<%
Dim na,pass,JaIP
Dim Rs
na = JaKillStr(Trim(Request.Form("na")))
pass = MD5(JaKillStr(Trim(Request.Form("pass"))),"long")
JaIP = Request.ServerVariables("REMOTE_ADDR")
Set Rs=Conn.Execute("Select * From [JaAdmin] Where JaAdmin='"&na&"' ")
If Rs.Eof Then
Conn.Execute("Insert Into [JaAdmin](JaAdmin,JaPass,JaLoginIP) values('"&na&"','"&pass&"','"&JaIP&"')")
Response.Write "<script language=javascript>alert('管理员添加成功!');"
Response.Write "window.document.location.href='Admin.Asp';</script>"
Else
Response.Write "<script language=javascript>alert('该管理员已经存在,请重新填写!');"
Response.Write "window.document.location.href='javascript:history.go(-1)';</script>"
End if
Rs.Close
Set Rs=Nothing
%>