无组件上传图片
来源:互联网 发布:淘宝红包链接提取 编辑:程序博客网 时间:2024/04/28 11:15
<!--#include file="upload_5xsoft.inc"-->
<%
Set conn=Server.CreateObject("Adodb.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("db.mdb")
conn.open connstr
'----------------------------------------
function getextendname(filename)
extname=lcase(filename)
extname=right(extname,3)
extname=right(extname,3-instr(extname,"."))
getextendname=extname
end function
'---------------------------------------------------
'-------------------------------------------------------
function filename()
filename=now()
filename=replace(filename,"-","")
filename=replace(filename,":","")
filename=replace(filename," ","")
filename=filename
end function
'----------------------------------------------------------
'-------------------------------------------------------------------
set upload=new upload_5xsoft
set upfile=upload.file("files")
title=upload.form("t1")
info=upload.form("t2")
if upfile.filesize>0 and upfile.filename<>"" then
if instr("jpg,bmp,gif",getextendname(upfile.filename))>0 then
if upfile.filesize<204800 then
fname=filename&"."&getextendname(upfile.filename)
upfile.saveas server.mappath("pic/"&fname)
sql="insert into img (title,info,imgpath)values('"+ title +"','"+ info +"','"+ fname +"')"
conn.Execute sql
conn.close
response.write "<script>alert('添加图片成功!');top.location.href='index.asp';</script>"
else
response.write "<script language='javascript'> alert('文件上传失败,大小超过了200K!');history.back(); </script>"
end if
else
response.write "<script language='javascript'> alert('文件上传失败,其不为图片格式!');history.back(); </script>"
end if
end if
'-----------------------------------------------------------------------------------------------------------------
- 无组件上传图片
- ASP无组件上传图片
- 无组件上传图片到数据库源码
- 无组件上传图片到数据库中
- javascript无组件上传图片类
- asp无组件上传图片文件
- 无组件上传图片到数据库中,最完整解决方案
- 无组件上传图片至SQLSERVER数据库(示例)
- 无组件上传图片之文件采用方案
- 无组件不能上传rar,zip非图片文件
- asp无组件上传图片并生成缩略图
- 浅谈如何实现JSP上传图片无组件化
- asp.net MVC实现无组件上传图片
- 无组件上传
- 无组件上传控件
- 无组件上传
- 无组件上传
- 无组件上传
- 优化数据库前,问自己10个问题
- 一个最简单的com组件的例子(C++)
- debian-vi使用(查找,替换,环境设置)
- 刚上来就暴出了csdn的Blog的绝对路径啦!
- 2005-10-22 风波
- 无组件上传图片
- 祝老婆天天开心
- ASP.NET对EXCEL的导入导出
- 优化--让你的SQL运行速度明显提高
- 终于等到了
- 2005-10-26 手机
- XSL/XML网页制作入门,入门到精通
- WinSock API网络编程——TCP/IP协议(http://www.impcas.ac.cn/usr/lujun/browse.asp?id=winsock_tcp)
- Tomcat5配置mysql4数据源