关于图片上传的问题，在线等待！
<%@ TRANSACTION = Required %>
<!--#include virtual="/include/conn.asp"-->
<%
On Error Resume Next
server.ScriptTimeout="9000000"
Set Upload = Server.CreateObject("Persits.Upload")
Upload.SetMaxSize 10000000, True
Upload.ProgressID = Request.QueryString("PID")
sUrl.FilePath=server.MapPath("/ADPic")&"/PicSource"
'sUrl="E:\UploadFile\"
' Save to memory. Path parameter is omitted
Upload.Save
strFileName=gen_key(10)
' Check whether a file was selected
Set File = Upload.Files("txtFilePath")
If Not File Is Nothing Then
FilePath=strFileName & File.Ext
File.SaveAs sUrl & txtFilePath
End If
'Upload.Save sUrl
PicID=Upload.Form("txtPicID")
PicWidth=Upload.Form("txtPicWidth")
PicHeight=Upload.Form("txtPicHeight")
'Response.Write "FilmName:" & FilmName & "<br>"
'Response.Write "FilePath:" & FilePath & "<br>"
'Response.Write "UserID:" & UserID & "<br>"
'Response.Write "Dec:" & FilmDec & "<br>"
'Response.Write "sUrl:" & sUrl & "<br>"
StrSql="update PicSource set FilePath='"&FilePath&"',PicWidth='"&PicWidth&"',PicHeight='"&PicHeight&"', Status='0' where PicID='"&PicID&"'"
'Response.Write "StrSql:" & StrSql & "<br>"
'Response.End
conn.execute(StrSql)
if Err then
ObjectContext.SetAbort
else
ObjectContext.SetComplete
end if
Sub OnTransactionAbort
ShowAlert("上传失败！")
End Sub
Sub OnTransactionCommit
ShowAlert("上传成功！")
End Sub
function ShowAlert(Message)
Response.Write("<script language='javascript'>")
Response.Write("alert('"&Message&"');")
Response.Write("parent.close();")
'Response.Write("location.href='frmUploadPic.asp';")
Response.Write ("</script>")
end function
Function gen_key(digits)
'Create and define array
dim char_array(50)
char_array(0) = "0"
char_array(1) = "1"
char_array(2) = "2"
char_array(3) = "3"
char_array(4) = "4"
char_array(5) = "5"
char_array(6) = "6"
char_array(7) = "7"
char_array(8) = "8"
char_array(9) = "9"
char_array(10) = "A"
char_array(11) = "B"
char_array(12) = "C"
char_array(13) = "D"
char_array(14) = "E"
char_array(15) = "F"
char_array(16) = "G"
char_array(17) = "H"
char_array(18) = "I"
char_array(19) = "J"
char_array(20) = "K"
char_array(21) = "L"
char_array(22) = "M"
char_array(23) = "N"
char_array(24) = "O"
char_array(25) = "P"
char_array(26) = "Q"
char_array(27) = "R"
char_array(28) = "S"
char_array(29) = "T"
char_array(30) = "U"
char_array(31) = "V"
char_array(32) = "W"
char_array(33) = "X"
char_array(34) = "Y"
char_array(35) = "Z"
'Initiate randomize method for default seeding
randomize
'Loop through and create the output based on the the variable passed to
'the function for the length of the key.
do while len(output) < digits
num = char_array(Int((35 - 0 + 1) * Rnd + 0))
output = output + num
loop
'Set return
gen_key = output
End Function
%>
<link href="/css/mainTag.css" type="text/css" rel="stylesheet">
<BODY>
</body>
为什么我上传图片的时候总是说上传失败？不知道哪位高手可以告诉我？
问题点数：0、回复次数：0Top
