edituserchk.asp

来自「人才招聘系统,用asp做的」· ASP 代码 · 共 24 行

<!--#include file=../conn.asp-->
<!--#include file=usercookies.asp-->
<!--#include file=onlinerz.asp-->
<!--#include file=md5.asp-->
<%
    dim password1,username,rs,sql
	password1=request("password1")
	username=request("username")
	set rs=server.createobject("adodb.recordset")
	sql="select UserName,Password from [person] where username='"&UserName&"'"
	rs.open sql,conn,1,3
	if rs.eof or rs.bof then
    response.write "<li>参数错误!"
    response.write "<li>"&username&""
    response.end
    end if
	rs("password")=md5(password1)
	rs.update
	rs.close
	set rs=nothing
	response.write "<li>修改成功!"
    response.write "<meta http-equiv=refresh content=""2;URL=user.asp"">"
    closedb
%>