Đă có một lỗi xảy ra trong quá tŕnh bạn upload file!
"
Response.Write "Tên File: " & Trim(AF_curPath) & UploadRequest.Item(AF_curKey).Item("FileName") & "
"
Response.Write "File không tồn tại hoặc rỗng.
"
Response.Write "Bạn vui ḷng kiểm tra và thử lại"
response.End
end if
Dim AF_strm1, AF_strm2
Set AF_strm1 = Server.CreateObject("ADODB.Stream")
Set AF_strm2 = Server.CreateObject("ADODB.Stream")
AF_strm1.Open
AF_strm1.Type = 1 'Binary
AF_strm2.Open
AF_strm2.Type = 1 'Binary
AF_strm1.Write RequestBin
AF_strm1.Position = AF_ValueBeg
AF_strm1.CopyTo AF_strm2,AF_ValueLen
AF_curPath = "../Nhac/Amthanh/MP3/"
fname=UploadRequest.Item(AF_curKey).Item("FileName")
on error resume next
AF_strm2.SaveToFile Trim(Server.mappath(AF_curPath))& "\" & UploadRequest.Item(AF_curKey).Item("FileName"),2
if err then
Response.Write "
Đă có một lỗi xảy ra trong quá tŕnh bạn upload file!
"
Response.Write "Tên File: " & Trim(AF_curPath) & UploadRequest.Item(AF_curKey).Item("FileName") & "
"
Response.Write "Thư mục để upload file vào không tồn tại hoặc không được phép upload file vào đó.
"
Response.Write "Bạn vui ḷng kiểm tra và thử lại"
err.clear
response.End
end if
end if
next
If (AF_redirectPage <> "") Then
%>
<%response.buffer=true%>
<%
s="select *from FTP;"
rs.open s,conn
RS.MOVEFIRST
%>
<%DO WHILE NOT RS.EOF%>
<%
w=rs("nd")
nd=w
%>
<%
RS.MOVENEXT
LOOP
%>
<%
CONN.CLOSE
SET CONN=NOTHING
%>
<%response.buffer=true%>
<%
sq="select *from Theloai;"
rs.open sq,conn
rs.MOVEFIRST
%>
|
||||||||||||
| Trang Quản Trị |
 |
|||||||||||
|
<%
end if
Else
if UploadQueryString <> "" then
UploadQueryString = UploadQueryString & "&AF_upload=true"
else
UploadQueryString = "AF_upload=true"
end if
%>
|
||||||||||||