<%
'----------------------------------------------------------
'***************** 风声无组件上传类 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编辑过]
