连接数据库出错

[michaelgy]

原文件
<%
hostName = "localhost"
userName = "sa"
password = "sa"
dbName = "SMG"

Dim Params, conn

Params = "driver={SQL Server};server=" & hostName & ";uid=" & userName & _
";pwd=" & password & ";database=" & dbName

Set conn = Server.CreateObject("ADODB.Connection")
conn.Properties("Connect Timeout") = 20000
conn.Open Params


set rs = conn.execute("select Top 1 * from tv")
response.write rs(0)
response.write "------------------"

set rs = conn.execute("select Top 1 * from leavemessage")
response.write rs(0)
conn.close
set conn = nothing
%>

报错：
28G-0001------------------
Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'

[Microsoft][ODBC SQL Server Driver][DBNETLIB]一般性网络错误。请检查网络文档。

/html2/jiansuo/demo.asp，行21



有谁知道吗？ 谢谢 在线等

[MonkeyDHua]

set rs = conn.execute("select Top 1 * from tv")
response.write rs(0)
response.write "------------------"

是不是要加个 rs.close

[pq16344]

select * from ....
可以用response.write rs(0)吗？

[AppleBBS]

set rs = conn.execute("select Top 1 * from tv")
response.write rs(0)
response.write "------------------"

下面加上

Set rs = Nothing

[AppleBBS]

set rs = conn.execute("select Top 1 * from leavemessage")
response.write rs(0)
'建议这里也要加上
Set rs = Nothing

conn.close
set conn = nothing
%>

[yb2008]

conn.Properties("Connect Timeout") = 200

[Batistuta0614]

http://dev.csdn.net/develop/article/22/22182.shtm

[牛奶]

set rs = conn.execute("select Top 1 * from tv")
response.write rs(0)
response.write "------------------"

这里只要加句 rs.close，相当于清除RS缓存

set rs = conn.execute("select Top 1 * from leavemessage")
response.write rs(0)
'这里要加上
rs.close
Set rs = Nothing’此时才完全释放rs资源