<%
dim BigClassID,Action,rs,NewBigClassName,OldBigClassName,FoundErr,ErrMsg
bigclasstable=trim(Request("bigclasstable"))
SmallClasstable=trim(Request("SmallClasstable"))
infotable=trim(Request("infotable"))
BigClassID=trim(Request("BigClassID"))
Action=trim(Request("Action"))
NewBigClassName=trim(Request("NewBigClassName"))
num=trim(request("num"))
OldBigClassName=trim(Request("OldBigClassName"))
picurl=trim(Request("picurl"))
newsurl=trim(Request("newsurl"))
content=trim(Request("content"))
if BigClassID="" then
Response.Redirect "allClassManage.asp?bigclasstable="&bigclasstable&"&SmallClasstable="&SmallClasstable
end if
Set rs=Server.CreateObject("Adodb.RecordSet")
rs.Open "Select * from "&bigclasstable&" where BigClassID=" & CLng(BigClassID),conn,1,3
if rs.Bof and rs.EOF then
FoundErr=True
ErrMsg=ErrMsg & "
此产品大类不存在！
"
else
if Action="Modify" then
if NewBigClassName="" then
FoundErr=True
ErrMsg=ErrMsg & "
大类名不能为空！
"
end if
if FoundErr<>True then
rs("BigClassName")=NewBigClassName
rs("num")=num
rs("picurl")=picurl
rs("newsurl")=newsurl
rs("content")=content
rs("Admin")=Admin
rs.update
rs.Close
set rs=Nothing
if NewBigClassName<>OldBigClassName then
conn.execute "Update "&SmallClasstable&" set BigClassName='" & NewBigClassName & "' where BigClassName='" & OldBigClassName & "'"
conn.execute "Update "&bigclasstable&" set BigClassName='" & NewBigClassName & "' where BigClassName='" & OldBigClassName & "'"
conn.execute "Update "&infotable&" set BigClassName='" & NewBigClassName & "' where BigClassName='" & OldBigClassName & "'"
end if
call CloseConn()
Response.Redirect "allClassManage.asp?bigclasstable="&bigclasstable&"&SmallClasstable="&SmallClasstable
end if
end if
if FoundErr=True then
call WriteErrMsg()
else
%>
返回列表