大家用VB5.0也很长时间了吧，对于VB5.0给我们带来的好处也深有体会，在这里VB电子教程教你制作一个关于网上征求意见的WindowsCGI应用程序的一个小案例。
成都创新互联公司是专业的江阳网站建设公司，江阳接单;提供成都做网站、网站设计、外贸营销网站建设,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行江阳网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!
VB电子教程教你制作一个网上征求意见的WindowsCGI应用程序
下面举一个较复杂实用的WindowsCGI程序，它由4个子过程组成：CGI_Main(),EnterGuest(),ReturnForm()和Inter_Main()；它的功能是：服务器向申请连接的Web客户发出一张表单，Web客户在表单里填入有关数据后送回服务器，服务器收到Web客户的数据并将它们写入一个文件中存储起来，同时向Web客户发送一个收条。这个WindowsCGI应用程序的工作流程如下：一当Web客户要求CGI连接，服务器运行该CGI程序，首先执行CGI_Main()过程，CGI_Main()过程调用ReturnForm()向Web客户送出一个表单，如果Web客户填了意见表，并按键寄回服务器（此时过程CGI_Main()中CGI_RequestMethod="POST"成立）则由CGI_Main()过程调用EnterGuest()获取客户发来的数据并将其放入文件guestbk.csv中，同时向Web客户返回一个信息回条表示客户表单已收到。
由于编译使用这个CGI程序的做法与上面完全相同，故下面仅给源程序代码：
- OptionExplicit
- ConstBOOK_FILE="guestbk.csv"'存放客户
- 数据的文件，自动生成，可用Excel97调阅
- DeclareSubSleepLib"kernel32"
- (ByValdwMillisecondsAsLong)
- SubCGI_Main()
- IfCGI_RequestMethod="POST"Then
- EnterGuest
- Beep
- Else
- ReturnForm
- EndIf
- EndSub'
一当Web客户要求CGI连接，服务器执行ReturnForm()，送出征求建议的表单：
- SubReturnForm()
- Send"Content-type:text/html"
- Send""
- Send("
</strong>贵州大学 </li> <li><strong> TITLE> HEAD></strong>") </li> <li>Send("<strong><BODY><H2></strong>欢迎您访问贵州 </li> <li>大学计算机软件与理论研究所WWW站点<strong> H1></strong>") </li> <li>Send("我们的e-mail是<strong><</strong>AHREF<strong>AHREF</strong>=""mailto:" </li> <li>&CGI_ServerAdmin&_ </li> <li>"""<strong>></strong>lixiang@gzu.edu.cn:<strong> A></strong>") </li> <li>Send("<strong><HR></strong>") </li> <li>Send("请填下表，留下您的宝贵建议：") </li> <li>Send("<strong><</strong>FORMACTION<strong>FORMACTION</strong>=""" </li> <li>&CGI_ExecutablePath&"""METHOD=""POST""<strong>></strong>") </li> <li>Send("<strong><PRE></strong>您的姓名: </li> <li><strong><</strong>INPUTSIZE<strong>INPUTSIZE</strong>=25NAME=""name""<strong>></strong>") </li> <li>Send("E-mail地址: </li> <li><strong><</strong>INPUTSIZE<strong>INPUTSIZE</strong>=25NAME=""email""<strong>></strong>") </li> <li>Send("您给我们的建议:<strong><</strong>TEXTAREACOLS<strong>TEXTAREACOLS</strong>=40 </li> <li>ROWS=4WRAP=VIRTUALNAME=""comments""<strong>></strong>") </li> <li>Send("<strong> TEXTAREA> PRE></strong>") </li> <li>Send("请击此处将您的建议送我们: </li> <li><strong><</strong>INPUTTYPE<strong>INPUTTYPE</strong>=""submit""") </li> <li>Send("VALUE=""发送您的建议""<strong>></strong>") </li> <li>Send("<strong><HR></strong>") </li> <li>Send("<strong> FORM> BODY> HTML></strong>") </li> <li>EndSub </li> <li>'获取客户建议表单数据，将所填数据存入文件guestbk.csv并向客户返回一个信息 </li> <li>SubEnterGuest() </li> <li>DimiLockTriesAsInteger </li> <li>DimsDateAsString </li> <li>DimsNameAsString </li> <li>DimsEmailAsString </li> <li>DimsCommentsAsString </li> <li>'DimsBrowserAsString </li> <li>DimsFirstNameAsString </li> <li>DimfnAsInteger </li> <li>'提取建议的有关数据： </li> <li>sName=GetSmallField("name") </li> <li>sEmail=GetSmallField("email") </li> <li>sComments=GetSmallField("comments") </li> <li>iLockTries=0 </li> <li>fn=FreeFile </li> <li>OnErrorGoTogLockFail </li> <li>gRetryLock: </li> <li>OpenApp.Path+"\"+BOOK_FILEFor </li> <li>AppendLockReadWriteAs#fn </li> <li>OnErrorGoTo0 </li> <li>sDate=Now </li> <li>Write#fn,sDate,sName,sEmail, </li> <li>sComments,CGI_RemoteAddr </li> <li>Close#fn </li> <li>sFirstName=Trim$(Left$(sName, </li> <li>InStr(sName,""))) </li> <li>IfsFirstName<strong><></strong>"" </li> <li>ThensFirstName=sFirstName&"," </li> <li>Send("Content-type:text/html") </li> <li>Send("") </li> <li>Send("<strong><HTML><HEAD><TITLE></strong>谢谢您! </li> <li><strong> TITLE> HEAD></strong>") </li> <li>Send("您的签名与建议是:<strong><PRE></strong>") </li> <li>Send("日期:"&sDate) </li> <li>Send("姓名:"&sName) </li> <li>Send("E-Mail:"&sEmail) </li> <li>Send("Hostaddress: </li> <li>["&CGI_RemoteAddr&"]") </li> <li>Send("建议:<strong> PRE></strong>") </li> <li>Send(sComments) </li> <li>Send("<strong><H2></strong>谢谢您!<strong> H2></strong>") </li> <li>Send("<strong> BODY> HTML></strong>") </li> <li>ExitSub </li> <li>gLockFail: </li> <li>Sleep(1000) </li> <li>iLockTriesiLockTries=iLockTries+1 </li> <li>ResumegRetryLock </li> <li>EndSub </li> <li>SubInter_Main() </li> <li>MsgBox"这是CGI程序， </li> <li>需要在Web服务器中运行。",16,"CGI.BAS" </li> <li>EndSub </li> </ol></pre><p>VB电子教程教你的案例，学会了吗！</p> <br> 标题名称：VB电子教程教你制作一个网上征求意见的WindowsCGI应用程序 <br> 本文网址：<a href="http://www.gxwzsj.com/article/coshedj.html">http://www.gxwzsj.com/article/coshedj.html</a> </div> <div class="view-qrocde cl"> <div class="m z"><img src="/Public/Home/images/ew.jpg"/></div> <div class="text"> <h6>扫二维码与项目经理沟通</h6> <p>我们在微信上24小时期待你的声音</p> <p>解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流</p> </div> </div> <div class="othernews cl"> <h3>其他资讯</h3> <ul> <li><a href="/article/djgojgi.html">解析不生效？-域名及账户问题</a></li><li><a href="/article/djgojgg.html">SpringBoot打包不同环境配置与Shell脚本部署</a></li><li><a href="/article/djgopeo.html">智能媒体服务生成视频，一天了，还在生成中，怎么回事？</a></li><li><a href="/article/djgopce.html">如何增强香港服务器的安全性</a></li><li><a href="/article/djgopsp.html">怎么搜索软件?（电脑怎么搜索软件)</a></li> </ul> </div> </div> </div> <div class="sidebar"> <div class="tuijian"> <a href="#"> <h2 class="cl"><span>行业动态</span></h2> <h3>企业网站建设的重要性！</h3> <p>现在虽然是移动互联网时代，但企业网站依然重要，包含PC站点，移动站。可以说企业网站关系企业的未来发展和前途，尤其对中小企业更是如此，一些中小企业老板，对自己的名片很在乎，因为这是个门面。...</p> </a> </div> <div class="ser sidesub"> <h2>服务项目</h2> <ul class="ebox"> <li class="sub sub-1"> <div> <h3>网站建设</h3> <p></p> <a class="btn" href="/serve/website/">查看详情</a> </div> </li> <li class="sub sub-1"> <div> <h3>移动端/APP</h3> <p></p> <a class="btn" href="/serve/moblie/">查看详情</a> </div> </li> <li class="sub sub-1"> <div> <h3>微信/小程序</h3> <p></p> <a class="btn" href="/serve/small/">查看详情</a> </div> </li> <li class="sub sub-1"> <div> <h3>技术支持</h3> <p></p> <a class="btn" href="/serve/tech/">查看详情</a> </div> </li> <li class="sub sub-1"> <div> <h3>其它服务</h3> <p></p> <a class="btn" href="/serve/othe/">查看详情</a> </div> </li> <li class="sub sub-5"> <div> <h3>更多服务项目</h3> <p> <a>用我们的专业和诚信赢得您的信赖，从PC到移动互联网均有您想要的服务！</a></p> <a class="btn" href="/serve/">获取更多</a> </div> </li> </ul> </div> <div class="contact" id="fix"> <h2 class="cl"> <span>联系吧</span> <a href="https://map.baidu.com/" class="ditu" rel="nofollow" target="_blank">在百度地图上找到我们</a> </h2> <h3>电话：13518219792</h3> <p>如遇占线或暂未接听请拨：136xxx98888</p> <div class="qq"> <a href="//wpa.qq.com/msgrd?v=3&uin=244261566&site=qq&menu=yes" rel="nofollow" target="_blank">业务咨询</a> <a href="//wpa.qq.com/msgrd?v=3&uin=244261566&site=qq&menu=yes" rel="nofollow" target="_blank">技术咨询</a> <a href="//wpa.qq.com/msgrd?v=3&uin=244261566&site=qq&menu=yes" rel="nofollow" target="_blank">售后服务</a> </div> </div> </div> <script> //固定滚动 (function () { var oDiv = document.getElementById("fix"); var H = 120, iE6; var Y = oDiv; while (Y) { H += Y.offsetTop; Y = Y.offsetParent }; iE6 = window.ActiveXObject && !window.XMLHttpRequest; if (!iE6) { window.onscroll = function () { var s = document.body.scrollTop || document.documentElement.scrollTop; if (s > H) { oDiv.className = "contact fixed"; if (iE6) { oDiv.style.top = (s - H) + "px"; } } else { oDiv.className = "contact "; } }; } })(); </script> </div> <div class="footer"> <div class="wp"> <div class="wpss cl"> <dl class="about"> <dt>网站设计</dt> <dd><a href="http://chengdu.cdcxhl.cn/qiye/" target="_blank" title="企业网站设计">企业网站设计</a></dd><dd><a href="http://chengdu.cdcxhl.cn/" target="_blank" title="成都网站设计">成都网站设计</a></dd><dd><a href="http://www.gawzjs.com/" target="_blank" title="广安网站设计">广安网站设计</a></dd><dd><a href="http://chengdu.kswsj.cn/" target="_blank" title="高端网站设计">高端网站设计</a></dd> </dl> <dl class="about"> <dt>网站制作</dt> <dd><a href="http://m.cdcxhl.cn/mobile/" target="_blank" title="手机网站制作">手机网站制作</a></dd><dd><a href="https://www.cdcxhl.com/mobile.html" target="_blank" title="手机网站制作">手机网站制作</a></dd><dd><a href="http://seo.cdkjz.cn/wangzhan/" target="_blank" title="网站制作公司">网站制作公司</a></dd><dd><a href="http://www.cxjianzhan.com/mobile/" target="_blank" title="手机网站制作">手机网站制作</a></dd> </dl> <dl class="contact"> <dt>联系我们</dt> <dd>电话：13518219792</dd> <dd>邮箱：631063699@qq.com</dd> <dd>地址：成都青羊区锦天国际1002号</dd> <dd>网址：www.gxwzsj.com</dd> </dl> <dl class="about" style="margin-left:50px;width:235px;"> <dt>网站建设</dt> <dd><a href="http://chengdu.cdcxhl.cn/jianshe/" target="_blank" title="成都网站建设">成都网站建设</a></dd><dd><a href="http://www.kswcd.cn/serve/" target="_blank" title="高端网站建设">高端网站建设</a></dd><dd><a href="http://m.cdcxhl.cn/H5/" target="_blank" title="成都响应式网站建设">成都响应式网站建设</a></dd><dd><a href="https://www.cdxwcx.com/city/yaan/" target="_blank" title="雅安网站建设">雅安网站建设</a></dd> </dl> <dl class="flow"> <dt></dt> <div class="ma cl"> <div class="m"> <img src="/Public/Home/images/ew.jpg" /> <p>微信二维码</p> </div> </div> </dl> </div> </div> <div class="footer-link wp"> <ul class="wpss cl"> <li class="fisrt">友情链接</li> <li><a href="http://www.xhgfhy.com/ " title="郫县门窗定制" target="_blank">郫县门窗定制</a></li><li><a href="https://www.xwcx.net/" title="成都服务器托管" target="_blank">成都服务器托管</a></li><li><a href="https://www.cdcxhl.com/shoulu/" title="网站免费收录" target="_blank">网站免费收录</a></li><li><a href="http://www.cdbranddesign.com/" title="成都品牌宣传" target="_blank">成都品牌宣传</a></li><li><a href="http://www.urppv.com/" title="成都西信机房" target="_blank">成都西信机房</a></li><li><a href="http://www.kyoeb.com/" title="大悟县劳保用品公司" target="_blank">大悟县劳保用品公司</a></li><li><a href="http://www.zyfdjzy.com/" title="成都T恤定做" target="_blank">成都T恤定做</a></li><li><a href="http://www.myzitong.cn/" title="绵阳梓潼网站建设" target="_blank">绵阳梓潼网站建设</a></li><li><a href="https://www.cdxwcx.com/" title="成都网络营销" target="_blank">成都网络营销</a></li><li><a href="http://www.aojpn.com/" title="泸州发电机保养" target="_blank">泸州发电机保养</a></li> </ul> </div> </div> <div class="bot-footer"> <div class="wp"> <p class="wpss"> <em>Copyright © 2013-2025 www.gxwzsj.com 浩康建站品牌广西站 QQ：244261566 版权所有</em> <em>备案号：<a href="http://beian.miit.gov.cn/" rel="external nofollow">蜀ICP备17025366号</a></em> </p> <p class="wpss" style="line-height:30px !important;"> </p> </div> </div> <div class="footer-kefu"> <ul> <li class="qq"><a href="https://wpa.qq.com/msgrd?v=3&uin=244261566&site=qq&menu=yes"><em></em>在线咨询</a> </li> <li class="tel"><a href="tel:13518219792" target="_blank"><em></em>13518219792</a></li> <li class="wx"> <em></em> <div class="code"> <img src="/Public/Home/images/ew.jpg" /> <p>微信二维码</p> </div> </li> <li class="m"> <em></em> <div class="code"> <img src="/Public/Home/images/ew.jpg" /> <p>移动版官网</p> </div> </li> <li class="top"><em></em></li> </ul> </div> <script src="/Public/Home/js/all.js"></script> </body> </html> <script> $(".cont img").each(function(){ var src = $(this).attr("src"); //获取图片地址 var str=new RegExp("http"); var result=str.test(src); if(result==false){ var url = "https://www.cdcxhl.com"+src; //绝对路径 $(this).attr("src",url); } }); window.onload=function(){ document.oncontextmenu=function(){ return false; } } </script>