📄 17646.html

📁 VB技巧问答10000例 VB技巧问答10000例
💻 HTML
字号:
<html>  <head>    <title>Re: VB写CGI的</title>  </head>  <body bgcolor="#FFFFFF" vlink="#808080">    <center>      <h1>Re: VB写CGI的</h1>    </center><hr size=7 width=75%><hr size=7 width=75%><p>Posted by <a href="mailto:told_me@hotmail.com">tommy</a> on August 21, 1999 at 10:00:55:<p>In Reply to: <a href="17644.html">VB写CGI的</a> posted by CGI初学 on August 21, 1999 at 09:02:56:<p>: 各位CGI高手:<br>发生程式似乎死掉,用 del+ctrl+alt 结束出现<br>********************************************<br>500 Server Error<br>The server encountered an internal error or misconfiguration and was unable to complete your request.<br>Message: Empty output from CGI program C:/WebSite/cgi-win/8_11.exe<p>Please contact the server administrator at told_me@hotmail.com and inform them of the time the error occured, plus anything you know of that may have caused the error.<p>Also, please return to the referring document and note the hypertext link that led you here.<p> 例子的CGI有问题???? 可否帮帮忙!　谢谢<br> 　　　　　　　　　　　　　　　　CGI初学者　<br><html><br><title><br>范例8-1 留言版<br></title><br><body><br><center><h2>示范程式  8-1：留言版</h2></center><br><form action= "/cgi-win/8_11.exe" method=post><br><pre><br>请留下你的大名：    <input type=text name=yourname value= 王铭德 size=15><br>你的年龄：          <input type=text name=age value= 82 size=3><br>你的地址：          <input type=text name=address size=50><br>你的E-mail address：<input type=text name=email size=20><br>我有话要说：        <br><textarea name=words cols=40 rows=5><br>         学业尚未成功<br>           硕士仍须努力<br></textarea><br></pre><br><center><br><input type=submit value=公告天下><br><input type=reset value=再给我一次机会吧！><br></center><br></form><br></body><br></html><p><p>Sub CGI_Main()<br>Dim filepath As String<br>Dim fileno As Integer<br>Dim yourname As String<br>Dim age As Integer<br>Dim address As String<br>Dim email As String<br>Dim words As String<p>yourname = GetSmallField("yourname")<br>age = GetSmallField("age")<br>address = GetSmallField("address")<br>email = GetSmallField("email")<br>words = GetSmallField("words")<p>filepath = "c:\website\htdocs\8_1_board.htm"<br>fileno = FreeFile<p>MsgBox (filepath)<p>Open filepath For Append As #fileno<br>Print #fileno, "<h3>本人乃<font color=blue>" & yourname & "</font>是也</h3><br>"<br>Print #fileno, "我已经活了" & age & "年了<br>"<br>Print #fileno, "我的窝在" & address<br>Print #fileno, "<br><br>我想说：<br>" & words<br>Print #fileno, "<br>寄封E-mail给我吧！<a href=mailto:" & email & ">" & email & "</a><hr>"<p>Close #fileno<p>MsgBox ("In CGI-Main")<p>Send ("Content-type: text/html")<br>Send ("")<br>Send ("<html>")<br>Send ("<body>")<br>Send ("<center><a href=../8_1_Board.htm>你想看我吗？靠近一点</a></center><br>")<br>Send ("<center><a href=../8-1.htm>天啊！我还要在留一次言</a></center></body><html>")<p>MsgBox ("Over!")<p>End Sub<br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 17646--><!--top: 17662--><li><a href="17662.html">Re: VB写CGI的</a> <b>dino</b> <i>16:39:06 8/21/99</i>(<!--responses: 17662-->0)<ul><!--insert: 17662--></ul><!--end: 17662--></ul><!--end: 17646--><br><hr size=7 width=75%><p></body></html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -