?? editupfile.asp
字號:
<!--#include File="../conndb.asp"-->
<!--#include file="isAdmin.asp"-->
<!--#include FILE="upload_5xsoft.inc"-->
<%
''將當前的日期和時間轉為文件名
Function makefilename()
Dim fname
fname = now()
fname = trim(fname)
fname = replace(fname,"-","")
fname = replace(fname,"/","")
fname = replace(fname," ","")
fname = replace(fname,":","")
fname = replace(fname,"PM","")
fname = replace(fname,"AM","")
fname = replace(fname,"上午","")
fname = replace(fname,"下午","")
makefilename=fname
End Function
Dim id
id = Request.QueryString("id")
Dim upload,file,formName,formPath
Dim i,l,fileType,newfilename,filenamelist
'創建新文件名稱
newfilename = makefilename()
'建立上傳對象
Set upload = New upload_5xsoft
'上傳文件目錄
formPath = Server.mappath("images")&"\"
'列出所有上傳了的文件
For Each formName In upload.objFile
'生成一個文件對象
Set file = upload.file(formName)
'如果 FileSize > 0 說明有文件數據
If file.FileSize>0 Then
'取得文件擴展名
fileType = file.FileName '文件名以及擴展名
i = Instr(fileType,".") '是否存在“.”
l = Len(fileType)
If i>0 Then
fileType = Right(fileType,l-i+1) '得到擴展名
End If
newfilename = newfilename & fileType
filenamelist = formPath&newfilename '新文件絕對地址和名稱
' Response.Write filenamelist&"--<br>--"
file.SaveAs filenamelist ''保存文件
End If
Set file = Nothing
Next
Dim oldFile
Set rs = Server.CreateObject("ADODB.RECORDSET")
Set rs = Conn.Execute("Select * From Goods Where id="&id)
If Not rs.Eof Then
oldFile = rs("ImageFile")
'刪除舊的圖片,替換表Goods字段imageFile中舊圖片文件
filename = Server.MapPath("images\"&oldFile)
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
If (MyFileObject.FileExists(Trim(filename))) Then
MyFileObject.DeleteFile Trim(filename)
End If
sql = "Update Goods Set imageFile='"&newfilename &"' Where id="&id
Response.Write sql
Conn.Execute(sql)
End If
Set upload = Nothing '刪除此對象
%>
<script language="javascript">
opener.location.reload();
window.close();
</script>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -