求ASP+ACCESS产品添加代码?
题:要有:1所属分类下拉选择(大类BigClassName,小类SmallClassName)2产品编号Product_Id(不可重复,如重复提示)(必填)3产品名称Ti...
题:
要有:1 所属分类下拉选择
(大类BigClassName,小类SmallClassName)
2 产品编号Product_Id(不可重复,如重复提示)(必填)
3 产品名称Title (必填)
4 规格Sepc
5 单位Unit
6 备注Memo
7 产品说明Content(网络文本编辑器)
本页面名称为:ProductAdd.asp
希望高手来帮个忙!!小妹不胜感激!!!急急急!!!!!!! 展开
要有:1 所属分类下拉选择
(大类BigClassName,小类SmallClassName)
2 产品编号Product_Id(不可重复,如重复提示)(必填)
3 产品名称Title (必填)
4 规格Sepc
5 单位Unit
6 备注Memo
7 产品说明Content(网络文本编辑器)
本页面名称为:ProductAdd.asp
希望高手来帮个忙!!小妹不胜感激!!!急急急!!!!!!! 展开
1个回答
展开全部
set RsList = server.CreateObject("adodb.recordset")
SqlList = "SELECT * FROM ["&Datatable&"] where Product_Id =Product_Id"
RsList.open SqlList, objConn, 1, 3
if not RsList.eof ant not RsList.bof then
response.write("重复编号!")
else
RsList.addnew
RsList("Product_Id")=Product_Id
RsList("BigClassName")=BigClassName
RsList("SmallClassName")=SmallClassName
RsList("Title ")=Title
RsList("Sepc")=Sepc
RsList("Unit")=Unit
RsList("Memo")=Memo
RsList("Content") = Content
RsList.update
end if
RsList.close
SqlList = "SELECT * FROM ["&Datatable&"] where Product_Id =Product_Id"
RsList.open SqlList, objConn, 1, 3
if not RsList.eof ant not RsList.bof then
response.write("重复编号!")
else
RsList.addnew
RsList("Product_Id")=Product_Id
RsList("BigClassName")=BigClassName
RsList("SmallClassName")=SmallClassName
RsList("Title ")=Title
RsList("Sepc")=Sepc
RsList("Unit")=Unit
RsList("Memo")=Memo
RsList("Content") = Content
RsList.update
end if
RsList.close
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询