index.asp
<table class="tableBorder" width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#D6DBF7">
<form name="newsinfo" method="post" action="saveshjiainfo.asp?action=logo"> <tr>
<td align="center" background="../admin/images/bg_3.gif" height="25" colspan="4"><b><font color="#ffffff">图片上传程序</font></b></td></tr>
<tr> <td width="30%" bgcolor="#D6DBF7" align="right">上传图片:</td><td width="70%" bgcolor="#D6DBF7">
<INPUT NAME="logo" TYPE="text" ID="logo" SIZE="20" ></td></tr>
<tr> <td width="30%" bgcolor="#D6DBF7" align="right"></td><td width="70%" bgcolor="#D6DBF7">
<INPUT TYPE="button" NAME="Submit" VALUE="上传LOGO图片" ONCLICK="window.open('upload_flash.asp?formname=newsinfo&editname=logo&uppath=bookpic&filelx=jpg','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')">
</td></tr> <tr> <td bgcolor="#D6DBF7"></td><td bgcolor="#D6DBF7">
</td></tr> </form></table>
upfile_flash.asp
<!--#include file="upload_wj.inc"-->
<link href="images/css.css" rel="stylesheet" type="text/css">
<%
set upload=new upload_file
if upload.form("act")="uploadfile" then
filepath=trim(upload.form("filepath"))
filelx=trim(upload.form("filelx"))
i=0
for each formName in upload.File
set file=upload.File(formName)
fileExt=lcase(file.FileExt) '得到的文件扩展名不含有.
if file.filesize<100 then
response.write "<script language=javascript>alert('请先选择你要上传的文件!');history.go(-1);</script>"
response.end
end if
if (filelx<>"swf") and (filelx<>"jpg") then
response.write "<script language=javascript>alert('该文件类型不能上传!');history.go(-1);</script>"
response.end
end if
if filelx="swf" then
if fileext<>"swf" then
response.write "<script language=javascript>alert('只能上传swf格式的Flash文件!');history.go(-1);</sc