深圳刀粒回收:国外ASP空间问题....
来源:百度文库 编辑:高校问答 时间:2024/05/01 08:19:12
国外空间是用ODBC连接的...连上了..如果没有筛选语句就可以调数据库里的数据..但一加上筛选,排序语句就出现错误..如下..
Provider error '80004005'
Unspecified error
/test/index1.asp, line 10
调用页面代码如下:
<%
Dim DataConn
Dim RS
Dim MYSQL
Set DataConn = Server.CreateObject("ADODB.Connection")
DataConn.Open "DSN=test3"
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "CANNOT CONNECT TO DATABASE"
Response.End
End If
MYSQL = "SELECT * FROM admin order by id"'经测试原因就是"order by id"去掉一切正常
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open MYSQL,DataConn
If RS.EOF And RS.BOF Then
Response.Write "There are 0 records."
Else
RS.MoveFirst
While Not RS.EOF
%>
<%= RS("id") %>  
<%= RS("admin") %>  
<%= RS("UserPassword") %>  
<%= RS("rank") %>  
<hr>
<%
RS.MoveNext
Wend
End If
RS.Close
Set RS = Nothing
DataConn.Close
Set DataConn = Nothing
%>
请知道原因的帮一下忙..谢谢!
有的,已经解决了。是数据库问题。。谢谢你啊
Provider error '80004005'
Unspecified error
/test/index1.asp, line 10
调用页面代码如下:
<%
Dim DataConn
Dim RS
Dim MYSQL
Set DataConn = Server.CreateObject("ADODB.Connection")
DataConn.Open "DSN=test3"
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "CANNOT CONNECT TO DATABASE"
Response.End
End If
MYSQL = "SELECT * FROM admin order by id"'经测试原因就是"order by id"去掉一切正常
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open MYSQL,DataConn
If RS.EOF And RS.BOF Then
Response.Write "There are 0 records."
Else
RS.MoveFirst
While Not RS.EOF
%>
<%= RS("id") %>  
<%= RS("admin") %>  
<%= RS("UserPassword") %>  
<%= RS("rank") %>  
<hr>
<%
RS.MoveNext
Wend
End If
RS.Close
Set RS = Nothing
DataConn.Close
Set DataConn = Nothing
%>
请知道原因的帮一下忙..谢谢!
有的,已经解决了。是数据库问题。。谢谢你啊
你数据库里有id这个字段吗?……