用VB编写留言板
;
</form></center> </body></html>
在databook.htm文档中存储的是各位来宾的留言，特殊之处是在文件中要使用一个定位字符串“<! ----- >”将文件的开始部分和具体的客户留言部分分开。CGI程序将在“<! ----- >”所在的位置之后插入客户的留言。databook.htm的源文件为：
<html><head><title>看留言</title></head>
<body text="#00000" vlink="#990099" link="#333399">
<center><h1>查看留言</h1></font></center>
<!----->
<留言插入位置>
</body></html>
这样，最新的留言出现在页面的最上端;如果要把最新的留言放在页面的下端，则只需将其中的定位字符串“<! ----- >”移到客户留言部分和HTML文件结尾部分之间的位置就行了。
需注意的是：<!----->字符串一定要单独占一行。
2． CGI程序
用VB编写的CGI程序的完整代码附后。
三．程序调试
程序编写完成后，要进行调试排错处理。CGI脚本不同于其他VB程序之处在于，CGI程序不能在个人计算机上进行测试，而要放到服务器上的特定目录下才能执行（一般放在Cgi-Bin目录下）。要实现这一点，对网络管理员来说不成什么问题（因为其具有对服务器的读写操作权限），但对于大多数个人计算机爱好者来说却是一个很大的难题。
因此，要对CGI脚本进行测试，首先要在个人PC机上设置一个Web服务器的调试环境，即先在个人PC上运行Web Server软件来模拟服务器。
由于Windows操作平台的局限性，可在Windows下运行的Server软件并不是很多，比较简单且易于实现的一个方法是使用Windows98光盘中自带的Server工具——Personal Web Server（个人网络服务器）。
1．设置个人Web服务器
在Windws98光盘中的“＼add-one\pws”目录中，点击“Setup.exe”进行安装。整个安装过程比较简单，按屏幕提示操作即可。
安装完成后，在其主画面左侧点击“高级”图标，在虚拟目录列表框内选择“home”目录，点击“添加”按钮，选择“浏览”，选中c:\Inetpub\wwwroot\cgi-bin（其中的盘符视执行安装时的路径而定），在“新虚拟目录”栏内输入“cgi-bin”，然后在访问权限的设置中把“读取”、“执行”、“脚本”各项全选上，点击“确定”按钮。即成功地设置了个人Web服务器。
2． 测试操作
首先，把我们在前面所新建的两个超文本文档guestbook.htm和databook.htm拷贝到c:\Inetpub\webpub子目录内，把编译完的CGI程序guest.exe拷入c:\Inetpub\wwwroot\cgi-bin子目录内;然后，打开浏览器，在地址栏内输入http://127.0.0.1/guestbook.htm，回车;就可以对CGI脚本程序进行测试操作了。
如果在回车后出现请求“拨号连接”的画面，则先点击“取消”按钮，然后在浏览器的“查看->Internet选项->连接”标签中（以IE为例），选择“通过局域网连接到Internet”一项，再点击“确定”即可。
经测试确认无误后，便可以与自己放置主页站点的网络管理员联系，把编制好的留言板脚本程序上传到服务器上了。
需注意一点，如果网络管理员把你的文档放在与前述目录不同的目录中，则要在脚本中做出相应的修改，并重新编译生成EXE执行文件。
附：guest .bas
'' 声明部分
Declare Function GetStdHandle Lib "kernel32" (ByVal nStdHandle As Long) As Long
Declare Function WriteFile Lib "kernel32" (ByVal hFile As Long, ByVal lpBuffer _
As String, ByVal nNumberOfBytesToWrite As Long, lpNumberOfBytesWritten _
As Long, lpOverlapped As Any) As Long
Opti
</form></center> </body></html>
在databook.htm文档中存储的是各位来宾的留言，特殊之处是在文件中要使用一个定位字符串“<! ----- >”将文件的开始部分和具体的客户留言部分分开。CGI程序将在“<! ----- >”所在的位置之后插入客户的留言。databook.htm的源文件为：
<html><head><title>看留言</title></head>
<body text="#00000" vlink="#990099" link="#333399">
<center><h1>查看留言</h1></font></center>
<!----->
<留言插入位置>
</body></html>
这样，最新的留言出现在页面的最上端;如果要把最新的留言放在页面的下端，则只需将其中的定位字符串“<! ----- >”移到客户留言部分和HTML文件结尾部分之间的位置就行了。
需注意的是：<!----->字符串一定要单独占一行。
2． CGI程序
用VB编写的CGI程序的完整代码附后。
三．程序调试
程序编写完成后，要进行调试排错处理。CGI脚本不同于其他VB程序之处在于，CGI程序不能在个人计算机上进行测试，而要放到服务器上的特定目录下才能执行（一般放在Cgi-Bin目录下）。要实现这一点，对网络管理员来说不成什么问题（因为其具有对服务器的读写操作权限），但对于大多数个人计算机爱好者来说却是一个很大的难题。
因此，要对CGI脚本进行测试，首先要在个人PC机上设置一个Web服务器的调试环境，即先在个人PC上运行Web Server软件来模拟服务器。
由于Windows操作平台的局限性，可在Windows下运行的Server软件并不是很多，比较简单且易于实现的一个方法是使用Windows98光盘中自带的Server工具——Personal Web Server（个人网络服务器）。
1．设置个人Web服务器
在Windws98光盘中的“＼add-one\pws”目录中，点击“Setup.exe”进行安装。整个安装过程比较简单，按屏幕提示操作即可。
安装完成后，在其主画面左侧点击“高级”图标，在虚拟目录列表框内选择“home”目录，点击“添加”按钮，选择“浏览”，选中c:\Inetpub\wwwroot\cgi-bin（其中的盘符视执行安装时的路径而定），在“新虚拟目录”栏内输入“cgi-bin”，然后在访问权限的设置中把“读取”、“执行”、“脚本”各项全选上，点击“确定”按钮。即成功地设置了个人Web服务器。
2． 测试操作
首先，把我们在前面所新建的两个超文本文档guestbook.htm和databook.htm拷贝到c:\Inetpub\webpub子目录内，把编译完的CGI程序guest.exe拷入c:\Inetpub\wwwroot\cgi-bin子目录内;然后，打开浏览器，在地址栏内输入http://127.0.0.1/guestbook.htm，回车;就可以对CGI脚本程序进行测试操作了。
如果在回车后出现请求“拨号连接”的画面，则先点击“取消”按钮，然后在浏览器的“查看->Internet选项->连接”标签中（以IE为例），选择“通过局域网连接到Internet”一项，再点击“确定”即可。
经测试确认无误后，便可以与自己放置主页站点的网络管理员联系，把编制好的留言板脚本程序上传到服务器上了。
需注意一点，如果网络管理员把你的文档放在与前述目录不同的目录中，则要在脚本中做出相应的修改，并重新编译生成EXE执行文件。
附：guest .bas
'' 声明部分
Declare Function GetStdHandle Lib "kernel32" (ByVal nStdHandle As Long) As Long
Declare Function WriteFile Lib "kernel32" (ByVal hFile As Long, ByVal lpBuffer _
As String, ByVal nNumberOfBytesToWrite As Long, lpNumberOfBytesWritten _
As Long, lpOverlapped As Any) As Long
Opti