vb怎么编写asp程序？100够吧，如果不够就重新开帖子。

[workboy]

[fuxc]

新建程序里有一个IIS应用程序，就是做ASP的
不过机器里要先装IIS(NT、2K)或者PWS(WIN9X)，
如果IIS或PWS版本较新的话，VB要装SP5

[Naola2001]

使用VB编写纯ASP程序

--------------------------------------------------------------------------------


　　大家应该都知道，其实asp中的好多组件都是使用VB编写出来的，但是让大家感到很不方便的是如何使用asp固有的几个组件，例如Response,Request,Application,Session等等，如果我要是能够在VB里面直接使用这些组件的话，那么就能够直接使用VB编写asp运用程序了。

　　下面是详细的步骤：

　　1。在VB中新建一个ActiveX DLL.其中那些命名项目、类的过程我就省略了。

　　2。现在需要在VB中引用两个dll.

　　第一个是引用ASP引擎的dll.

　　从菜单中选择Project\References命令,引用'Microsoft Active Server Pages Object Library'.

　　如果你没有找到它的话，你可以在以下目录中查找这个asp.dll文件%systemdirectory%/system32/inetsvr目录

　　单击按钮'Browse...'可以导入这个动态连接库

　　第二个是引用Microsoft Transaction Server (MTS)对象.选择同样的命令，引用

　　'Microsoft Transaction Server Type Library'.

　　如果你没有找到它的话，你可以在以下目录中查找这个mtxas.dll文件

　　%systemdirectory%/system32/Mts/ 3。好了，所有准备工作完成，下面是如何编写的代码，我想大家都能够看明白的。

　　这个是类文件的代码：

　　Option Explicit

　　Dim m_objResponse As Response

　　Dim m_objRequest As Request

　　Dim m_objServer As Server

　　Dim m_objApplication As Application

　　Dim m_objSession As Session

　　Private Sub Class_Initialize()

　　Dim objContext As ObjectContext

　　Set objContext = GetObjectContext()

　　Set m_objResponse = objContext("Response")

　　Set m_objRequest = objContext("Request")

　　Set m_objServer = objContext("Server")

　　Set m_objApplication = objContext("Application")

　　Set m_objSession = objContext("Session")

　　End Sub

　　Public Sub ASPTest()

　　m_objResponse.Write "告别写字板，使用VB环境编写ASP程序！"

　　End Sub

　　将以上的代码拷贝粘贴到你的程序中，然后编译这个项目成dll。最后使用

　　regsvr32 componentname.dll把这个dll注册到iis中。

　　下面是在asp文件中使用这个组件的方法：

　　<%

　　Set objTest = Server.CreateObject("YourPrjName.ASPTest")

　　objTest.ASPTest

　　Set objTest = Nothing

　　%>

[windygirl]

good

[workboy]

如果服务器不在身边，怎么注册？
能留下你的联系方法吗？

[sonicdater]

去 支持 asp 的 网站 申请一个 帐号 ，和申请 mail 帐号 一样，添些 东西 罢了。

然后 就可以把 你做好的 asp 文件 上传 上去。

上传 有两种 方法，用ftp 和直接从 网站 http 传。 各个网站 有 规定。

还有一些 细节，多数 是 和 asp 网站 安全 有关的，你再 去 申请的站点看看 吧。

[workboy]

我说的是dll组件，怎么注册（如果服务器不在身边）

[sonicdater]

用 script的 WSH 或 找 管理员 :)

[workboy]

我没有钱请管理员？怎么办？

[sonicdater]

什么意思?

[fuxc]

本机装IIS(NT、2K)或者PWS(WIN9X)就可以调试啊！