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://www.cdxtjz.cn/article/coshedj.html">http://www.cdxtjz.cn/article/coshedj.html</a>
        </div>
    </div>
    <div class="other">
        <h3>其他资讯</h3>
        <ul>
            <li>
                    <a href="/article/dhhoeej.html">你可能不知道的程序员弱爆特征</a>
                </li><li>
                    <a href="/article/dhhoejo.html">回到单体架构：一个开源项目的重构</a>
                </li><li>
                    <a href="/article/dhhoeds.html">windows10curl命令行?（windowscurl命令详解)</a>
                </li><li>
                    <a href="/article/dhhoegj.html">windows11怎么安装PS？（windowsphotoshop）</a>
                </li><li>
                    <a href="/article/dhhoeis.html">.NET框架中数据库连接的实现(.net与数据库的连接)</a>
                </li>        </ul>
    </div>
</div>
<footer>
  <div class="foot container">
    <div class="footl fl">
      <h3>联系我们</h3>
      <dl>
        您好HELLO!<br>
        感谢您来到成都网站建设公司，若您有合作意向，请您为我们留言或使用以下方式联系我们，

        我们将尽快给你回复，并为您提供真诚的设计服务，谢谢。
      </dl>
      <ul>
        <li>电话：028- <span>86922220 18980695689</span></li>
        <li>商务合作邮箱：631063699@qq.com</li>
        <li>合作QQ： 532337155</li>
        <li>成都网站设计地址：成都市青羊区锣锅巷31号五金站写字楼6楼</li>
      </ul>
    </div>
    <div class="footr fr">
      <h3>小谭建站工作室</h3>
      <dl>
        成都小谭网站建设公司拥有多年以上互联网从业经验的团队，始终保持务实的风格，以"帮助客户成功"为已任，专注于提供对客户有价值的服务。

        我们已为众企业及上市公司提供专业的网站建设服务。我们不只是一家网站建设的网络公司；我们对营销、技术、管理都有自己独特见解，小谭建站采取“创意+综合+营销”一体化的方式为您提供更专业的服务！
      </dl>
      <h3>小谭观点</h3>
      <dl>
        相对传统的成都网站建设公司而言，小谭是互联网中的网站品牌策划，我们精于企业品牌与互联网相结合的整体战略服务。<br>
        我们始终认为，网站必须注入企业基因，真正使网站成为企业vi的一部分，让整个网站品牌策划体系变的深入而持久。
      </dl>
    </div>
  </div>
  <div class="link">
    <div class="container"> 
        <span> 友情链接：</span>
        <a href="http://www.cdhuace.com/huace.html" title="公司宣传册设计" target="_blank">公司宣传册设计</a>   <a href="https://www.cdcxhl.com/idc/yaan.html" title="雅安托管服务器" target="_blank">雅安托管服务器</a>   <a href="https://www.cdxwcx.com/" title="成都网站建设公司" target="_blank">成都网站建设公司</a>   <a href="http://www.cdyxdwl.com/" title="企业网站改版" target="_blank">企业网站改版</a>   <a href="http://www.djyfdjwx.com/" title="四川威斯达宇" target="_blank">四川威斯达宇</a>   <a href="http://www.weihuwz.com/" title="礼品纸盒包装设计" target="_blank">礼品纸盒包装设计</a>   <a href="http://cdwcgs.com/" title="四川超纯水机设备" target="_blank">四川超纯水机设备</a>   <a href="http://www.weiweichi.com/" title="四川柴油发电机公司" target="_blank">四川柴油发电机公司</a>   <a href="https://www.cdcxhl.com/" title="网站建设" target="_blank">网站建设</a>   <a href="http://www.cdwzwhgs.com/" title="成都网站维护公司" target="_blank">成都网站维护公司</a>     
    </div>
  </div>
  <div class="copy"> © Copyright 2023 <a href="http://www.cdxtjz.cn/">小谭建站工作室</a>All Rights Reserved.  <a href="https://www.cdxwcx.com" target="_blank">成都网站建设</a> / <a href="https://www.cdcxhl.com/" target="_blank">成都网站建设</a> / <a href="https://www.cdxwcx.com" target="_blank">响应式网站建设</a> / <a href="https://www.cdcxhl.com/zuyong/" target=" _blank">成都服务器租用</a></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>