这篇文章主要介绍“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://cdkjz.cn/article/ighpoj.html">http://cdkjz.cn/article/ighpoj.html</a>
</div>
<div class="g-return-wrapper clearfix">
<a href="http://www.cdkjz.cn/" class="home">返回首页</a>
<a href="http://www.cdkjz.cn/news/" class="column">了解更多建站资讯</a>
</div>
</div>
</div>
<div class="full-related-news">
<h3 class="related-title">相关资讯</h3>
<div class="related-news weblg">
<ul class="clearfix">
<li>
<a href="/article/didoesh.html">
<h2 class="title">堡垒android 堡垒之夜</h2>
</a>
</li><li>
<a href="/article/didoese.html">
<h2 class="title">jquery支持手机 jquery mobile app</h2>
</a>
</li><li>
<a href="/article/didoesc.html">
<h2 class="title">ios开发笔记本屏幕 苹果开发笔记本</h2>
</a>
</li><li>
<a href="/article/didoesi.html">
<h2 class="title">ios开发蓝牙连接 苹果手机蓝牙开发者选项设置</h2>
</a>
</li><li>
<a href="/article/didoeoe.html">
<h2 class="title">css样式的选择器有哪些 css样式的选择器有哪四种</h2>
</a>
</li><li>
<a href="/article/didoecp.html">
<h2 class="title">android按键驱动 按键驱动代码</h2>
</a>
</li><li>
<a href="/article/didoeec.html">
<h2 class="title">jquery图片截图 jquery jcrop实现截图</h2>
</a>
</li><li>
<a href="/article/didossg.html">
<h2 class="title">html5初始结构 html5结构元素简单页面布局</h2>
</a>
</li> </ul>
</div>
</div>
<div class="full-icontact-cover m-ft-contact">
<div class="weblg">
<div class="clearfix content">
<div class="motto">
多年建站经验
</div>
<div class="info">
<h3>多一份参考，总有益处</h3>
<h2> 联系快上网，免费获得专属《策划方案》及报价</h2>
<div class="msg">
<p>咨询相关问题或预约面谈，可以通过以下方式与我们联系</p>
<h4> 大客户专线 成都：<a
href="tel:+13518219792" rel="nofollow">13518219792</a>
座机：<a href="tel:02886922220" rel="nofollow">028-86922220</a>
</h4>
</div>
</div>
</div>
<div class="btns clearfix">
<a href="https://wpa.qq.com/msgrd?v=3&uin=631063699&site=qq&menu=yes" target="_blank" rel="nofollow"
class="oline">在线咨询</a>
<a href="javascript:;" class="edit" rel="nofollow">提交需求</a>
</div>
</div>
</div>
<div class="footer-content">
<div class="weblg clearfix">
<div class="friend-links">
<h6 class="clearfix">
<span class="tilte">友情链接</span>
<a class="exchagne" href="http://wpa.qq.com/msgrd?v=3&uin=631063699&site=qq&menu=yes">交换友情链接</a>
</h6>
<div class="link-list clearfix">
<div class="link-slider">
<a href="http://www.dmvi.cn/ser/VI/" title="成都VI设计" target="_blank">成都VI设计</a><a href="https://www.cdcxhl.com/weihu/" title="企业网站维护" target="_blank">企业网站维护</a><a href="http://www.ybzwz.com/" title="宜宾网站设计" target="_blank">宜宾网站设计</a><a href="https://www.cdxwcx.com/jifang/meishan.html" title="联通机柜租用" target="_blank">联通机柜租用</a><a href="http://www.cdkjz.cn/develop/" title="网上商城开发" target="_blank">网上商城开发</a><a href="http://www.tyjike.cn/" title="成都富士康招工" target="_blank">成都富士康招工</a><a href="https://www.cdxwcx.com/city/nanchong/" title="南充做网站" target="_blank">南充做网站</a><a href="http://www.ncjierui.cn/" title="彭山网站制作" target="_blank">彭山网站制作</a><a href="https://www.cdxwcx.com/jifang/wenjiang.html" title="成都多线机房" target="_blank">成都多线机房</a><a href="http://www.cdhuace.com/faguangzi/wbfgz.html" title="无边发光字厂家" target="_blank">无边发光字厂家</a> </div>
</div>
</div>
</div>
<div class="full-foot-bottom">
<div class="weblg clearfix">
<p>成都网站建设公司地址：成都市青羊区太升南路288号锦天国际A座10层 建设咨询<a href="tel:028-86922220">028-86922220</a></p>
<p>
成都快上网科技有限公司-四川网站建设设计公司 | <a href="http://www.miitbeian.gov.cn/" target="_blank" rel="nofollow">蜀ICP备19037934号</a> Copyright 2020,ALL Rights Reserved cdkjz.cn | <a href="http://www.cdkjz.cn/" target="_blank">成都网站建设</a> | © Copyright 2020版权所有.</p>
<p>专家团队为您提供<a href="http://www.cdkjz.cn/" target="_blank">成都网站建设</a>,<a href="http://www.cdkjz.cn/" target="_blank">成都网站设计</a>,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网！ | 成都网站建设哪家好？ | <a href="###">网站建设地图</a></p>
</div>
</div>
</div>
<script type="text/javascript" src="../js/idangerous.swiper.min.js"></script>
<script type="text/javascript" src="../js/wow.min.js"></script>
<script type="text/javascript" src="../js/jquery.mousewheel.min.js"></script>
<script type="text/javascript" src="../js/jquery.placeholder.min.js"></script>
<script type="text/javascript" src="../js/layout.js"></script>
</body>
</html>
<script>
$(".singlepage 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> 
