在ASP 写查询问题？？

[yangcookie]

strsql1 = "select Reg_mobileTelePhone from JHBJ_Register where Reg_Name="&CorrelationUser

rst.Open strsql1,oConn,1,1

strRegTel=""
while not rst.EOF
strRegTel = strRegTel & "," & rst("Reg_MobileTelePhone")
rst.MoveNext
wend

rst.Close
set rst=nothing


为什么查不出来呢？请教!

[阿非]

strsql1 = "select Reg_mobileTelePhone from JHBJ_Register where Reg_Name="&CorrelationUser

=>

strsql1 = "select Reg_mobileTelePhone from JHBJ_Register where Reg_Name='"&CorrelationUser&"'"

[yan11cn]

有报错么？ 数据库连接字段 写的是oConn吗？ 还是不小心多加了个o

[lg7981]

查询内容要加''，如果是数值型的不用加。

strsql1 = "select Reg_mobileTelePhone from JHBJ_Register where Reg_Name='"&CorrelationUser &"'"

[yangcookie]

没有错 是oConn 可是就是查不出来
帮帮忙


<% Language=VBScript %>
<!--#include file="../Include/isconn.asp"-->
<%
'日程录入保存
set objXML=CreateObject("Microsoft.XMLDOM")
objXML.async=false
objXML.load(Request)

Session.CodePage = 65001
set root = objXML.documentElement.childNodes

strUserCode = session("UserCode")
strUserName=session("UserName")

count = root.length
for i=0 to count-1

strTitle = root.item(i).childNodes.item(0).text
strContent = root.item(i).childNodes.item(1).text
Secrecy = root.item(i).childNodes.item(2).text
CorrelationUser = root.item(i).childNodes.item(3).text
strStartDate = root.item(i).childNodes.item(4).text
strEndDate = root.item(i).childNodes.item(5).text
Sms = root.item(i).childNodes.item(6).text

strWarning = ""
strBefore = "60"
strCycleType = "0"
strCycleContent = ""
strCycleYear = ""

if strCycleType<>"0" then strWarning = "1"

CorrelationUser = "<?xml version=""1.0"" encoding=""gb2312""?><root><Record><UserCode>" & replace(CorrelationUser,",","</UserCode></Record><Record><UserCode>") & "</UserCode></Record></root>"

strsql = "pt_CalendarInsert '"&strTitle&"','"& strContent &"','"& strStartDate &"','"& strEndDate &"','"& strWarning
strsql = strsql &"','"& strBefore &"','"& strUserCode &"','"& Secrecy &"','"& strCycleType &"','"& strCycleContent
strsql = strsql &"','"& strCycleYear &"','"& CorrelationUser &"','"& Sms &"'"
'response.Write strsql
'response.End
oConn.execute(strsql)



strsql1 = "select Reg_mobileTelePhone from JHBJ_Register where Reg_Name='"&CorrelationUser&"'"

rst.Open strsql1,oConn,1,1

strRegTel = rst("Reg_MobileTelePhone")








next





rst.Close
set rst=nothing

oConn.Close
set oConn=nothing
%>

[yangcookie]

strsql1 = "select Reg_mobileTelePhone from JHBJ_Register where Reg_Name='"&CorrelationUser&"'"

rst.Open strsql1,oConn,1,1

strRegTel = rst("Reg_MobileTelePhone")


strRegTel 电话查不出来??

[阿非]

你看看 strsql1 是什么样 ，粘贴一下 在sql 中运行一下

[gxq323]

执行sql能查出来吗？在查询分析器里试试，能查的话注释掉on error resume next再看看

[yangcookie]

在查询分析器里职可以出来结果。。 就是这里不可以

strsql = "select Reg_mobileTelePhone from JHBJ_Register where Reg_Name='"&CorrelationUser&"'"

rst.Open strsql,oConn,1,1

strRegTel = rst("Reg_MobileTelePhone")

rst.Close
set rst=nothing


strRegTel 没有值!

[yan11cn]

if strCycleType <>"0" then strWarning = "1"
CorrelationUser = " <?xml version=""1.0"" encoding=""gb2312""?> <root> <Record> <UserCode>" & replace(CorrelationUser,","," </UserCode> </Record> <Record> <UserCode>") & " </UserCode> </Record> </root>"

这么长的字符串啊。。。。确保字符串中间别多空格 然后
strsql1 = "select Reg_mobileTelePhone from JHBJ_Register where Reg_Name='"&trim(CorrelationUser)&"'"