Question

asp表单不能提交数据库

请高手看看，数据库权限、IIS权限都看了没有问题，就是不能提交数据。
<%
sub ProductEdit()
dim Action,rsRepeat,rs,sql
Action=request.QueryString("Action")
if Action="SaveEdit" then '保存编辑品牌信息
set rs = server.createobject("adodb.recordset")
if len(trim(request.Form("ProductName")))<3 then
response.write ("<script language=javascript> alert('品牌名称为必填项目！');history.back(-1);</script>")
response.end
end if
if Result="Add" then '创建品牌信息

end if
if Result="Modify" then '修改品牌信息

end if
response.write "<script language=javascript> alert('成功编辑品牌信息！');changeAdminFlag('品牌列表');location.replace('ProductList.asp');</script>"
else '提取品牌信息
if Result="Modify" then
set rs = server.Createobject("adodb.recordset")
sql="select * from ameav_Products where ID=" & ID
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write ("数据库读取记录出错！")
response.end
end if
ProductName=rs("ProductName")
ViewFlag=rs("ViewFlag")
SortName=SortText(rs("SortID"))
SortID=rs("SortID")
SortPath=rs("SortPath")
ProductNo=rs("ProductNo")
ProductModel=rs("ProductModel")
Price=rs("Price")
Maker=rs("Maker")
Aoblog=rs("Aoblog")
CommendFlag=rs("CommendFlag")
NewFlag=rs("NewFlag")
GroupID=rs("GroupID")
Exclusive=rs("Exclusive")
BigPic=rs("BigPic")
SmallPic=rs("SmallPic")
Content=rs("Content")
rs.close
set rs=nothing
else
ProductNo=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)
end if
end if
end sub
%>
<%
sub SelectGroup()
dim rs,sql
set rs = server.createobject("adodb.recordset")
sql="select GroupID,GroupName from ameav_MemGroup"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write("未设组别")
end if
while not rs.eof
response.write("<option value='"&rs("GroupID")&"┎╂┚"&rs("GroupName")&"'")
if GroupID=rs("GroupID") then response.write ("selected")
response.write(">"&rs("GroupName")&"</option>")
rs.movenext
wend
rs.close
set rs=nothing
end sub
%>
<%
'生成所属类别--------------------------
Function SortText(ID)
Dim rs,sql
Set rs=server.CreateObject("adodb.recordset")
sql="Select * From ameav_ProductSort where ID="&ID
rs.open sql,conn,1,1
SortText=rs("SortName")
rs.close
set rs=nothing
End Function
%>
数据库链接文件 const.asp
Const SysRootDir = "/" '系统运行的目录,后面需加/
Const SiteDataPath = "../Database/ameav_Site.mdb" '网站常规库路径,请注意虚拟目录
Const SiteDataBakPath = "../Database/Bak_ameav_Site.mdb" '网站备份库路径,请注意虚拟目录
<%
Dim Conn,ConnStr
On error resume next
Set Conn=Server.CreateObject("Adodb.Connection")
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(SiteDataPath)
Conn.open ConnStr
if err then
err.clear
Set Conn = Nothing
Response.Write "系统错误,数据库连接出错"
Response.End
end if
%>
<!--#include file="Function.asp" -->

本人属菜鸟，高手请指点一下，谢谢。

Answer 1

哥 谁知道你提交页面的代码啊

在说了 这个页面是添加还是更新？

我越看越迷茫
if action="add" then
下面怎么没代码了？并且直接
end if