www.gusucode.com > WapEditFile手机WAP文件管理器源码 > wap_userpost.asp
<!--#include file="wap_common.asp"--> <!--#include file="wap_check.asp"--> <!--#include file="wap_conn.asp"--> <!--#include file="wap_md5.asp"--> <!--#include file="wap_verify.asp"--> <% Response.Buffer=True Response.ExpiresAbsolute=Now()-1 Response.Expires=-1 Response.CacheControl="no-cache" Response.AddHeader "Pragma", "No-Cache" %> <%Response.ContentType="text/vnd.wap.wml; charset=utf-8"%> <%if request("id")="" then response.redirect pathstr&"wap_err.asp?id=1" end if%> <%if trim(request("user_name"))="" then response.redirect pathstr&"wap_err.asp?id=2" end if%> <% dim sql2,id2,user_name2,user_password1,user_password2,user_realname2 id2=trim(request("id")) user_name2=trim(request("user_name")) user_password1=trim(request("user_password")) user_password2=md5(user_password1) user_realname2=trim(request("user_realname")) if user_password1<>"" then sql2="update admin_user set user_realname='"&user_realname2&"',user_name='"&user_name2&"',user_password='"&user_password2&"' where id="&id2 else sql2="update admin_user set user_realname='"&user_realname2&"',user_name='"&user_name2&"' where id="&id2 end if conn.execute(sql2) set conn=nothing %> <?xml version="1.0" encoding="utf-8"?> <!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml"> <wml> <card title="修改用户结果" id="test" ontimer="wap_all.asp"> <timer value="5"/> <p>祝贺您,修改用户成功!<br/>提示:修改用户后请记住新帐号和新密码!<br/>5秒钟后自动进入</p> <p align='center'><a href="wap_all.asp">[管理首页]</a></p> </card> </wml>