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>
                当前URL：<a href="https://tyhkzb.com/article/coshedj.html">https://tyhkzb.com/article/coshedj.html</a>
            </div>
        </div>
        <div class="othernews">
            <h3>其他资讯</h3>
            <div class="othernews_list">
                <ul>
                    <li>
                            <a href="/article/ccdehsj.html">如何快速定位Redis生产环境故障（redis生产故障排查）</a>
                        </li><li>
                            <a href="/article/ccdehss.html">详谈使用ADO .NET存储过程</a>
                        </li><li>
                            <a href="/article/ccdephh.html">C# New关键字学习总结</a>
                        </li><li>
                            <a href="/article/ccdehgs.html">Linux下Home目录:探索乐趣无限（linux下home目录）</a>
                        </li><li>
                            <a href="/article/ccdehic.html">精通Linux动态库加载路径的技巧(linux动态库加载路径)</a>
                        </li>                </ul>
            </div>
        </div>
    </div>
</div>

<div class="footer">
    <div class="footer_content">
        <div class="footer_content_top clear">
            <div class="content_top_share fl">
                <div><img src="/Public/Home/img/logo.png"></div>
                <div class="top_share_content">
                    <dd>分享至：</dd>
                    <dt class="bdsharebuttonbox clear" id="share">
                        <a href="#" class="bds_tsina iconfont fl" data-cmd="tsina" title="分享到新浪微博"></a>
                        <a href="#" class="bds_sqq iconfont fl" data-cmd="sqq" title="分享到QQ好友"></a>
                        <a href="#" class="bds_weixin iconfont fl" data-cmd="weixin" title="分享到微信"></a>
                        <a href="#" class="bds_weixin iconfont fl" data-cmd="tieba" title="分享到贴吧"></a>
                    </dt>
                    <script>window._bd_share_config={"common":{"bdSnsKey":{},"bdText":"","bdMini":"2","bdMiniList":false,"bdPic":"","bdStyle":"0","bdSize":"16"},"share":{}};with(document)0[(getElementsByTagName('head')[0]||body).appendChild(createElement('script')).src='http://bdimg.share.baidu.com/static/api/js/share.js?v=89860593.js?cdnversion='+~(-new Date()/36e5)];</script>
                </div>
            </div>
            <div class="content_top_left fl clear">
                <div class="top_left_list fl">
                    <dd><a href="/about/">关于我们</a></dd>
                    <dt>
                        <a href="/about/#gsjj">公司简介</a>
                        <a href="/about/#fzlc">发展历程</a>
                    </dt>
                </div>
                <div class="top_left_list fl">
                    <dd><a href="/service/">服务项目</a></dd>
                    <dt>
                        <a href="/service/">高端网站建设</a>
                        <a href="/miniprogram/">小程序开发</a>
                        <a href="/service/app.html">APP开发</a>
                        <a href="/service/yingxiao.html">网络营销</a>
                    </dt>
                </div>
                <div class="top_left_list fl">
                    <dd><a href="/jianzhan/">建站知识</a></dd>
                    <dt>
                        <a href="/jianzhan/">行业新闻</a>
                        <a href="/jianzhan/">建站学堂</a>
                        <a href="/jianzhan/">常见问题</a>
                    </dt>
                </div>
                <div class="top_left_list fl">
                    <dd><a href="/contact/">联系我们</a></dd>
                    <dt>
                        <a href="/contact/#lxwm">公司地址</a>
                        <a href="/contact/#rczp">人才招聘</a>
                    </dt>
                </div>
            </div>
            <div class="content_top_right addressR fr">
                <div class="top_right_title addressf_title">
                    <a href="javascript:;" class="on">成都</a>
                    <a href="javascript:;">大悟县</a>
                </div>
                <div class="top_right_content addressf">
                    <div class="right_content_li on">
                        <div class="right_content_list clear">
                            <dd class="fl iconfont"></dd>
                            <dt class="fl">电话：028-86922220</dt>
                        </div>
                        <div class="right_content_list clear">
                            <dd class="fl iconfont"></dd>
                            <dt class="fl">地址：成都市太升南路288号锦天国际A幢1002号</dt>
                        </div>
                    </div>
                    <div class="right_content_li">
                        <div class="right_content_list clear">
                            <dd class="fl iconfont"></dd>
                            <dt class="fl">电话：028-86922220</dt>
                        </div>
                        <div class="right_content_list clear">
                            <dd class="fl iconfont"></dd>
                            <dt class="fl">地址：湖省孝感市大悟县城关镇鄂北物流城13栋125号</dt>
                        </div>
                    </div>
                </div>
            </div>
        </div>
    </div>
    <div class="footer_content_copyright clear">版权所有：大悟县疆括仕商贸有限公司
        <a href="http://beian.miit.gov.cn/" rel="nofollow" target="_blank">鄂ICP备2025139637号-7</a>
    </div>
</div>

<!--浮窗-->
<div class="FloatingWindow clear">
    <a href="tencent://message/?uin=1683211881&Site=&Menu=yes" class="FloatingWindow_list fr">
        <div class="FloatingWindow_list_title">
            <dd class="iconfont"></dd>
            <dt><span>在线</span>咨询</dt>
        </div>
    </a>
    <a href="javascript:;" class="FloatingWindow_list fr">
        <div class="FloatingWindow_list_title">
            <dd class="iconfont"></dd>
            <dt>服务热线</dt>
        </div>
        <div class="FloatingWindow_list_down fadeInRight animated">服务热线：028-86922220</div>
    </a>
    <a href="javascript:;" class="FloatingWindow_list fr STop">
        <div class="FloatingWindow_list_title">
            <dd class="iconfont"></dd>
            <dt>TOP</dt>
        </div>
    </a>
</div>

<script src="/Public/Home/js/jquery-1.8.3.min.js"></script>
<script src="/Public/Home/js/comm.js"></script>
<script src="/Public/Home/js/wow.js"></script>
<script src="/Public/Home/js/common.js"></script>
</body>
</html>
<script>
    $(".cont 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>

疆括仕网站建设，新征程启航

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