R
richboy2002
Unregistered / Unconfirmed
GUEST, unregistred user!
我写了段asp网页，目的是从数据库里读数据显示在web页上，发布后点击该页抱错：
出现运行期错误，是否纠正错误？行11 错误 缺少对象！我点“否”后可以实现我想
要的效果！但我看不出有什么错误，请指教！开头代码如下：
<%
dim i
dim ID,rstobj,strDBType,strConnString,cnnDB
strDBType = "sqlserver"
strConnString = "driver={SQL Server};server=webserver;uid=gh;pwd=ghgl;database=工会信息" '## MS SQL Server 7 OR 2000
Set cnnDB = Server.CreateObject("ADODB.Connection")
'打开数据库
cnnDB.Open strConnString
set rstobj=server.CreateObject("ADODB.Recordset")
%>
<%
application.lock
application("counter")=application("counter")+1
application.unlock
function G(counter)
dim s,i,myimage
s=cstr(counter)
for i=1 to len(s)
myimage=myimage&"<img src="&mid(s,i,1)&".gif>"
next
G=myimage
end function
%>
如果要这个index.asp网页，请告诉我邮箱地址，我可以发过去！
出现运行期错误，是否纠正错误？行11 错误 缺少对象！我点“否”后可以实现我想
要的效果！但我看不出有什么错误，请指教！开头代码如下：
<%
dim i
dim ID,rstobj,strDBType,strConnString,cnnDB
strDBType = "sqlserver"
strConnString = "driver={SQL Server};server=webserver;uid=gh;pwd=ghgl;database=工会信息" '## MS SQL Server 7 OR 2000
Set cnnDB = Server.CreateObject("ADODB.Connection")
'打开数据库
cnnDB.Open strConnString
set rstobj=server.CreateObject("ADODB.Recordset")
%>
<%
application.lock
application("counter")=application("counter")+1
application.unlock
function G(counter)
dim s,i,myimage
s=cstr(counter)
for i=1 to len(s)
myimage=myimage&"<img src="&mid(s,i,1)&".gif>"
next
G=myimage
end function
%>
如果要这个index.asp网页，请告诉我邮箱地址，我可以发过去！