📄 uploadsave.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file=conn.asp-->
<!--#include file=../../include/waterprint.asp-->
<%
Function CreateOnlyID()
tmpid=right(year(now()),2)
tmpid=tmpid & month(now())
tmpid=tmpid & day(now())
tmpid=tmpid & hour(now())
tmpid=tmpid & minute(now())
tmpid=tmpid & second(now())
Randomize
upperbound=99999
lowerbound=10000
tmpid=tmpid & Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
CreateOnlyID=tmpid
End Function
Server.ScriptTimeOut=999999
%>
<html>
<head>
<title>上传反馈信息</title>
</head>
<body bgcolor="#666666">
<table width="100%" border="0" height="100%">
<tr>
<td>
<table width="80%" height="200" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#000000">
<tr>
<td valign="middle"> <table width="99%" border="0" align="center" bgcolor="#FFFFFF" height="99%" cellpadding="20">
<tr>
<td>
<!--#include FILE="upload_5xsoft.inc"-->
<%
set upload=new upload_5xsoft
set file=upload.file("file1")
if session("uppath")="" then uppath="other"
uppath=session("uppath")
ProdId=session("ProdId")
frmname=session("frmname")
if uppath="" then
response.write "<BLOCKQUOTE>参数错误！请返回前一个页面<b>刷新后</b>上传！"
Response.write "<br><A HREF='javascript:history.go(-1)'><b>点击返回,然后刷新页面</b></A></BLOCKQUOTE>"
response.end
end if
if file.fileSize>0 then
'自动生成文件名
filename=date()
filename=filename&time()
filename=replace(filename,"-","")
filename=replace(filename,":","")
filename=replace(filename," ","")
filename=createonlyid()&"."
filenameend=file.filename
filenameend=split(filenameend,".")
filename=filename&filenameend(1)
if filenameend(1)="gif" or filenameend(1)="jpg" or filenameend(1)="GIF" or filenameend(1)="JPG" or filenameend(1)="swf" or filenameend(1)="SWF" then
else
response.write "<BLOCKQUOTE>请确认上传的图片类型为 jpg 或者 gif "
Response.write "<br><br>操作失败！<A HREF='javascript:history.go(-1)'><b>点击返回</b></A></BLOCKQUOTE>"
response.end
end if
file.saveAs Server.mappath("../../images/"&uppath&"/"&filename)
'上传路径设定
if session("uppath")="proupfile" then
call createshuiyin(trim("../../images/"&uppath&"/"&filename))
end if
'response.write file.filename
'response.write "已成功上传至服务器中。<br><br>重命名后的地址是："
'response.write "<font color=red>images"&uppath&"/"&filename&"</font><BR><br>预览图<BR>"
'response.write "<IMG SRC=../images/"&uppath&"/"&filename&">"
'response.write "<br><br><INPUT class=richButton id=finish name=finish onclick='javascript:window.close();' type=submit value=上传完毕> <A HREF='javascript:history.go(-1)'><b>返回后刷新页面，重新上传</b></A>"
%>
<%if session("prodid")="one" then%>
<script language=JavaScript>
function inserttext(){
<%
response.write "self.opener.myform."&frmname&".value =""images/"&uppath&"/"&filename&""";"
%>
}
inserttext();
alert("文件上传成功");
window.close();
</script>
<% else %>
<%
response.write "<br><center><font size=2 color=red>图片上传成功，请复制下边剪切板中内容而后粘贴到商品图片剪切板内!</font></center><br>"
response.write "<center><input type=text size=26 value='images/"&uppath&"/"&filename&"'><button onclick=window.clipboardData.setData('text',this.previousSibling.value)>复制</button><br><br><a href='javascript:window.close()'><font color=red size=2>关闭窗口</font></a></center>"
response.end
%>
<% end if%>
<%
else
response.write "文件内容不能为空"
response.write "<a href='javascript:history.go(-1);'>返回"
end if
set upload=nothing
response.write "<br>"
%>
</td>
</tr>
</table></td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
<%
session("uppath")=""
session("ProdId")=""
session("frmname")=""
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -