标题:[求助]老问题~~斑竹~~
只看楼主
griefforyou
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:3336
专家分:0
注 册:2004-4-15
得分:0 

晕,搞了半天你还没搞清楚?

要上传时把图片长宽读入数据库,可以用客户端脚本获得,让后把长宽值赋给隐藏表单对象,提交以后就可以写到数据库里了。

<!--一下代码由griefforyou编写--> <table width="100%" border="0" cellpadding="0" cellspacing="0" align="center" class="px12"> <tr> <td height="25"> <font color="#FF0000"><b><br> 注意:</b></font>上传图片须为jpg或gif格式,图片大小须小于200k。<br> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td> </tr> <tr> <td height="12"> <form name="form1" method="post" action="upload.asp" enctype="multipart/form-data" onSubmit="javascript:return checksubmit();"> <b><font size="2">请选择图片:</font></b> <input type=file name="file1" onKeyDown="JavaScript:return(false);" onpropertychange="JavaScript:ShowImg(this.value);"> <script language="vbScript"> function checksubmit() if form1.file1.value<>"" then if mid(lcase(form1.file1.value),instrrev(form1.file1.value,"."))<>".gif" and mid(lcase(form1.file1.value),instrrev(form1.file1.value,"."))<>".jpg" then alert("图片格式错误,请重新选择!") checksubmit=false exit function else checksubmit=true end if else alert("请选择要上传的图片!") checksubmit=false exit function end if end function </script> <input type=submit name="Submit" value="上传该图片" > <input type="hidden" name="photoid" value=""> </form></td> </tr> <tr> <td height="13"> 图片预览: <script language="JavaScript"> function ShowImg(src) { document.all("imgDiv").innerHTML="<img id='imgObj' onerror='JavaScript:GetError()' onload='JavaScript:GetSize()' src='" + src + "'>"; } function GetSize() { document.all("imgSize").innerHTML="图片大小(宽×高):<font color=red>" + document.all("imgObj").width + "×" + document.all("imgObj").height + "</font>"; } function GetError() { document.all("imgSize").innerHTML="<font color=red>图片格式错误!</font>"; document.all("imgDiv").innerHTML=""; alert("图片格式错误!"); } </script> <br> <span id="imgSize"></span> <div id="imgDiv"> </div> </td> </tr> </table>

[此贴子已经被作者于2004-08-21 12:41:24编辑过]


天津网站建设 http://www./
2004-08-21 12:39
滚水六脚
Rank: 1
等 级:新手上路
帖 子:132
专家分:0
注 册:2004-8-16
得分:0 

这个我也知道,不过JAVASCRIPT在客户端运行,不安全,随便就给人搞得乱七八糟了~~~

我还是相信ASP好点~~~~~谢谢,别生气~~

2004-08-21 15:37
griefforyou
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:3336
专家分:0
注 册:2004-4-15
得分:0 

反正客户端脚本的方法和服务端脚本的方法都告诉你了,自己看着办


天津网站建设 http://www./
2004-08-21 18:03
滚水六脚
Rank: 1
等 级:新手上路
帖 子:132
专家分:0
注 册:2004-8-16
得分:0 
实在没办法了~~~

斑竹,你上次给我的ASP源码中

现该文章仅限在CSDN文档中心发表,若需要转载,请和作者联系,谢谢。

作者Blog:http://blog.csdn.net/qiushuiwuhen/
那篇中:
do d p1=binVal(aso.Read(1)): loop while p1=255 and not aso.EOS if p1>191 and p1<196 then exit do else aso.read(binval2(aso.Read(2))-2) dp1=binVal(aso.Read(1)):loop while p1<255 and not aso.EOS loop while true 在执行中,老是报错~~~:exit do 无效!
改了好久,搞不定,帮帮忙~~谢谢~
2004-08-25 14:27
滚水六脚
Rank: 1
等 级:新手上路
帖 子:132
专家分:0
注 册:2004-8-16
得分:0 

Microsoft VBScript 编译器错误 错误 '800a040f'

无效的 'exit' 语句

/up3.asp,行108

if p1>191 and p1<196 then exit do else aso.read(binval2(aso.Read(2))-2)
去掉,可以运行,不过所有‘JPG’文件的长宽是它们的总和数
 
2004-08-25 14:51
滚水六脚
Rank: 1
等 级:新手上路
帖 子:132
专家分:0
注 册:2004-8-16
得分:0 

原来是改成这样:“ do: ”被论坛屏蔽了~~

忘了看原文

[此贴子已经被作者于2004-08-25 15:10:02编辑过]

2004-08-25 15:07



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-4442-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.058530 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved