Yufeng stone Co., LTD. is a professional company which produces
and sells various kinds of natural slate such as culture slate,
mesh works, sand stone, mechanism cobble, mosaic, classic stone.
It lies in Yi County, Hebei province of China, the triangular
area of Beijing, Tianjin and Baoding, with superior location,
convenient communication, graceful environment and abundant raw
material resources. All the products sell well in the mainland,
Hong Kong, Macao, Taiwan, as well as Southeast Asia, America and
Europe. It has become a well-known base for producing and
selling natural slate.
<%if strSkins <= 200 and strSkins >= 1 then%>
<%end if%>
| "
row_count=1
Response.Write ""
Do While Not rs_ProductZY.EOF
strli=""
strli=strli & " ◆ 產品名稱："& rs_ProductZY("Title") &" "&chr(13)
strli=strli & " ◆ 產品規格："& rs_ProductZY("Spec") &" "&chr(13)
strli=strli & " ◆ 產品尺寸："& rs_ProductZY("Size") &" "
strLb=""
strLb=strLb & ""
strLb=strLb & ""
strLb=strLb & " | "
strLb=strLb & ""
strLb=strLb & " | "
strLb=strLb & " "
strLb=strLb & " | "
' strLb=strLb & "| 產品名稱 | "
strLb=strLb & ""
strLb=strLb & " | "
strLb=strLb & " "
strLb=strLb & ""
strLb=strLb & " | "
strLb=strLb & " "
strLb=strLb & "
| "
Response.Write strLb
if row_count mod 4 <>0 then
end if
if row_count mod 4 =0 then
Response.Write " "
end if
rs_ProductZY.MoveNext
row_count=row_count+1
Loop
rs_ProductZY.close
Response.Write " |
"
set rs_rs_ProductZY=nothing
END Sub
'-------- --------
Sub NewsZY()
dim rs_NewsZY,sql_NewsZY,i,Title,StrTemp
set rs_NewsZY=server.createobject("adodb.recordset")
sql_NewsZY="select top 10 * from NewsCo order by id desc"
rs_NewsZY.open sql_NewsZY,conn,1,1
i=0
Do While Not rs_NewsZY.EOF
Title=""
if rs_NewsZY("Title")<>"" then
StrTemp=replace(rs_NewsZY("Title"),"","")
StrTemp=replace(StrTemp," ","")
Title=Title&StrTemp
else
Title=Title&"此欄目沒有任何內容"
end if
Response.Write "![]() "
Response.Write ""& gotTopic(Title,36) & "
"
rs_NewsZY.MoveNext
i=i+1
if i=10 then exit do
Loop
rs_NewsZY.close
set rs_NewsZY=nothing
END Sub
'-------- --------
Sub NewsYeZY()
dim rs_NewsYeZY,sql_NewsYeZY,i,Title,StrTemp
set rs_NewsYeZY=server.createobject("adodb.recordset")
sql_NewsYeZY="select top 10 * from NewsYe order by id desc"
rs_NewsYeZY.open sql_NewsYeZY,conn,1,1
i=0
Do While Not rs_NewsYeZY.EOF
Title=""
if rs_NewsYeZY("Title")<>"" then
StrTemp=replace(rs_NewsYeZY("Title"),"","")
StrTemp=replace(StrTemp," ","")
Title=Title&StrTemp
else
Title=Title&"此欄目沒有任何內容"
end if
Response.Write "![]() "
Response.Write ""& gotTopic(Title,36) & "
"
rs_NewsYeZY.MoveNext
i=i+1
if i=10 then exit do
Loop
rs_NewsYeZY.close
set rs_NewsYeZY=nothing
END Sub
'-------- --------
Sub NewsProductZY()
dim rs_NewsProductZY,sql_NewsProductZY,i,Title,StrTemp
set rs_NewsProductZY=server.createobject("adodb.recordset")
sql_NewsProductZY="select top 10 * from NewsPr order by ID desc"
rs_NewsProductZY.open sql_NewsProductZY,conn,1,1
i=0
Do While Not rs_NewsProductZY.EOF
Title=""
if rs_NewsProductZY("Title")<>"" then
StrTemp=replace(rs_NewsProductZY("Title"),"","")
StrTemp=replace(StrTemp," ","")
Title=Title&StrTemp
else
Title=Title&"此欄目沒有任何內容"
end if
Response.Write "![]() "
Response.Write ""& gotTopic(Title,36) & "
"
rs_NewsProductZY.MoveNext
i=i+1
if i=10 then exit do
Loop
rs_NewsProductZY.close
set rs_NewsProductZY=nothing
END Sub
'-------- --------
Sub DownZY()
dim rs_DownZY,sql_DownZY,i,Title,tempstr
set rs_DownZY=server.createobject("adodb.recordset")
sql_DownZY="select top 10 * from Download where Passed=True order by UpDateTime desc"
rs_DownZY.open sql_DownZY,conn,1,1
i=0
Do While Not rs_DownZY.EOF
Title=""
if rs_DownZY("Title")<>"" then
tempstr=replace(rs_DownZY("Title"),"","")
tempstr=replace(tempstr," ","")
Title=Title&tempstr
else
Title=Title&"此欄目沒有任何內容"
end if
Response.Write "![]() "
Response.Write ""& gotTopic(Title,36) & "
"
rs_DownZY.MoveNext
i=i+1
if i=10 then exit do
Loop
rs_DownZY.close
set rs_DownZY=nothing
END Sub
%>
<%
'--------站內調查--------
Sub Style_Vote()
%>
<%
End Sub
%>
|
