asp 简短的文件上传小于1K 自己做的

顶级会员(MacOS X10.6)

转到楼层 » 倒序看帖

打印

字体大小: tT

楼主(1 楼):tearlight发表于 2010-10-28 12:24 | 只看该作者

asp 简短的文件上传小于1K 自己做的

asp, 上传, 无组件

分享到： QQ空间新浪微博开心网人人网

经修改文件变大了，这是考虑到浏览器的兼容经测试这个能在IE 火狐 GOOGLE浏览器运行

<html>
<head>
<title>文件上传</title>
</head>
<body>
<form method="POST" action="upload.asp">
<input type="file" name="file" size="42"> <input type="submit" value="提交" name="tj">
</form>
<%
if request.Form("tj")="提交" then
dim file ,filename
file = Request.Form("file")
if file="" then
response.write"<script>alert('请选择文件！');location.href='upload.asp';</script>"
else
houzui=mid(file,InStrRev(file, "."))
  filename=year(date) & month(date) & day(date) & Hour(time) & minute(time) & second(time) & houzui

  Set objStream = Server.CreateObject("ADODB.Stream")
  objStream.Type = 1
  objStream.Open
  objStream.SaveToFile Server.MapPath(file),2
  objStream.Close

  response.write"<script>alert('上传成功！');location.href='upload.asp';</script>"
  end if
end if
%>
</body>
</html>

大家互帮互助，来这里，你问我答，有问必答！