求助:一个跳转到不同页面的组件
我写了一个跳转到不同页面的组件做练习,但在页面调用时包找不到对象的错误,下面是组件的代码:
Private MyScriptContext As ScriptingContext
Private MyRequest As Request
Private MyResponse As Response
Public Sub onstartpage(PassedScriptingContext As ScriptingContext)
Set MyScriptContext = PassedScriptingContext
Set MyResponse = MyScriptContext.Response
End Sub
Public Sub dump(str As Variant)
MyResponse.Redirect (str)
End Sub
页面调用:
<%
url=trim(request("tname"))
response.write url&"<br>"
set jum=server.createobject("Jump.Turn")
'response.end
jum.dump url
%>