ASP中缺少 'End'的错误

代码：
<!--#include file="conn.asp"-->
<%
set rs=server.CreateObject("adodb.recordset")
path=server.MapPath("movies") '获取网站根目录下的img文件夹,用于存放上传的图片
ff=Trim(Request.Form("file"))
content1=Trim(Request.Form("content"))
title1=Trim(request.Form("title"))
type1=trim(request.Form("type"))
date1=trim(request.Form("date"))
author1=request.Form("author")
if content1="" then
response.redirect"bbs_topic_add.asp?msg=请填写内容"
if ff="" then
Response.Redirect "bbs_topic_add.asp?msg=请选择本地图片"
if title1="" then
response.Redirect"bbs_topic_add.asp?msg=请填写标题"
if type1="" then
response.Redirect"bbs_topic_add.asp?msg=请选择类别"
else
set fso=server.createObject("Scripting.FileSystemObject") '建立文件组件对象
set myfile=fso.getfile(ff) '获取本地文件
myfilename=fso.getfilename(ff) '获取文件ff的文件名
rs.open "select * from b_topic where m_name='"&myfilename&"'",conn,1,3,1
if Not rs.eof then
Response.Redirect "bbs_topic_add.asp?msg=已有同名的影像,请指定另外的名字"
else
myfile.copy(path&"\"&myfilename) '把本地图片复制到网站根目录的img文件夹下
murl="movies/"&myfilename
sql="insert into b_topic(m_name,m_url,b_content,b_title,b_type,b_username,b_date)values('"&myfilename&"','"&murl&"','"&content1&"','"&title1&"','"&type1&"','"&author1&"','"&date1&"',)"
conn.execute(sql)
Response.redirect"bbs_view.asp?msg=发表成功"
end if
end if
%>

错误提示：
技术信息（用于支持人员）

错误类型：
Microsoft VBScript 编译器错误 (0x800A03F6)
缺少 'End'
/weige/bbs_topic_add0.asp, 第 33 行

f content1="" then
response.redirect"bbs_topic_add.asp?msg=请填写内容"
if ff="" then
Response.Redirect "bbs_topic_add.asp?msg=请选择本地图片"
if title1="" then
好像都没end if 呀,
//////////////////////////////////////////////////////////////
一个if 一个end if

少了 end if end if 一共要四次

<!--#include file="conn.asp"--> <% set rs=server.CreateObject("adodb.recordset") path=server.MapPath("movies") '获取网站根目录下的img文件夹,用于存放上传的图片 ff=Trim(Request.Form("file")) content1=Trim(Request.Form("content")) title1=Trim(request.Form("title")) type1=trim(request.Form("type")) date1=trim(request.Form("date")) author1=request.Form("author") if content1="" then response.redirect"bbs_topic_add.asp?msg=请填写内容" if ff="" then Response.Redirect "bbs_topic_add.asp?msg=请选择本地图片" if title1="" then response.Redirect"bbs_topic_add.asp?msg=请填写标题" if type1="" then response.Redirect"bbs_topic_add.asp?msg=请选择类别" else set fso=server.createObject("Scripting.FileSystemObject") '建立文件组件对象 set myfile=fso.getfile(ff) '获取本地文件 myfilename=fso.getfilename(ff) '获取文件ff的文件名 rs.open "select * from b_topic where m_name='"&myfilename&"'",conn,1,3,1 if Not rs.eof then Response.Redirect "bbs_topic_add.asp?msg=已有同名的影像,请指定另外的名字" else myfile.copy(path&"\"&myfilename) '把本地图片复制到网站根目录的img文件夹下 murl="movies/"&myfilename sql="insert into b_topic(m_name,m_url,b_content,b_title,b_type,b_username,b_date)values('"&myfilename&"','"&murl&"','"&content1&"','"&title1&"','"&type1&"','"&author1&"','"&date1&"',)" conn.execute(sql) Response.redirect"bbs_view.asp?msg=发表成功" end if end if %> if then 后面语句不另起一行的话，就不需要end if结束的 整个代码原先应该不少enf if，是你把前面几个if then后面语句另起一行，所以才会出现错误提示缺少enf