| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 849 人关注过本帖
标题:求助:为什么提示未定义 adCmdText
只看楼主 加入收藏
shuihen
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2007-6-15
收藏
 问题点数:0 回复次数:2 
求助:为什么提示未定义 adCmdText

<%
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 quot 定义 Form 提示 
2007-07-18 16:28
zhulei1978
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:53
帖 子:1351
专家分:1200
注 册:2006-12-17
收藏
得分:0 

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


其实我就是改变社会风气,提高少女素质,刺激电影市道,提高年轻人内涵,玉树临风,风度翩翩的整蛊专家,我名叫古晶,英文名叫JingKoo!
2007-07-18 19:47
shuihen
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2007-6-15
收藏
得分:0 
ok...谢谢了
2007-07-19 08:34
快速回复:求助:为什么提示未定义 adCmdText
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.021339 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved