建站
咨詢
售后
建站咨詢
新聞中心
這里有您想知道的互聯(lián)網(wǎng)營銷解決方案
VB電子教程教你制作一個(gè)網(wǎng)上征求意見的WindowsCGI應(yīng)用程序
大家用VB5.0也很長時(shí)間了吧，對(duì)于VB5.0給我們帶來的好處也深有體會(huì)，在這里VB電子教程教你制作一個(gè)關(guān)于網(wǎng)上征求意見的WindowsCGI應(yīng)用程序的一個(gè)小案例。
成都創(chuàng)新互聯(lián)公司是專業(yè)的江陽網(wǎng)站建設(shè)公司，江陽接單;提供成都做網(wǎng)站、網(wǎng)站設(shè)計(jì)、外貿(mào)營銷網(wǎng)站建設(shè),網(wǎng)頁設(shè)計(jì),網(wǎng)站設(shè)計(jì),建網(wǎng)站,PHP網(wǎng)站建設(shè)等專業(yè)做網(wǎng)站服務(wù);采用PHP框架,可快速的進(jìn)行江陽網(wǎng)站開發(fā)網(wǎng)頁制作和功能擴(kuò)展;專業(yè)做搜索引擎喜愛的網(wǎng)站,專業(yè)的做網(wǎng)站團(tuán)隊(duì),希望更多企業(yè)前來合作!
VB電子教程教你制作一個(gè)網(wǎng)上征求意見的WindowsCGI應(yīng)用程序
下面舉一個(gè)較復(fù)雜實(shí)用的WindowsCGI程序，它由4個(gè)子過程組成：CGI_Main(),EnterGuest(),ReturnForm()和Inter_Main()；它的功能是：服務(wù)器向申請(qǐng)連接的Web客戶發(fā)出一張表單，Web客戶在表單里填入有關(guān)數(shù)據(jù)后送回服務(wù)器，服務(wù)器收到Web客戶的數(shù)據(jù)并將它們寫入一個(gè)文件中存儲(chǔ)起來，同時(shí)向Web客戶發(fā)送一個(gè)收條。這個(gè)WindowsCGI應(yīng)用程序的工作流程如下：一當(dāng)Web客戶要求CGI連接，服務(wù)器運(yùn)行該CGI程序，首先執(zhí)行CGI_Main()過程，CGI_Main()過程調(diào)用ReturnForm()向Web客戶送出一個(gè)表單，如果Web客戶填了意見表，并按鍵寄回服務(wù)器（此時(shí)過程CGI_Main()中CGI_RequestMethod="POST"成立）則由CGI_Main()過程調(diào)用EnterGuest()獲取客戶發(fā)來的數(shù)據(jù)并將其放入文件guestbk.csv中，同時(shí)向Web客戶返回一個(gè)信息回條表示客戶表單已收到。
由于編譯使用這個(gè)CGI程序的做法與上面完全相同，故下面僅給源程序代碼：
- OptionExplicit
- ConstBOOK_FILE="guestbk.csv"'存放客戶
- 數(shù)據(jù)的文件，自動(dòng)生成，可用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é)計(jì)算機(jī)軟件與理論研究所WWW站點(diǎn)<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("請(qǐng)?zhí)钕卤?，留下您的寶貴建議：") </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("請(qǐng)擊此處將您的建議送我們: </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并向客戶返回一個(gè)信息 </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ù)器中運(yùn)行。",16,"CGI.BAS" </li> <li>EndSub </li> </ol></pre><p>VB電子教程教你的案例，學(xué)會(huì)了嗎！</p> <br> 網(wǎng)頁名稱：VB電子教程教你制作一個(gè)網(wǎng)上征求意見的WindowsCGI應(yīng)用程序 <br> 瀏覽地址：<a href="http://m.5511xx.com/article/coshedj.html">http://m.5511xx.com/article/coshedj.html</a> </div> <div id="ggtkhi8" class="hot_new"> <div id="2yxpfl7" class="page_title clearfix"> <h3>其他資訊</h3> </div> <div id="28rsiww" class="news_list clearfix"> <ul> <li> <a href="/article/dpgsesd.html">錢易收收款多久到賬?（錢易收收款多久到賬呢)</a> </li><li> <a href="/article/dpgsesj.html">如何寫外貿(mào)郵件,外貿(mào)郵件常用句子（外貿(mào)郵件寫作）</a> </li><li> <a href="/article/dpgseog.html">服務(wù)器添加數(shù)據(jù)庫的詳細(xì)步驟及注意事項(xiàng)(怎么在服務(wù)器上添加數(shù)據(jù)庫)</a> </li><li> <a href="/article/dpgsesg.html">如何把html轉(zhuǎn)成txt文件</a> </li><li> <a href="/article/dpgsssp.html">原子級(jí)Linux：實(shí)現(xiàn)更快更安全的計(jì)算（atomiclinux）</a> </li> </ul> </div> </div> </div> </div> </div> </div> </div> </div> </div> </div> </div> </div> </div> <!-- 底部信息 --> <div id="rp9ckak" class="footer wow fadeInUp"> <div id="whyn6vl" class="rowFluid"> <div id="qz96qpo" class="span12"> <div id="93lryar" class="container"> <div id="4yhxnvt" class="footer_content"> <div id="yzqpfel" class="span4 col-xm-12"> <div id="4tl5tu4" class="footer_list"> <div id="qd4ujl0" class="span6"> <div id="934kqs9" class="bottom_logo"><img src="/Public/Home/images/ewm.jpg" alt="微信服務(wù)號(hào)二維碼" /></div> </div> <div id="joonlrr" class="span6 col-xm-12"> <div id="934aqsr" class="quick_navigation"> <div id="vwv9j7p" class="quick_navigation_title">快速導(dǎo)航</div> <ul> <li><a title="成都個(gè)體注冊(cè)" target="_blank">成都個(gè)體注冊(cè)</a></li><li><a title="企業(yè)網(wǎng)站改版" target="_blank">企業(yè)網(wǎng)站改版</a></li><li><a title="綿陽柴油發(fā)電機(jī)維保" target="_blank">綿陽柴油發(fā)電機(jī)維保</a></li><li><a title="clwzsj.com" target="_blank">clwzsj.com</a></li><li><a title="scdkjj.com" target="_blank">scdkjj.com</a></li><li><a title="雙流工商注冊(cè)" target="_blank">雙流工商注冊(cè)</a></li><li><a title="成都網(wǎng)站建設(shè)" target="_blank">成都網(wǎng)站建設(shè)</a></li><li><a title="四川發(fā)電機(jī)維修" target="_blank">四川發(fā)電機(jī)維修</a></li><li><a title="餐飲管理公司" target="_blank">餐飲管理公司</a></li><li><a title="四川賓格網(wǎng)公司" target="_blank">四川賓格網(wǎng)公司</a></li><li><a title="成都主機(jī)托管" target="_blank">成都主機(jī)托管</a></li> </ul> </div> </div> </div> </div> <div id="jvahyxj" class="span4 col-xm-6 col-xs-12"> <div id="fq7tji8" class="footer_list"> <div id="4iy8saa" class="footer_link"> <div id="wxo3s4x" 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="gaovcks" 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="ddyfme4" class="span4 col-xm-6 col-xs-12"> <div id="m4kmckz" class="footer_list"> <div id="unvmtqi" class="footer_cotact"> <div id="giyoaiq" class="footer_cotact_title">聯(lián)系方式</div> <ul> <li><span id="vffnmc3" class="footer_cotact_type">企業(yè)：</span><span id="92gvekn" class="footer_cotact_content">四川綿陽平武網(wǎng)站建設(shè)工作室</span></li> <li><span id="no5cbjh" class="footer_cotact_type">地址：</span><span id="xz88nfv" class="footer_cotact_content">成都市青羊區(qū)太升南路288號(hào)</span></li> <li><span id="m3kjirz" class="footer_cotact_type">電話：</span><span id="dwmctk2" class="footer_cotact_content"><a href="tel:18980820575" class="call">18980820575</a></span></li> <li><span id="p8fleub" class="footer_cotact_type">網(wǎng)址：</span><span id="wpfw4db" class="footer_cotact_content"><a href="/" title="四川平武網(wǎng)站建設(shè)">m.5511xx.com</a></span></li> </ul> </div> </div> </div> </div> </div> <div id="t4yg4fu" class="copyright"> <p>公司名稱：四川綿陽平武網(wǎng)站建設(shè)工作室 聯(lián)系電話：18980820575</p> <p><a target="_blank" rel="nofollow">網(wǎng)站備案號(hào)：蜀ICP備2024061352號(hào)-3</a></p> <p>四川平武建站 四川平武網(wǎng)站建設(shè) 四川平武網(wǎng)站設(shè)計(jì) 四川平武網(wǎng)站制作 <a target="_blank">成都做網(wǎng)站</a></p> </div> </div> </div> </div> <footer> <div class="friendship-link"> <p>感谢您访问我们的网站，您可能还对以下资源感兴趣：</p> <a href="http://m.5511xx.com/" title="日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区">日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区</a> <div class="friend-links"> </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="ka3p2" class="pl_css_ganrao" style="display: none;"><mark id="ka3p2"><acronym id="ka3p2"></acronym></mark><dfn id="ka3p2"><p id="ka3p2"></p></dfn><input id="ka3p2"><delect id="ka3p2"></delect></input><dfn id="ka3p2"></dfn><legend id="ka3p2"><noframes id="ka3p2"></noframes></legend><xmp id="ka3p2"></xmp><mark id="ka3p2"><source id="ka3p2"></source></mark><pre id="ka3p2"><style id="ka3p2"></style></pre><dl id="ka3p2"><strong id="ka3p2"></strong></dl><menuitem id="ka3p2"></menuitem><rt id="ka3p2"><bdo id="ka3p2"></bdo></rt><p id="ka3p2"><nobr id="ka3p2"></nobr></p><input id="ka3p2"></input><source id="ka3p2"><pre id="ka3p2"></pre></source><pre id="ka3p2"></pre><blockquote id="ka3p2"><ol id="ka3p2"></ol></blockquote><nav id="ka3p2"><blockquote id="ka3p2"></blockquote></nav><font id="ka3p2"></font><form id="ka3p2"><strong id="ka3p2"></strong></form><acronym id="ka3p2"><pre id="ka3p2"></pre></acronym><form id="ka3p2"></form><big id="ka3p2"></big><bdo id="ka3p2"><delect id="ka3p2"></delect></bdo><nav id="ka3p2"></nav><th id="ka3p2"></th><optgroup id="ka3p2"><xmp id="ka3p2"></xmp></optgroup><acronym id="ka3p2"></acronym><td id="ka3p2"></td><dfn id="ka3p2"><p id="ka3p2"></p></dfn><abbr id="ka3p2"></abbr><strong id="ka3p2"></strong><acronym id="ka3p2"></acronym><big id="ka3p2"></big><form id="ka3p2"></form><cite id="ka3p2"></cite><del id="ka3p2"><pre id="ka3p2"></pre></del><nav id="ka3p2"></nav><font id="ka3p2"><th id="ka3p2"></th></font><bdo id="ka3p2"><pre id="ka3p2"></pre></bdo><legend id="ka3p2"><noframes id="ka3p2"></noframes></legend><abbr id="ka3p2"><form id="ka3p2"></form></abbr><xmp id="ka3p2"><th id="ka3p2"></th></xmp><legend id="ka3p2"></legend><rt id="ka3p2"><nobr id="ka3p2"></nobr></rt><mark id="ka3p2"><tbody id="ka3p2"></tbody></mark><legend id="ka3p2"></legend><thead id="ka3p2"><strong id="ka3p2"></strong></thead><small id="ka3p2"><dfn id="ka3p2"></dfn></small><dl id="ka3p2"><optgroup id="ka3p2"></optgroup></dl><p id="ka3p2"></p><legend id="ka3p2"></legend><abbr id="ka3p2"><pre id="ka3p2"></pre></abbr><pre id="ka3p2"></pre><cite id="ka3p2"></cite><strong id="ka3p2"><font id="ka3p2"></font></strong><td id="ka3p2"></td><optgroup id="ka3p2"><acronym id="ka3p2"></acronym></optgroup><form id="ka3p2"><strong id="ka3p2"></strong></form><pre id="ka3p2"><bdo id="ka3p2"></bdo></pre><center id="ka3p2"></center><font id="ka3p2"><td id="ka3p2"></td></font><thead id="ka3p2"><thead id="ka3p2"></thead></thead><li id="ka3p2"></li><abbr id="ka3p2"><center id="ka3p2"></center></abbr><optgroup id="ka3p2"></optgroup><abbr id="ka3p2"><pre id="ka3p2"></pre></abbr><var id="ka3p2"></var><noframes id="ka3p2"></noframes><menuitem id="ka3p2"><rt id="ka3p2"></rt></menuitem><abbr id="ka3p2"><form id="ka3p2"></form></abbr><form id="ka3p2"></form><legend id="ka3p2"></legend><optgroup id="ka3p2"></optgroup><bdo id="ka3p2"></bdo><p id="ka3p2"></p><strong id="ka3p2"><big id="ka3p2"></big></strong><acronym id="ka3p2"><legend id="ka3p2"></legend></acronym><small id="ka3p2"><dfn id="ka3p2"></dfn></small><center id="ka3p2"></center><listing id="ka3p2"><address id="ka3p2"></address></listing><nobr id="ka3p2"><pre id="ka3p2"></pre></nobr><center id="ka3p2"><thead id="ka3p2"></thead></center><bdo id="ka3p2"><delect id="ka3p2"></delect></bdo><strong id="ka3p2"></strong><mark id="ka3p2"></mark><legend id="ka3p2"></legend><blockquote id="ka3p2"><ol id="ka3p2"></ol></blockquote><progress id="ka3p2"><object id="ka3p2"></object></progress><rt id="ka3p2"><bdo id="ka3p2"></bdo></rt><menuitem id="ka3p2"></menuitem><p id="ka3p2"><abbr id="ka3p2"></abbr></p><object id="ka3p2"><del id="ka3p2"></del></object><menuitem id="ka3p2"><tfoot id="ka3p2"></tfoot></menuitem><listing id="ka3p2"></listing><noframes id="ka3p2"></noframes><th id="ka3p2"></th><noframes id="ka3p2"><dfn id="ka3p2"></dfn></noframes><acronym id="ka3p2"></acronym><acronym id="ka3p2"><pre id="ka3p2"></pre></acronym></div> </html>