特别被充:发现后台移动某类图片到另一类后,前台的分类照片数量并没有变.修改方法:打开ConContent.asp,找到复制内容到剪贴板
代码:
IF ph_CateMoveTo(ph_CateNums)<>0 Then
Conn.ExeCute("Update photo SET ph_CateID="&ph_CateMoveTo(ph_CateNums)&" Where ph_CateID="&ph_CateID(ph_CateNums)&"")
SQLQueryNums=SQLQueryNums+1
End IF修改成:
复制内容到剪贴板
代码:
IF ph_CateMoveTo(ph_CateNums)<>0 Then
Dim counts
counts=Conn.ExeCute("select count(ph_CateID) From photo Where ph_CateID="&ph_CateID(ph_CateNums)&"")(0)
Conn.ExeCute("Update photo SET ph_CateID="&ph_CateMoveTo(ph_CateNums)&" Where ph_CateID="&ph_CateID(ph_CateNums)&"")
Conn.ExeCute("Update photo_Cate SET cate_Nums=cate_Nums-"&counts&" Where cate_ID="&ph_CateID(ph_CateNums)&"")
Conn.ExeCute("Update photo_Cate SET cate_Nums=cate_Nums+"&counts&" Where cate_ID="&ph_CateMoveTo(ph_CateNums)&"")
SQLQueryNums=SQLQueryNums+1
End IF