pwdchange.asp

使用源码注意项： 1、Windows2000 Professional SP3、DELPHI 6.0、SQL Server2000的开发环境； 2、开发目录为：D:PieceRate

<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("date/user.asp")
%>
<!--#include file="qx.asp"-->
 
<%
exec="select * from reg where id=1"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3
		rs("name")=request.form("name")
		rs("password")=request.form("password")


rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write("<script language=JavaScript>{window.alert('修改成功，页面关闭：）^_^!');window.close();}</script>")
'response.write("<script language=JavaScript>{window.alert('修改成功!');window.location.href=""login_ok.asp"";}</script>")
'response.write("xiao jiji haha")
'response.redirect "login_ok.asp"
%>