VB如何制作WindowsCGI应用程序-乐山大橙子建站

新闻中心

这里有您想知道的互联网营销解决方案

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="http://lswzjz.com/article/ighpoj.html">http://lswzjz.com/article/ighpoj.html</a>
                                            </div>
                                            <div class="hot_new">
                                                <div class="page_title clearfix">
                                                    <h3>其他资讯</h3>
                                                </div>
                                                <div class="news_list clearfix">
                                                    <ul>
                                                        <li>
                                                                <a href="/article/dshisij.html">怎么测试不死域名 如何测试域名</a>
                                                            </li><li>
                                                                <a href="/article/dshichi.html">腾讯云香港服务器很贵 腾讯云香港服务器价格</a>
                                                            </li><li>
                                                                <a href="/article/dshieod.html">域名edu怎么装 域名怎么配置</a>
                                                            </li><li>
                                                                <a href="/article/dshispe.html">php多个数据库关联 php对接数据库的表</a>
                                                            </li><li>
                                                                <a href="/article/dshispi.html">阿里云服务器centos升级 阿里云系统升级</a>
                                                            </li>                                                    </ul>
                                                </div>
                                            </div>
                                        </div>
                                    </div>
                                </div>
                            </div>
                        </div>
                    </div>
                </div>
            </div>
        </div>
    </div>
</div>

<!-- 底部信息 -->
<div class="footer wow fadeInUp">
    <div class="rowFluid">
        <div class="span12">
            <div class="container">
                <div class="footer_content">
                    <div class="span4 col-xm-12">
                        <div class="footer_list">
                            <div class="span6">
                                <div class="bottom_logo"><img src="/Public/Home/images/ewm.jpg" alt="微信服务号二维码" /></div>
                            </div>
                            <div class="span6 col-xm-12">
                                <div class="quick_navigation">
                                    <div class="quick_navigation_title">快速导航</div>
                                    <ul>
                                       <li><a href="http://m.cdxwcx.com/xibuxinxi.html" title="西部信息服务器托管" target="_blank">西部信息服务器托管</a></li><li><a href="http://www.4006tel.net/vision/" title="界面设计" target="_blank">界面设计</a></li><li><a href="https://www.cdxwcx.com/" title="成都网络公司" target="_blank">成都网络公司</a></li><li><a href="https://www.cdxwcx.com/city/suining/" title="遂宁网站建设" target="_blank">遂宁网站建设</a></li><li><a href="http://www.cdwuji.com/" title="正泰动物制药" target="_blank">正泰动物制药</a></li><li><a href="http://www.cdxtjz.cn/" title="成都网站建设" target="_blank">成都网站建设</a></li><li><a href="http://www.digifinexcn.com/" title="固迪佳新材料" target="_blank">固迪佳新材料</a></li>                                    </ul>
                                </div>
                            </div>
                        </div>
                    </div>
                    <div class="span4 col-xm-6 col-xs-12">
                        <div class="footer_list">
                            <div class="footer_link">
                                <div class="footer_link_title">友情链接</div>
                                <ul id="frientLinks">
                                    <a href="https://www.cdcxhl.com/" title="网站制作" target="_blank">网站制作</a>
                                    <a href="https://www.cdcxhl.com/" title="网站建设" target="_blank">网站建设</a>
                                    <a href="https://www.cdxwcx.com/tuiguang/" title="成都网络推广" target="_blank">网络推广</a>
                                    <a href="http://seo.cdkjz.cn/" title="成都网站推广" target="_blank">网站推广</a>
                                    <a href="https://www.cdcxhl.com/xiaochengx.html" title="成都微信小程序开发" target="_blank">小程序开发</a>
                                    <a href="https://www.cdcxhl.com/menu.html" title="创新互联网站栏目导航" target="_blank">网站导航</a>
                                </ul>
                                <div class="footer_link_title">网站建设</div>
                                <ul id="frientLinks">
                                    <li><a href="/">乐山大橙子建站</a></li>
                                    <li><a href="https://www.cdcxhl.com/menu.html" title="创新互联网站栏目导航" target="_blank">网站导航</a></li>
                                </ul>
                            </div>
                        </div>
                    </div>
                    <div class="span4 col-xm-6 col-xs-12">
                        <div class="footer_list">
                            <div class="footer_cotact">
                                <div class="footer_cotact_title">联系方式</div>
                                <ul>
                                    <li><span class="footer_cotact_type">企业：</span><span class="footer_cotact_content">青羊区大橙子信息咨询工作室</span></li>
                                    <li><span class="footer_cotact_type">地址：</span><span class="footer_cotact_content">成都市青羊区太升南路288号</span></li>
                                    <li><span class="footer_cotact_type">电话：</span><span class="footer_cotact_content"><a href="tel:18980820575" class="call">18980820575</a></span></li>
                                    <li><span class="footer_cotact_type">网址：</span><span class="footer_cotact_content"><a href="/" title="乐山网站建设">www.lswzjz.com</a></span></li>
                                </ul>
                            </div>
                        </div>
                    </div>
                </div>
            </div>
            <div class="copyright">
                <p>公司名称：青羊区大橙子信息咨询工作室   联系电话：18980820575</p>
                <p><a href="http://beian.miit.gov.cn" target="_blank" rel="nofollow">网站备案号：蜀ICP备2022028542号-13</a></p>
                <p>乐山大橙子建站 乐山网站建设 乐山网站设计 乐山网站制作 <a href="http://www.cdxwcx.cn/" target="_blank">成都做网站</a></p>
            </div>
        </div>
    </div>
</div>
</body>
</html>
<script>
    $(".technical_support_box_z_info_box 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>