Давным -давно документ, разобрался и вспоминает
Используйте VB, чтобы инкапсулировать ASP и установить программу испытаний SayHello
1. Откройте VB6 и создайте новый ActiveXDLL
2. Добавить Microsoft ActiveServerPagesObjectLibrary в ссылку на проект
3. Заполните код следующим образом:
'Codestart
'Декларационная часть
PrivateMyScriptingContextAsscriptingContext
PrivatemyApplicationAsApplication
PrivatemyRequestasRequest
PrivatemyResponseAsResponse
PrivatemyServerasserver
PrivateMySessionAssession
«Следующее определяет общую функцию (доступ к объекту ASP в VB, то есть в VB MyApplication может использоваться, чтобы быть эквивалентным применению в ASP, MyRequest эквивалентен запросу в ASP, MyResponse эквивалентен ответу в ASP, Myserver эквивалентен серверу в ASP, MySession эквивалентно сеансу в ASP) является эквивалентом сервера в ASP, MySession эквивалентно сеансу).
Publicsubonstartpage (obsterscriptingContextAsscriptingContext)
SetMyScriptingContext = Продолжительный сценарист
SetMyApplication = myScriptingContext.application
SetMyRequest = myScriptingContext.Request
Setmyresponse = myscriptingContext.Response
SetMyServer = myScriptingContext.server
SetMysession = myscriptingContext.session
Заканчивая
Publicsubonendpage ()
SetMyScriptingContext = ничего
SetMyApplication = ничего
SetMyRequest = ничего
SetMyResponse = ничего
SetMyServer = ничего
SetMySession = ничего
Заканчивая
'Создать пользовательскую функцию sayhello
Publicsubsayhello ()
Myresponse.write ("HelloWorld")
Заканчивая
'Codeend
4. Измените имя класса на: helloworld изменить имя проекта на: testvbcode
5. Сгенерируйте файл testvbcode.dll и используйте Windows для запуска PATH REGSVR32/TESTVBCODE.DLL для регистрации и использования его. (Команда Uninstall Component является regsvr32/u path/testvbcode.dll)
6. Создайте файл test.asp, код следующим образом
<%
'VB Self-функциональный формат вызова функции
'SET OBMENT name = server.createObject ("name.come.class name")
'Имя объекта. Самостроительное имя функции
SetMyTestObj = server.createObject ("testvbcode.helloworld")
Mytestobj.sayhello
%>
7. Результаты запуска файла test.asp отображаются следующим образом:
Привет, мир
Приведенный выше пример откроет дверь в ваш мир программирования VB
Давай собрались вместе, ха -ха!