这是一段上传的代码 我想在没有选择图片的时候如果按了"提交"按钮,给用户提个醒 msgbox"请选择图片" 不知道该怎么加好.还有下面的"上传成功"不知道对不对.
<%
OPTION EXPLICIT
Server.ScriptTimeOut=5000
%>
<!--#include FILE="UpLoadClass.asp"-->
<!--#include FILE="conn.asp"-->
<%
dim request1,txt,img,sql
'建立上传对象
'其中对象request1你可定义成任意字符串,只是方便引用,因为传递的参数我们习惯用request来接收,所以我们定义成request1,注意,定义成request是不行的
set request1=New UpLoadClass
'设置为手动保存模式
request1.AutoSave=2
'设置服务器文件保存路径
'这里我们是把上传的图片保存在uploadfile这个子文件夹里的
request1.SavePath="uploadfile/"
'打开对象
request1.open()
'获得照片标题
'这里的.form("pic")是指你的表单文本框name="txt"
txt=request1.Form("txt")
'设置产品图片最大为100K
'任何时候都可以重设参数,这对于你上传不止一个图片很重要
request1.MaxSize=1024000
dim intTemp,imgname,txtname
'requet1.fileitem是上传文件的集合,从1开始
for intTemp=1 to Ubound(request1.FileItem)
'imgname是指你的上传文件表单的名字
imgname=request1.fileitem(inttemp)
'request1.form()是表单的值,request1.formitem()是表单的名字
img=request1.Form(request1.formitem(inttemp))
'如果保存小图成功,系统生成目标文件名
if request1.Save(imgname,0) then
txtname=request1.SavePath&request1.Form(imgname)%>
<script language="vbScript">
msgbox "上传成功!"
window.history.go(-1)
</script>
<%response.End()
end if
'上传内容存入数据库
sql="insert into [txt]([txt],img) values('"&txtname&"','"&img&"')"
conn.execute(sql)
next
'上传内容完成,我们并得到了文本内容:txt;上传文件的文件名(带路径):pic
'关闭对象request1
conn.close()
set conn=nothing
set request1=nothing
'防止重复提交,把网页转入主页
response.redirect("index.html")
%>