网页特效代码┊JsCode.CN
网页特效代码 您的位置:首页 > 网页制作教程 > 动态网站制作
RSS订阅

ASP无组件上传图片的源代码

[ 发布者:佚名┊来源:网络整理┊时间:2006-03-25┊浏览: 人次 ]

<!--#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无组件上传带进度条(续)
几个月前,写过一篇关于Asp无组件上传带进度条的Blog,当时主要分析了一下...
WEB打印设置解决方案一
以下是IE打印设置脚本<script language="VBScript">Dim hkey_root,hk...
ASP网站漏洞及黑客入侵防范方法
  如何更好的达到防范黑客攻击,本人提一下个人意见!第一,免费程序不要...
ASP中使用Form和QueryString集合
  当用户填写页面<FORM>内容时所提供的全部值,或在浏览器地址栏输入...
CopyRight © 2005-2008 JsCode.CN All Rights Reserved
网页特效代码┊JsCode v3.0 Designed By 在远方
说明:本站提供最新精选的免费网页特效代码,包括网页背景特效,网页文字特效,网页图片特效,导航菜单特效代码等20多种常用网页特效代码下载,以及Flash特效,网页模版,字体大全,字体下载等网页制作特效素材资源。网页特效代码欢迎您的光临!