<%
If ShowTitle<>"0" And ShowTitle<>"1" Then Response.Write "操作錯誤！請聯系管理員！" : Response.End()
linkUrl = "ecpzx.asp?action=More&id=" '圖片鏈接
length = 12 '限制標題長度
set rs2=server.createobject("adodb.recordset")
sql = "Select top 40 id,cp_img,cp_name From usr_cp WHERE cp_show=True ORDER by cp_sorts,riqi desc"
rs2.open sql,conn,1,1
If rs2.Eof Then
Response.write "暫無產品！"
Else
do while not rs2.eof
Response.Write ""
imgname = "usr_web/en_usr_product/UploadCo/" & rs2("cp_img")&""
Response.Write ""
Response.Write ""
Response.Write "![]("&imgname&") "
Response.Write " | "
Response.Write " "
Response.Write " | "
rs2.movenext
If Not rs2.Eof Then
imgname = "usr_web/en_usr_product/UploadCo/" & rs2("cp_img")&""
Response.Write ""
Response.Write "| "
Response.Write " | "
Response.Write " "
rs2.MoveNext
Else
Response.Write ""
Response.Write " | "
Response.Write " "
End If
Response.Write " "
Response.Write " | "
loop
End If
rs2.close:Set rs2 = Nothing
%>
| |