VB如何制作WindowsCGI应用程序
这篇文章主要介绍“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>
文章URL：<a href="https://jylskj.cn/article/ighpoj.html">https://jylskj.cn/article/ighpoj.html</a>
</div>
</div>
<div class="other">
<h3>其他资讯</h3>
<ul>
<li>
<a href="/article/jsjhe.html">cgifastcgiphp-cgiphp-fpm-创新互联</a>
</li><li>
<a href="/article/dhshhs.html">如何分析OracleRAC时间同步-创新互联</a>
</li><li>
<a href="/article/edigdi.html">抖音蓝v代运营报价询土库科技选</a>
</li><li>
<a href="/article/ihgiod.html">excel插件如何添加</a>
</li><li>
<a href="/article/gpsoje.html">Django使用mysql存储数据</a>
</li><li>
<a href="/article/jhjieo.html">SpringBoot配置元数据的方法</a>
</li><li>
<a href="/article/dcpgdsh.html">php搜索数据库记录 php搜索数据库数据</a>
</li><li>
<a href="/article/dghdpsd.html">女生学Java好还是学前端好？该怎么选</a>
</li><li>
<a href="/article/dppochd.html">c语言10的-7次方怎么表示</a>
</li><li>
<a href="/article/codecep.html">怎么选择购买物理服务器？物理服务器租赁合肥</a>
</li> </ul>
</div>
</div>
<footer>
<div class="message">
<div class="mess container">
<p>免费获取网站建设与品牌策划方案报价</p>
<span>*主要业务范围包括：高端网站建设， 集团网站建设(网站建设网站制作)找网站建设公司就上四川简阳网站建设。</span>
<form action="">
<input type="text" class="ipt1" placeholder="联系人">
<input type="text" class="ipt2" placeholder="联系电话">
<textarea name="" id="" placeholder="内容描述：描述您的需求，如网站、微信、电商、APP等。"></textarea>
<a href="">提交需求</a>
</form>
</div>
</div>
<div class="footA">
<div class="footAs container">
<ul>
<h3>联系我们</h3>
<b>028-86922220</b>
<li>手机：13518219792</li>
<li>地址：成都市简阳市大华国际财富中心2号楼</li>
<li class="hr1"></li>
<li>24小时服务热线：18982081108</li>
</ul>
<ul>
<h3>网站建设服务</h3>
<li><a href="https://www.cdcxhl.com/sheji/jianyang.html" target="_blank" style="color:#B7B6B6">简阳网站设计</a></li>
<li><a href="https://www.cdcxhl.com/zuo/jianyang.html" target="_blank" style="color:#B7B6B6">简阳做网站</a></li>
<li><a href="https://www.cdcxhl.com/zhizuo/jianyang.html" target="_blank" style="color:#B7B6B6">简阳网站制作</a></li>
</ul>
<ul>
<h3>网站推广服务</h3>
<li><a href="https://www.cdcxhl.com/google.html" target="_blank" style="color:#B7B6B6">Google外贸推广</a></li>
<li><a href="https://www.cdcxhl.com/seo/jianyang.html" target="_blank" style="color:#B7B6B6">简阳网站优化</a></li>
<li><a href="https://www.cdcxhl.com/quanwang.html" target="_blank" style="color:#B7B6B6">全网营销推广</a></li>
</ul>
<ul>
<h3>网站运维服务</h3>
<li><a href="https://www.cdcxhl.com/yunying.html" target="_blank" style="color:#B7B6B6">网站托管运营</a></li>
<li><a href="https://www.cdcxhl.com/gaiban/jianyang.html" target="_blank" style="color:#B7B6B6">简阳网站改版</a></li>
<li><a href="https://www.cdcxhl.com/weihu/jianyang.html" target="_blank" style="color:#B7B6B6">简阳网站维护</a></li>
</ul>
<ul>
<h3>FOLLOW US</h3>
<li class="hr2"></li>
<li>
<dd class="fl"><img src="/Public/Home/img/ewm.png" alt=""><p>微信二维码</p></dd>
<dd class="fr"><img src="/Public/Home/img/ewm.png" alt=""><p>微信二维码</p></dd>
</li>
</ul>
</div>
<div class="link container">
友情链接：
<a href="http://www.cdhuace.com/baozhuang.html" title="成都包装设计公司" target="_blank">成都包装设计公司</a> <a href="http://www.yaancyfdj.cn/" title="雅安柴油发电机出租" target="_blank">雅安柴油发电机出租</a> <a href="http://www.fjdmtu.com/" title="成都柴油发电机MTU" target="_blank">成都柴油发电机MTU</a> <a href="http://www.scquxian.com/" title="渠县网站建设" target="_blank">渠县网站建设</a> <a href="http://www.shanyounet.com/" title="大悟县劳保服" target="_blank">大悟县劳保服</a> <a href="http://chengdu.cdcxhl.cn/jianshe/
" title="成都网站建设" target="_blank">成都网站建设</a> <a href="https://www.cdxwcx.com/city/dazhou/" title="达州做网站" target="_blank">达州做网站</a> <a href="http://www.cdhin.com/" title="邛崃网站建设" target="_blank">邛崃网站建设</a> <a href="http://www.cxhlcq.com/seo/" title="重庆网络营销" target="_blank">重庆网络营销</a> <a href="http://www.cqcxhl.cn/" title="重庆网站建设" target="_blank">重庆网站建设</a> </div>
</div>
<div class="footB">
<div class="container">
<div class="fl">
Copyright © 2026 四川简阳网站建设公司 四川简阳网站建设公司-选我们！四川专业的简阳网站制作公司！
</div>
<div class="fr">
All Rights Reserved 版权所有 <a href="https://beian.miit.gov.cn/" target="_blank" rel="nofollow">蜀ICP备2026002071号-11</a>
</div>
</div>
</div>
</footer>
</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>