乖乖虎有一个小东东让我帮他改一下
是个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
结果
一直提示"语句未结束"
这行……
实在没看出错在哪….
删除了重新输入,结果还是如此
从出错提示来看，应当是查询语句出问题了，你把查询语句打印出来，放到查询分析器里跑一下，就可以知道问题出在哪个环节了。
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 ...同样的错误,怪的是:它根本就像没有看到response.write(sSql)
response.end
似的……
压根没输出sql语句
Faint!
找到原因了…..