这篇文章主要介绍“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://kswsj.cn/article/ighpoj.html">http://kswsj.cn/article/ighpoj.html</a>
</div>
</div>
<div class="other">
<h3>其他资讯</h3>
<ul>
<li>
<a href="/article/edpogs.html">怎么短视频代运营</a>
</li><li>
<a href="/article/edpohd.html">抖音餐饮运营书籍怎么写,教你如何做好抖音餐饮运营</a>
</li><li>
<a href="/article/edpopc.html">光明短视频运营企业</a>
</li><li>
<a href="/article/edpopd.html">短视频营销心得体会总结怎么写-视觉场景营销时代到来，品牌如何做好短视频？</a>
</li><li>
<a href="/article/edpope.html">衡水抖音号外包代运营电话</a>
</li> </ul>
</div>
</div>
<div class="line"></div>
<!--底部-->
<footer id="5">
<div class="foot1 container">
<div class="list">
<div class="item">
<a href="javascript:;">
<span class="ico1"><i class="iconfont"></i><img src="/Public/Home/img/ewm.png" alt=""></span>
<strong>关注我们</strong>
</a>
</div>
<div class="item">
<a href="" target="_blank">
<span><i class="iconfont"></i></span>
<strong>索要报价</strong>
</a>
</div>
<div class="item">
<a href="" target="_blank">
<span><i class="iconfont"></i></span>
<strong>我要咨询</strong>
</a>
</div>
<div class="item">
<a href="" target="_blank">
<span><i class="iconfont"></i></span>
<strong>找到我们</strong>
</a>
</div>
<div class="item">
<a href="" target="_blank">
<span><i class="iconfont"></i></span>
<strong>投诉建议</strong>
</a>
</div>
</div>
<div class="tel">
<dl>
<tel><a href="tel:400-028-6601" target="_blank">400-028-6601</a></tel><br>
<span>也许您需要专业的服务，欢迎来电咨询</span>
</dl>
<dl>
<tel><a href="tel:18980820575" target="_blank">18980820575</a></tel><br>
<span>您的需求，是我们前进的动力</span>
</dl>
</div>
</div>
<div class="friend">
<div class="container">
<span class="tit">友情链接：</span>
<div class="inner">
<a href="https://www.cdcxhl.com/sosuo.html" target="_blank">搜索引擎优化</a><a href="https://www.cdcxhl.com/google.html" target="_blank">Google优化</a><a href="https://www.cdcxhl.com/" target="_blank">成都建站</a><a href="https://www.cdcxhl.com/h5.html" target="_blank">h5页面制作</a><a href="https://www.cdcxhl.com/tuoguan/yaan/" target="_blank">川西大数据中心</a><a href="https://www.cdcxhl.com/waimao.html" target="_blank">成都外贸网站建设公司</a><a href="https://www.cdcxhl.com/pinpai.html" target="_blank">品牌网站建设公司</a><a href="https://www.cdcxhl.com/security/" target="_blank">成都等保测评</a><a href="https://www.cdcxhl.com/zuyong/" target="_blank">成都租用服务器</a><a href="https://www.cdcxhl.com/qiye.html" target="_blank">成都企业网站建设</a><a href="https://www.cdcxhl.com/douyin/" target="_blank">抖音视频拍摄</a><a href="https://www.cdcxhl.com/" target="_blank">做网站</a><a href="https://www.cdcxhl.com/gaiban/chengdu.html" target="_blank">成都网站改版</a><a href="https://www.cdcxhl.com/" target="_blank">成都网站制作</a><a href="https://www.cdcxhl.com/" target="_blank">网站建设公司</a><a href="https://www.cdcxhl.com/" target="_blank">成都网站制作公司</a><a href="https://www.cdcxhl.com/yunying.html" target="_blank">网站托管</a><a href="https://www.cdcxhl.com/shoulu/" target="_blank">免费收录网站</a> </div>
</div>
</div>
<div class="foot">
<div class="container">
<div class="footNav">
<h3>网站建设</h3>
<a href="https://www.cdxwcx.com/wangzhan/pinpai.html" target="_blank">高端品牌网站建设</a><a href="http://www.cdweb.net/" target="_blank">成都网站建设</a><a href="http://www.cdkjz.cn/wangzhan/menhu/" target="_blank">成都门户网站建设</a> </div>
<div class="footNav">
<h3>服务器托管</h3>
<a href="https://www.cdcxhl.com/idc/yldx.html" target="_blank">义龙电信机房</a><a href="https://www.xwcx.net/tgxq/cdghjf.html" target="_blank">成都光华机房</a><a href="https://www.cdcxhl.com/idc/ershu.html" target="_blank">二枢服务器托管</a> </div>
<div class="footNav">
<h3>网站制作</h3>
<a href="http://www.cdxwcx.cn/bj/" target="_blank">网站制作价格</a><a href="http://www.myzitong.com/" target="_blank">梓潼网站制作公司</a><a href="http://chengdu.cdxwcx.cn/wangzhan/" target="_blank">手机网站制作</a> </div>
<div class="footNav">
<h3>企业服务</h3>
<a href="https://www.cdcxhl.com/link/" target="_blank">友情链接购买</a><a href="https://www.cdcxhl.com/mianfei/zuo/chengdu.html" target="_blank">免费做网站</a><a href="https://www.cdcxhl.com/ruanwen/yingxiao/" target="_blank">软文发布平台</a> </div>
<div class="fr ecode">
<div class="fl">
<img src="/Public/Home/img/ewm.jpg">
<p>关注企业微信</p>
</div>
<div class="fr slogan">
<p class="icon">
<a class="ph" href=""><i class="iconfont"></i></a>
<a class="qq" href="tencent://message/?uin=1683211881&Site=&Menu=yes"><i class="iconfont"></i></a>
</p>
<p>
<i>想要找 </i> <a href="">小程序开发</a>、<a href="">APP开发</a>、
<a href="">营销型网站建设</a>、<a href="">网站建设</a>、
<i><a href="">网站定制开发</a></i> ，就选<a href="">创新互联</a>
</p>
</div>
</div>
</div>
<div class="bottom container">
<p class="fl">
版权所有：成都创新互联科技有限公司
备案号：<a href="https://beian.miit.gov.cn/" target="_blank" rel="nofollow">蜀ICP备19037934号</a>
服务热线：028-86922220
</p>
<p class="fr">
<a href="https://www.cdxwcx.com/" target="_blank">成都网站建设</a>：
<a href="https://www.cdcxhl.com/" target="_blank">创新互联</a>
</p>
</div>
</div>
</footer>
<!--在线咨询-->
<div class="fot">
<ul>
<li>
<a href="https://p.qiao.baidu.com/cps/mobileChat?siteId=11284691&userId=6256368&type=1&reqParam=%20{%22from%22:0,%22sessionid%22:%22%22,%22siteId%22:%2211284691%22,%22tid%22:%22-1%22,%22userId%22:%226256368%22,%22ttype%22:1,%22siteConfig%22:%20{%22eid%22:%226256368%22,%22queuing%22:%22%22,%22siteToken%22:%226ce441ff9e2d6bedbdfc2a4138de449e%22,%22userId%22:%226256368%22,%22isGray%22:%22false%22,%22wsUrl%22:%22wss://p.qiao.baidu.com/cps3/websocket%22,%22likeVersion%22:%22generic%22,%22siteId%22:%2211284691%22,%22online%22:%22true%22,%22webRoot%22:%22//p.qiao.baidu.com/cps3/%22,%22bid%22:%22160142915792139572%22,%22isSmallFlow%22:0,%22isPreonline%22:0,%22invited%22:0%20},%22config%22:%20{%22themeColor%22:%224d74fa%22%20}%20}&appId=&referer=&iswechat=0&expectWaiter=-1&openid=null&otherParam=null&telephone=null&speedLogId=null&eid=null&siteToken=6ce441ff9e2d6bedbdfc2a4138de449e" target="_blank">
<img src="/Public/Home/img/fot1.png" alt="">
<p>在线咨询</p>
</a>
</li>
<li>
<a href="tel:18980820575" target="_blank">
<img src="/Public/Home/img/fot2.png" alt="">
<p>拨打电话</p>
</a>
</li>
</ul>
</div>
</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>