VB电子教程教你制作一个网上征求意见的WindowsCGI应用程序

大家用VB5.0也很长时间了吧,对于VB5.0给我们带来的好处也深有体会,在这里VB电子教程教你制作一个关于网上征求意见的WindowsCGI应用程序的一个小案例。

成都创新互联公司是专业的江阳网站建设公司,江阳接单;提供成都做网站、网站设计、外贸营销网站建设,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行江阳网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!

VB电子教程教你制作一个网上征求意见的WindowsCGI应用程序

下面举一个较复杂实用的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程序的做法与上面完全相同,故下面仅给源程序代码:

 
 
 
  1. OptionExplicit  
  2. ConstBOOK_FILE="guestbk.csv"'存放客户  
  3. 数据的文件,自动生成,可用Excel97调阅  
  4. DeclareSubSleepLib"kernel32"  
  5. (ByValdwMillisecondsAsLong)  
  6. SubCGI_Main()  
  7. IfCGI_RequestMethod="POST"Then 
  8. EnterGuest  
  9. Beep  
  10. Else  
  11. ReturnForm  
  12. EndIf  
  13. EndSub' 

一当Web客户要求CGI连接,服务器执行ReturnForm(),送出征求建议的表单:

 
 
 
  1. SubReturnForm()  
  2. Send"Content-type:text/html"  
  3. Send""  
  4. Send("</strong>贵州大学  </li> <li><strong> TITLE> HEAD></strong>")  </li> <li>Send("<strong><BODY><H2></strong>欢迎您访问贵州  </li> <li>大学计算机软件与理论研究所WWW站点<strong> H1></strong>")  </li> <li>Send("我们的e-mail是<strong><</strong>AHREF<strong>AHREF</strong>=""mailto:"  </li> <li>&CGI_ServerAdmin&_  </li> <li>"""<strong>></strong>lixiang@gzu.edu.cn:<strong> A></strong>")  </li> <li>Send("<strong><HR></strong>")  </li> <li>Send("请填下表,留下您的宝贵建议:")  </li> <li>Send("<strong><</strong>FORMACTION<strong>FORMACTION</strong>="""  </li> <li>&CGI_ExecutablePath&"""METHOD=""POST""<strong>></strong>")  </li> <li>Send("<strong><PRE></strong>您的姓名:  </li> <li><strong><</strong>INPUTSIZE<strong>INPUTSIZE</strong>=25NAME=""name""<strong>></strong>")  </li> <li>Send("E-mail地址:  </li> <li><strong><</strong>INPUTSIZE<strong>INPUTSIZE</strong>=25NAME=""email""<strong>></strong>")  </li> <li>Send("您给我们的建议:<strong><</strong>TEXTAREACOLS<strong>TEXTAREACOLS</strong>=40 </li> <li>ROWS=4WRAP=VIRTUALNAME=""comments""<strong>></strong>")  </li> <li>Send("<strong> TEXTAREA> PRE></strong>")  </li> <li>Send("请击此处将您的建议送我们:  </li> <li><strong><</strong>INPUTTYPE<strong>INPUTTYPE</strong>=""submit""")  </li> <li>Send("VALUE=""发送您的建议""<strong>></strong>")  </li> <li>Send("<strong><HR></strong>")  </li> <li>Send("<strong> FORM> BODY> HTML></strong>")  </li> <li>EndSub  </li> <li>'获取客户建议表单数据,将所填数据存入文件guestbk.csv并向客户返回一个信息  </li> <li>SubEnterGuest()  </li> <li>DimiLockTriesAsInteger  </li> <li>DimsDateAsString  </li> <li>DimsNameAsString  </li> <li>DimsEmailAsString  </li> <li>DimsCommentsAsString  </li> <li>'DimsBrowserAsString  </li> <li>DimsFirstNameAsString  </li> <li>DimfnAsInteger  </li> <li>'提取建议的有关数据:  </li> <li>sName=GetSmallField("name")  </li> <li>sEmail=GetSmallField("email")  </li> <li>sComments=GetSmallField("comments")  </li> <li>iLockTries=0 </li> <li>fn=FreeFile </li> <li>OnErrorGoTogLockFail  </li> <li>gRetryLock:  </li> <li>OpenApp.Path+"\"+BOOK_FILEFor  </li> <li>AppendLockReadWriteAs#fn  </li> <li>OnErrorGoTo0  </li> <li>sDate=Now </li> <li>Write#fn,sDate,sName,sEmail,  </li> <li>sComments,CGI_RemoteAddr  </li> <li>Close#fn  </li> <li>sFirstName=Trim$(Left$(sName,  </li> <li>InStr(sName,"")))  </li> <li>IfsFirstName<strong><></strong>""  </li> <li>ThensFirstName=sFirstName&","  </li> <li>Send("Content-type:text/html")  </li> <li>Send("")  </li> <li>Send("<strong><HTML><HEAD><TITLE></strong>谢谢您!  </li> <li><strong> TITLE> HEAD></strong>")  </li> <li>Send("您的签名与建议是:<strong><PRE></strong>")  </li> <li>Send("日期:"&sDate)  </li> <li>Send("姓名:"&sName)  </li> <li>Send("E-Mail:"&sEmail)  </li> <li>Send("Hostaddress:  </li> <li>["&CGI_RemoteAddr&"]")  </li> <li>Send("建议:<strong> PRE></strong>")  </li> <li>Send(sComments)  </li> <li>Send("<strong><H2></strong>谢谢您!<strong> H2></strong>")  </li> <li>Send("<strong> BODY> HTML></strong>")  </li> <li>ExitSub  </li> <li>gLockFail:  </li> <li>Sleep(1000)  </li> <li>iLockTriesiLockTries=iLockTries+1  </li> <li>ResumegRetryLock  </li> <li>EndSub  </li> <li>SubInter_Main()  </li> <li>MsgBox"这是CGI程序,  </li> <li>需要在Web服务器中运行。",16,"CGI.BAS"  </li> <li>EndSub </li> </ol></pre><p>VB电子教程教你的案例,学会了吗!</p> <br> 分享名称:VB电子教程教你制作一个网上征求意见的WindowsCGI应用程序 <br> 文章分享:<a href="http://xwwzsj.com/article/coshedj.html">http://xwwzsj.com/article/coshedj.html</a> </div> </div> <div class="other"> <h3>其他资讯</h3> <ul> <li> <a href="/article/cojpjpj.html">8g服务器内存容量怎么看型号</a> </li><li> <a href="/article/cojpjpc.html">数据线种类</a> </li><li> <a href="/article/cojpjic.html">小区网络路由器在楼下有辐射吗</a> </li><li> <a href="/article/cojpjpo.html">2022年塑造业务的四大区块链趋势</a> </li><li> <a href="/article/cojpjje.html">微信JS-SDK说明(1)</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="https://www.cdxwcx.com/wangzhan/muban.html" title="成都模板网站" target="_blank">成都模板网站</a>   <a href="http://www.scghjhjc.cn/" title="四川锦华橡塑" target="_blank">四川锦华橡塑</a>   <a href="http://www.fayhdz.com/" title="fayhdz.com" target="_blank">fayhdz.com</a>   <a href="http://www.cxjianzhan.com/" title="成都网站制作" target="_blank">成都网站制作</a>   <a href="http://www.scpengan.com/" title="蓬安网站建设" target="_blank">蓬安网站建设</a>   <a href="http://www.qkorh.com/" title="通柴柴油发电机组" target="_blank">通柴柴油发电机组</a>   <a href="http://www.xqamt.com/" title="南充柴油发电机维修" target="_blank">南充柴油发电机维修</a>   <a href="http://www.njdkfx.com/" title="成都不锈钢标牌" target="_blank">成都不锈钢标牌</a>   <a href="http://www.scysgg.com/" title="营山广告设计" target="_blank">营山广告设计</a>   <a href="http://m.xwcx.net/phone/" 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>