home *** CD-ROM | disk | FTP | other *** search
/ 221.214.14.186 / 221.214.14.186.tar / 221.214.14.186 / common / market.asp.bak < prev    next >
Text File  |  2010-01-21  |  2KB  |  41 lines
  1.       <%sub query3table(inputquery)
  2.                        set conn1=server.createobject("ADODB.connection")
  3.                        conn1.open("Provider=SQLOLEDB.1;Server=80.0.0.17;Database=sdxnw;UID=read;pwd=DSread17@8408;")
  4.                        set rstemp1=conn1.execute(inputquery)
  5.                          %>
  6.                     <table border=0 class="mylightgreen"> 
  7.                           <%do while not rstemp1.eof%>
  8.                           <tr>
  9.                           <% for i = 0 to 1
  10.                                thisvalue=trim(rstemp1(i))
  11.                                If isnull(thisvalue) then
  12.                                thisvalue=""
  13.                                end if
  14.                                if thisvalue="╣⌐" then
  15.                                  thisvalue="<font color=red>╣⌐</font>"
  16.                                   end if
  17.                                if thisvalue="╟≤" then
  18.                                   thisvalue="<font color=green>╟≤</font>"
  19.                                   end if
  20.                              %>
  21.                              <td valign=top width="98%" height="15" align="left">
  22.                             <a href="/document_show.asp?id=<%=rstemp1("id")%>&titel=<%=rstemp1("titel")%>&typeid=<%=rstemp1("typeid")%>&mark=2" target="_blank">
  23.                             
  24.                             <%=thisvalue%></a></td>
  25.                             
  26.                              <%next%>
  27.                           </tr>
  28.                           <%rstemp1.movenext
  29.                             loop
  30.                           %>
  31.                         </table>
  32.                         
  33.                     <%
  34.                           rstemp1.close
  35.                           set rstemp1=nothing
  36.                           conn1.close
  37.                           set conn1=nothing
  38.                           end sub
  39.                         %>
  40.                     <%call query3table("select top 4 titel,typeid,id from SCXX_sale order by dates desc,id desc")
  41.                         %>