VB电子教程教你制作一个网上征求意见的WindowsCGI应用程序
大家用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> <p> 网页题目：<a href="http://www.36103.cn/qtweb/news14/18014.html">VB电子教程教你制作一个网上征求意见的WindowsCGI应用程序</a> <br> 转载来于：<a href="http://www.36103.cn/qtweb/news14/18014.html">http://www.36103.cn/qtweb/news14/18014.html</a> </p> <p> <a href="https://www.cdcxhl.com/" target="_blank">成都网站建设公司</a>_<a href="https://www.cdcxhl.cn/" target="_blank">创新互联</a>，为您提供<a href="https://www.cdcxhl.com/news/wangzhanshoulu/">网站收录</a>、<a href="https://www.cdcxhl.com/news/dingzhikaifa/">定制开发</a>、<a href="https://www.cdcxhl.com/news/waimaojianshe/">外贸网站建设</a>、<a href="https://www.cdcxhl.com/news/cloud/">云服务器</a>、<a href="https://www.cdcxhl.com/news/home/">网站制作</a>、<a href="https://www.cdcxhl.com/news/python/">python</a> </p> <p class="adpic"> <a href="https://www.cdcxhl.com/service/ad.html" target="_blank" class="ad">广告</a> <a href="" target="_blank" class="adimg"><img src=""></a> </p> <p class="copy"> 声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： <a href="https://www.cdcxhl.com/" target="_blank">创新互联</a> </p> </div> <div class="newsmorelb"> <p>猜你还喜欢下面的内容</p> <ul> <li> <a href="/qtweb/news13/18013.html">宋宝华在Linux上分享的技巧与经验视频 (宋宝华视频 linux)</a> </li><li> <a href="/qtweb/news12/18012.html">怎么打开ai文件</a> </li><li> <a href="/qtweb/news11/18011.html">Linux系统救援：恢复损坏文件（linux系统文件损坏）</a> </li><li> <a href="/qtweb/news10/18010.html">香港服务器托管机房的优点和不足之处</a> </li><li> <a href="/qtweb/news9/18009.html">sysman服务是什么</a> </li><li> <a href="/qtweb/news8/18008.html">创新互联Python教程：python中计算矩阵特征向量的方法</a> </li><li> <a href="/qtweb/news7/18007.html">Python API中一些可直接调用的函数介绍</a> </li><li> <a href="/qtweb/news6/18006.html">创新互联Python教程：小白必看的Python函数讲解</a> </li><li> <a href="/qtweb/news5/18005.html">美国服务器商配合中国?（美国服务器提供商)</a> </li> </ul> </div> </div> <div class="col-lg-3 noneb"> <div class="bkright" style="margin-top: 0"> <p><a href="https://www.cdcxhl.com/news/jianshe/">网站建设知识</a></p> <ul> <li> <a class="text_overflow" href="/qtweb/news9/19059.html">我家康佳电视总会弹出“很抱歉，云资讯己停止运行”?要如何处理？（云服务器经常会遇到哪些故障）</a> </li><li> <a class="text_overflow" href="/qtweb/news6/1456.html">Oracle中修改表主键的操作方法</a> </li><li> <a class="text_overflow" href="/qtweb/news43/9243.html">构建Redis集群支持JWT身份校验（redis集群jwt）</a> </li><li> <a class="text_overflow" href="/qtweb/news17/17067.html">深入了解微擎的数据库结构(微擎数据库结构)</a> </li><li> <a class="text_overflow" href="/qtweb/news23/34273.html">为什么会出现上传漏洞</a> </li><li> <a class="text_overflow" href="/qtweb/news0/12250.html">WPS表格教程：轻松学会如何比对两列数据库(wps如何比对两列数据库)</a> </li><li> <a class="text_overflow" href="/qtweb/news28/29228.html">王者荣耀怎么玩才厉害？（王者荣耀怎么玩才厉害）</a> </li><li> <a class="text_overflow" href="/qtweb/news4/1304.html">从零开始！轻松学习FatCow主机购买教程(fatcow主机购买教程)</a> </li><li> <a class="text_overflow" href="/qtweb/news4/23704.html">Sqlserver日志空间满：解决之道（sqlserver日志满）</a> </li><li> <a class="text_overflow" href="/qtweb/news9/22959.html">香港服务器部署app业务有哪些好处</a> </li><li> <a class="text_overflow" href="/qtweb/news27/10677.html">Spring框架本地数据库连接配置教程(spring连接本地数据库配置文件)</a> </li><li> <a class="text_overflow" href="/qtweb/news18/12918.html">日本海外云服务器商怎么选择</a> </li><li> <a class="text_overflow" href="/qtweb/news35/26385.html">DB2新手要掌握的DB2基本命令与知识有哪些？</a> </li><li> <a class="text_overflow" href="/qtweb/news8/2608.html">Windows下降权MYSQL和apche的运行级别(普通用户权限运行)</a> </li><li> <a class="text_overflow" href="/qtweb/news37/33187.html">测试妹子问我会压测吗？我笑了笑并给她看了这篇文章</a> </li> </ul> </div> <div class="bkright tag"> <p><a href="https://www.cdcxhl.com/hangye/" target="_blank">行业网站建设</a></p> <ul> <li class="col-lg-6 col-md-6 col-sm-6 col-xs-6"> <a href="https://www.cdcxhl.com/hangye/jiulousj/" target="_blank">酒楼设计</a> </li><li class="col-lg-6 col-md-6 col-sm-6 col-xs-6"> <a href="https://www.cdcxhl.com/hangye/hntjbg/" target="_blank">混凝土搅拌罐</a> </li><li class="col-lg-6 col-md-6 col-sm-6 col-xs-6"> <a href="https://www.cdcxhl.com/hangye/menlian/" target="_blank">门帘</a> </li><li class="col-lg-6 col-md-6 col-sm-6 col-xs-6"> <a href="https://www.cdcxhl.com/hangye/blgds/" target="_blank">玻璃钢雕塑</a> </li><li class="col-lg-6 col-md-6 col-sm-6 col-xs-6"> <a href="https://www.cdcxhl.com/hangye/muwu/" target="_blank">木屋</a> </li><li class="col-lg-6 col-md-6 col-sm-6 col-xs-6"> <a href="https://www.cdcxhl.com/hangye/chalousj/" target="_blank">茶楼设计</a> </li><li class="col-lg-6 col-md-6 col-sm-6 col-xs-6"> <a href="https://www.cdcxhl.com/hangye/cantingsj/" target="_blank">餐厅设计</a> </li><li class="col-lg-6 col-md-6 col-sm-6 col-xs-6"> <a href="https://www.cdcxhl.com/hangye/zbljbc/" target="_blank">自拌料搅拌车</a> </li><li class="col-lg-6 col-md-6 col-sm-6 col-xs-6"> <a href="https://www.cdcxhl.com/hangye/hangkongxiang/" target="_blank">航空箱</a> </li><li class="col-lg-6 col-md-6 col-sm-6 col-xs-6"> <a href="https://www.cdcxhl.com/hangye/jizhuangxiang/" target="_blank">集装箱</a> </li><li class="col-lg-6 col-md-6 col-sm-6 col-xs-6"> <a href="https://www.cdcxhl.com/hangye/xiaoguotu/" target="_blank">效果图设计</a> </li><li class="col-lg-6 col-md-6 col-sm-6 col-xs-6"> <a href="https://www.cdcxhl.com/hangye/weilanhulan/" target="_blank">围栏护栏</a> </li><li class="col-lg-6 col-md-6 col-sm-6 col-xs-6"> <a href="https://www.cdcxhl.com/hangye/chayisj/" target="_blank">茶艺设计</a> </li><li class="col-lg-6 col-md-6 col-sm-6 col-xs-6"> <a href="https://www.cdcxhl.com/hangye/hgdsj/" target="_blank">火锅店设计</a> </li><li class="col-lg-6 col-md-6 col-sm-6 col-xs-6"> <a href="https://www.cdcxhl.com/hangye/rxfhw/" target="_blank">柔性防护网</a> </li><li class="col-lg-6 col-md-6 col-sm-6 col-xs-6"> <a href="https://www.cdcxhl.com/hangye/fengyangtai/" target="_blank">封阳台</a> </li> </ul> </div> </div> </div> <div class="carousel-inner linkbg" style="background: #fff"> <div class="container"> <a href="https://www.cdcxhl.com/yunying.html" target="_blank">成都网站托管</a> <a href="http://www.cdkjz.cn/wangzhan/weihu/" target="_blank">成都网站运营维护</a> <a href="http://m.cdcxhl.cn/applets/ " target="_blank">成都小程序开发</a> <a href="http://www.whjierui.cn/" target="_blank">乐山企业网站设计</a> <a href="http://m.xwcx.net/" target="_blank">H5网站制作</a> <a href="http://www.lzhejiang.com/" target="_blank">合江网站建设</a> <a href="http://www.cxjianzhan.com/seo/" target="_blank">seo推广公司</a> <a href="http://www.tvybhd.com/" target="_blank">水泥基自流平</a> <a href="https://www.cdcxhl.com/wangzhandingzhi.html" target="_blank">成都企业网站定制</a> <a href="http://www.lswzjz.com/" target="_blank">乐山网站建设</a> <a href="http://www.myzitong.com/" target="_blank">绵阳梓潼做网站</a> <a href="http://www.cdxwcx.cn/tuoguan/ershu.html" target="_blank">中国电信成都枢纽中心</a> <a href="https://www.cdcxhl.com/koubei.html" target="_blank">成都口碑营销公司</a> <a href="http://www.tjysf.cn/" target="_blank">郫都区消防器材</a> <a href="http://www.cdkjz.cn/fangan/cosmetics/" target="_blank">化妆品企业网站建设方案</a> <a href="https://www.cdxwcx.com/tuiguang/" target="_blank">网站seo优化</a> <a href="http://chengdu.cdcxhl.cn/seo/ " target="_blank">成都网站推广</a> <a href="http://www.cdxwcx.cn/tuoguan/meishan.html" target="_blank">眉山服务器托管</a> <a href="http://m.cdcxhl.cn/shop/" target="_blank">成都商城网站建设公司</a> <a href="https://www.cdxwcx.com/tuiguang/zhenghe.html" target="_blank">整合营销</a> </div> </div> <footer> <div class="carousel-inner footjz"> <div class="container"> <i class="icon iconfont zbw"></i> 高品质定制 <i class="icon iconfont"></i> 跨终端自动兼容 <i class="icon iconfont"></i> 节约开发成本 <i class="icon iconfont"></i> 开发周期短 <i class="icon iconfont"></i> 一体化服务 <button type="button" class="btn btn-default btn-lg" onClick="window.location.href='tencent://message/?uin=631063699&Site=&Menu=yes'"> 立即开始2800定制网站建设</button> <button type="button" class="btn btn-default btn-xs" onClick="window.location.href='tencent://message/?uin=631063699&Site=&Menu=yes'"> 2800定制网站建设</button> </div> </div> <div class="carousel-inner bqsy"> <div class="container"> <div class="lxfs"> <h4 class="yutelnone">028-86922220 13518219792</h4> <h4 class="yutelblock"><a href="tel:02886922220">028-86922220</a> <a href="tel:13518219792">13518219792</a></h4> <a class="btn btn-default" href="tencent://message/?uin=532337155&Site=&Menu=yes" role="button">网站建设<span>QQ</span>：532337155</a> <a class="btn btn-default" href="tencent://message/?uin=631063699&Site=&Menu=yes" role="button">营销推广<span>QQ</span>：631063699</a> <a class="btn btn1 btn-default" href="mqqwpa://im/chat?chat_type=wpa&uin=532337155&version=1&src_type=web&web_src=oicqzone.com" role="button">网站制作<span>QQ</span>：532337155</a> <a class="btn btn1 btn-default" href="mqqwpa://im/chat?chat_type=wpa&uin=631063699&version=1&src_type=web&web_src=oicqzone.com" role="button">营销推广<span>QQ</span>：631063699</a> <a class="btn btn-default nonea" href="tencent://message/?uin=1683211881&Site=&Menu=yes" role="button">售后QQ：1683211881</a> <div class="dz">快上网专业的成都网站建设公司： <a href="http://www.36103.cn/" target="_blank">成都网站设计</a> <a href="http://www.36103.cn/" target="_blank">成都网站制作</a> <a href="http://www.36103.cn/" target="_blank">成都做网站</a> <address>地址：成都太升南路288号锦天国际A幢10楼</address> </div> </div> <div class="bzdh dz"><img src="https://www.cdcxhl.com/imges/bottom_logo.png" alt="创新互联"> <p><a href="https://www.cdcxhl.com/menu.html" target="_blank">成都创新互联科技有限公司</a><br> Tel：400-028-6601（7x24h）</p></div> </div> </div> </footer> </body> </html> <script> $.getJSON ("../../qtwebpic.txt", function (data) { var jsonContent = { "featured":data } var random = jsonContent.featured[Math.floor(Math.random() * jsonContent.featured.length)]; $(".adpic .adimg").attr("href",random.link) $(".adpic img").attr("src",random.pic); }) </script>