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>