<% dim ks:set ks=new publiccls Dim ID:ID=KS.ChkClng(KS.S("ID")) Dim titleStr,PhotoStr,imgs,n,curr If ID=0 Then KS.Die "Error!" Dim RS:Set RS=Server.CreateObject("adodb.recordset") RS.Open "SELECT TOP 100 a.title,b.* FROM KS_Product A Inner Join KS_ProImages B On A.ID=B.ProID WHERE a.ID=" & ID,Conn,1,1 Do While Not RS.Eof titleStr = rs("title") photostr=photostr &"
  • " if imgs="" then imgs="'" & rs("bigpicurl") & "'" else imgs=imgs &",'" & rs("bigpicurl") & "'" end if if lcase(request("u"))=lcase(rs("bigpicurl")) then curr=n n=n+1 RS.MoveNext Loop RS.Close Set RS=Nothing %> <%=titleStr %> 清晰图片 <%if titlestr<>"" then titlestr="“" & titlestr & "”" end if%>

    查看<%=titleStr %>清晰图片

    <%If imgs<>"" then%>
    left
      <%=photoStr%>
    right
    <%end if%>
    " alt=""/>
    <% Set KS=Nothing CloseConn %>