类的方法:
Public Function DrawTable(ByVal TheTitle As String, ByVal TheTitle1 As String)
Dim TempReturn As String
On Error GoTo ErrExit
TempReturn = "<html><head><title>" + TheTitle1 + "</title><meta http-equiv='Content-Type' content='text/html;
charset=gb2312'></head>"
TempReturn = TempReturn &
"<body bgcolor=#FFFFFF text=#000000 leftmargin=0 topmargin=0 style=overflow-y:hidden>"
TempReturn = TempReturn &
"<iframe name=import_frame width=100% height=100% src=index_demo.asp?str=" + TheTitle + " frameborder=auto></iframe></body></html>"
DrawTable = TempReturn
Exit Function
ErrExit:
Err.Raise Err.Number, "DrawTable", Err.Description
End Function
调用以上类中的方法
<%set objNews1=server.CreateObject("####.datanews")
Response.Write objNews1.DrawTable(***,****)
%>
------index_demo.asp----------
<%@ Language=VBScript %>
<%
Response.Expires=true
str=trim(Request("str"))
str="../文件所在目录/"&str
Response.Redirect str
%>
