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网页,请告诉我邮箱地址,我可以发过去!