|
|
|
 |
|
 |
<%
Dim Rs_Class,Sql_Class
Sql_Class="Select id,name From Type Where Type='product' and ParentID=7 Order By id Desc"
Set Rs_Class=Server.CreateObject("Adodb.Recordset")
Rs_Class.open Sql_Class,conn,1,1
If Rs_Class.Eof Then
Response.Write("")
Else
row=4 '一行显示2个
Rs_Class.pagesize=40 '一页显示8个
for j=1 to Rs_Class.pagesize/row
%>
<%for i=1 to row%>
| <%if not Rs_Class.eof then %>
<%
Rs_Class.movenext
end if
%> |
|
<%
next
%>
<%
next
end if
Rs_Class.close
set Rs_Class=nothing
%>
|
<%
dim id,sql_view,rs_view
id=request.QueryString("id")
if not IsNumeric(id) then
response.Redirect"products.asp"
response.End()
end if
sql_view="Select id,type,name,smallpic,pic,model,cailiao,content from product where id="&id&""
set rs_view=conn.execute(sql_view)
if not rs_view.eof then
%>
| 产品详细资料： |
|
|
 " name="product_id" border="0"> |
| 产品类别： |
<%
Dim Sql_News_Type,Rs_News_Type
Sql_News_Type="Select id,name from type where id="& rs_view("type") &""
Set Rs_News_Type=Conn.Execute(Sql_News_Type)
If Not Rs_News_Type.Eof Then
%>
<%=Rs_News_Type("name")%>
<%
End If
Rs_News_Type.close
set Rs_News_Type=nothing
%>
|
|
| 产品型号： |
<%=rs_view("name")%> |
|
| 产品规格： |
<%=rs_view("model")%> |
| 产品材料： |
<%=rs_view("cailiao")%> |
| 产品介绍： |
<%=rs_view("content")%> |
|
|
|
| 返回产品列表 |
<%
else
response.Write";"
end if
rs_view.close
set rs_view=nothing
conn.close
set conn=nothing
%>
|
|
|
|
|
|
|
|
|
