%
toEmail=""'发送到邮箱
proid=request.querystring("pro_id")
If proid="" Or Not IsNumeric(proid) Then
response.redirect request.servervariables("http_referer")
End if
class_id=Request.querystring("class_id")
if isnumeric(class_id) then
Set rs_cname=conn.execute("select class_name from pro_class where pro_class_id="&class_id)
If Not rs_cname.eof Then
class_name=rs_cname(0)
class_name=getparentclassname(class_id)&class_name
end if
end if
%>
<%
'产品显示
set rs=server.createobject("adodb.recordset")
sql2="select * from product where pro_id="&proid&" order by arrs"
rs.open sql2,conn,1,1
%>
广州市联胜国际儿童用品交易中心
|
|
|
| |
| |
| |
 |
| 广州联胜国际儿童用品交易中心交通极为便利,附近分别包括中山八路电车总站、中山八路站、西郊车站、珠江桥脚站四个公交巴士站,其中各站车次分别为 |
| 中山八路电车总站车次有: |
|
104/107/109/132/133/196/19/204/212/237/250/308/555/85/8/旅游1线/旅游2线/夜37/夜44 |
| 中山八路站车次有: |
|
124/128/193/205/207/231/232/233/25/260/286/52/549/61/夜11/夜27/夜31 |
| 西郊车站车次有: |
|
123/208/236/270/275/9/夜37 |
| 珠江桥脚站车次有: |
|
176/17/256/261/34/538/71/832/839/旅游3线/夜2 |
|
| |
| 更多搜索:www.baidu.com |
|
 |
|
<%
function code(content)
if len(content)>0 then
content=Replace(content,"<","<")
content=Replace(content,"<",">")
content=Replace(content,chr(13),"
")
content=Replace(content,chr(32)," ")
else
content=content
end if
code=content
end function
'分类显示函数
Function showclass_li(wherestr,currentid)
Dim rs,sql,tempstr,havedata
havedata=true
sql="select * from pro_class "
If wherestr<>"" Then sql=sql&" where "&wherestr
sql=sql&" order by arrs desc"
Set rs=conn.execute(sql)
If rs.eof Or rs.bof Then havedata=false
If havedata=True Then tempstr=tempstr&""
Do While Not rs.eof
If rs("pro_class_id")=currentid Then
tempstr=tempstr&"- "
Else
tempstr=tempstr&"
- "
End If
tempstr=tempstr&""&rs("class_name")&"
"&Chr(13)
tempstr=tempstr&showclass_li(" f_id="&rs("pro_class_id"),currentid)&Chr(13)
rs.movenext
Loop
If havedata=True Then tempstr=tempstr&"
"
showclass_li=tempstr
closers(rs)
End Function
'父级分类名
Function getparentclassname(currentid)
Dim rs,tempstr
Set rs=conn.execute("select class_name,pro_class_id from pro_class where pro_class_id=(select f_id from pro_class where pro_class_id="¤tid&")")
If Not rs.eof Or Not rs.bof Then
tempstr=""&rs("class_name")&">>"&tempstr
tempstr=getparentclassname(rs("pro_class_id"))&tempstr
End If
getparentclassname=tempstr
closers(rs)
End function
%>