<%
dim IsModifyPwd, strPwd1, strPwd2, strAccount
dim strSQL, cmdObj, rsObj

IsModifyPwd = Request.Form("modifyPassword")
strAccount = RealString(Request.Form("userID"))
strPwd1 = RealString(Request.Form("password1"))
strPwd2 = RealString(Request.Form("password2"))

if IsModifyPwd = 1 then
if strPwd1 <> strPwd2 then
Response.Write "密码、确认密码不同<br><a href = 'Javascript:window.history.go(-1)'>返回</a>"
Response.End
end if
end if
' Response.Write IsModifyPwd
' Response.End
Set cmdObj = Server.CreateObject("ADODB.Command")
Set rsObj = Server.CreateObject("ADODB.RecordSet")
cmdObj.CommandText = "SELECT * FROM Admins WHERE Account = '"& strAccount & "'"
cmdObj.CommandType = adCmdText
Set cmdObj.ActiveConnection = conn
rsObj.Open cmdObj
rsObj("Account") = strAccount
rsObj("name") = Request.Form("name")
if IsModifyPwd = 1 then
rsObj("Pwd") = strPwd1
end if
rsObj.Update
rsObj.Close

set rsObj = nothing
CloseConn()
%>

有adCmdText这个常量吗，你要给它赋个初值
adCmdText=1（2或4)