sk_crm_system_regedit.asp

为你节约成本,让你的企业在信息时代助上一臂之力!!! 真正做到无纸办公,全自动化信息办公,不受地点的限制,只要你能上网就能随时随地掌握公司动向.

<% @language="vbscript" %>
<!--#include file="Md5.asp"-->
<% 
response.buffer=true
Response.Expires=0
if session("quanxian")<"3"  then
Response.Write("<script>alert(""非法登陆，请确认密码的正确性！\n或者权限不够！"");history.back();</script>")
response.end
end if

dim mclass_folder
dim url
dim pass
dim rpass
dim email
dim show
dim rq
dim aq
dim SK_mclass

SK_mclass=request("SK_mclass")
mclass_folder=request("mclass_folder")
pass=request("pass")
rpass=request("rpass")
rq=request("rq")
aq=request("aq")
email=request("email")
show=request("show")
url=request("url")
quanxian=request.form("quanxian")
chayue=request.form("chayue")

'--------------------------------------------
ming=request.form("ming")
sex=request.form("sex")
bumen=request.form("bumen")
zhiwu=request.form("zhiwu")
phone=request.form("phone")
mobile=request.form("mobile")
'--------------------------------------------

If pass<>rpass  Then
Response.Write("<script>alert(""请重新输入密码！"");history.back();</script>")
response.end
end if
%>
<!--#include file="conn.asp" -->
<%
dim rs,sql
set rs=server.createobject("adodb.recordset")  
sql="select * from SK_mclass where mclass_id="&request.form("mclass_id")&" and user_id="&session("dd")&""
rs.Open sql,conn,1,3
if rs.eof or rs.bof then
Response.Write("<script>alert(""该用户已经添加过了！"");history.back();</script>")
else

if pass ="" then 
pass=rs("pass") 
else
rs("pass")= md5(pass)
end if

rs("mclass_folder")=mclass_folder
rs("rq")=rq
rs("aq")=aq
rs("url")=url
rs("email")=email
rs("show")=show
rs("ming")=ming
rs("sex")=sex
rs("bumen")=bumen
rs("zhiwu")=zhiwu
rs("phone")=phone
rs("mobile")=mobile
rs("quanxian")=quanxian
rs("chayue")=chayue
rs.Update

%>
<%
response.Redirect "SK_CRM_system_userlist.asp?SK_mclass=78"
response.end
%>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
%>