身份：user
发帖：60
登陆次数：23
发表于 2006/7/31 21:17:27
版主，你的上传图片代码是不是出自稻香老家的代码啊？那个代码本来就不懂，我都是直接拿过来用。看到你的上传页面，比它的漂亮多了，自己也心动了，经过一番折服，其中去掉那个上传到哪个文件的文本框和那个函数里的class要改名称，费了我好大劲才发现。
现在看到你的既上传图片，又能显示图片。又心动了。
看你的代码，那么多条件，看得头都大了。想简化下你的代码，就是上传图片，当然判断下是不是图片，然后图片属性的数据插入数据库。却不成功。版主看看这段代码为何不成功。
<!--#include File="conn.asp" -->
<!--#include File="upload_5xsoft.inc"-->
<%dim upload,file,formName,formPath,iCount,fileExt,ranNum,filename,myIndex
set upload=new upload_5xsoft ''''建立上传对象
formPath="upfile/" ''保存位置
strRestrictBy = "ContentType" ''or extension 文件验证方式
iCount=0
%>
<%
for each formName in upload.objFile ''''列出所有上传了的文件
set file=upload.file(formName) ''''生成一个文件对象
if file.FileSize>0 then ''''如果 FileSize > 0 说明有文件数据
fileOK=1
fileExt = LCase(Mid(file.Filename, InStrRev(file.Filename, "."))) ''取得扩展名
''===================检查文件大小=====
if file.FileSize>upFileSize then
errMsg=errMsg+"文件:"&file.Filename&" 大于"&upFileSize\1024&"KB！<br>"
fileOK=0
else
If strRestrictBy = "extension" Then ''--验证方式为扩展名
''===================检查后缀名=====
Select Case LCase(fileExt)
Case ".jpg", ".gif", ".bmp",".png",".tiff",".swf"
Case Else
fileOK=0
Response.Write("<B>错误：</B> 扩展名为 <I>" & fileExt & "</I> 的文件不能被上传。<BR>")
End Select
Else ''--验证方式为MIME类型
strContentType =file.FileType
Select Case LCase(strContentType)
Case "image/gif", "image/jpeg", "image/pjpeg","image/bmp","image/tiff","image/x-png","image/png","application/x-shockwave-flash"
Case Else
fileOK=0
Response.Write("<B>错误：</B> MIME类型为 <I>" & strContentType & "</I> 的文件不能被上传。<BR>")
End Select
End If ''--end if 验证方式
end if
if fileOK=1 then ''--如果通过检查，那么保存文件
randomize
ranNum=int(900*rnd)+100
filename=year(now())&month(now())&day(now())&hour(now())&minute(now())&second(now())&ranNum&fileExt
file.SaveAs Server.mappath(formPath&filename) ''''保存文件
''=========添加文件的信息到数据库里，默认没有锁定=====
myIndex=right(formName,1)
temp_photoTitle=upload.form("photoTitle"+myIndex)
temp_photoIntro=upload.form("photoIntro"+myIndex)
temp_photoWidth=upload.form("photoWidth"+myIndex)
temp_photoHeight=upload.form("photoHeight"+myIndex)
''========检查输入，为空则给初值===
temp_photoTitle=replace(trim(temp_photoTitle),"''","''''")
if temp_photoTitle="" then
temp_photoTitle="没有填写"
end if
temp_photoIntro=replace(trim(temp_photoIntro),"''","''''")
if temp_photoIntro="" then
temp_photoIntro="没有填写"
end if
if temp_photoWidth="" or not IsNumeric(temp_photoWidth) then
temp_photoWidth=160
end if
if temp_photoHeight="" or not IsNumeric(temp_photoHeight) then
temp_photoHeight=120
end if
''=======插入数据库===
sql="insert into TBL_PHOTO(addTime,photoFilename,photoTitle,photoIntro,photoClick,photoSize,photoWidth,photoHeight) values(''"&Now()&"'',''"&filename&"'',''"&temp_photoTitle&"'',''"&temp_photoIntro&"'',1,"&file.FileSize&","&temp_photoWidth&","&temp_photoHeight&")"
conn.execute sql
''======输出上传成功信息===
response.write file.FilePath&file.FileName&" ("&file.FileSize&") => "&filename&" 成功!<br>"
iCount=iCount+1
end if
end if
set file=nothing
next
set upload=nothing ''''删除此对象
response.write "<br>"&iCount&" 个文件上传结束!"
response.write "<br><a href=''photo_listphoto.asp''><B>返回相册</B></a>"
''=============如果有错，输出错误信息=============================
if errMsg<>"" then
response.write "<br>"&errMsg
response.write "<INPUT type=''button'' onClick=''history.go(-1)'' value=''返回'' class=''myInput''>"
end if
conn.close
set conn=nothing
%>
身份：user
发帖：60
登陆次数：23
发表于 2006/7/31 21:20:14
下面的是我的上传页面，就是稻香老农稍改下如你的样子的。
<%if request.cookies("adminok")="" then
response.redirect "login.html"
end if%>
<html>
<head>
<title>化境上传</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
td { font-size: 9pt}
a { color: #000000; text-decoration: none}
a:hover { text-decoration: underline}
.tx {
color: #990000;
background-color: #FFEBE6;
border: 1px solid #990000;
}
.bt {
background-color: #FFDFDF;
font-size: 12px;
border-top: 1px outset #FFE8E8;
border-right: 1px outset #990000;
border-bottom: 1px outset #990000;
border-left: 1px outset #FFE8E8;
vertical-align: bottom;
height: 20px;
}
-->
</style>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<form name="form1" method="post" action="addfile.asp" enctype="multipart/form-data" >
<br>
<input type="hidden" name="act" value="upload">
<br>
<table width="71%" border="0" cellspacing="0" cellpadding="5" align="center" style="border:1px solid #990000;">
<tr>
<td height="22" align="left" valign="middle" bgcolor="#FFDFDF"> 图片上传</td>
</tr>
<tr align="left" valign="middle">
<td height="92">
<script language="javascript">
function setid()
{
str=''<br>'';
if(!window.form1.upcount.value)
window.form1.upcount.value=1;
for(i=1;i<=window.form1.upcount.value;i++)
str+=''文件''+i+'':<input type="file" name="file''+i+''" style="width:400" class="tx"><br><br>'';
window.upid.innerHTML=str+''<br>'';
}
</script>
<li> 上传图片的数目
<input type="text" name="upcount" class="tx" value="1">
<input type="button" name="Button" class="bt" onclick="setid();" value="· 设定 ·">
</li>
</td>
<tr><td cols=2 bgcolor=#ffdfdf>选择你要上传的图片</td></tr>
</tr>
<tr align="center" valign="middle">
<td align="left" id="upid" height="122"> 文件1:
<input type="file" name="file1" style="width:400" class="tx" value="">
</td>
</tr>
<tr align="center" valign="middle">
<td height="24">
<input type="submit" name="Submit" value="· 提交 ·" class="bt">
<input type="reset" name="Submit2" value="· 重执 ·" class="bt">
</td>
</tr>
</table>
</form>
</body>
</html>
<script language="javascript">
setid();
</script>
身份：user
发帖：60
登陆次数：23
发表于 2006/7/31 21:43:01
那是上传后错误的截图：
身份：admin
发帖：1435
登陆次数：3222
发表于 2006/8/1 9:27:00
1。upFileSize 这个变量你得给个值，比如upFileSize=1024*1024
2。你得上传页面只有一个文件，其他的宽度，高度，标题都没有，所以你应该把这些地方都取去掉。
=========添加文件的信息到数据库里，默认没有锁定=====
.......这个位置的代码都没用。
=======插入数据库===
3。然后你的插入SQL就得改改了。
身份：user
发帖：60
登陆次数：23
发表于 2006/8/2 13:12:14
版主，照你说的做，成功了。
于是想把宽度，高度，标题都加上。图片是上传成功，但却插入不了数据！
这是第一个文件的代码
<style>
.input-disabled {
background-color: #F4CECE;
border: 1px dashed #000000;
}
</style>
<form name="fileForm" method="post" action="addfile2.asp" enctype="multipart/form-data">
上传说明：最多可以同时上传五个文件，其中标题最多30字，简介200字。
<table width="96%" align="center" cellpadding="4" cellspacing="2">
<tr align="center" valign="middle">
<td align="left" bgcolor="#F4CECE" id="upid">文件1</td>
<td height="29" align="left" bgcolor="#F4CECE" id="upid"> <INPUT name="file1" type="file" class="myInput" size="20">
宽：
<INPUT name="photoWidth1" type="text" class="input-disabled" id="photoWidth1" size="5" readonly="">
高：
<INPUT name="photoHeight1" type="text" class="input-disabled" id="photoHeight1" size="5" readonly="">
大小：
<INPUT name="fileSize1" type="text" class="input-disabled" id="fileSize1" size="5" readonly="">
</td>
</tr>
<tr align="center" valign="middle">
<td colspan="2" align="left" bgcolor="#FDF2F2" id="upid">
标题：
<INPUT name="photoTitle1" type="text" class="myInput" id="photoTitle1" size="40">
<BR>
简介：
<TEXTAREA name="photoIntro1" cols="60" rows="5" class="myInput" id="photoIntro1"></TEXTAREA>
</td>
</tr>
<tr align="center" valign="middle">
<td align="left" bgcolor="#F4CECE" id="upid">文件2</td>
<td height="29" align="left" bgcolor="#F4CECE" id="upid">
<INPUT name="file2" type="file" class="myInput" id="file2" size="20" >
宽：
<INPUT name="photoWidth2" type="text" class="input-disabled" id="photoWidth2" size="5" readonly="">
高：
<INPUT name="photoHeight2" type="text" class="input-disabled" id="photoHeight2" size="5" readonly="">
大小：
<INPUT name="fileSize2" type="text" class="input-disabled" id="fileSize2" size="5" readonly="">
</td>
</tr>
<tr align="center" valign="middle">
<td colspan="2" align="left" bgcolor="#FDF2F2" id="upid">
标题：
<INPUT name="photoTitle2" type="text" class="myInput" id="photoTitle2" size="40">
<BR>
简介：
<TEXTAREA name="photoIntro2" cols="60" rows="5" class="myInput" id="photoIntro2"></TEXTAREA>
</td>
</tr>
<tr align="center" valign="middle">
<td align="left" bgcolor="#F4CECE" id="upid">文件3</td>
<td height="29" align="left" bgcolor="#F4CECE" id="upid">
<INPUT name="file3" type="file" class="myInput" id="file3" size="20" >
宽：
<INPUT name="photoWidth3" type="text" class="input-disabled" id="photoWidth3" size="5" readonly="">
高：
<INPUT name="photoHeight3" type="text" class="input-disabled" id="photoHeight3" size="5" readonly="">
大小：
<INPUT name="fileSize3" type="text" class="input-disabled" id="fileSize3" size="5" readonly="">
</td>
</tr>
<tr align="center" valign="middle">
<td colspan="2" align="left" bgcolor="#FDF2F2" id="upid">
标题：
<INPUT name="photoTitle3" type="text" class="myInput" id="photoTitle3" size="40">
<BR>
简介：
<TEXTAREA name="photoIntro3" cols="60" rows="5" class="myInput" id="photoIntro3"></TEXTAREA>
</td>
</tr>
<tr align="center" valign="middle">
<td align="left" bgcolor="#F4CECE" id="upid">文件4</td>
<td height="29" align="left" bgcolor="#F4CECE" id="upid">
<INPUT name="file4" type="file" class="myInput" id="file4" size="20" >
宽：<INPUT name="photoWidth4" type="text" class="input-disabled" id="photoWidth4" size="5" readonly="">
高： <INPUT name="photoHeight4" type="text" class="input-disabled" id="photoHeight4" size="5" readonly="">
大小：<INPUT name="fileSize4" type="text" class="input-disabled" id="fileSize4" size="5" readonly="">
</td>
</tr>
<tr align="center" valign="middle" bgcolor="#FDF2F2">
<td colspan="2" align="left" id="upid">
标题：
<INPUT name="photoTitle4" type="text" class="myInput" id="photoTitle23" size="40">
<BR>
简介：
<TEXTAREA name="photoIntro4" cols="60" rows="5" class="myInput" id="photoIntro4"></TEXTAREA>
</td>
</tr>
<tr align="center" valign="middle">
<td align="left" bgcolor="#F4CECE" id="upid">文件5</td>
<td height="27" align="left" bgcolor="#F4CECE" id="upid">
<INPUT name="file5" type="file" class="myInput" id="file5" size="20" >
宽：
<INPUT name="photoWidth5" type="text" class="input-disabled" id="photoWidth5" size="5" readonly="">
高：
<INPUT name="photoHeight5" type="text" class="input-disabled" id="photoHeight5" size="5" readonly="">
大小：
<INPUT name="fileSize5" type="text" class="input-disabled" id="fileSize5" size="5" readonly="">
</td>
</tr>
<tr align="center" valign="middle">
<td colspan="2" align="left" bgcolor="#FDF2F2" id="upid">
标题：
<INPUT name="photoTitle5" type="text" class="myInput" id="photoTitle24" size="40">
<BR>
简介：
<TEXTAREA name="photoIntro5" cols="60" rows="5" class="myInput" id="photoIntro5"></TEXTAREA>
</td>
</tr>
<tr align="center" valign="middle" bgcolor="#F4CECE">
<td height="24" colspan="2">
<input name="Submit" type="submit" class="myButton" value="开始上传">
<input name="Submit2" type="reset" class="myButton" value="重新填写">
</td>
</tr>
</table>
</form>
这是第二个文件的代码
<!--#include File="conn.asp" -->
<!--#include File="upload_5xsoft.inc"-->
<%dim upload,file,formName,formPath,iCount,fileExt,ranNum,filename,myIndex
set upload=new upload_5xsoft ''''''''建立上传对象
formPath="upfile/" ''''保存位置
strRestrictBy = "ContentType" ''''or extension 文件验证方式
iCount=0
%>
<%
for each formName in upload.objFile ''''''''列出所有上传了的文件
set file=upload.file(formName) ''''''''生成一个文件对象
if file.FileSize>0 then ''''''''如果 FileSize > 0 说明有文件数据
fileOK=1
fileExt = LCase(Mid(file.Filename, InStrRev(file.Filename, "."))) ''''取得扩展名
''''===================检查文件大小=====
Dim upFileSize
upFileSize=1024*1024
if file.FileSize>upFileSize then
errMsg=errMsg+"文件:"&file.Filename&" 大于"&upFileSize\1024&"KB！<br>"
fileOK=0
else
If strRestrictBy = "extension" Then ''''--验证方式为扩展名
''''===================检查后缀名=====
Select Case LCase(fileExt)
Case ".jpg", ".gif", ".bmp",".png",".tiff",".swf"
Case Else
fileOK=0
Response.Write("<B>错误：</B> 扩展名为 <I>" & fileExt & "</I> 的文件不能被上传。<BR>")
End Select
Else ''''--验证方式为MIME类型
strContentType =file.FileType
Select Case LCase(strContentType)
Case "image/gif", "image/jpeg", "image/pjpeg","image/bmp","image/tiff","image/x-png","image/png","application/x-shockwave-flash"
Case Else
fileOK=0
Response.Write("<B>错误：</B> MIME类型为 <I>" & strContentType & "</I> 的文件不能被上传。<BR>")
End Select
End If ''''--end if 验证方式
end if
if fileOK=1 then ''''--如果通过检查，那么保存文件
randomize
ranNum=int(900*rnd)+100
filename=year(now())&month(now())&day(now())&hour(now())&minute(now())&second(now())&ranNum&fileExt
file.SaveAs Server.mappath(formPath&filename) ''''''''保存文件
''''=========添加文件的信息到数据库里，默认没有锁定=====
myIndex=right(formName,1)
temp_photoTitle=upload.form("photoTitle"+myIndex)
temp_photoIntro=upload.form("photoIntro"+myIndex)
temp_photoWidth=upload.form("photoWidth"+myIndex)
temp_photoHeight=upload.form("photoHeight"+myIndex)
''''========检查输入，为空则给初值===
temp_photoTitle=replace(trim(temp_photoTitle),"''''","''''''''")
if temp_photoTitle="" then
temp_photoTitle="没有填写"
end if
temp_photoIntro=replace(trim(temp_photoIntro),"''''","''''''''")
if temp_photoIntro="" then
temp_photoIntro="没有填写"
end if
if temp_photoWidth="" or not IsNumeric(temp_photoWidth) then
temp_photoWidth=160
end if
if temp_photoHeight="" or not IsNumeric(temp_photoHeight) then
temp_photoHeight=120
end if
''''=======插入数据库===
sql="insert into TBL_PHOTO(addTime,photoFilename,photoTitle,photoIntro,photoClick,photoSize,photoWidth,photoHeight) values(''''"&Now()&"'''',''''"&filename&"'''',''''"&temp_photoTitle&"'''',''''"&temp_photoIntro&"'''',1,"&file.FileSize&","&temp_photoWidth&","&temp_photoHeight&")"
conn.execute sql
''''======输出上传成功信息===
response.write file.FilePath&file.FileName&" ("&file.FileSize&") => "&filename&" 成功!<br>"
iCount=iCount+1
end if
end if
set file=nothing
next
set upload=nothing ''''''''删除此对象
response.write "<br>"&iCount&" 个文件上传结束!"
response.write "<br><a href=''''photo_listphoto.asp''''><B>返回相册</B></a>"
''''=============如果有错，输出错误信息=============================
if errMsg<>"" then
response.write "<br>"&errMsg
response.write "<INPUT type=''''button'''' onClick=''''history.go(-1)'''' value=''''返回'''' class=''''myInput''''>"
end if
conn.close
set conn=nothing
%>
望版主再次指点迷津！
身份：user
发帖：60
登陆次数：23
发表于 2006/8/2 13:13:55
你的高度，宽度的值是哪里来的！
身份：user
发帖：60
登陆次数：23
发表于 2006/8/2 13:15:31
我现在看你的那些代码很困难啊。55555~~~~
身份：admin
发帖：1435
登陆次数：3222
发表于 2006/8/2 19:42:56
我那个调用JS来取得高度和宽度的。
干脆就照抄我那个算了……哈哈，反正写到最后都差不多的。
身份：user
发帖：60
登陆次数：23
发表于 2006/8/2 23:04:01
唉，照抄算了。嘻嘻~~
