<%@LANGUAGE="VBScript" CODEPAGE="936"%> <% Dim Width,Height,ImgWid,ImgHei Dim sql,rs2,linkUrl,ShowTitle,length ShowTitle = 0 ' 0 : 只顯示圖片;1 :顯示標題 Width = 727 Height = 340 %>
  • <tr id="eovwf"></tr>
    <code id="eovwf"><small id="eovwf"></small></code><object id="eovwf"><video id="eovwf"></video></object>

    <strike id="eovwf"><sup id="eovwf"><samp id="eovwf"></samp></sup></strike>
      <code id="eovwf"></code>

      <th id="eovwf"><video id="eovwf"></video></th>
      <u id="eovwf"><acronym id="eovwf"></acronym></u>
      <video id="eovwf"><input id="eovwf"></input></video>
      <nav id="eovwf"><video id="eovwf"></video></nav>

      1. <% 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 "" loop End If rs2.close:Set rs2 = Nothing %>
        " imgname = "usr_web/en_usr_product/UploadCo/" & rs2("cp_img")&"" Response.Write "" Response.Write "" 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 "" rs2.MoveNext Else Response.Write "" Response.Write "" Response.Write "" End If Response.Write "
        " Response.Write "
        " Response.Write "
        " Response.Write "
        久9re热视频这里只有精品_亚洲国产在线2020最新_久爱看视频在线观看_欧美三级中文字幕在线观看