请高手进来,qq64607646

Rubi 2004-01-18 11:29:29


高手请看

本页无法显示
试图访问的网页出现问题,无法显示。

--------------------------------------------------------------------------------
请尝试以下方法:


单击 刷新按钮或者梢候再试。

打开 localhost 主页,然后查找与所需信息相关的链接。
HTTP 500.100 - 内部服务器错误 - ASP 错误
Internet 信息服务
--------------------------------------------------------------------------------
技术信息(适用于支持人员)


错误类型:
Microsoft JET Database Engine (0x80040E10)
/inc/function.asp, 第 808 行



浏览器类型:
Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)


页:
GET /index.asp


时间:
2004年1月17日, 23:40:55




详细信息:
Microsoft 支持



源代码是:sub ShowTopUser(UserNum)
if UserNum<=0 or UserNum>100 then UserNum=10
dim sqlTopUser,rsTopUser,i
sqlTopUser="select top " & UserNum & " * from " & db_User_Table & " order by " & db_User_ArticleChecked & " desc," & db_User_ID & " asc"
set rsTopUser=server.createobject("adodb.recordset")
rsTopUser.open sqlTopUser,Conn_User,1,1------这是第808行
if rsTopUser.bof and rsTopUser.eof then
response.write "没有任何用户"
else
response.write "<table width='100%' border='0' cellspacing='0' cellpadding='0'><tr><td align='left'>名次</td><td align='left'>用户名</td><td align='right'>文章数</td></tr>"
for i=1 to rsTopUser.recordcount
response.write "<tr><td align='center'>" & cstr(i) & "</td><td align='left'><a href='UserInfo.asp?UserID=" & rsTopUser(db_User_ID) & "'>" & rsTopUser(db_User_Name) & "</a></td><td align='right'>" & rsTopUser(db_User_ArticleChecked) & "</td></tr>"
rsTopUser.movenext
next
response.write "</table><div align='right'><a href='UserList.asp'>more...</a></div>"
end if
set rsTopUser=nothing

...全文
37 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
Rubi 2004-01-18
  • 打赏
  • 举报
回复
呵呵,可以了,不知道放在网上可以吗,我试试阿,谢谢你们的帮助阿!
Rubi 2004-01-18
  • 打赏
  • 举报
回复
我看看,
luojx 2004-01-18
  • 打赏
  • 举报
回复
order by " & db_User_ArticleChecked & " desc," & db_User_ID & " asc"
好像有错误
nffly 2004-01-18
  • 打赏
  • 举报
回复
应该是选择语句有问题。
winson79 2004-01-18
  • 打赏
  • 举报
回复
db_User_Table 没有值
nffly 2004-01-18
  • 打赏
  • 举报
回复
你的选择语句:sqlTopUser="select top " & UserNum & " * from " & db_User_Table & " order by " & db_User_ArticleChecked & " desc," & db_User_ID & " asc"
后面什么意思: & db_User_ID & " asc"
ttt2 2004-01-18
  • 打赏
  • 举报
回复
数据库没有连接数据库

rsTopUser.open sqlTopUser,Conn_User,1,1
~~~~~~~~~~1,3
xieyj 2004-01-18
  • 打赏
  • 举报
回复
rstopuser.open sqltopuser,conn_user,1,1

改成:
on error resume next
rstopuser.open sqltopuser,conn_user,1,3
If Err.Number <> 0 Then '发现错误
Response.Write "发现错误,错误信息是:" & Err.Description '写出错误信息
Response.End '结束运行
End If

28,407

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧