用VB编写留言板
;Send "对不起，您还没有填写留言的内容。"
Exit Sub
End If
'' 向临时文件中写入客户端用户的留言
Print #1, "<ul>" & vbCrLf
Print #1, "<li>时间:" & Date & " " & Time
Print #1, "<li>姓名:" & StrData(1)
'' 如果不填写以下各项则不显示该项的名称
If StrData(2) > " " Then Print #1, "<li>E-mail:<small><a href=mailto:" _
& StrData(2) & ">" & StrData(2) & "</a></small>"
If StrData(3) > "http:// " Then Print #1, "<li>主页:<a href=" & _
StrData(3) & " TARGET=_blank >" & StrData(3) & "</a>"
If StrData(4) > " " Then Print #1, "<li>来自:" & StrData(4)
'' 以下循环查找留言内容中的回车符，将其替换为浏览器能够
'' 识别的换行符
Do
I = InStr(StrData(5), Chr(13))
If I = 0 Then Exit Do
UrlString = Mid(StrData(5), 1, I - 1)
StrData(5) = UrlString + "<br>" + Mid(StrData(5), I + 1)
Loop
Print #1, "<li>内容:" & StrData(5) & vbCrLf; "</ul><hr>"
'' 将留言簿中以前的留言内容写入临时文件
Do
Line Input #2, TempString
Print #1, TempString
Loop While Not EOF(2)
'' 关闭打开的文件并将临时文件更名
Close #1
Close #2
Kill Databook
Name TempFileName As Databook
'' 在客户端显示处理结果
Send "Content-type:text/html" & Ent
Send "<HTML><body><center><br>您的建议已成功提交<br>"
Send "<br><a href=\webpub\databook.htm>" '' 注③
Send "点这里查看结果</a></center></body></html>"
End Sub
'' 该子程序用于处理向客户端返回的数据
Sub Send(s As String)
Dim lBytesWritten As Long
s = s & Ent
Wri
Exit Sub
End If
'' 向临时文件中写入客户端用户的留言
Print #1, "<ul>" & vbCrLf
Print #1, "<li>时间:" & Date & " " & Time
Print #1, "<li>姓名:" & StrData(1)
'' 如果不填写以下各项则不显示该项的名称
If StrData(2) > " " Then Print #1, "<li>E-mail:<small><a href=mailto:" _
& StrData(2) & ">" & StrData(2) & "</a></small>"
If StrData(3) > "http:// " Then Print #1, "<li>主页:<a href=" & _
StrData(3) & " TARGET=_blank >" & StrData(3) & "</a>"
If StrData(4) > " " Then Print #1, "<li>来自:" & StrData(4)
'' 以下循环查找留言内容中的回车符，将其替换为浏览器能够
'' 识别的换行符
Do
I = InStr(StrData(5), Chr(13))
If I = 0 Then Exit Do
UrlString = Mid(StrData(5), 1, I - 1)
StrData(5) = UrlString + "<br>" + Mid(StrData(5), I + 1)
Loop
Print #1, "<li>内容:" & StrData(5) & vbCrLf; "</ul><hr>"
'' 将留言簿中以前的留言内容写入临时文件
Do
Line Input #2, TempString
Print #1, TempString
Loop While Not EOF(2)
'' 关闭打开的文件并将临时文件更名
Close #1
Close #2
Kill Databook
Name TempFileName As Databook
'' 在客户端显示处理结果
Send "Content-type:text/html" & Ent
Send "<HTML><body><center><br>您的建议已成功提交<br>"
Send "<br><a href=\webpub\databook.htm>" '' 注③
Send "点这里查看结果</a></center></body></html>"
End Sub
'' 该子程序用于处理向客户端返回的数据
Sub Send(s As String)
Dim lBytesWritten As Long
s = s & Ent
Wri