<%
ProID=Trim(Request("ProID"))
Set oRs=oConn.Execute("Select * From ProductData Where D_ID="&ProID)
d_title=ors("d_title")
ors.close
%>
<%=d_title%>_产品展示_郑州办公家具厂家-郑州科飞亚办公家具
<%
Dim ProClassID,FoundErr,ErrMsg,ProID
ProClassID=Trim(Request("ProClassID"))
If ProClassID="" Then
ProClassID=0
End If
If IsNumeric(ProClassID) = False Then
GoError "产品分类ID参数错误，请不要试图破坏此系统。"
End If
If IsNumeric(ProID) = False Then
GoError "产品分类ID参数错误，请不要试图破坏此系统。"
End If
If ProID<>0 Then
Set oRs=oConn.Execute("Select * From productdata Where d_ID="&ProID)
If oRs.Eof Then
GoError "无此产品，请添加后在来！"
End If
ors.close
End If
%>
