Public Function HelloYou() As String Dim objAppServer As COMSVCSLib.AppServer Dim objContext As COMSVCSLib.ObjectContext Dim objRequest As ASPTypeLibrary.Request objAppServer = New COMSVCSLib.AppServer objContext = objAppServer.GetObjectContext() objRequest = objContext.Item("Request") HelloYou = objRequest.QueryString("s")(1) End Function
<%@LANGUAGE="VBSCRIPT"%> <% set ceprocs=Server.CreateObject("ClassLibrary1.Class1") response.write ceprocs.HelloYou() %>
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)