这篇文章主要介绍“VB如何制作Windows CGI应用程序”,在日常操作中,相信很多人在VB如何制作Windows CGI应用程序问题上存在疑惑,小编查阅了各式资料,整理出简单好用的操作方法,希望对大家解答”VB如何制作Windows CGI应用程序”的疑惑有所帮助!接下来,请跟着小编一起来学习吧!
成都创新互联主营港口网站建设的网络公司,主营网站建设方案,成都app软件开发,港口h5小程序开发搭建,港口网站营销推广欢迎港口等地区企业咨询
下面举一个较复杂实用的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("贵州大学 TITLE>HEAD>") Send("<BODY><H2>欢迎您访问贵州 大学计算机软件与理论研究所WWW站点H1>") Send("我们的e-mail是<AHREFAHREF=""mailto:" &CGI_ServerAdmin&_ """>lixiang@gzu.edu.cn:A>") Send("<HR>") Send("请填下表,留下您的宝贵建议:") Send("<FORMACTIONFORMACTION=""" &CGI_ExecutablePath&"""METHOD=""POST"">") Send("<PRE>您的姓名: <INPUTSIZEINPUTSIZE=25NAME=""name"">") Send("E-mail地址: <INPUTSIZEINPUTSIZE=25NAME=""email"">") Send("您给我们的建议:<TEXTAREACOLSTEXTAREACOLS=40 ROWS=4WRAP=VIRTUALNAME=""comments"">") Send("TEXTAREA>PRE>") Send("请击此处将您的建议送我们: <INPUTTYPEINPUTTYPE=""submit""") Send("VALUE=""发送您的建议"">") Send("<HR>") Send("FORM>BODY>HTML>") EndSub '获取客户建议表单数据,将所填数据存入文件guestbk.csv并向客户返回一个信息 SubEnterGuest() DimiLockTriesAsInteger DimsDateAsString DimsNameAsString DimsEmailAsString DimsCommentsAsString 'DimsBrowserAsString DimsFirstNameAsString DimfnAsInteger '提取建议的有关数据: sName=GetSmallField("name") sEmail=GetSmallField("email") sComments=GetSmallField("comments") iLockTries=0 fn=FreeFile OnErrorGoTogLockFail gRetryLock: OpenApp.Path+"\"+BOOK_FILEFor AppendLockReadWriteAs#fn OnErrorGoTo0 sDate=Now Write#fn,sDate,sName,sEmail, sComments,CGI_RemoteAddr Close#fn sFirstName=Trim$(Left$(sName, InStr(sName,""))) IfsFirstName<>"" ThensFirstName=sFirstName&"," Send("Content-type:text/html") Send("") Send("<HTML><HEAD><TITLE>谢谢您! TITLE>HEAD>") Send("您的签名与建议是:<PRE>") Send("日期:"&sDate) Send("姓名:"&sName) Send("E-Mail:"&sEmail) Send("Hostaddress: ["&CGI_RemoteAddr&"]") Send("建议:PRE>") Send(sComments) Send("<H2>谢谢您!H2>") Send("BODY>HTML>") ExitSub gLockFail: Sleep(1000) iLockTriesiLockTries=iLockTries+1 ResumegRetryLock EndSub SubInter_Main() MsgBox"这是CGI程序, 需要在Web服务器中运行。",16,"CGI.BAS" EndSub</pre><p>到此,关于“VB如何制作Windows CGI应用程序”的学习就结束了,希望能够解决大家的疑惑。理论与实践的搭配能更好的帮助大家学习,快去试试吧!若想继续学习更多相关知识,请继续关注创新互联网站,小编会继续努力为大家带来更多实用的文章!</p> <br> 分享文章:VB如何制作WindowsCGI应用程序 <br> 转载注明:<a href="http://www.scjierui.cn/article/ighpoj.html">http://www.scjierui.cn/article/ighpoj.html</a> </div> </div> <div class="other"> <h3>其他资讯</h3> <ul> <li> <a href="/article/dsoehig.html">桥接路由器网速慢 路由桥接网速太慢</a> </li><li> <a href="/article/dsoehgc.html">腾讯云服务器怎样绑定域名 腾讯云服务器配置域名</a> </li><li> <a href="/article/dsoehii.html">php保存数据获得数据 php保存数据到数据库</a> </li><li> <a href="/article/dsoehsh.html">怎么申诉域名 怎么申诉域名解封</a> </li><li> <a href="/article/dsoehop.html">腾讯云轻量服务器性能 腾讯云轻量服务器和云服务器区别</a> </li> </ul> </div> </div> </div> <footer> <div class="footop"> <div class="wrap"> <div class="bottomrpw"> <div class="erp arp"> <dl> <dt>ADDRESS</dt> <dd class="address"> <i class="icon"></i> <span class="word">成都市青羊区锦天国际1号楼1002室</span> </dd> </dl> </div> <div class="erp arp"> <dl> <dt>TEL</dt> <dd class="phonum"> <i class="icon"></i> <span class="word en"> <a href="tel:18980820575">18980820575</a> </span> </dd> </dl> </div> <div class="erp crp"> <dl> <dt>OTHER</dt> <dd> <a class="word get-quote">获得报价与方案</a> </dd> <dd> <a href="#" target="_blank" rel='nofollow' class="word" title="付款方式">付款方式</a> </dd> </dl> </div> <div class="erp code-rp"> <dl> <dt>Wechat</dt> <dd class="code-wrap"> <span class="code"> <img src="/Public/Home/images/qr-code.jpg" alt="美图齐众微信公众号" /> </span> </dd> </dl> </div> </div> </div> </div> <div class="footerbot"> <div class="friendlinks"> <div class="wrap"> <ul class="rpl"> <li><a href="http://www.ysfcd.com/" title="成都电信西信机房托管" target="_blank">成都电信西信机房托管</a></li><li><a href="https://www.cdcxhl.com/cqtuoguan.html" title="重庆主机托管" target="_blank">重庆主机托管</a></li><li><a href="http://www.cxycgs.com/" title="大华摄像头" target="_blank">大华摄像头</a></li><li><a href="https://www.cdxwcx.com/" title="成都网站设计公司" target="_blank">成都网站设计公司</a></li><li><a href="http://www.cxjianzhan.com/" title="网络营销推广" target="_blank">网络营销推广</a></li><li><a href="http://www.kswcd.com/mobile/" title="手机网站制作" target="_blank">手机网站制作</a></li><li><a href="http://chengdu.cdcxhl.com/weixin/" title="成都微信开发" target="_blank">成都微信开发</a></li><li><a href="http://www.ycggtw.cn/" title="金羊影视传媒" target="_blank">金羊影视传媒</a></li><li><a href="http://www.lingaogroup.com.cn/" title="lingaogroup.com.cn" target="_blank">lingaogroup.com.cn</a></li><li><a href="http://www.myzitong.com/" title="梓潼做网站" target="_blank">梓潼做网站</a></li> </ul> </div> </div> <div class="wrap"> <div class="copyright"> <span class="en">©2025</span> 青羊区美图齐众设计工作室(个体工商户)四川站<span class="en">ALL RIGHTS RESERVED.</span> <a rel="nofollow" href="https://beian.miit.gov.cn" target="_blank">蜀ICP备2025119604号-2</a> </div> </div> </div> </footer> <div class="fcwrap"> <ul class="rpl clearfix"> <li class="phone"> <a rel="nofollow" target="_blank" href="tel:18980820575"> <i class="icon"></i> <strong>18980820575</strong> </a> </li> <li class="qq"> <a rel="nofollow" target="_blank" href="https://wpa.qq.com/msgrd?v=1&uin=244261566&site=qq&menu=yes"> <i class="icon"></i> <strong>244261566</strong> </a> </li> <li class="back-top"> <a href="javascript:void(0)" rel="nofollow" class="back-to-top"> <i class="icon"></i> <strong>回到顶部</strong> </a> </li> </ul> </div> <!--nav--> <div class="n-Wrap"> <div class="navBar visble show"> <div class="barlogo"> <a href="/" rel="nofollow"> <img src="/Public/Home/images/logo1.png" alt="四川做网站" /> <img src="/Public/Home/images/logo2.png" alt="四川网站设计" /> </a> </div> <div class="bmenu"> <i class="bar-top"><span></span></i> <i class="bar-cen"><span></span></i> <i class="bar-bom"><span></span></i> <i class="bar-left"><span></span></i> <i class="bar-right"><span></span></i> </div> </div> <section class="fixmenu"> <div class="close-bar"> <i class="bar-left"><span></span></i> <i class="bar-right"><span></span></i> </div> <nav class="smph"> <ul> <li class="index-hrefs on"><a href="http://www.scjierui.cn/"><font>首页</font></a></li> <li><a href="/about/" rel="nofollow"><font>关于美图齐众</font></a></li> <li><a href="/service/" rel="nofollow"><font>服务范围</font></a></li> <li><a href="/case/" rel="nofollow"><font>案例展示</font></a></li> <li><a href="/solve/" rel="nofollow"><font>解决方案</font></a></li> <li><a href="/news/" rel="nofollow"><font>建站资讯</font></a></li> <li><a href="/contact/" rel="nofollow"><font>联系美图齐众</font></a></li> </ul> <div class="pwrap"> <span class="label">服务热线</span> <strong class="phone"><a href="tel:18980820575">18980820575</a></strong> </div> </nav> </section> </div> <!--end nav--> <script src="/Public/Home/js/hotcss.js"></script> <script type="text/javascript" src="/Public/Home/js/su_new.js"></script> </body> </html> <script> $(".con 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>