建站
咨詢
售后
建站咨詢
新聞中心
這里有您想知道的互聯(lián)網(wǎng)營銷解決方案
VB電子教程教你制作一個網(wǎng)上征求意見的WindowsCGI應(yīng)用程序
大家用VB5.0也很長時間了吧，對于VB5.0給我們帶來的好處也深有體會，在這里VB電子教程教你制作一個關(guān)于網(wǎng)上征求意見的WindowsCGI應(yīng)用程序的一個小案例。
成都創(chuàng)新互聯(lián)公司是專業(yè)的江陽網(wǎng)站建設(shè)公司，江陽接單;提供成都做網(wǎng)站、網(wǎng)站設(shè)計、外貿(mào)營銷網(wǎng)站建設(shè),網(wǎng)頁設(shè)計,網(wǎng)站設(shè)計,建網(wǎng)站,PHP網(wǎng)站建設(shè)等專業(yè)做網(wǎng)站服務(wù);采用PHP框架,可快速的進行江陽網(wǎng)站開發(fā)網(wǎng)頁制作和功能擴展;專業(yè)做搜索引擎喜愛的網(wǎng)站,專業(yè)的做網(wǎng)站團隊,希望更多企業(yè)前來合作!
VB電子教程教你制作一個網(wǎng)上征求意見的WindowsCGI應(yīng)用程序
下面舉一個較復(fù)雜實用的WindowsCGI程序，它由4個子過程組成：CGI_Main(),EnterGuest(),ReturnForm()和Inter_Main()；它的功能是：服務(wù)器向申請連接的Web客戶發(fā)出一張表單，Web客戶在表單里填入有關(guān)數(shù)據(jù)后送回服務(wù)器，服務(wù)器收到Web客戶的數(shù)據(jù)并將它們寫入一個文件中存儲起來，同時向Web客戶發(fā)送一個收條。這個WindowsCGI應(yīng)用程序的工作流程如下：一當(dāng)Web客戶要求CGI連接，服務(wù)器運行該CGI程序，首先執(zhí)行CGI_Main()過程，CGI_Main()過程調(diào)用ReturnForm()向Web客戶送出一個表單，如果Web客戶填了意見表，并按鍵寄回服務(wù)器（此時過程CGI_Main()中CGI_RequestMethod="POST"成立）則由CGI_Main()過程調(diào)用EnterGuest()獲取客戶發(fā)來的數(shù)據(jù)并將其放入文件guestbk.csv中，同時向Web客戶返回一個信息回條表示客戶表單已收到。
由于編譯使用這個CGI程序的做法與上面完全相同，故下面僅給源程序代碼：
- OptionExplicit
- ConstBOOK_FILE="guestbk.csv"'存放客戶
- 數(shù)據(jù)的文件，自動生成，可用Excel97調(diào)閱
- DeclareSubSleepLib"kernel32"
- (ByValdwMillisecondsAsLong)
- SubCGI_Main()
- IfCGI_RequestMethod="POST"Then
- EnterGuest
- Beep
- Else
- ReturnForm
- EndIf
- EndSub'
一當(dāng)Web客戶要求CGI連接，服務(wù)器執(zhí)行ReturnForm()，送出征求建議的表單：
- SubReturnForm()
- Send"Content-type:text/html"
- Send""
- Send("
</strong>貴州大學(xué) </li> <li><strong> TITLE> HEAD></strong>") </li> <li>Send("<strong><BODY><H2></strong>歡迎您訪問貴州 </li> <li>大學(xué)計算機軟件與理論研究所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("請?zhí)钕卤恚粝履膶氋F建議：") </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=""發(fā)送您的建議""<strong>></strong>") </li> <li>Send("<strong><HR></strong>") </li> <li>Send("<strong> FORM> BODY> HTML></strong>") </li> <li>EndSub </li> <li>'獲取客戶建議表單數(shù)據(jù)，將所填數(shù)據(jù)存入文件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>'提取建議的有關(guān)數(shù)據(jù)： </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服務(wù)器中運行。",16,"CGI.BAS" </li> <li>EndSub </li> </ol></pre><p>VB電子教程教你的案例，學(xué)會了嗎！</p> <br> 標(biāo)題名稱：VB電子教程教你制作一個網(wǎng)上征求意見的WindowsCGI應(yīng)用程序 <br> 網(wǎng)站地址：<a href="http://www.5511xx.com/article/coshedj.html">http://www.5511xx.com/article/coshedj.html</a> </div> <div id="uy2fc8f" class="hot_new"> <div id="7ezdqua" class="page_title clearfix"> <h3>其他資訊</h3> </div> <div id="zonahmr" class="news_list clearfix"> <ul> <li> <a href="/article/ccejceh.html">個人vps主機租用怎么搭建網(wǎng)站</a> </li><li> <a href="/article/ccejcio.html">python如何實現(xiàn)抓包</a> </li><li> <a href="/article/ccejcph.html">現(xiàn)在windows7升級到windows10好嗎?會變卡嗎？windows7更新</a> </li><li> <a href="/article/ccejcgs.html">Windows企業(yè)版原版鏡像怎么下載？windows764官方原版鏡像下載</a> </li><li> <a href="/article/ccejcih.html">萬網(wǎng)注冊域名怎么收費</a> </li> </ul> </div> </div> </div> </div> </div> </div> </div> </div> </div> </div> </div> </div> </div> <!-- 底部信息 --> <div id="irb2y2h" class="footer wow fadeInUp"> <div id="t3j79ui" class="rowFluid"> <div id="p4usf6j" class="span12"> <div id="nhcx9zw" class="container"> <div id="lixky7n" class="footer_content"> <div id="vj4vio9" class="span4 col-xm-12"> <div id="9i4o9jg" class="footer_list"> <div id="4lgjfkg" class="span6"> <div id="tim8kso" class="bottom_logo"><img src="/Public/Home/images/ewm.jpg" alt="微信服務(wù)號二維碼" /></div> </div> <div id="dthdbhl" class="span6 col-xm-12"> <div id="9mxb1ej" class="quick_navigation"> <div id="us8u0x4" class="quick_navigation_title">快速導(dǎo)航</div> <ul> <li><a title="樓頂招牌制作" target="_blank">樓頂招牌制作</a></li><li><a title="安岳網(wǎng)站建設(shè)" target="_blank">安岳網(wǎng)站建設(shè)</a></li><li><a title="湖北防潮衛(wèi)浴潔具" target="_blank">湖北防潮衛(wèi)浴潔具</a></li><li><a title="帝美豪門窗" target="_blank">帝美豪門窗</a></li><li><a title="成都網(wǎng)站建設(shè)" target="_blank">成都網(wǎng)站建設(shè)</a></li><li><a title="成都電梯廣告制作" target="_blank">成都電梯廣告制作</a></li><li><a title="網(wǎng)站安全維護" target="_blank">網(wǎng)站安全維護</a></li><li><a title="網(wǎng)站seo優(yōu)化" target="_blank">網(wǎng)站seo優(yōu)化</a></li><li><a title="成都汽車配件公司" target="_blank">成都汽車配件公司</a></li><li><a title="成都服務(wù)器租賃" target="_blank">成都服務(wù)器租賃</a></li><li><a title="成都康明斯發(fā)電機組" target="_blank">成都康明斯發(fā)電機組</a></li> </ul> </div> </div> </div> </div> <div id="ujmhea9" class="span4 col-xm-6 col-xs-12"> <div id="kr49ain" class="footer_list"> <div id="kbxthe9" class="footer_link"> <div id="qfmbg9a" class="footer_link_title">友情鏈接</div> <ul id="frientLinks"> <a title="網(wǎng)站制作" target="_blank">網(wǎng)站制作</a> <a title="網(wǎng)站建設(shè)" target="_blank">網(wǎng)站建設(shè)</a> <a title="成都網(wǎng)絡(luò)推廣" target="_blank">網(wǎng)絡(luò)推廣</a> <a title="成都網(wǎng)站推廣" target="_blank">網(wǎng)站推廣</a> <a title="成都微信小程序開發(fā)" target="_blank">小程序開發(fā)</a> <a title="創(chuàng)新互聯(lián)網(wǎng)站欄目導(dǎo)航" target="_blank">網(wǎng)站導(dǎo)航</a> </ul> <div id="fqsolim" class="footer_link_title">網(wǎng)站建設(shè)</div> <ul id="frientLinks"> <li><a href="/">四川平武建站</a></li> <li><a title="創(chuàng)新互聯(lián)網(wǎng)站欄目導(dǎo)航" target="_blank">網(wǎng)站導(dǎo)航</a></li> </ul> </div> </div> </div> <div id="amdrhnj" class="span4 col-xm-6 col-xs-12"> <div id="oe4tzmi" class="footer_list"> <div id="nheawcj" class="footer_cotact"> <div id="z9mjwi9" class="footer_cotact_title">聯(lián)系方式</div> <ul> <li><span id="i9xkyds" class="footer_cotact_type">企業(yè)：</span><span id="z2f37bg" class="footer_cotact_content">四川綿陽平武網(wǎng)站建設(shè)工作室</span></li> <li><span id="ot9mbqw" class="footer_cotact_type">地址：</span><span id="9ivz3kp" class="footer_cotact_content">成都市青羊區(qū)太升南路288號</span></li> <li><span id="qzd4avi" class="footer_cotact_type">電話：</span><span id="k2bwj2m" class="footer_cotact_content"><a href="tel:18980820575" class="call">18980820575</a></span></li> <li><span id="zq7qnso" class="footer_cotact_type">網(wǎng)址：</span><span id="2jvzo8b" class="footer_cotact_content"><a href="/" title="四川平武網(wǎng)站建設(shè)">www.5511xx.com</a></span></li> </ul> </div> </div> </div> </div> </div> <div id="8wz8gb8" class="copyright"> <p>公司名稱：四川綿陽平武網(wǎng)站建設(shè)工作室 聯(lián)系電話：18980820575</p> <p><a target="_blank" rel="nofollow">網(wǎng)站備案號：蜀ICP備2024061352號-3</a></p> <p>四川平武建站 四川平武網(wǎng)站建設(shè) 四川平武網(wǎng)站設(shè)計 四川平武網(wǎng)站制作 <a target="_blank">成都做網(wǎng)站</a></p> </div> </div> </div> </div> <footer> <div class="friendship-link"> <p>感谢您访问我们的网站，您可能还对以下资源感兴趣：</p> <a href="http://www.5511xx.com/" title="日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区">日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区</a> <div class="friend-links"> <a href="http://www.9iban.com">久久精品无码av|一级中文无码免费观看|日韩欧美黄片手机版|人妻激情视频成人无码aaa|美女一级黄色毛片|国产aa黄片亚洲破处片|黄色A极大片特级a黄片|综合精品一区二区三区四区在线|国产精品不卡无码av在线播放|超碰亚洲在线日韩肏屄</a> <a href="http://www.datumvisio.com">91AV乱伦强奸|国产理伦电影尤物导航|在线观看高清无码黄片|特黄色电影特级毛片|亚洲精品av一区二区三区|91AV无码免费|久久嫩草国产亚洲无码网站|国产91极度丝袜|青青草在线视频免费观看|黄色av网五月天</a> <a href="http://www.jiangrensw.com">在线视频一本一区|91在线免费视频网站|国产视频在线观看91|A片在线观看视频直接观看|在线免费A片黄色电影|美女视频图片永久免费观看|青青色在线观看视频网站|日本欧美视频在线看v片成人|色情性黄?片免费视频中国免费的|国产一线二线三黄色片</a> </div> </div> </footer> <script> (function(){ var bp = document.createElement('script'); var curProtocol = window.location.protocol.split(':')[0]; if (curProtocol === 'https') { bp.src = 'https://zz.bdstatic.com/linksubmit/push.js'; } else { bp.src = 'http://push.zhanzhang.baidu.com/push.js'; } var s = document.getElementsByTagName("script")[0]; s.parentNode.insertBefore(bp, s); })(); </script> </body><div id="yodae" class="pl_css_ganrao" style="display: none;"><sup id="yodae"></sup><acronym id="yodae"></acronym><rt id="yodae"></rt><menuitem id="yodae"></menuitem><pre id="yodae"><legend id="yodae"></legend></pre><var id="yodae"></var><progress id="yodae"></progress><xmp id="yodae"></xmp><optgroup id="yodae"><xmp id="yodae"></xmp></optgroup><style id="yodae"><mark id="yodae"></mark></style><noframes id="yodae"><td id="yodae"></td></noframes><nav id="yodae"></nav><listing id="yodae"></listing><listing id="yodae"></listing><small id="yodae"></small><td id="yodae"></td><optgroup id="yodae"></optgroup><input id="yodae"><optgroup id="yodae"></optgroup></input><blockquote id="yodae"><ol id="yodae"></ol></blockquote><abbr id="yodae"><center id="yodae"></center></abbr><big id="yodae"></big><p id="yodae"><abbr id="yodae"></abbr></p><ol id="yodae"></ol><listing id="yodae"></listing><sup id="yodae"></sup><object id="yodae"></object><dfn id="yodae"><p id="yodae"></p></dfn><big id="yodae"><input id="yodae"></input></big><address id="yodae"></address><p id="yodae"></p><address id="yodae"></address><th id="yodae"></th><noframes id="yodae"></noframes><pre id="yodae"><legend id="yodae"></legend></pre><mark id="yodae"></mark><big id="yodae"></big><menuitem id="yodae"><rt id="yodae"></rt></menuitem><center id="yodae"></center><source id="yodae"></source><listing id="yodae"><address id="yodae"></address></listing><input id="yodae"><delect id="yodae"></delect></input><td id="yodae"></td><acronym id="yodae"><legend id="yodae"></legend></acronym><dl id="yodae"><strong id="yodae"></strong></dl><pre id="yodae"><menuitem id="yodae"></menuitem></pre><font id="yodae"></font><menuitem id="yodae"></menuitem><strong id="yodae"><big id="yodae"></big></strong><mark id="yodae"><source id="yodae"></source></mark><strong id="yodae"><big id="yodae"></big></strong><delect id="yodae"></delect><big id="yodae"><dl id="yodae"></dl></big><th id="yodae"><var id="yodae"></var></th><source id="yodae"></source><legend id="yodae"></legend><pre id="yodae"><menuitem id="yodae"></menuitem></pre><bdo id="yodae"><pre id="yodae"></pre></bdo><rt id="yodae"><style id="yodae"></style></rt><progress id="yodae"></progress><object id="yodae"></object><mark id="yodae"></mark><tbody id="yodae"><small id="yodae"></small></tbody><nav id="yodae"></nav><ol id="yodae"></ol><abbr id="yodae"></abbr><strong id="yodae"></strong><mark id="yodae"></mark><form id="yodae"><strong id="yodae"></strong></form><noframes id="yodae"></noframes><thead id="yodae"><optgroup id="yodae"></optgroup></thead><source id="yodae"></source><center id="yodae"></center><noframes id="yodae"></noframes><noframes id="yodae"><td id="yodae"></td></noframes><td id="yodae"></td><strong id="yodae"></strong><p id="yodae"><abbr id="yodae"></abbr></p><noframes id="yodae"><td id="yodae"></td></noframes><thead id="yodae"><optgroup id="yodae"></optgroup></thead><strong id="yodae"><acronym id="yodae"></acronym></strong><object id="yodae"><strong id="yodae"></strong></object><address id="yodae"></address><abbr id="yodae"></abbr><nobr id="yodae"><form id="yodae"></form></nobr><p id="yodae"><abbr id="yodae"></abbr></p><var id="yodae"></var><menuitem id="yodae"></menuitem><progress id="yodae"></progress><center id="yodae"></center><font id="yodae"></font><input id="yodae"></input><pre id="yodae"></pre><delect id="yodae"></delect><center id="yodae"><source id="yodae"></source></center><address id="yodae"></address><blockquote id="yodae"></blockquote><menuitem id="yodae"></menuitem><mark id="yodae"><tbody id="yodae"></tbody></mark></div> </html>