荔园在线

荔园之美,在春之萌芽,在夏之绽放,在秋之收获,在冬之沉淀

[回到开始] [上一篇][下一篇]


发信人: pas (流星), 信区: Visual
标  题: 用VB编写标准CGI程序(4)
发信站: 荔园晨风BBS站 (Fri May 11 14:08:05 2001), 转信

Sub Main()

  Dim CGI_ContentLength As String CGI_QueryString As String

  Dim lContentLength As Long ' 标准输入中的字符串的长度

  Dim sBuff As String ' 用于存储标准输入中的字符串

  Dim lBytesRead As Long ' 实际读入的字符个数

  Dim rc As Long

  Dim sFormData As String

  '调用系统函数生成标准输入输出文件句柄

  hStdIn = GetStdHandle(STD_INPUT_HANDLE)

  hStdOut = GetStdHandle(STD_OUTPUT_HANDLE)

  '获取环境变量CONTENT_LENGTH的值 并将它转换为整型

  CGI_ContentLength = Environ("CONTENT_LENGTH")

  lContentLength = Val(CGI_ContentLength)

  sBuff = String(lContentLength, Chr$(0))

  '从标准输入中读数据

  rc = ReadFile(hStdIn, ByVal sBuff, lContentLength, lBytesRead, ByVal
 0&)

  sFormData = Left$(sBuff, lBytesRead)

  OutPut "Content-type: text/html" & vbCrLf

  OutPut "<HTML><HEAD>"

  OutPut "<TITLE>表单传送数据的方法POST </TITLE></HEAD>"

  OutPut "<BODY><H3>表单传送数据的方法POST</H3> "

  OutPut "<P>本CGI 程序使用Visual Basic编制  "

  OutPut "<P>POST方法传送的数据: "

  OutPut "<P>" & sBuff

  OutPut "</BODY></HTML>"

  End Sub

  Sub OutPut(s As String) ' 定义一个向标准输出写信息的函数

  Dim lBytesWritten As Long

  s = s & vbCrLf

  WriteFile hStdOut, s, Len(s), lBytesWritten, ByVal 0&

  End Sub


--
※ 来源:·荔园晨风BBS站 bbs.szu.edu.cn·[FROM: 192.168.52.78]


[回到开始] [上一篇][下一篇]

荔园在线首页 友情链接:深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店