topjs.asp

ASP源程序采用天空软件小偷中心核件制成

<!--#include file="conn.asp"-->
<%
response.write"document.write('<table   cellspacing=1 cellpadding=1 width=95% align=center border=0 bgcolor=#333333><tbody><tr height=20><td align=center   bgcolor=#A9D46D height=15> ');"
     sqt="select * from toplink order by orderid "
	  Set ts= Server.CreateObject("ADODB.Recordset")
	  ts.open sqt,conn,1,1   
  	  if ts.eof and ts.bof then       		
      else   
	 do while not ts.eof 
response.write"document.write('<a href="&ts("linkurl")&"><span style=text-decoration:none;>"&ts("linkname")&"</span></a> | ');" 
 	 ts.movenext
	loop
	ts.close
	end if
response.write"document.write('</td></tr></tbody></table>');" 
 conn.close
set conn=nothing
%>