怎么会事啊，在ASP中调用后出现大问题啊！！！5555

Question

Public Function go()
Number = "组件测试！"
go = Number
End FunctionPublic Function showwebpages()
On Error GoTo errorhandler
Dim objcontext As Objectcontext
Set objcontext = getobjectcontext()
Dim objresponse As response
Set objresponse = objcontext("response")
Dim rs As New Recordset
rs.ActiveConnection = "provider=sqloledb;server=hoo;datebase=vbceshi;uid=sa;pwd=www.ekeer.com"
rs.Source = "select * from ceshi order by id"
rs.Open
objresponse.Write "<table>"
While rs.EOF <> True
objresponse.Write "<tr><td>"
objresponse.Write rs.Fields("id") & "</td><td>"
objresponse.Write rs.Fields("id") & "</td><td>"
objresponse.Write rs.Fields("id") & "</td><td>"
objresponse.Write rs.Fields("id") & "</td><td>"
objresponse.Write "<tr><td>"
rs.MoveNext
Wend
objresponse.Write "</table>"
rs.Close
Set rs = Nothing
Exit Function
errorhandler:
objresponse.Write "页面发生错误" & Err.DescriptionEnd Function在ASP中显示组件测试！ 
Microsoft VBScript 编译器错误 错误 '800a03f6' 缺少 'End' /iisHelp/common/500-100.asp，行242 Microsoft VBScript 运行时错误 错误 '800a01b6' 对象不支持此属性或方法: 'showwebpages' /vb.asp，行5 
我在ASP中调用代码是
<%
dim obj
set obj=server.createobject("ijob.test")
response.write obj.go()
obj.showwebpages()
%>

Answer 1

组件中的
Public Function showwebpages()
改为
Public sub showwebpages()asp调用
<%
dim obj
set obj=server.createobject("ijob.test")
response.write obj.go()
call obj.showwebpages()
%>

Answer 2

我按照你的方法试了还是不行！！！Public Function go()
Number = "组件测试！"
go = Number
End FunctionPublic Sub showwebpages()On Error GoTo errorhandler
Dim objcontext As ObjectContext
Set objcontext = GetObjectContext()Dim objresponse As Response
Set objresponse = objcontext("response")Dim rs As New Recordset
rs.ActiveConnection = "provider=sqloledb;server=hoo;datebase=vbceshi;uid=sa;pwd=www.ekeer.com"
rs.Source = "select * from ceshi order by id"
rs.Openobjresponse.Write "<table>"
While rs.EOF <> True
objresponse.Write "<tr><td>"
objresponse.Write rs.Fields("id") & "</td><td>"
objresponse.Write rs.Fields("id") & "</td><td>"
objresponse.Write rs.Fields("id") & "</td><td>"
objresponse.Write rs.Fields("id") & "</td><td>"
objresponse.Write "<tr><td>"
rs.MoveNext
Wend
objresponse.Write "</table>"
rs.Close
Set rs = Nothing
Exit Sub
errorhandler:
objresponse.Write "页面发生错误" & Err.DescriptionEnd Sub结果组件测试！ 
Microsoft VBScript 编译器错误 错误 '800a03f6' 缺少 'End' /iisHelp/common/500-100.asp，行242 Microsoft VBScript 运行时错误 错误 '800a01b6' 对象不支持此属性或方法: 'showwebpages' /vb.asp，行5 求救啊！！！

Answer 3

先看看
使用组件封装数据库操作(二)
http://www.csdn.net/develop/read_article.asp?id=22628

Answer 4

后面的objresponse.Write "<tr><td>"
改为
objresponse.Write "</td></tr>"

Answer 5

完整工程发过来，帮你看看
[email protected]