| 网站制作;网站设计;Dreamweaver;Photoshop;Flash;FTP;网页模板;网页设计;免费空间申请;logo图片免费制作;网站下载;HTML&DHTML语言等. |
|
|
| 我有一紧急问题需要咨询,我上传产品图片说,Active Server Pages 错误 'ASP 0126' ; |
[发新主题]
[发新回复] |
http://read.snzh.com/439.htm
我有一紧急问题需要咨询,我上传产品图片说,Active Server Pages 错误 'ASP 0126' ;
我估计是程序的问题,请帮我查一下,我把upfile和upload的asp文件发在附件中了.
我估计是程序的问题,请帮我查一下,我把upfile和upload的asp文件发在附件中了.
谢谢附件发不过去,我直接复制在下面了.upfile.asp upload.asp在下一页
<%OPTION EXPLICIT%>
<!--#include FILE="clsUp.asp"-->
<%
dim upfile,formPath,ServerPath,FSPath,formName,FileName,oFile,upfilecount
upfilecount=0
dim afilename,sfileext
dim sAllowExt
sAllowExt="jpg|gif"
set upfile=new clsUp
upfile.AllowExt="jpg;gif;"
upfile.GetData (300*1024)
if upfile.isErr then
select case upfile.isErr
case 1
Call ScriptError("系统没有检测到你上传的数据！")
case 2
Call ScriptError("你上传的图像大小超出了300K！")
end select
else
dim abc
abc="../UploadFile/"
FSPath=Server.mappath("abc")
FSPath=FSPath&"\"
for each formName in upfile.file
set oFile=upfile.file(formname)
sFileExt = LCase(oFile.FileExt)
Call CheckValidExt(sFileExt)
afilename=GetRndFileName(sFileExt)
upfile.SaveToFile formname,FSPath&afilename
response.write "<script>parent.document.form1.upfile.value='"&afilename&"'</script>"
if upfile.iserr then
Call HtmEnd("图片上传失败！")
else
Call HtmEnd("图像上传成功！")
end if
set oFile=nothing
next
end if
set upfile=nothing
Function GetRndFileName(sExt)
Dim sRnd
Randomize
sRnd = Int(900 * Rnd) + 100
GetRndFileName = year(now) & month(now) & day(now) & hour(now) & minute(now) & second(now) & sRnd & "." & sExt
End Function
Sub CheckValidExt(sExt)
Dim b, i, aExt
b = False
aExt = Split(sAllowExt, "|")
For i = 0 To UBound(aExt)
If LCase(aExt(i)) = sExt Then
b = True
Exit For
End If
Next
If b = False Then
response.write "<script language='javascript'>" & chr(13)
response.write "alert('您上传的图片格式不支持，只能上传JPG和Gif文件！');" & Chr(13)
response.write "window.document.location.href='javascript:history.back()';"&Chr(13)
response.write "</script>" & Chr(13)
Response.End
End If
End Sub
Sub ScriptError(SMsg)
response.write "<script language='javascript'>" & chr(13)
response.write "alert('"&SMsg&"');" & Chr(13)
response.write "window.document.location.href='javascript:history.back()';"&Chr(13)
response.write "</script>" & Chr(13)
Response.End
End Sub
sub HtmEnd(Msg)
%>
<html>
<head>
<style type="text/css">
<!--
body,td,th {
font-size: 12px;
}
-->
</style>
</head>
<body leftmargin="0" topmargin="0"> <table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="100%" height="30" align="left" valign="middle" bgcolor="#FFFFFF"><%= Msg %></td>
</tr>
</table>
</body></html>
<% response.End
End sub
%>
此信息由竹海论坛提供!请点击这里查看更多的信息和图片! |
|
|
