ASP通过FLASH批量上传(CFUpdate)

演示效果:

获取上传图片

function challs_flash_onCompleteData(a){ //获取服务器反馈信息事件

 document.getElementById('PicName').value+=','+a; 

}

将Flash包含在表单内

<form action="" method="post" name="form1">

<object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=10,0" width="408" height="320" id="update" align="middle">

<param name="allowFullScreen" value="false" />

    <param name="allowScriptAccess" value="always" />

  <param name="movie" value="update.swf" />

    <param name="quality" value="high" />

    <param name="bgcolor" value="#ffffff" />

    <embed src="update.swf" quality="high" bgcolor="#ffffff" width="408" height="320" name="update" align="middle" allowScriptAccess="always" allowFullScreen="false" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />

 </object><BR><BR>

<input name="Pics" type="text" id="PicName" width:408px;border:1px #cccccc solid">

</form>

该上传在input的文本框中逗号在前表示.存储时将其删掉即可

newPic=trim(Request("Pics"))

if left(newPic,1)="," then

newPic=right(newPic,len(newPic)-1)

end if

完成代码下载:

点击下载

相关文章

数组的定义 Dim MyArray MyArray = Array(1‚5‚123‚12‚98...
\'参数: \'code:要检测的代码 \'leixing:html或者ubb \'n...
演示效果: 代码下载: 点击下载
环境:winxp sp2 ,mysql5.0.18,mysql odbc 3.51 driver 表采...
其实说起AJAX的初级应用是非常简单的,通俗的说就是客户端(j...
<% ’判断文件名是否合法 Function isFilename(aFilename...