看到的!!!!!!!
我改了代码,生成的都是1.
进去了,
但是.发现上传照片时出错.不知道什么原因,
提交表格:
<form name="form1" method="post" action="saveupload.asp" enctype="multipart/form-data">
<tr>
<td align="center">
<input type="file" name="file1" size=10 class="an">
<input type="submit" name="Submit" value="上传" class="an">
</td>
</tr>
</form>
saveupload.asp:
<%
dim upfile,formPath,ServerPath,FSPath,formName,FileName,oFile,upfilecount,FileExt
set upfile=new clsUp ''建立上传对象
upfile.AllowExt="gif;jpg;" '设置上传类型的白名单
'upfile.NoAllowExt="asp;exe;htm;html;aspx;cs;vb;js;php;php3;cgi;" '设置上传类型的黑名单
upfile.GetData (102400) '取得上传数据,限制最大上传1M
%>
<html>
<head>
<script language="javascript">
function minipic(smileface)
{
window.opener.document.form.minipic.value=smileface;
}
function pic(smileface)
{
window.opener.document.form.pic.value=smileface;
}
</script>
<body leftmargin="0" topmargin="0">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0" align="center">
<tr align="center">
<td width=350>
<%
if upfile.isErr then '如果出错
select case upfile.isErr
case 1
Response.Write "你没有上传数据呀???是不是搞错了??"
case 2
Response.Write "<font color=#FF0000>你上传的文件超出我们的限制,最大1M</font>"
end select
else
%>
<%
FSPath=GetFilePath(Server.mappath("UPfile_qWERZA.asp"
,"\"
'取得当前文件在服务器路径
formpath="UPLOAD/"
for each formName in upfile.file '列出所有上传了的文件
set oFile=upfile.file(formname)
filename=formpath&GetNewFileName()&"."&upfile.File(formname).FileExt '取得上传文件信息
upfile.AutoSave formname,FSPath&FileName '保存文件 也可以使用AutoSave来保存,参数一样,但是会自动建立新的文件名
if oFile.FileSize=0 then
response.write"<SCRIPT language=javascript>alert('你没有上传文件呀！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if
%>
<font color="#FF0000">
<%
if upfile.iserr then
Response.Write upfile.errmessage
else
Response.Write "上传成功"
end if
set oFile=nothing
next
end if
set upfile=nothing '删除此对象
%>
</font>
<%
Response.Write " [<a href='upload.asp'>返回继续上传</a>]<br><br><b>选择图片类型：</b><a href=javascript:minipic('"&filename&"');>缩略图</a> <a href=javascript
ic('"&filename&"');>放大图</a>"
%>
</td>
</tr>
</table>
</body>
</html>
<%
function GetFilePath(FullPath,str)
If FullPath <> "" Then
GetFilePath = left(FullPath,InStrRev(FullPath, str))
Else
GetFilePath = ""
End If
End function
Function GetNewFileName()
dim ranNum
dim dtNow
dtNow=Now()
ranNum=int(90000*rnd)+10000
GetNewFileName=year(dtNow) & right("0" & month(dtNow),2) & right("0" & day(dtNow),2) & right("0" & hour(dtNow),2) & right("0" & minute(dtNow),2) & right("0" & second(dtNow),2) & ranNum
End Function
%>
无法显示网页
您正在查找的页当前不可用。 网站可能遇到支持问题，或者您需要 调整您的浏览器设置。
--------------------------------------------------------------------------------
请尝试以下操作:
单击 刷新按钮，或稍后重试。
如果您已经在地址栏中输入该网页的地址， 请确认其拼写正确。
要检查您的网络连接，请单击工具菜单，然后单击 Internet 选项。在连接选项卡上，单击设置。 设置必须与您的局域网 (LAN) 管理员或 Internet 服务供应商 (ISP) 提供的一致。
查看您的 Internet 连接设置是否正确被检测。您可能设置让 Microsoft Windows 检查您的网站并自动发现网络连接设置(如果您的网络管理员已经启用此设置)。
单击工具菜单，然后单击Internet 选项。
在连接选项卡上，单击LAN 设置。
选择自动检测设置，然后单击确定。
某些站点要求 128-位的连接安全性。单击帮助菜单，然后单击关于 Internet Explorer 可以查看您所安装的安全强度。
如果您要访问某安全站点，请确保您的安全设置能够支持。请单击工具菜单，然后单击 Internet 选项。在“高级”选项卡上，滚动到“安全”部分，复选 SSL 2.0、SSL 3.0、TLS 1.0、PCT 1.0 设置。
单击上一步按钮，尝试其他链接。
找不到服务器或 DNS 错误
Internet Explorer
