真不会ASP了

2007-04

分类:笔记本子,关键词:No Data

已有 1,152 位领导视察,其中有 3 位领导做了批示.

乖乖虎有一个小东东让我帮他改一下
是个ASP的程序
根据需求，改了一下代码，主要是增加了一个Sub

还真不会写了，总是在最后一行加上分号，判断语句中加{}........

Sub UserExists(userid,username)
    Set objRs = Server.CreateObject("ADODB.Recordset")
    Dim sSql
    sSql = "select dat,menudes from log where dat=#" & dat & "# and userid="&userid
    objRs.open sSql,conn 1,1
    If (objRs.Eof And objRs.Bof)
    response.write("")
    Else
    Response.Write("<tr bgcolor=""#ffffff""><td width=""25%"" align=""center"">"&userid&"</td><td width=""25%"" align=""center"">"&username&"</td><td width=""25%"" align=""center"">"&rs("menudes")&"</td><td width=""25%"" align=""center"">"&objRs("dat")&"</td></tr>")
    End if
End sub
结果
一直提示"语句未结束"

这行……
实在没看出错在哪....
删除了重新输入,结果还是如此

3 Responses

青蛙四月 29 2007 , 22:52

从出错提示来看，应当是查询语句出问题了，你把查询语句打印出来，放到查询分析器里跑一下，就可以知道问题出在哪个环节了。

#1

幻想曲四月 29 2007 , 22:55

[code]

Set objRs = Server.CreateObject("ADODB.Recordset")

	Dim sSql 

	sSql = "select dat,menudes from log where dat=#" & dat & "# and userid='"&userid&"'"

    response.write(sSql)

	response.end

	objRs.open sSql,conn 1,1

	If (objRs.Eof And objRs.Bof) then

...

[/code]

同样的错误,怪的是:它根本就像没有看到response.write(sSql)
response.end
似的......
压根没输出sql语句