homeapply.asp

一个用jsp 编写的个人主页网站哦。希望对大家有所帮助啊

<%response.Write "document.write('<link href=1.css rel=stylesheet type=text/css>');"%>
<!--#include file = "public.asp"-->
<%response.Write "document.write('<div align=center>');"
if request("scroll")="1" then Response.Write "document.write('<MARQUEE direction=up onmouseout=start() onmouseover=stop() scrollAmount=3 scrollDelay=200>');"
Set rs=server.createobject("ADODB.RECORDSET")
if request("all")="0" then
	rs.open "Select top "&request("count")&" * From friend where sitelogo<>'' order by id desc" ,Conn,1,1
else
	rs.open "Select top "&request("count")&" * From friend where sitelogo<>'' and show=1 order by id desc" ,Conn,1,1
end if
linkcount=0
do while not rs.eof
response.Write "document.write('<a href=../linklove/index.asp?goto="&rs("id")&" target=_blank><img src="&rs("sitelogo")&" width=88 height=31 border=0></a>');"
if request("up")="0" then 
	response.Write "document.write('<br><br>');"
else
	response.Write "document.write('&nbsp;&nbsp;');"
	linkcount=linkcount+1
	if linkcount mod request("col")=0 then response.Write "document.write('<br><br>');"
end if
rs.movenext
loop
rs.close
set rs=nothing
if request("scroll")="1" then Response.Write "document.write('</MARQUEE>');"
response.Write "document.write('</div>');"
%>