Question

ASP 修改密码出错，提示缺少代码

帮我修改一下代码可以实现修改密码成功。。。

数据库字段：表名：ZD_Member
字段名：memberID（用户名） 字段：memberPass（密码）
我在后台做了一个连接：修改密码，点击进入admin_password.asp页面（admin_password.asp页面已经可以显示用户名）
表单名字：用户名：memberID 原密码：oldPassword 新密码：newPassword 重复新密码：newPasswordcheck 提交到：get_password.asp页面
get_password.asp页面代码为

<%

Set Rs = Server.CreateObject("Adodb.RecordSet")
Sql = "Select * from ZD_Member where memberID='"&Session("memberID")&"'"
Rs.open Sql,conn,1,3
IF Rs.eof Then
ErrRedirect(601)
End IF
IF Request.Form("oldPassword")<>"" Then
IF MD5(Request.Form("oldPassword"))<>Rs("memberPass") Then
Response.write ("<script language='javascript'>alert('旧密码不正确，请确认!!');location='admin_index.asp';</script>")
Response.End
End IF
IF Len(Request.Form("newPassword"))<6 or Len(Request.Form("newPassword"))>18 Then
Response.write ("<script language='javascript'>alert('密码位数必是大于等于6小于18!!');location='admin_index.asp';</script>")
Response.End
End IF
IF Request.Form("newPassword") = Request.Form("newPasswordCheck") Then
Rs("memberPass") = Md5(Request.Form("newPassword"))
Response.Session(memberID)("password") = Md5(Request.Form("newPassword"))
Else
Response.write ("<script language='javascript'>alert('两次密码不相同!!');location='admin_index.asp';</script>")
Response.End
End IF
End IF
Rs.update
Rs.close
Set Rs = Nothing
Response.write ("<script language='javascript'>alert('修改成功!!');location='admin_index.asp';</script>")
Response.End
%>

Answer 1

以上如果是 get_password.asp 完整页面的话, 至少缺少页面: <!--#include file="Conn.asp"-->

Answer 2

是mssql数据库的话加上这个：
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=数据库用户名;Initial Catalog=数据库名;Password=数据库密码;Data Source=数据库服务器地址
conn.Open connstr

是Access数据库的话加上这个：
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider = Microsoft.Jet.OLEDB.4.0;Data Source = 数据库路径"
conn.Open connstr

Answer 3

提示的信息帖上来吧

Answer 4

没有连接数据库啊！！