注册
登录
设施
搜索
俱乐部
论坛
私人消息 (0)
公共消息 (0)
论坛任务 (0)
系统消息 (0)
好友消息 (0)
帖子消息 (0)
稻草软件论坛
»
软件应用综合交流
» asp 简短的文件上传 小于1K 自己做的
返回列表
回复
发帖
‹‹ 上一主题
|
下一主题 ››
asp 简短的文件上传 小于1K 自己做的
发短消息
加为好友
tearlight
当前离线
顶级会员(MacOS X10.6)
转到楼层
»
倒序看帖
打印
字体大小:
t
T
楼主(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>
收藏
分享
大家互帮互助,来这里,你问我答,有问必答!
返回列表
回复
发帖
‹‹ 上一主题
|
下一主题 ››
稻草站务区
论坛公告、使用帮助
使用帮助
论坛公告
论坛事务
稻币发放
友情链接
给我提建议
新人报到
综合广场
电脑诊所(答疑区)
小技巧专区
共享上网论坛
数字校园山寨拨号器
论坛闲聊区(水区)
交易场
娱乐休闲
影音美图
游戏专区
系统之家
Windows讨论区
Win 8/Win8 RT讨论区
Windows Server系统
Win7、Vista专区
WinXP专区
Linux讨论区
Debian|Ubuntu发行版
Redhat|衍生版本
谷歌Google Chrome OS展望台
苹果Mac OS讨论区
Show Leopard专区
黑苹果ForPC
其它操作系统
系统光盘下载
扮靓电脑
美化资源发布(美化包/主题等)
晒桌面
软件世界
软件应用综合交流
磁盘应用区
安全软件论坛
杀毒交流区
软件资源发布区
原创软件发布区
稻草软件工作室
稻草电脑钥匙
程序发布
[收藏此主题]
[关注此主题的新回复]
[通过 QQ、MSN 分享给朋友]
道具
每日签到
稻草语音聊天室
网速测试
全国城市地图
勋章
社区银行
发帖际遇