editpass.asp

对学校物资管理系统的一份设计

<!--#include file = "Startup.asp"-->
<!-- #include file="Function.asp" -->
<!--#include file="inc/md5.asp"-->
<%
call adminer()
call Header()
Call ComeUrl()

%>

<%
dim username,password,id,userclass
Dim zRs
username=Trim(Request("username"))
password=trim(request("password"))

ssql="select password,userclass from admin where username='"&username&"'"
ors.open ssql,oconn,1,3
	password=md5(password)
	ors("password")=password
	ors.update
ors.close

response.write("<table width='300' border='0' align='center' cellpadding='0' cellspacing='0'>")
response.write("<tr><td><div align='center'>用户修改成功！<br>2秒钟后自动返回用户管理面页</div></td></tr></table>")
response.write("<meta http-equiv='refresh' content='2;URL=zw_main.asp'>")
%>