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程序的做法与上面完全相同，故下面仅给源程序代码：

 
 
 
  
  
  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("</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://cdysf.com/article/coshedj.html">http://cdysf.com/article/coshedj.html</a>
        </div>
    </div>
    <div class="other">
        <h3>其他资讯</h3>
        <ul>
            <li>
                    <a href="/article/cohdpog.html">命令使用LinuxFind命令找出你想要的文件（linux中的find）</a>
                </li><li>
                    <a href="/article/cohdpeo.html">搭建高效的Linux代理服务，传输数据更快更安全（linux代理服务）</a>
                </li><li>
                    <a href="/article/cohdpcj.html">Linux网络管理：DHCP服务器设置教程(linux中dhcp服务器设置方法)</a>
                </li><li>
                    <a href="/article/cohdpep.html">树莓派中部署Ubuntu服务器</a>
                </li><li>
                    <a href="/article/cohdpso.html">如何用网络品牌推广提高产品销量,网络品牌推广能够提高产品*度</a>
                </li>        </ul>
    </div>
</div>
</div>
<footer>
    <div class="footop">
        <div class="wrap">
            <div class="bottomrpw">
                <div class="erp arp">
                    <dl>
                        <dt>ADDRESS</dt>
                        <dd class="address"> <i class="icon"></i> <span class="word">成都市青羊区锦天国际1号楼1002室</span> </dd>
                    </dl>
                </div>
                <div class="erp arp">
                    <dl>
                        <dt>TEL</dt>
                        <dd class="phonum"> <i class="icon"></i> <span class="word en"> <a href="tel:18980820575">18980820575</a> </span> </dd>
                    </dl>
                </div>
                <div class="erp crp">
                    <dl>
                        <dt>OTHER</dt>
                        <dd> <a class="word get-quote">获得报价与方案</a> </dd>
                        <dd> <a href="#" target="_blank" rel='nofollow' class="word" title="付款方式">付款方式</a> </dd>
                    </dl>
                </div>
                <div class="erp code-rp">
                    <dl>
                        <dt>Wechat</dt>
                        <dd class="code-wrap"> <span class="code"> <img src="/Public/Home/images/qr-code.jpg" alt="创帆新辰微信公众号" /> </span> </dd>
                    </dl>
                </div>
            </div>
        </div>
    </div>
    <div class="footerbot">
        <div class="friendlinks">
            <div class="wrap">
                <ul class="rpl">
                    <li><a href="http://chengdu.cdcxhl.com/weixin/" title="微信开发" target="_blank">微信开发</a></li><li><a href="https://www.cdcxhl.com/zuyong/meishan.html" title="眉山服务器租用" target="_blank">眉山服务器租用</a></li><li><a href="http://www.cdwxfdj.com/" title="成都维修发电机公司" target="_blank">成都维修发电机公司</a></li><li><a href="http://www.zuchache.top/" title="成都叉车租赁公司" target="_blank">成都叉车租赁公司</a></li><li><a href="http://www.scxgfdj.com/" title="康明斯发电机组租赁" target="_blank">康明斯发电机组租赁</a></li><li><a href="http://www.cdkjz.cn/wangzhan/weihu/" title="成都网站运营维护" target="_blank">成都网站运营维护</a></li><li><a href="http://www.ybtvhd.com/" title="新型地坪材料" target="_blank">新型地坪材料</a></li><li><a href="http://www.36103.cn/" title="成都网站设计" target="_blank">成都网站设计</a></li><li><a href="http://www.bswzsj.com/" title="巴彦网站建设" target="_blank">巴彦网站建设</a></li><li><a href="http://www.scjiangyou.cn/" title="江油网站建设" target="_blank">江油网站建设</a></li>                </ul>
            </div>
        </div>
        <div class="wrap">
            <div class="copyright"> <span class="en">©2007-2025</span> 青羊区创帆新辰信息咨询服务部（个体工商户） <span class="en">ALL RIGHTS
                        RESERVED.</span> <a rel="nofollow" href="http://www.miitbeian.gov.cn" target="_blank">蜀ICP备2025128472号</a> </div>
        </div>
    </div>
</footer>
<div class="fcwrap">
    <ul class="rpl clearfix">
        <li class="phone"> <a rel="nofollow" target="_blank" href="tel:18980820575"> <i class="icon"></i>
            <strong>18980820575</strong> </a> </li>
        <li class="qq"> <a rel="nofollow" target="_blank"
                           href="https://wpa.qq.com/msgrd?v=1&uin=244261566&site=qq&menu=yes"> <i class="icon"></i>
            <strong>244261566</strong> </a> </li>
        <li class="back-top"> <a href="javascript:void(0)" rel="nofollow" class="back-to-top"> <i class="icon"></i>
            <strong>回到顶部</strong> </a> </li>
    </ul>
</div>
<!--nav-->
<div class="n-Wrap">
    <div class="navBar visble show">
        <div class="barlogo">
            <a href="/" rel="nofollow">
                <img src="/Public/Home/images/logo1.png" alt="成都做网站" />
                <img src="/Public/Home/images/logo2.png" alt="成都网站设计" />
            </a>
        </div>
        <div class="bmenu">
            <i class="bar-top"><span></span></i>
            <i class="bar-cen"><span></span></i>
            <i class="bar-bom"><span></span></i>
            <i class="bar-left"><span></span></i>
            <i class="bar-right"><span></span></i>
        </div>
    </div>
    <section class="fixmenu">
        <div class="close-bar">
            <i class="bar-left"><span></span></i>
            <i class="bar-right"><span></span></i>
        </div>
        <nav class="smph">
            <ul>
                <li class="index-hrefs on"><a href="http://www.cdysf.com/"><font>首页</font></a></li>
                <li><a href="/about/" rel="nofollow"><font>关于我们</font></a></li>
                <li><a href="/service/" rel="nofollow"><font>网站建设</font></a></li>
                <li><a href="/case/" rel="nofollow"><font>网站案例</font></a></li>
                <li><a href="/solve/" rel="nofollow"><font>网站方案</font></a></li>
                <li><a href="/news/" rel="nofollow"><font>建站知识</font></a></li>
                <li><a href="/contact/" rel="nofollow"><font>联系创帆新辰</font></a></li>
            </ul>
            <div class="pwrap">
                <span class="label">建站热线</font>
                <strong class="phone"><a href="tel:18980820575">18980820575</a></strong>
            </div>
        </nav>
    </section>
</div>
<!--end nav-->
<script src="/Public/Home/js/hotcss.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>

NEWS

网站建设资讯

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