答对马上给分。 ASP连接SQL问题!

Question

最上面差一个<%
COPY掉了！
谢谢！

Answer 1

GetRecordSet(sqlstr)'//提示这里出错.........///

Answer 2

rs.Open sql, conn
Set GestReCordSet=rs改为Set GestReCordSet=rs
getrecordset.open sql,conn,1,1

Answer 3

你的sqlstr的查询字符串在哪里？

Answer 4

就是就是！最重要的是看这里有没有问题！
Function GetRecordSet(sql)
    Set Conn=Server.CreateObject("ADODB.Connection")
    Conn.Open "Driver={SQL Server};Server=Server;Database=KBSoftData;UID=softuser;PWD=A1AkiboO0O"
    Set rs = Server.CreateObject("ADODB.Recordset")
    rs.Open sql, conn
    Set GestReCordSet=rs
    Set rs=Nothing
    Set Conn=Nothing
  End Function

Answer 5

我这个是做的公用函数库啊。
那个SQLSTR在其他ASP中啊。语法没有错的。

Answer 6

<%
  Function GetRecordSet(Rs,sql,var1,var2)
    Set Conn=Server.CreateObject("ADODB.Connection")
    Conn.Open "Driver={SQL Server};Server=Server;Database=KBSoftData;UID=softuser;PWD=A1AkiboO0O"
    Set rs = Server.CreateObject("ADODB.Recordset")
    rs.Open sql,conn,var1,var2
  End Function  Function GetGsList(sqlstr)'//得到公司列表
    
    Call GetRecordSet(Rs,sqlstr,1,1)'//提示这里出错.........///        
    on error resume next  '找不到用户资料时候忽略错误
    Rs.MoveFirst
    Str="<select name='gsmenu' onChange='MM_jumpMenu('parent',this,0)'>"&chr(13)
    Str=Str&"<option value=0>全部分公司</option>"&chr(13)
    While not Rs.EOF
      Str=str&"<option value="&Rs("id")&">"&Trim(Rs("gsName"))&"</option>"&chr(13) 
      Rs.MoveNext
    Wend
    Str=Str&"</Select>"
    Set Rs=Nothing
    GetGsList=Str
  End Function
%>

Answer 7

回复人： lions911(喜剧之王) ( ) 信誉：试一下,不一定对试了就是不对！

Answer 8

试了成功了。
不过我加上一个函数又不对了。
<%
  Sub GetRecordSet(Rs,sql,var1,var2)
    Set Conn=Server.CreateObject("ADODB.Connection")
    Conn.Open "Driver={SQL Server};Server=Server;Database=KBSoftData;UID=softuser;PWD=A1AkiboO0O"
    Set rs = Server.CreateObject("ADODB.Recordset")
    rs.Open sql,conn,var1,var2
  End Sub  Function GetGsList'//得到公司列表
    sqlstr=" select gsName,id From gongsi where Deleted=0 and Companysn=1001"
    Call GetRecordSet(Rs,sqlstr,1,1)'
    on error resume next  '找不到用户资料时候忽略错误
    Rs.MoveFirst
    Str="<select name='gsmenu' onChange='MM_jumpMenu('parent',this,0)'>"&chr(13)
    Str=Str&"<option value=0>全部分公司</option>"&chr(13)
    While not Rs.EOF
      Str=str&"<option value="&Rs("id")&">"&Trim(Rs("gsName"))&"</option>"&chr(13) 
      Rs.MoveNext
    Wend
    Str=Str&"</Select>"
    Set Rs=Nothing
    GetGsList=Str
  End Function  Function gsidtoname(gsid) '//公司ID 转成公司名称
    sqlstr=" select gsname form gongsi where id="&gsid
    Call GetRecordSet(Rs,sqlstr,1,1)
    on error resume next  '找不到用户资料时候忽略错误
    Rs.MoveFirst
    IF GsSet.recordcount>0 then
      Str=Rs("gsName")
    Else Str="全部分公司"
    End if
    Set Rs=Nothing
    gsidtoname=Str
  End Function
%>我调用gsidtoname函数的时候说第6行出错

Answer 9

sqlstr=" select gsname form gongsi where id="&gsid里面的sql里是from不是form