用VB编写Windows CGI应用程序

• 
  
  　　用VB编写Windows CGI应用程序
  一、 Windows CGI
  ---- 通 用 网 关 接 口CGI 是 服 务 器 与 应 用 程 序 之 间 的 接 口， 在 编 写HTML 文 件 时 可 结 合 其 他 程 序 语 言 使 客 户 通 过 浏 览 器 将 数 据 输 入 到 文 件 里， 经 服 务 器 处 理 后 转 送 给 客 户 或 记 录 在 服 务 器 的 数 据 库 中。 任 何 一 种 程 序 设 计 语 言 写 的 程 序， 若 可 在 服 务 器 主 机 上 运 行 并 可 用CGI 接 口 来 传 递 数 据， 就 可 作 为CGI 应 用 程 序， 这 种 语 言 可 被 称 为CGI 程 序 语 言 或 脚 本 语 言（scripting language）； 目 前 最 受 欢 迎 的CGI 程 序 语 言 有：C/C++, shell Script, Perl， 和Visual Basic， 此 外 还 有Fortran, TCL, AppleScript 等。
  ---- CGI 接 口 因 平 台 不 同 而 不 同。Windows 平 台 的CGI 称 为Windows CGI。 美 国 的Bob Denny 从 需 要 实 现CGI 接 口 来 处 理Windows 应 用 方 面 的 要 求 入 手 设 计 实 现 了Windows CGI， 开 发 出 目 前 在Windows95 和Windows NT 平 台 上 很 受 欢 迎 的HTTP 服 务 器：WebSite；Bob Denny 用VB4.0 写 的Windows CGI 接 口 程 序 名 为CGI32.BAS， 是 一 个 给 用 户 在Windows 95 或Windows NT 环 境 下 用Visual Basic 来 开 发Windows CGI 应 用 程 序 的 接 口， 主 要 处 理WWW 服 务 器（ 如：WebSite, Netscape, Alibaba 等） 与CGI 程 序 之 间 的 数 据 交 换： 在VB 中 通 过Windows CGI 接 口 处 理HTML 的 表 单 传 过 来 的 变 量， 并 把 处 理 结 果 通 过Windows HTTP Server 再 传 给 客 户 机 上 的 浏 览 器， 从 而 达 到 信 息 交 互 目 的。
  
  ---- 由 于Windows 没 有 命 令 解 释 器（command interpreter）， 所 以Windows CGI 程 序 都 必 需 编 译 为 可 执 行 文 件 在 服 务 器 上 运 行。
  
  ---- 除VB 外， 可 以 在Windows 上 用 来 写Windows CGI 程 序 的 语 言 还 很 多， 例 如： Delphi, Perl, VC++ 等； 目 前Visual Basic 得 以 流 行， 是 因 为 该 语 言 不 仅 在Windows 用 户 中 很 普 及， 而 且 最 早 被 发 表 为 撰 写Windows CGI 程 序 的 标 准， 同 时 该 语 言 支 持 许 多Windows 环 境： 例 如OLE, DDE，Sockets, ODBC 等； 此 外，VB 应 用 程 序 可 在 不 需 要 窗 体（windows forms） 而 只 在 模 组（modules） 的 环 境 下 开 发， 十 分 符 合CGI 应 用 程 序 的 需 要。
  
  ---- 以 前， 多 用VB4.0(32 位 版) 开 发Windows CGI 应 用 程 序， 由 于VB5.0 的 推 出， 用VB5.0 写Windows CGI 应 用 程 序 更 为 简 单、 方 便 和 有 力。
  
  ---- 要 在Windows 95/NT 的PC 微 机 上 运 行Windows CGI 程 序 必 须 在PC 机 上 安 装 一 个 支 持Windows CGI 的 服 务 器， 例 如WebSite；WebSite 是 一 个 基 于Windows95/Windows NT 运 行 的32 位、 多 线 程 的 服 务 器， 功 能 强 大、 使 用 方 便， 完 全 满 足 小 单 位 或 个 人 建 立PC 服 务 器 的 要 求。 有 关 它 的 最 新 信 息 和 免 费 试 用 版 可 从 http://website.ora.com/ 获 取。
  
  二、 用VB5.0 编 制Windows CGI 应 用 程 序 的 具 体 步 骤
  ---- Denny 用Visual Basic 4.0（32 位 版） 开 发 了 一 个Windows CGI 库 模 块：CGI32.BAS， 它 与WebSite 软 件 一 道 提 供 使 用（ 安 装WebSite 时CGI32.BAS 被 放 在c:websitelib 下， 很 容 易 找 到）；CGI32.BAS 为Windows 95/Windows NT 下 用VB4.0 开 发Windows CGI 程 序 设 计 提 供 了 极 大 的 方 便； 目 前 微 软 推 出 了 功 能 更 强 大 的Visual Basic5.0， 本 文 通 过 例 子 介 绍 在CGI32.BAS 下 用VB5.0 编 写Windows CGI 应 用 程 序 的 方 法， 通 过 这 些 例 子 可 以 看 出 用VB5.0 来 编 写Windows CGI 应 用 程 序 比VB4.0 更 为 有 力 和 简 单。
  ---- 下 面 首 先 介 绍 一 个 最 简 单 的Windows CGI 程 序 以 及 将 它 编 译 为 可 执 行 文 件 放 于 服 务 器 应 用 的 方 法， 这 些 方 法 是 一 般 的， 对VB 编 写 的Windows CGI 程 序 普 遍 实 用。 程 序 由 两 个 子 过 程CGI_Main() 和Inter_Main() 构 成， 子 过 程CGI_Main() 功 能 是 在 服 务 器 端 产 生 一 个HTML 页 面 并 送 回Web 客 户， 这 个 页 面 显 示 了 两 行 汉 字 和 服 务 器 时 间， 是Windows CGI 程 序 的 入 口， 是 必 不 可 少 的； 另 一 个 子 过 程Inter_Main() 提 示 该 程 序 必 须 在Web 服 务 器 中 运 行。 源 程 序 代 码 如 下：
  
  Sub CGI_Main()
  Send ("Content-type: text/html")
  Send ("")
  Send ("< HTML >< HEAD >< TITLE >
  欢迎< /TITLE >< /HEAD >")
  Send ("< BODY >")
  Send ("< H1 ALIGN=CENTER >
  < FONT COLOR=注释：#FF0080注释： >
  欢迎您访问< /FONT >< /H1 >")
  Send ("< H1 ALIGN=CENTER >
  < FONT COLOR=注释：#FF0080注释： >
  贵州大学计算机软件与理论研究所
  < /FONT >< /H1 >")
  Send ("< HR WIDTH=注释：100%注释： >")
  Send ("< P >< H2 >< FONT COLOR=注释：#000000注释： >
  您访问的时间是：" & Now)
  Send ("我们的WWW网址：
  < A HREF=注释：http://www.gzu.edu.cn/
  ~lixiang/index.html注释： >
  www.gzu.edu.cn/~lixiang/index.html< /A >")
  Send ("我们的Email地址：
  < A HREF=注释：mailto:lixiang@gzu.edu.cn注释： >
  lixiang@gzu.edu.cn")
  Send ("< /H2 >< /BODY >< /HTML >")
  End Sub
  Sub Inter_Main()
  MsgBox "这是CGI程序，需在Web服务器上运行."
  End Sub
  
  ---- 现 在， 介 绍 在VB5.0 集 成 开 发 环 境 里 编 辑、 编 译、 调 试 该Windows CGI 应 用 程 序 并 生 成 可 执 行 文 件 放 入 服 务 器 中 在 网 上 使 用 的 具 体 步 骤：
  
  ---- 1 建 立 项 目（Project）： 运 行VB5.0， 在 主 菜 单 选“ 文 件(F) 新 建 工 程(N)”， 在 出 现 的“ 新 建 工 程” 对 话 框 中 选“ 标 准 EXE”； 由 于Windows CGI 应 用 程 序 不 需 要 自 己 的 窗 体， 故 在 用VB5.0 建 立 项 目 文 件（Project） 的 上 述 步 骤 后， 在 出 现 的 名 为“ 工 程- 工 程1” 的“ 资 源 管 理 器” 窗 口 中 用 鼠 标 右 击“Form1” 将 其 删 除；
  
  ---- 2 添 加 文 件： 在 主 菜 单 选“ 工 程(P) 添 加 文 件(A)”， 在 出 现 的 添 加 文 件 对 话 框 中 选 择cgi32.bas 所 在 目 录（ 例 如c:websitelib） 将 其 打 开 加 入 工 程 中；
  
  ---- 3 添 加 模 块： 在 主 菜 单 选“ 工 程(P) 添 加 模 块(M)”， 在 出 现 的 对 话 框 中 将 模 块（Module1） 打 开 加 入；
  
  ---- 4 录 入 代 码： 在 模 块 代 码 窗 口 中 录 入 上 面 给 出 的 两 个 子 过 程 的 代 码。
  
  ---- 5 保 存 模 块 和 工 程 文 件： 在 主 菜 单 中 选：“ 文 件(F) 工 程 另 存 为(E)”， 可 对 模 块(Module1.bas) 和 工 程（ 工 程1.vbp） 重 新 取 名（ 例 如：guida.bas 和guida.vbp） 存 盘；
  
  ---- 6 生 成 可 执 行 文 件： 在 主 菜 单 中 选“ 文 件(F) 生 成 guida.exe(K)”， 在 出 现 的 对 话 框 里 选 好 存 盘 目 录 将guida.exe 存 盘；
  
  ---- 7 将 生 成 的 可 执 行 文 件（guida.exe） 放 入 服 务 器： 对WebSite 服 务 器， 应 放 置 在 子 目 录WebSitecgi-win 里；
  
  ---- 8 在Web 客 户 端 运 行 这 个CGI 程 序： 在 本 机 上 运 行， 打 开 浏 览 器， 在URL 栏 中 连 接： http://localhost/cgi-win/guida.exe ； 在 网 上 的Web 客 户 端， 用 http:// 服 务 器 主 机/cgi/guida.exe
  
  三、 用VB5.0 制 作 一 个 网 上 征 求 意 见 的Windows CGI 应 用 程 序
  ---- 下 面 举 一 个 较 复 杂 实 用 的Windows CGI 程 序， 它 由4 个 子 过 程 组 成：CGI_Main(), EnterGuest(),ReturnForm() 和Inter_Main()； 它 的 功 能 是： 服 务 器 向 申 请 连 接 的Web 客 户 发 出 一 张 表 单，Web 客 户 在 表 单 里 填 入 有 关 数 据 后 送 回 服 务 器， 服 务 器 收 到Web 客 户 的 数 据 并 将 它 们 写 入 一 个 文 件 中 存 储 起 来， 同 时 向Web 客 户 发 送 一 个 收 条。 这 个Windows CGI 应 用 程 序 的 工 作 流 程 如 下： 一 当Web 客 户 要 求CGI 连 接， 服 务 器 运 行 该CGI 程 序， 首 先 执 行 CGI_Main() 过 程，CGI_Main() 过 程 调 用ReturnForm() 向Web 客 户 送 出 一 个 表 单， 如 果Web 客 户 填 了 意 见 表， 并 按 键 寄 回 服 务 器（ 此 时 过 程CGI_Main() 中CGI_RequestMethod = "POST" 成 立） 则 由CGI_Main() 过 程 调 用 EnterGuest() 获 取 客 户 发 来 的 数 据 并 将 其 放 入 文 件guestbk.csv 中， 同 时 向Web 客 户 返 回 一 个 信 息 回 条 表 示 客 户 表 单 已 收 到。
  ---- 由 于 编 译 使 用 这 个CGI 程 序 的 做 法 与 上 面 完 全 相 同， 故 下 面 仅 给 源 程 序 代 码：
  
  Option Explicit
  Const BOOK_FILE = "guestbk.csv" 注释：存放客户
  数据的文件，自动生成，可用Excel97调阅
  Declare Sub Sleep Lib "kernel32"
  (ByVal dwMilliseconds As Long)
  Sub CGI_Main()
  If CGI_RequestMethod = "POST" Then
  EnterGuest
  Beep
  Else
  ReturnForm
  End If
  End Sub注释：
  
  ---- 一 当Web 客 户 要 求CGI 连 接， 服 务 器 执 行ReturnForm()， 送 出 征 求 建 议 的 表 单：
  Sub ReturnForm()
  Send "Content-type: text/html"
  Send ""
  Send ("< HTML >< HEAD >< TITLE >贵州大学
  < /TITLE >< /HEAD >")
  Send ("< BODY >< H2 >欢迎您访问贵州
  大学计算机软件与理论研究所WWW站点< /H1 >")
  Send ("我们的e-mail是< A HREF=""mailto:"
  & CGI_ServerAdmin & _
  """ >lixiang@gzu.edu.cn:< /A >")
  Send ("< HR >")
  Send ("请填下表，留下您的宝贵建议：")
  Send ("< FORM ACTION="""
  & CGI_ExecutablePath & """ METHOD=""POST"" >")
  Send ("< PRE > 您的姓名:
  < INPUT SIZE=25 NAME=""name"" >")
  Send (" E-mail地址:
  < INPUT SIZE=25 NAME=""email"" >")
  Send ("您给我们的建议:< TEXTAREA COLS=40
  ROWS=4 WRAP=VIRTUAL NAME=""comments"" >")
  Send ("< /TEXTAREA >< /PRE >")
  Send ("请击此处将您的建议送我们:
  < INPUT TYPE=""submit""")
  Send ("VALUE=""发送您的建议"" >")
  Send ("< HR >")
  Send ("< /FORM >< /BODY >< /HTML >")
  End Sub
  
  注释：获取客户建议表单数据，将所填数据存入文件guestbk.csv并向客户返回一个信息
  Sub EnterGuest()
  Dim iLockTries As Integer
  Dim sDate As String
  Dim sName As String
  Dim sEmail As String
  Dim sComments As String
  注释：Dim sBrowser As String
  Dim sFirstName As String
  Dim fn As Integer
  注释：提取建议的有关数据：
  sName = GetSmallField("name")
  sEmail = GetSmallField("email")
  sComments = GetSmallField("comments")
  iLockTries = 0
  fn = FreeFile
  On Error GoTo gLockFail
  gRetryLock:
  Open App.Path + "" + BOOK_FILE For
  Append Lock Read Write As #fn
  On Error GoTo 0
  sDate = Now
  Write #fn, sDate, sName, sEmail,
  sComments, CGI_RemoteAddr
  Close #fn
  sFirstName = Trim$(Left$(sName,
  InStr(sName, " ")))
  If sFirstName < > ""
  Then sFirstName = sFirstName & ", "
  Send ("Content-type: text/html")
  Send ("")
  Send ("< HTML >< HEAD >< TITLE >谢谢您!
  < /TITLE >< /HEAD >")
  Send ("您的签名与建议是:< PRE >")
  Send ("日期: " & sDate)
  Send ("姓名: " & sName)
  Send ("E-Mail: " & sEmail)
  Send ("Host address:
  [" & CGI_RemoteAddr & "]")
  Send ("建议:< /PRE >")
  Send (sComments)
  Send ("< H2 >谢谢您!< /H2 >")
  Send ("< /BODY >< /HTML >")
  Exit Sub
  gLockFail:
  Sleep (1000)
  iLockTries = iLockTries + 1
  Resume gRetryLock
  End Sub
  
  Sub Inter_Main()
  MsgBox "这是CGI程序，
  需要在Web服务器中运行。", 16, "CGI.BAS"
  End Sub  
  
• [1] [2] 下一页 
• 
  复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
• 用VB编写Windows CGI应用程序 相关文章：
• ·完全手册Excel VBA典型实例全集：通过368个例子掌握
• ·电脑高手必备 Windows系统35招实用技巧
• ·剖析从VB转型到VB.NET的必要性
• ·为英文Windows XP安装中文语言包
• ·Windows PE用法
• ·VB+Access设计图书管理系统
• ·WIN7中删除旧备份windows.old文件夹
• ·Win 7系统 Windows Anytime Upgrade分析
• 用VB编写Windows CGI应用程序 相关软件
• ·虚拟乐器2 专业版套装 Vbeta 2
• ·VB 6.0 中文版教程
• ·Windows序列号查看更换工具 V1.70 中文版
• ·珊瑚软件全国计算机等级考试二级VB上机考试系统 V7.0 标准版
• ·Windows Installer CleanUp Utility V1.00删除某个程序地Windows Installer配置信息
• ·Turbo C/C++ for Windows 集成实验与学习环境 V2007.9.0
• ·Rmvb Rm修复终结者 V1.23
• ·VBA模拟器 V1.72中文版

上一篇:用VB编写DirectX7.0游戏(二)

下一篇:用VB编写标准CGI程序（上）

软件相关tags: VB 编写 Windows CGI 应用 程序

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

相关分类

热点TOP10

特别推荐