sk_crm_my_infosave.asp

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

<% @language="vbscript" %>
<!--#include file="Md5.asp"-->
<% 
response.buffer=true
Response.Expires=0
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")
pass=request("pass")
rpass=request("rpass")
rq=request("rq")
aq=request("aq")
email=request("email")
show=request("show")
url=request("url")
fenye=request.form("fenye")
waifenye=request.form("waifenye")
'--------------------------------------------
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="&session("sk_mclass")&""
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("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("show")=show
rs("fenye")=fenye
rs("waifenye")=waifenye
rs.Update
session("fenye")=fenye
session("waifenye")=waifenye
session("waifenye")=waifenye
session("ming")=ming
%>
<%
Response.Write("<script>alert(""恭喜你,修改成功！"");history.back();</script>")
response.end
%>

<%

rs.close
set rs=nothing
conn.close
set conn=nothing

end if
%>