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>

            文章分享：<a href="http://mswzjz.cn/article/ighpoj.html">http://mswzjz.cn/article/ighpoj.html</a>

        </div>

    </div>

    <div class="other">

        <h3>其他资讯</h3>

        <ul>

            <li>

                    <a href="/article/dgjgshi.html">ios开发聊天记录缓存 ios开发聊天记录缓存在哪</a>

                </li><li>

                    <a href="/article/dgjgshs.html">linux中命令cat的简单介绍</a>

                </li><li>

                    <a href="/article/dgjgsee.html">css样式表属性 css样式表的设置方法有</a>

                </li><li>

                    <a href="/article/dgjgssg.html">linux文件数量命令 linux文件数量限制</a>

                </li><li>

                    <a href="/article/dgjgchj.html">androidwp风格 android work</a>

                </li>
        </ul>

    </div>

</div>

<footer>

    <div class="message">

        <div class="mess container">

            <p>免费获取网站建设与品牌策划方案报价</p>

            <span>*主要业务范围包括：高端网站建设， 集团网站建设(网站建设网站制作)找网站建设公司就上四川攀枝花网站建设。</span>

            <form action="">

                <input type="text" class="ipt1" placeholder="联系人">

                <input type="text" class="ipt2" placeholder="联系电话">

                <textarea name="" id=""  placeholder="内容描述：描述您的需求，如网站、微信、电商、APP等。"></textarea>

                <a href="">提交需求</a>

            </form>

        </div>

    </div>

    <div class="footA">

        <div class="footAs container">

            <ul>

                <h3>联系我们</h3>

                <b>028-86922220</b>

                <li>手机：13518219792</li>

                <li>地址：成都市太升南路288号锦天国际A幢1002号</li>

                <li class="hr1"></li>

                <li>24小时服务热线：400-028-6601</li>

            </ul>

            <ul>

                <h3>网站建设服务</h3>

                <li>网页设计</li>

                <li>网站制作</li>

                <li>网站开发</li>

            </ul>

            <ul>

                <h3>网站推广服务</h3>

                <li>营销网站建设</li>

                <li>百度快速排名</li>

                <li>整站网站推广</li>

            </ul>

            <ul>

                <h3>网站运维服务</h3>

                <li>基础维护</li>

                <li>网站改版</li>

                <li>网站维护</li>

            </ul>

            <ul>

                <h3>FOLLOW US</h3>

                <li class="hr2"></li>

                <li>

                    <dd class="fl"><img src="/Public/Home/img/ewm.png" alt=""><p>微信二维码</p></dd>

                    <dd class="fr"><img src="/Public/Home/img/ewm.png" alt=""><p>微信二维码</p></dd>

                </li>

            </ul>

        </div>

        <div class="link container">

            友情链接：

            <a href="https://www.cdxwcx.com/jifang/mianyang.html" title="绵阳科技城电信IDC机房" target="_blank">绵阳科技城电信IDC机房</a>   <a href="http://www.scyarui.cn/" title="青羊区雕琢时光" target="_blank">青羊区雕琢时光</a>   <a href="http://www.cdlinhua.com/" title="成都茶叶销售" target="_blank">成都茶叶销售</a>   <a href="http://www.scyuzhou.com/" title="成都LED亮化工程" target="_blank">成都LED亮化工程</a>   <a href="http://chengdu.cdweb.net/weixinkaifa/xiaochengxu.html" title="成都小程序定制开发公司" target="_blank">成都小程序定制开发公司</a>   <a href="http://www.cdkjz.cn/" title="成都网站建设" target="_blank">成都网站建设</a>   <a href="http://www.cdkjz.cn/fangan/response/" title="响应式网站建设方案" target="_blank">响应式网站建设方案</a>   <a href="http://www.kswsj.com/" title="成都网站建设" target="_blank">成都网站建设</a>   <a href="http://www.hlhk555.cn/" title="航龙航空" target="_blank">航龙航空</a>   <a href="http://www.hfjike.cn/" title="成都印刷厂" target="_blank">成都印刷厂</a>   
        </div>

    </div>

    <div class="footB">

        <div class="container">

            <div class="fl">

                四川攀枝花网站建设公司     四川攀枝花网站建设公司-选我们！四川专业的攀枝花网站制作公司！

            </div>

            <div class="fr">

                All Rights Reserved 版权所有 <a href="https://beian.miit.gov.cn/" target="_blank" rel="nofollow">蜀ICP备2024097831号-1</a>

            </div>

        </div>

    </div>

</footer>

</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>

网站建设知识

VB如何制作WindowsCGI应用程序