资讯

精准传达 • 有效沟通

从品牌网站建设到网络营销策划,从策略到执行的一站式服务

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://cdkjz.cn/article/ighpoj.html">http://cdkjz.cn/article/ighpoj.html</a>
        </div>
        <div class="g-return-wrapper clearfix">
            <a href="http://www.cdkjz.cn/" class="home">返回首页</a>
            <a href="http://www.cdkjz.cn/news/" class="column">了解更多建站资讯</a>
        </div>
    </div>
</div>
<div class="full-related-news">
    <h3 class="related-title">相关资讯</h3>
    <div class="related-news weblg">
        <ul class="clearfix">
            <li>
                    <a href="/article/sdsdhh.html">
                        <h2 class="title">云服务器和服务器对比,有哪些优势呢?</h2>
                    </a>
                </li><li>
                    <a href="/article/sdscoo.html">
                        <h2 class="title">国外注册域名网站选哪个?为什么要注册国外的域名?</h2>
                    </a>
                </li><li>
                    <a href="/article/sdsdpd.html">
                        <h2 class="title">域名注册好的网站是哪个?如何选择域名注册服务商?</h2>
                    </a>
                </li><li>
                    <a href="/article/sdsdii.html">
                        <h2 class="title">org域名和com域名哪个好?org域名适用范围有哪些?</h2>
                    </a>
                </li><li>
                    <a href="/article/sdsdhs.html">
                        <h2 class="title">网址购买流程是什么?网址购买之后怎么绑定?</h2>
                    </a>
                </li><li>
                    <a href="/article/sdsdhg.html">
                        <h2 class="title">过期域名下载需要注意哪些?</h2>
                    </a>
                </li><li>
                    <a href="/article/sdsdpi.html">
                        <h2 class="title">如何配置域名ssl证书,怎么绑定域名?</h2>
                    </a>
                </li><li>
                    <a href="/article/sdscoc.html">
                        <h2 class="title">域名注册批量的多种盈利模式,都有哪些?</h2>
                    </a>
                </li>        </ul>
    </div>
</div>
<div class="full-icontact-cover m-ft-contact">
    <div class="weblg">
        <div class="clearfix content">
            <div class="motto">
                多年建站经验
            </div>
            <div class="info">
                <h3>多一份参考,总有益处</h3>
                <h2> 联系快上网,免费获得专属《策划方案》及报价</h2>
                <div class="msg">
                    <p>咨询相关问题或预约面谈,可以通过以下方式与我们联系</p>
                    <h4> 大客户专线   成都:<a
                            href="tel:+13518219792" rel="nofollow">13518219792</a>
                          座机:<a href="tel:02886922220" rel="nofollow">028-86922220</a>
                    </h4>
                </div>
            </div>
        </div>
        <div class="btns clearfix">
            <a href="https://wpa.qq.com/msgrd?v=3&uin=631063699&site=qq&menu=yes" target="_blank" rel="nofollow"
               class="oline">在线咨询</a>
            <a href="javascript:;" class="edit" rel="nofollow">提交需求</a>
        </div>
    </div>
</div>
<div class="footer-content">
    <div class="weblg clearfix">
        <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.xwcx.net/zuyong.html" title="成都主机租用" target="_blank">成都主机租用</a><a href="https://www.cdxwcx.com/city/nanchong/" title="南充网站建设" target="_blank">南充网站建设</a><a href="http://www.gdruijie.cn/" title="南充网站制作" target="_blank">南充网站制作</a><a href="http://www.bjjike.cn/" title="红光高低压开关厂" target="_blank">红光高低压开关厂</a><a href="https://www.cdxwcx.com/city/mianzhu/" title="绵竹网站建设" target="_blank">绵竹网站建设</a><a href="http://www.cdkjz.cn/wangzhan/" title="成都网站推广" target="_blank">成都网站推广</a><a href="https://www.cdxwcx.com/wangzhan/gaiban.html" title="网站建设改版" target="_blank">网站建设改版</a><a href="http://www.wcggcd.com/" title="小谭网创广告" target="_blank">小谭网创广告</a><a href="https://www.djxuejia.com/" title="古巴雪茄" target="_blank">古巴雪茄</a><a href="http://www.ayfdjwx.com/" title="成都代办注册公司" target="_blank">成都代办注册公司</a>                </div>
            </div>
        </div>
    </div>
    <div class="full-foot-bottom">
        <div class="weblg clearfix">
            <p>成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询<a href="tel:028-86922220">028-86922220</a></p>
            <p>
                成都快上网科技有限公司-四川网站建设设计公司 | <a href="http://www.miitbeian.gov.cn/" target="_blank" rel="nofollow">蜀ICP备19037934号</a> Copyright 2020,ALL Rights Reserved cdkjz.cn | <a href="http://www.cdkjz.cn/" target="_blank">成都网站建设</a> | © Copyright 2020版权所有.</p>
            <p>专家团队为您提供<a href="http://www.cdkjz.cn/" target="_blank">成都网站建设</a>,<a href="http://www.cdkjz.cn/" target="_blank">成都网站设计</a>,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | <a href="###">网站建设地图</a></p>
        </div>
    </div>

</div>
<script type="text/javascript" src="../js/idangerous.swiper.min.js"></script>
<script type="text/javascript" src="../js/wow.min.js"></script>
<script type="text/javascript" src="../js/jquery.mousewheel.min.js"></script>
<script type="text/javascript" src="../js/jquery.placeholder.min.js"></script>
<script type="text/javascript" src="../js/layout.js"></script>
</body>
</html>
<script>
    $(".singlepage 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>