请高手帮忙！！！

Snakesnoop 2005-11-08 02:06:56

Microsoft OLE DB Provider for SQL Server error '80040e14'

第 1 行: '13' 附近有语法错误。

/plus/showonline.asp, line 36

请问这是哪里错误？？？？？

...全文

85 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

ybfqlyq 2005-11-09

打赏
举报

哪一行呀？？？》標明一下嘛。

danis_cn 2005-11-09

打赏
举报

可能是这句错误：该成这样：
strsql = "select userid, username, invisible, posts, country, joindate, lastposttitle, lastpostid from sf_user where lastactivity > #" & dateadd('n', onlinetime * -1, now()) & "# order by lastactivity DESC"

Snakesnoop 2005-11-08

打赏
举报

代码如下：




<HTML>
<HEAD>
<TITLE>在线列表 - <%= boardtitle %></TITLE>
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
<STYLE type="text/css">

</STYLE>
</HEAD>

<BODY bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="20">
<center>
<%
page = request("page")
if page = "" then
page = 1
else
if not IsNumeric(page) then
page = 1
else
page = clng(page)
end if
end if

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open StrConn
Set rs = Server.CreateObject("ADODB.Recordset")
strsql = "select userid, username, invisible, posts, country, joindate, lastposttitle, lastpostid from sf_user where lastactivity > #" & dateadd("n", onlinetime * -1, now()) & "# order by lastactivity DESC"
rs.Open strsql, Conn, 1, 1
if not (rs.bof or rs.eof) then
i = 1
rs.PageSize = 30
if page > rs.PageCount then page = rs.PageCount
rs.AbsolutePage = page
pagecount = rs.PageCount
StrHtml = "<table width=""98%"" border=""0"" cellspacing=""1"" cellpadding=""4"" align=""center"">"
StrHtml = StrHtml & "<tr bgcolor=""#ACC18F""><td width=""20%"" align=""center"">用户</td><td width=""10%"" align=""center"">发帖数</td><td width=""20%"" align=""center"">来自</td><td width=""20%"" align=""center"">注册日期</td><td width=""30%"" align=""center"">最后发表</td></tr>"
do until rs.eof or i > rs.PageSize
if (i mod 2) = 0 then
StrHtml = StrHtml & "<tr bgcolor=""#EEEEEE"">"
else
StrHtml = StrHtml & "<tr bgcolor=""#F5F5F5"">"
end if
' if rs("invisible") <> 1 then StrHtml = StrHtml & "<td><a href=""../showuser.asp?userid=" & rs("userid") & """ target=_blank>" & rs("username") & "</a></td>"
StrHtml = StrHtml & "<td><a href=""../showuser.asp?userid=" & rs("userid") & """ target=_blank>" & rs("username") & "</a></td>"
StrHtml = StrHtml & "<td align=""center"">" & rs("posts") & "</td>"
StrHtml = StrHtml & "<td>" & rs("country") & "</td>"
StrHtml = StrHtml & "<td>" & rs("joindate") & "</td>"
if rs("lastposttitle") = "" then
StrHtml = StrHtml & "<td></td>"
else
StrHtml = StrHtml & "<td><a href=""../showthread.asp?threadid=" & rs("lastpostid") & """ target=_blank>" & rs("lastposttitle") & "</a></td>"
end if
StrHtml = StrHtml & "</tr>"
i = i + 1
rs.MoveNext
loop
StrHtml = StrHtml & "</table><br><br>"
response.write StrHtml & "共"& rs.RecordCount & "名注册用户在线, 当前为第" & page & "页, 选择页数:"
Set Conn = nothing
Set rs = nothing
for i=1 to pagecount
if i = page then
response.write " <b>" & i & "</b>"
else
response.write " <a href=""showonline.asp?page=" & i & """>" & i & "</a>"
end if
next
else
response.write "注册用户当前无人在线"
end if
%>
<br><br><b>showonline </b> For BBS
</center>
</BODY>
</HTML>

tigerwen01 2005-11-08