showdata.asp

同样是一个在ASP.NET+SQL基础环境下开发的网上BBS系统

<!--#INCLUDE FILE="upload.inc"-->
<%
'Fields("xxx").Name 取得Form中xxx(Form Object)的名字
'Fields("xxx").FilePath 如果是file Object 取得文件的完整路径
'Fields("xxx").FileName 如果是file Object 取得文件名
'Fields("xxx").ContentType 如果是file Object 取得文件的类型
'Fields("xxx").Length 取得Form中xxx(Form Object)的数据长度
'Fields("xxx").Value 取得Form中xxx(Form Object)的数据内容
Dim FormData,FormSize
FormSize=Request.TotalBytes
FormData=Request.BinaryRead(FormSize)

Set Fields = GetUpload(FormData)
response.write "邮件:" & fields("text1").Value &"<br>" 
response.write "邮件:" & fields("text2").Value & "<br>" 
response.write "说明:" & fields("textfield").Value & "<br>" & VbCrLf
response.write fields("newfile").FileName
response.write fields("newfile").ContentType &"<br>"
Response.ContentType = Fields("newfile").ContentType

If fields("newfile").FileName<>"" Then
	Response.ContentType = Fields("newfile").ContentType
	response.binarywrite Fields("newfile").Value
End If

%>