上一篇：支持中文的无组件文件上传:upload.inc >>

支持中文的无组件文件上传:示例

文件：uploadtest.asp
<html>
<head>
<title>untitled document</title>
<meta http-equiv="content-type" content="text/html; charset=gb2312">
</head>

<body bgcolor="#ffffff">
<form method="post" name="form1" enctype="multipart/form-data" action="showdata.asp">
<p>text1:
<input type="text" name="text1">
</p>
<p>text2:
<input type="text" name="text2">
</p>
<p>txtarea:
<textarea name="textfield" cols="20" rows="10"></textarea>
</p>
<p>file:
<input type="file" name="newfile">
</p>
<p>
<input type="submit" name="submit" value="submit">
<input type="reset" name="reset" value="reset">
</p>
</form>
</body>
</html>

文件：showdata.asp

<%
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 "text1:" & fields("text1").value & "<br>" & vbcrlf
response.write "text2:" & fields("text2").value & "<br>" & vbcrlf
response.write "textarea:" & fields("textfield").value & "<br>" & vbcrlf
response.write fields("newfile").filename
response.write fields("newfile").contenttype
response.contenttype = fields("newfile").contenttype
if fields("newfile").filename<>"" then
response.contenttype = fields("newfile").contenttype
response.binarywrite fields("newfile").value
end if

response.binarywrite formdata
%>

（）

返回顶部

下一篇：ADO使用SELECT语法二 >>