荔园在线
荔园之美,在春之萌芽,在夏之绽放,在秋之收获,在冬之沉淀
[回到开始]
[上一篇][下一篇]
发信人: 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软件 网络书店