| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 914 人关注过本帖
标题:if request2.Form("strPhoto_Size")>153600 then
取消只看楼主 加入收藏
rtc
Rank: 2
等 级:新手上路
威 望:4
帖 子:590
专家分:0
注 册:2007-6-6
收藏
 问题点数:0 回复次数:3 
if request2.Form("strPhoto_Size")>153600 then

<%
'----------------------------------------------------------
'***************** 风声无组件上传类 2.0 *****************
'用法举例:快速应用[添加产品一]
'该例主要说明默认模式下的运用
'以常见的产品更新为例
'下面是上传程序(upload.asp)的代码和注释
'**********************************************************
'----------------------------------------------------------
OPTION EXPLICIT
Server.ScriptTimeOut=5000
%>
<!--#include FILE="UpLoadClass.asp"-->
<!--#include file="inc\conn1.asp"-->


<%
dim lm
lm = request.QueryString("lm")
if isnumeric(lm) then
lm =cint(lm)
else
lm = 0
end if

if lm < 1 or lm > 2 then
response.Write("非法栏目号或该栏目不存在!")
response.end()
end if %>





<%
dim request2

'建立上传对象
set request2=New UpLoadClass

'以默认设置打开上传对象
'建议直接修改类的63,64,65,66行为自己需要的默认设置
'类的初始默认值分别为
'p_MaxSize = 153600 单文件最大150K
'p_FileType = "jpg/gif" 允许上传jpg/gif格式文件
request2.SavePath="SCPIC/"
'p_AutoSave = 0 自动生成无重复文件名保存目标文件
'这样每次就不要设置同样的参数了
request2.open()
%>

<%
if request2.form("title")="" then
response.Write("<script language='javascript'>alert('标题不能为空,请输入标题');this.top.location.href='admin.asp';</script>")
response.end()
end if
if request2.form("word")="" then
response.Write("<script language='javascript'>alert('内容不能为空,请输入内容');this.top.location.href='admin.asp';</script>")
response.end()
end if
if request2.Form("strPhoto_Size")>153600 then
response.Write("<script language='javascript'>alert('上传文件不可以超过150K');this.top.location.href='admin.asp';</script>")
response.end()
end if



%>

<html>
<head>
<title>发表成功</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../style/basic.css" rel="stylesheet" type="text/css">
<link href="admin.css" rel="stylesheet" type="text/css">
</head>

<body>
<table width="760" border="0" align="center" cellpadding="5" cellspacing="0" bgcolor="#FFFFFF" class="xmenu" style="border:1px solid #999999">
<tr>
<td>
<blockquote>
<%

'显示类版本
response.Write("<br>"&request2.version&"<br>")

'显示产品名称
response.Write("<br>标题:"&request2.Form("title"))

'显示源文件路径与名称
response.Write("<br>附件地址:"&request2.Form("strPhoto_Path")&request2.Form("strPhoto_Name"))
response.Write("=>")

'显示目标文件路径与名称
response.Write(request2.SavePath&request2.Form("strPhoto"))

'显示产品介绍
response.Write("<br>作者:"&request2.Form("zuozhe"))

response.Write("<br>内容:"&request2.Form("word"))

'-------说明开始------
'可以看出上面的显示是淋漓尽致的
'文件是否需要保存由类自动判断,这已经符合大多数情况下的应用
'如果您需要更灵活的处理,参见[进阶应用]
'-------说明结束------

%>
</blockquote></td>
</tr>
</table>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<table width="550" border="0" align="center" cellpadding="0" cellspacing="0" class="addwen">
<tr>
<td align="center">Copyright @ Rt-word@2007 All rights reserved</td>
</tr>
</table>
</body>
</html>

<%
dim rs,sql,cn
set rs=server.CreateObject("adodb.recordset")
sql="select*from word "
rs.open sql,cn,1,3
rs.addnew
rs("lmid")=lm
rs("classid")=request2.Form("classid")
rs("title")=request2.Form("title")
rs("word")=request2.Form("word")
rs("zuozhe")=request2.Form("zuozhe")
rs("date")=now()
if request2.Form("strPhoto")<>"" then
rs("picdz")=request2.Form("strPhoto")
rs("pictitle")=request2.Form("strPhoto_Name")
end if


rs.update
%>
<%
'释放上传对象
set request2=nothing
%>
if request2.Form("strPhoto_Size")>153600 then
response.Write("<script language='javascript'>alert('上传文件不可以超过150K');this.top.location.href='admin.asp';</script>")
response.end()
end if

这句我只是为判断他如果大150K 的话,就跳回去,.
加的之后如果不上传图片就出错

出错显示
Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp,行242

Microsoft VBScript 运行时错误 错误 '800a000d'

类型不匹配: '[string: ""]'

/upload.asp,行63

[此贴子已经被作者于2007-7-8 16:04:58编辑过]

搜索更多相关主题的帖子: strPhoto Size 风声 OPTION 
2007-07-08 16:03
rtc
Rank: 2
等 级:新手上路
威 望:4
帖 子:590
专家分:0
注 册:2007-6-6
收藏
得分:0 

我不是这个意思,
我要在upload.asp的里
加一个短话
如果上传文件大与150K就跳回去.
不可以

2007-07-08 16:23
rtc
Rank: 2
等 级:新手上路
威 望:4
帖 子:590
专家分:0
注 册:2007-6-6
收藏
得分:0 
我的意思是大于150K就不把它上传,跳回去重来

应该怎么做
if request2.Form("strPhoto_Size")>153600 then
response.Write("<script language='javascript'>alert('上传文件不可以超过150K');this.top.location.href='admin.asp';</script>")
response.end()
end if
这样说
如果不传东西就出错.
2007-07-08 16:37
rtc
Rank: 2
等 级:新手上路
威 望:4
帖 子:590
专家分:0
注 册:2007-6-6
收藏
得分:0 


不可以..
算啦

如果做到
如果不是jpg和gif文件
就跳回去...?!!!!!!!

2007-07-08 17:10
快速回复:if request2.Form("strPhoto_Size")>153600 then
数据加载中...
 
   



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

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