<%
'----------------------------------------------------------
'***************** 风声无组件上传类 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()
%>
<html>
<head>
<title>发表成功</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../style/basic.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="760" border="0" align="center" cellpadding="5" cellspacing="0" bgcolor="#FFFFFF" 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"))
'-------说明开始------
'可以看出上面的显示是淋漓尽致的
'文件是否需要保存由类自动判断，这已经符合大多数情况下的应用
'如果您需要更灵活的处理,参见[进阶应用]
'-------说明结束------
response.write "<br>[<a href=""javascript:history.back();"">返回</a>]"
response.write "<br>[<a href=""javascript:history.back();"">管理</a>]"
%>
</blockquote></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.SavePath&request2.Form("strPhoto")<>"" then
rs("picdz")=request2.SavePath&request2.Form("strPhoto")
rs("pictitle")=request2.Form("strPhoto_Name")
end if
rs.update
%>
<%
'释放上传对象
set request2=nothing
%>
以上是代码那样做
没有图片的话,.数据有有个SCPIC/的..
我是想如果没有提交图片的话就别传到库里.
应该怎样做????????//
