Question

access数据库转为sql server数据库后该段代码运行慢，求修改

<%
sqllar="select top 8 strcolor,catid,skin,catname,strcolor from cat where parentid="&jjd&" and depth=1 "
Set rsprodtree=Server.CreateObject("ADODB.RecordSet")
rsprodtree.Open sqllar,conn,1,1
if not(rsprodtree.bof and rsprodtree.eof) then
Do While Not rsprodtree.eof

%>

<LI class=marginLR style="DISPLAY: inline; FLOAT: right">| </LI>

<%
rsprodtree.movenext
loop
end if
set rsprodtree=nothing
%>

Answer 1

如果其他的都正常的话，可以忽略下面的。
<% dim dataServer,DataBase,DataUser,DataPass,ConnStr,conn
DataServer = "localhost"'---------------本地数据库地址
DataBase = "abcd"'------------------数据库名称
DataUser = "sa"'------------------------数据库用户,不一定是SA
DataPass = "abcdefg"'-----------------你的数据库密码
ConnStr="Provider=SQLOLEDB.1;User ID="&DataUser&";Password="&DataPass&";Initial Catalog="&DataBase&";Data Source="&DataServer&""
Set Conn=Server.CreateObject("ADODb.Connection")
Conn.ConnectionString=ConnStr
Conn.Open connStr
%>
也可以使用OLEDB连接驱动试一下,不容易出错:
connstr="Provider=SQLOLEDB.1;Data Source=127.0.0.1;Initial Catalog=mystu;Persist Security Info=False;User ID=sa;Password=sa用户密码"

其中"sa用户密码",你需要替换成你自己的数据库密码

Answer 2

个人觉得如果连接没有问题的话以下会更好些：
<%
sql="select top 8 strcolor,catid,skin,catname,strcolor from cat where parentid="&jjd&" and depth=1"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
Do While Not rs.eof
Response.write "<LI class=marginLR style=""DISPLAY: inline; FLOAT: right"">| </LI>"
rs.movenext
Loop
rs.close
set rs=nothing
conn.close
set conn = nothing
%>

Answer 3

这段代码没问题啊，考虑下其他方面，比如对应你这个cat表中的字段格式问题是不是创建的合适。