大家用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="http://whjierui.cn/article/coshedj.html">http://whjierui.cn/article/coshedj.html</a> </div> </div> <div class="other"> <h3>其他资讯</h3> <ul> <li> <a href="/article/dhssiho.html">使用？(数据库wrap怎么)</a> </li><li> <a href="/article/dhssijg.html">探索Linux云计算的未来（linux云计算）</a> </li><li> <a href="/article/dhssgdi.html">EDAS产品购买后，里面包含了HSF的运行环境吗？</a> </li><li> <a href="/article/dhssehs.html">Redis跨机房实时同步构建高可用的分布式系统（redis跨机房实时同步）</a> </li><li> <a href="/article/dhssihp.html">怎么自己建网站，建一个网站要多少钱？</a> </li> </ul> </div> </div> <footer> <div class="foot-top"> <ul> <li> <div class="title">关于美图云海</div> <div class="tbox"> <div class="txt"> 美图云海专注于网站建设、小程序开发， <br /> 用心做好每一个网站，懂您所需、做您所想！ <br /> 我们比其他网络公司做的更好、做的更多， <br /> 为客户创造更大的价值，让客户更省心! </div> <a rel="nofollow" href="javascript:;" class="more">MORE</a> </div> </li> <li> <div class="title">相关专题</div> <div class="tbox"> <a href="javascript:;" class="link">企业官网定制</a> <a href="javascript:;" class="link">小程序开发</a> <a href="javascript:;" class="link">品牌网站设计</a> <a href="javascript:;" class="link">网站建设标签</a> <a href="javascript:;" class="link">乐山网站建设</a> <a href="javascript:;" class="link">高端网站设计</a> <a href="javascript:;" class="link">公司做网站</a> </div> </li> <li> <div class="title">凭什么选择我们</div> <div class="tbox"> <a class="link">专业设计团队</a> <a class="link">快速响应服务</a> <a class="link">7个软件著作权</a> <a class="link">已服务3000+客户</a> <a class="link">项目检测具体全面</a> <a class="link">技术研发能力强劲</a> <a class="link">深度符合SEO优化</a> <a class="link">15项设计奖项</a> <a class="link">完善的制作流程</a> <a class="link">售后服务让您省心</a> </div> </li> <li> <div class="title">网站设计案例</div> <div class="tbox"> <ul> <li> <a href="javascript:;" target="_blank"> <div class="img"><img src="/Public/Home/images/gebaili.jpg" alt="哥百利" /> </div> <div class="tboxs"> <div class="t1">哥百利</div> <div class="t2">家具研发、设计、生产、服务为一体的专业实木家具订做企业</div> </div> </a> </li> <li> <a href="javascript:;" target="_blank"> <div class="img"><img src="/Public/Home/images/cdshujin.jpg" alt="蜀锦在线" /></div> <div class="tboxs"> <div class="t1">蜀锦在线</div> <div class="t2">汽车行业网站建设</div> </div> </a> </li> </ul> </div> </li> </ul> </div> <div class="foot-center"> <ul> <li> <div class="f-ewm"><img alt="美图云海微信公众号" src="/Public/Home/images/ewm.jpg" /></div> <div class="tbox ewm"> <div class="t1">扫一扫关注</div> <div class="t2">专业团队为您解答</div> </div> </li> <li> <div class="tbox tel"> <div class="t1">电话/邮箱</div> <div class="t2">400-028-6601 / 028-86922220<br>631063699@qq.com</div> </div> </li> <li> <div class="tbox sz"> <div class="t1">成都（总部）</div> <div class="t2">成华区 双林路22号仁禾商务楼5F<br> 大客户专线：13518219792 </div> </div> </li> <li> <div class="tbox gz"> <div class="t1">网站建设（乐山站）</div> <div class="t2"> 乐山市市中区瑞祥路一段1507号 <br /> 028-86922220 </div> </div> </li> </ul> </div> <div class="foot-button"> <div class="link-box" style="width:100%;float:none;"> <div class="a-box"></div> <div style="border-top:1px solid #ebebeb;font-size:12px;color:#666666;line-height:2;padding-top:20px;margin-top:20px;"> 业务范围包括企业网站建设、商城系统开发、品牌网站设计、旅游网站制作、英文外贸网站、教育培训门户网站开发、微信手机移动端开发、响应式网站建设、微信小程序开发、APP定制和其他类型网站定制等。 <br>服务区域包括成都市锦江区、青羊区、武侯区、金牛区、成华区、龙泉驿、温江、新都、高新区、成都市以及全国各地接受异地服务商的公司企业或者机构。 <br> <div class="a-box"><span><b>友情链接</b></span> <a href="http://www.cdxwcx.cn/" title="做网站" target="_blank">做网站</a><a href="http://www.bzwzjz.com/serve/" title="专业网站建设" target="_blank">专业网站建设</a><a href="https://www.cdcxhl.com/idc/ershu.html" title="电信成都枢纽中心" target="_blank">电信成都枢纽中心</a><a href="http://www.scxghyjd.com/" title="柴油发电机维修保养" target="_blank">柴油发电机维修保养</a><a href="http://www.ehjty.com/" title="叉车销售公司" target="_blank">叉车销售公司</a><a href="http://www.fzjierui.cn/" title="fzjierui.cn" target="_blank">fzjierui.cn</a><a href="http://www.jyfdjzy.com/" title="jyfdjzy.com" target="_blank">jyfdjzy.com</a><a href="http://www.weihuwz.com/" title="礼品纸盒包装设计" target="_blank">礼品纸盒包装设计</a><a href="http://www.cdappzz.com/" title="成都APP制作" target="_blank">成都APP制作</a><a href="http://www.shouzuofang.com/" title="攀枝花网站建设" target="_blank">攀枝花网站建设</a> </div> </div> <div class="copyright">©2025 青羊区美图云海设计工作室（个体工商户）乐山站 蜀ICP备19037934号</div> </div> </div> </footer> <div class="fixed-contact-wrap show"> <ul class="item-list clearfix"> <li class="phone"> <a rel="nofollow" target="_blank" href="tel:028-86922220"><i class="icon"></i><strong>028-86922220</strong></a> </li> <li class="qq"> <a rel="nofollow" target="_blank" href="http://wpa.qq.com/msgrd?v=3&uin=244261566&site=qq&menu=yes"><i class="icon"></i><strong> 244261566</strong></a> </li> <li class="back-top"> <a href="#" rel="nofollow" class="back-to-top"><i class="icon"></i><strong> 回到顶部</strong></a> </li> </ul> </div> <script type="text/javascript"> //右侧联系我们悬浮窗 $(".fixed-contact-wrap").hover(function () { $(this).addClass("active"); }, function () { $(this).removeClass("active"); }) function show_phone_menu() { $(".right-side ul").toggle(); } </script> </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>
