以下的代码不能实现删除文件的功能，更新功能怎么改才能只更新一次，不能刷新后会自动又输入一次呢？帮我看看，要怎么改！
这些代码只能删除bbs_main里面的内容，它的主键是mainID,但mainID也有做外键的，在bbs_re表里面。bbs_re表里面一旦有内容，这代码就不能成功删除bbs_main里面的内容，如果我要同时删除完bbs_re表里面的内容，再删除bbs_main里面的内容，同时在实现删除文件的功能要怎么改，请帮帮忙，谢谢！
<!--#include file="DB_Conn.asp" -->
<%
filename=request.form("filename")
Function DeleteFile(FileName)
fileName=".."&"/"&"files"&"/"& filename
FileName=server.MapPath(FileName) '必须转换成绝对路径的
dim Fso
Set Fso = CreateObject("scripting.filesystemobject")
if Fso.FileExists(Filename) then '判断文件是否存在
Fso.DeleteFile filename
end if
Set Fso = nothing
End Function
%>
<%
mainID=request.form("mainID")
userID=request.form("userID")
mainMoney=request.form("mainMoney")
mainRating=request.form("mainRating")
set rs=server.createobject("adodb.recordset")
sql="select * from bbs_main where mainID='"&mainID&"'"
rs.open sql,conn,1,3
DeleteFile(rs("filename"))
rs.delete
rs.update
rs.close
set rs=nothing
set rs=server.createobject("adodb.recordset")
sql0="select * from bbs_user where userid='"&userID&"'"
rs.open sql0,conn,3,3
rs("userMoney") =userMoney + mainMoney + mainRating
rs.update
rs.close
set rs=nothing
'conn.execute("DELETE FROM dbo.bbs_re WHERe mainID in '"&mainID&"';DELETe FROM dbo.bbs_download WHERe mainID = '"&mainID&"' ;DELETe FROM dbo.bbs_main WHERe mainID ='"&mainID&"'")
response.Write "<script>alert('已经成功删除主题！');location.href='main_manager.asp'</script>"
%>