📄 cimg_save.asp
字号:
<!--#include file="conn.asp"-->
<%
id=request("id")
logo=request("logo")
pname=request.cookies("godbook")("shjianame")
sql="select * from shjia where username='"&pname&" '"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
if rs.eof then
response.Write("没有数据")
response.End()
end if
file2=rs("logo")
set fs=server.CreateObject("scripting.filesystemobject")
file2=server.MapPath(file2)
if fs.FileExists(file2) then
fs.DeleteFile file2,true
end if
%>
<!--#include FILE="upload.inc"-->
<%
set upload=new upload_5xSoft ''建立上传对象
'--------将日期转化成文件名--------
formPath="../bookpic/"
set file=upload.file("logo") ''生成一个文件对象
if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据
thename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&right(file.filename,4)
file.filename=thename
file.SaveAs Server.mappath(formPath&file.FileName)
imgs=File.FileName
else
response.write "未找到文件 <A HREF=javascript:history.back(1)>返回</A>"
response.end
end if
rs("logo")=imgs
rs("editlogo")=1
rs.Update
rs.close
Set rs=nothing
Conn.Close
Set Conn=nothing
%>
<LINK href="../../css/Style.css" rel=stylesheet type=text/css>
<BODY>
<p> </p>
<div align="center">
<center>
<TABLE border=1 bordercolorlight='#DEDEDE' bordercolordark=#DEDEDE cellspacing=0 cellpadding=3 style="border-collapse: collapse" bordercolor="#111111" width="295" height="122">
<TR>
<TD width="287" height="116">
<p align="center"><span style="font-size: 10.5pt">文件已经成功上传，是否继续添加……<BR>
<%
'response.write file.FilePath&file.FileName&" ("&cint(file.FileSize/1024)&"K) 上传 成功!<br>"
Response.write "<script>alert(""上传成功！"");location.href=""cimg_add.asp"";</script>"
%> </span></p>
<P></TD>
</TR>
</table>
</center>
</div>
<%
set file=nothing
set upload=nothing ''删除此对象
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -