这篇文章主要介绍“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.xwwzsj.com/article/ighpoj.html">http://www.xwwzsj.com/article/ighpoj.html</a>
</div>
</div>
<div class="other">
<h3>其他资讯</h3>
<ul>
<li>
<a href="/article/ddhoipj.html">linux运行命令在哪 linux 运行sh</a>
</li><li>
<a href="/article/ddhogcg.html">c语言函数输入变量 c++输入变量语句</a>
</li><li>
<a href="/article/ddhogoh.html">关于SAP系统的问题的简单介绍</a>
</li><li>
<a href="/article/ddhogod.html">阿里云服务器要求 阿里云服务器推荐配置</a>
</li><li>
<a href="/article/ddhoihe.html">互联网公司服务器安全隐患 服务器网络安全</a>
</li> </ul>
</div>
</div>
<div class="f_service_con">
<div class="h_fumin">
<div class="h_fumin_lei">
<div class="h_fumin_lei_tu"><img src="/Public/Home/images/f_service01.png"></div>
<p>售后响应及时</p><span>7×24小时客服热线</span>
</div>
<div class="h_fumin_lei">
<div class="h_fumin_lei_tu"><img src="/Public/Home/images/f_service02.png"></div>
<p>数据备份</p><span>更安全、更高效、更稳定</span>
</div>
<div class="h_fumin_lei">
<div class="h_fumin_lei_tu"><img src="/Public/Home/images/f_service03.png"></div>
<p>价格公道精准</p><span>项目经理精准报价不弄虚作假</span>
</div>
<div class="h_fumin_lei">
<div class="h_fumin_lei_tu"><img src="/Public/Home/images/f_service04.png"></div>
<p>合作无风险</p><span>重合同讲信誉，无效全额退款</span>
</div>
</div>
</div>
<div class="footerbar">
<div class="footer-t">
<div class="f-box">
<div class="f-1">
<div class="f-t">
<h2>联系我们</h2>
<span>TEL</span>
</div>
<div class="f-b">
<h1><a href="tel:13518219792" rel="nofollow">135-1821-9792</a></h1>
<h1><a href="tel:028-86922220" rel="nofollow">028-86922220</a></h1>
<p>地址：成都市太升南路288号锦天国际</p>
</div>
</div>
<div class="f-2">
<div class="f-t">
<h2>快捷导航</h2>
<span>Shortcut</span>
</div>
<div class="f-b">
<ul >
</ul>
<ul >
<li><a href="/jianshe" title="宣威网站建设">宣威网站建设</a></li>
<li><a href="/jianshe#ym_websiteBox2" title="品牌网站建设">品牌网站建设</a></li>
<li><a href="/jianshe#ym_websiteBox1" title="企业网站建设">企业网站建设</a></li>
<li><a href="/jianshe#ym_websiteBox4" title="集团网站建设">集团网站建设</a></li>
<li><a href="/jianshe#ym_websiteBox4_2" title="外贸网站建设">外贸网站建设</a></li>
<li><a href="/jianshe#ym_websiteBox4_5" title="企业宣传视频">企业宣传视频</a></li>
</ul>
<ul >
<li><a href="/weixin" title="微信开发">微信开发</a></li>
<li><a href="/weixin#item1" title="公众号开发">公众号开发</a></li>
<li><a href="/weixin#item2" title="微商城建设">微商城建设</a></li>
<li><a href="/weixin#item3" title="微官网建设">微官网建设</a></li>
<li><a href="/weixin#item4" title="小程序开发">小程序开发</a></li>
</ul>
<ul>
<li><a href="/case/" title="网站作品案例">网站作品案例</a></li>
<li><a href="/case/" title="品牌网站案例">品牌网站案例</a></li>
<li><a href="/case/" title="集团网站案例">集团网站案例</a></li>
<li><a href="/case/" title="企业网站案例">企业网站案例</a></li>
<li><a href="/case/" title="外贸网站案例">外贸网站案例</a></li>
<li><a href="/case/" title="营销网站案例">营销网站案例</a></li>
</ul>
<ul style="margin:0;">
<li><a href="/about/">瑞达杰昌建站</a></li>
<li><a href="/about/">公司简介</a></li>
<li><a href="/about#ab_item3">企业文化</a></li>
<li><a href="/contact">联系我们</a></li>
<li><a href="/Pay.html">付款方式</a></li>
<li><a href="/jianshe#ym_websiteBox8">售后服务</a></li>
</ul>
<div style="clear:both;"></div>
</div>
</div>
<div class="f-3">
<div class="f-t">
<h2>二维码</h2>
<span>QR CODE</span>
</div>
<div class="f-b">
<ul>
<li><img src="/Public/Home/images/fewm.png">
<p>微信公众号</p>
</li>
<li style="margin: 0"><img src="/Public/Home/images/fewm2.png">
<p>手机端网站</p>
</li>
<div style="clear:both;"></div>
</ul>
</div>
</div>
<div style="clear:both;"></div>
</div>
</div>
<div class="footer-about">
<div class="w1200">瑞达杰昌建站工作室是一家专注从事于高品质视觉体验及互联网设计开发，<a href="/" target="_blank">宣威网站建设</a>，<a
href="/jianshe" target="_blank">宣威网站设计</a>，<a href="/jianshe" target="_blank">宣威网页设计</a>，<a
href="/jianshe" target="_blank">宣威网站制作</a>，<a href="/jianshe#ym_websiteBox2"
target="_blank">品牌网站建设</a>，<a href="/jianshe#ym_websiteBox3" target="_blank">营销网站建设</a>，<a
href="/jianshe#ym_websiteBox4" target="_blank">集团网站建设</a>，<a href="/jianshe#ym_websiteBox1"
target="_blank">企业网站建设</a>，<a href="/jianshe#ym_websiteBox4_2" target="_blank">外贸网站建设</a>，<a
href="/jianshe#ym_websiteBox4_3" target="_blank">响应式网站建设</a>，<a href="/weixin#item4"
target="_blank">小程序开发</a>，<a href="/weixin" target="_blank">微信开发</a>，<a
href="/jianshe#ym_websiteBox4_4" target="_blank">企业形象设计</a>，<a href="/jianshe#ym_websiteBox4_5"
target="_blank">企业宣传视频</a>等服务，瑞达杰昌建站位于宣威市龙岗区大运软件小镇，瑞达杰昌建站拥有经验丰富的高级网站建设工程师和一流的网页高端设计人员，具备各种规模与类型网站建设的雄厚实力，在网站建设领域树立了自己独特的设计风格。
</div>
<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.olyjz.com/" title="眉山发电机公司" target="_blank">眉山发电机公司</a> <a href="http://www.dcwor.com/" title="成都玉柴发电机" target="_blank">成都玉柴发电机</a> <a href="http://www.dmvi.cn/ser/huace/" title="画册设计制作" target="_blank">画册设计制作</a> <a href="http://www.fdegoaf.com/" title="彭州发电机公司" target="_blank">彭州发电机公司</a> <a href="http://www.finscp.com/" title="大邑网站制作" target="_blank">大邑网站制作</a> <a href="https://www.cdxwcx.com/city/luzhou/" title="泸州做网站" target="_blank">泸州做网站</a> <a href="http://www.cxkongyun.cn/" title="成都航空货运" target="_blank">成都航空货运</a> <a href="http://www.unlxy.com/" title="达州发电机组租赁" target="_blank">达州发电机组租赁</a> <a href="http://www.ncjike.com/" title="营山产后护理服务" target="_blank">营山产后护理服务</a> <a href="http://www.jinhuajc.com/" title="成都橡塑保温板" target="_blank">成都橡塑保温板</a> </div>
</div>
</div>
</div>
<div class="footer-b">
<div class="f-box">
<ul>
<li><a href="/jianshe#ym_websiteBox6" target="_blank">服务流程</a></li>
<li><a href="/jianshe#ym_websiteBox8" target="_blank">售后服务</a></li>
<li><a href="/about/" target="_blank">联系我们</a></li>
<li><a href="https://www.cdxwcx.com/pay/" target="_blank">付款方式</a></li>
<li><a href="https://www.cdcxhl.com/menu.html" target="_blank">网站地图</a></li>
<li><a href="#" target="_blank">sitemap</a></li>
<li>
<p>
<script data-cfasync="false" src="/Public/Home/js/email-decode.min.js"></script>
</p>
</li>
<div style="clear:both;"></div>
</ul>
<p class="copy">Copyright © 2025 青羊区瑞达杰昌互联网信息服务工作室（个体工商户） 宣威建站 All Rights Reserved <a href="https://beian.miit.gov.cn/" target="_blank" rel="nofollow">蜀ICP备2025133229号-6</a>
<a style="display:none" target="_blank" href="###"><img style="vertical-align:middle" border="0" src="" width="65" height="25" /></a>
</p>
<div style="clear:both;"></div>
</div>
</div>
<div class="sj_footer">
<div class="f-box">
<ul>
<li><a href="/jianshe" target="_blank">网站建设</a></li>
<li><a href="/jianshe#ym_websiteBox6" target="_blank">服务流程</a></li>
<li><a href="/jianshe#ym_websiteBox8" target="_blank">售后服务</a></li>
<li><a href="https://www.cdxwcx.com/pay/" target="_blank">付款方式</a></li>
<li><a href="/about/" target="_blank">关于我们</a></li>
<li><a href="https://www.cdcxhl.com/menu.html" target="_blank">网站地图</a></li>
<div style="clear:both;"></div>
</ul>
<p class="copy">Copyright © 2025 青羊区瑞达杰昌互联网信息服务工作室（个体工商户） 宣威建站</p>
<p class="copy"> <a href="https://beian.miit.gov.cn/" target="_blank" rel="nofollow">蜀ICP备2025133229号-6</a> <a
href="###" target="_blank"><img src="/Public/Home/images/govicon.gif" width="20" height="28" border="0" style="border-width:0px;border:hidden; border:none;"></a></p>
<div style="clear:both;"></div>
</div>
</div>
</div>
<script type='text/javascript' src='/Public/Home/js/qqkefu.js'></script>
<div class="qqkefu">
<ul>
<li class="qq_czaa" id="130"><b class="a"></b>135-1821-9792</li>
<li class="qq_czaa" id="130"><a href="tencent://message/?uin=1683211881"><b class="b"></b>业务咨询QQ</a></li>
<li class="qq_czaa" id="130"><a href="javascript:showDiv()"><b class="f"></b>提交合作意向表</a></li>
<li class="qq_czb">
<b class="c"></b>
<div class="erweima">
<p><img src="/Public/Home/images/right_erweima.png"></p>
</div>
</li>
<li class="top"><span></span></li>
</ul>
</div>
<div id="popDiv" class="mydiv" style="display:none;">
<a class="mydiv_clk" href="javascript:closeDiv()">X</a>
<div class="mydiv_list">
<div class="c_f_title"><span class="c_f_t">合作意向表</span></div>
<div class="c_f_con">
<form id="form1" name="form1" class="mess_form" method="post" action="/post_order">
<input name='enews' type='hidden' value='AddFeedback'>
<input name="bid" value="1" type="hidden">
<input type="hidden" name="ecmsfrom" value="9">
<input type="hidden" name='title' value="客户提交需求">
<li class="c_n"><span>公司名称</span>
<dl><input name='gsname' id='gsname' type="text"></dl>
</li>
<li class="c_n"><span>邮箱</span>
<dl><input name='gemail' id='gemail' type="text"></dl>
</li>
<li class="c_n xmm">
<div class="xmm_01"><span>姓名</span>
<dl class="c_n_i"><input name='name' id='name' type="text"></dl>
</div>
<div class="xmm_01"><span style="text-align:center">电话</span>
<dl class="c_n_i"><input name="tel" type="text"></dl>
</div>
</li>
<li class="c_tser">您需要的服务</li>
<li class="clearfix">
<dd><label><input type="radio" name='hobby' id='hobby' value="高端网站建设"><span>高端网站建设</span></label></dd>
<dd><label><input type="radio" name='hobby' id='hobby' value="我需要做微信营销"><span>我需要做微信营销</span></label></dd>
<dd><label><input type="radio" name='hobby' id='hobby' value="要找长期合作，需要年度服务"><span>要找长期合作，需要年度服务</span></label></dd>
<dd><label><input type="radio" name='hobby' id='hobby' value="我需要做购物商城"><span>我需要做购物商城</span></label></dd>
<dd><label><input type="radio" name='hobby' id='hobby' value="我需要网站改版"><span>我需要网站改版</span></label></dd>
<dd><label><input type="radio" name='hobby' id='hobby' value="其他"><span>其他</span></label></dd>
</li>
<li class="c_tser">您关注的地方</li>
<li class="clearfix">
<dd><label><input type="radio" name='hobby2' id='hobby2' value="对功能要求比较高"><span>对功能要求比较高</span></label></dd>
<dd><label><input type="radio" name='hobby2' id='hobby2' value="对设计创意要求比较高"><span>对设计创意要求比较高</span></label></dd>
<dd><label><input type="radio" name='hobby2' id='hobby2' value="需要可以购物支付"><span>需要可以购物支付</span></label></dd>
<dd><label><input type="radio" name='hobby2' id='hobby2' value="搜索引擎排名"><span>搜索引擎排名</span></label></dd>
</li>
<li class="c_tser">预算</li>
<li class="clearfix clearfix2">
<dd><label><input type="radio" name='hobby3' id='hobby3' value="一万以内"><span>一万以内</span></label>
</dd>
<dd><label><input type="radio" name='hobby3' id='hobby3' value="1-3万"><span>1-3万</span></label>
</dd>
<dd><label><input type="radio" name='hobby3' id='hobby3' value="3-5万"><span>3-5万</span></label>
</dd>
<dd><label><input type="radio" name='hobby3' id='hobby3' value="5万以上"><span>5万以上</span></label>
</dd>
<dd><label><input type="radio" name='hobby3' id='hobby3' value="需招投标"><span>需招投标</span></label>
</dd>
</li>
<li class="c_n" style="border-top:1px solid #eee; padding-top:10px"><span>验证码</span>
<dl class="c_n_i yzmm"><input type="text" name='code' id='code' value=""></dl><span
style="text-align:center"><img src="/Public/Home/images/1661eb19783442c38063791555cd0d80.gif"
onclick="this.src=this.src + '?'" width="100" height="40"></span>
</li>
<li class="clearfix">
<dd class="submit"><input name='submit' type="submit" value="提交需求"></dd>
</li>
</form>
</div>
</div>
</div>
<div id="bg" class="bg" style="display:none;"></div>
<div id='popIframe' class='popIframe' frameborder='0'></div>
<script>
//提交需求选项
$(document).ready(function (e) {
$(".mess_form").submit(function () {
if ($("#gsname").val() == "") {
alert("请填写您的公司名称！");
$("#gsname").focus();
return false;
}
if ($("#gemail").val() == "") {
alert("请填写您的邮箱");
$("#gemail").focus();
return false;
}
if ($("#name").val() == "") {
alert("请填写您的姓名！");
$("#name").focus();
return false;
}
if ($("#tel").val() == "") {
alert("请填写您的电话！");
$("#tel").focus();
return false;
}
if ($("#hobby").val() == "") {
alert("请选择您需要的服务！");
$("#hobby").focus();
return false;
}
if ($("#hobby2").val() == "") {
alert("请选择您关注的地方！");
$("#hobby2").focus();
return false;
}
if ($("#hobby3").val() == "") {
alert("请选择您的预算！");
$("#hobby3").focus();
return false;
}
if ($("#code").val() == "") {
alert("请填写正确的验证码！");
$("#code").focus();
return false;
}
});
});
</script>
<script language="javascript" type="text/javascript">
//提交需求窗口
function showDiv() {
document.getElementById('popDiv').style.display = 'block';
document.getElementById('popIframe').style.display = 'block';
document.getElementById('bg').style.display = 'block';
}
function closeDiv() {
document.getElementById('popDiv').style.display = 'none';
document.getElementById('bg').style.display = 'none';
document.getElementById('popIframe').style.display = 'none';
}
</script>
<script type="text/javascript" src="/Public/Home/js/scrolltopcontrol.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>