<%
'----------------------------------------------------------
'***************** 风声无组件上传类 2.0 *****************
'用法举例：快速应用[添加产品一]
'该例主要说明默认模式下的运用
'以常见的产品更新为例
'下面是上传程序(upload.asp)的代码和注释
'**********************************************************
'----------------------------------------------------------
OPTION EXPLICIT
Server.ScriptTimeOut=999
%>
<!--#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
request2.MaxSize = 5000*1024
request2.FileType = "gif/jpg"
request2.Savepath = "SCPIC/"
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
%>
<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
%>
我想要判断图片大与1M的时候就结束跳回去
如果上传的类型不是jpg和 gif话就结束跳回去
该如何做那个高手指教
