asp利用文件上传组件upload_5xsoft文件上传

  次阅读 来源:互联网(转载协议) 2016-03-01 11:04 我要评论(0)

我们是利用upload文件上传组件进行文件上传哦。

<%Server.ScriptTimeOut=5000%>

<!--#include file="conn.asp"-->

<!--#include FILE="upload_5xsoft.inc"-->

<html>

<head>

<title>文件上传</title>

<link rel="stylesheet" href="<%=css%>" type="text/css">

<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>

<body>

<%dim upload,file,formName,formPath,iCount,exeec,wjm

set upload=new upload_5xsoft

formPath="FJ/"

ly=upload.form("content")

yhm=upload.form("yhm")

zid=upload.form("zid")

ys=upload.form("ys")

yyzm = upload.form("yzm")

zt=upload.form("zt")

ztid=upload.form("ztid")

cz=upload.form("cz")

tp=upload.form("tp")

if tp = "http://" then tp = ""

ly=xrzh(ly)

if cz = "" then

fhlj = "bbs_list.asp?zid="&zid

else

fhlj = "bbs_tj.asp?page=1000&zt="&zt&"&ztid="&ztid&"&zid="&zid

zid = ztid

end if

if yyzm <> session(sessionvalue & "yzm") then redirect fhlj

zhhf = jdsj

if yhm = "" then yhm = "游客"''request.servervariables("remote_addr")

for each formName in upload.objFile ''列出所有上传了的文件

set file = upload.file(formName)

if file.FileSize>0 then

kzm = lcase(right(file.filename,4))

if instr(",.mpg.asf.avi.mp3.swf.mpeg.png.gif.bmp.jpg.wma.wmv.txt",kzm)<= 0 then response.Redirect hflj

if file.filesize > 819200 then%>

<script language="javascript">

alert("文件大于800k!");

window.location="<%=fhlj%>";

</script>

<%end if

wjdx = file.filesize

wjm = formpath&replace(cstr(date),"-","") & cstr(Replace(Timer(), ".", "")) & kzm

file.SaveAs Server.mappath(wjm)

dx = cstr(file.filesize/1024)

if len(dx) >6 then dx=left(dx,6)

end if

next

if trim(zt) <>"" then

本站部分文章来源于网络以及网友投稿,本站只负责对文章进行整理、排版、编辑,是出于传递更多信息之目的,并不意味着赞同其观点或证实其内容的真实性。如果您有什么意见或建议,请联系QQ28-1688-302!

人工智能实验室
相关文章相关文章
  • 品友互动为Digital Travel APAC2018 唯一受邀中国AI企业

    品友互动为Digital Travel APAC2018 唯一受邀中国AI企业

  • 让AI触手可及  Qualcomm携手创通联达推出全新终端侧AI开发套件

    让AI触手可及 Qualcomm携手创通联达推出全新终端侧AI开发套件

  • 长虹新款智能语音空调,告诉你空调也能玩Siri

    长虹新款智能语音空调,告诉你空调也能玩Siri

  • 第一批国家重点研发计划公布,旷视科技开启“五年行动”

    第一批国家重点研发计划公布,旷视科技开启“五年行动”

网友点评网友点评
阅读推荐阅读推荐

据外媒报道,STEER打造了首款完全自动驾驶停车技术,旨在使常规车辆转变为无人驾驶车辆。STEER的首款技术应用是4级自动驾驶及网络安全停车...

近日,美国软性机器抓手制造商 Soft Robotics 宣布,获得 2000 万美元的融资,本轮投资者包括 Scale Venture Partners,Calibrate Ventures...

据外媒报道,加州车管局发布了《2017自动驾驶脱离报告(California Autonomous Vehicle Disengagement Reports)》,其中谈及了脱离的具体...

用人机语音交互,来解决智能家居适老的问题;通过家庭门禁与安防套件、空气净化套件、可燃气体与有害气体监控套件等相互联动,在不同生活情...