friendsite.asp

OA最新破解2008版 全新 破解 希望大家用着舒服

<!--#include file="conn.asp" -->
function open_window(url,windowname,size)	//打开新窗口
{window.open(url,windowname,"toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,copyhistory=yes,top=10,left=10,"+size); }
<%
dim javastr
javastr=""
javastr=javastr+"<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"">"
javastr=javastr+"<tr>"
javastr=javastr+"<td>"
javastr=javastr+"<table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"">"
javastr=javastr+"<tr><td>"
javastr=javastr+"<table border=""0"" align=""center"" cellspacing=""0"" cellpadding=""5"" width=""100%"">"
javastr=javastr+"<tr>"

dim oneline
i=0
oneline=6
'此处更改每行显示图片链接数

sql="SELECT * FROM FriendSite where (LogoUrl is not Null) and IsOK=1 and Isgood<>1"
rs.open sql,conn,1,1
if not Rs.eof then
do while not rs.eof
i=i+1
javastr=javastr+"<td align=center><a href="""&rs("SiteUrl")&""" target=""_blank""><img src="""&rs("LogoUrl")&""" width=88 height=31 border=0 alt=""名称："&rs("SiteName")&"&#13;&#10;站长："&rs("SiteAdmin")&"&#13;&#10;地址："&rs("SiteUrl")&"&#13;&#10;简介："&rs("SiteIntro")&"""></a></td>"
if (i mod oneline)=0 and i>=oneline then javastr=javastr+"</tr><tr>"
rs.movenext
loop
end if
if i<oneline-1 then
	dim j
	for j=1 to (oneline-i)
		javastr=javastr+"<td align=center><a href=""#"" onclick=javascript:open_window(""FriendSiteAdd.asp"",""FriendSiteAdd"",""width=500,height=212"") ><img src=http://www.szze.com/logo.gif width=88 height=31 border=0></a></td>"
	Next
elseif i<100 and (i mod oneline)<>0 then
	for j=1 to oneline-(i mod oneline)
		javastr=javastr+"<td align=center><a href=""#"" onclick=javascript:open_window(""FriendSiteAdd.asp"",""FriendSiteAdd"",""width=500,height=212"")><img src=images/logo.gif width=88 height=31 border=0></a></td>"
	Next
end if
rs.close

javastr=javastr+"</tr>"
javastr=javastr+"</table>"
javastr=javastr+"</td>"
javastr=javastr+"</tr>"
javastr=javastr+"<tr><td>"
javastr=javastr+"<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td bgcolor="""&mainBgColor&""" height=""1""></td></tr></table>"
javastr=javastr+"<table border=""0"" cellspacing=""0"" cellpadding=""2"" width=""100%"">"
javastr=javastr+"<tr>"

i=0
oneline=8
'此处更改每行显示文字链接数
sql="SELECT * FROM FriendSite where (LogoUrl is Null) and IsOK=1 and Isgood<>1"
rs.open sql,conn,1,1
if not Rs.eof then
do while not rs.eof
i=i+1
javastr=javastr+"<td align=center><a href="""&rs("SiteUrl")&""" target=""_blank"" title=""名称："&rs("SiteName")&"&#13;&#10;站长："&rs("SiteAdmin")&"&#13;&#10;地址："&rs("SiteUrl")&"&#13;&#10;简介："&rs("SiteIntro")&""">"&rs("SiteName")&"</a></td>"
if (i mod oneline)=0 and i>=oneline then javastr=javastr+"</tr><tr>"
rs.movenext
loop
end if
if i<oneline-1 then
for j=1 to (oneline-i)
javastr=javastr+"<td align=center valign=""middle""> <input class=submit type=button style=cursor:hand name=FriendSiteAdd value=申请加入  onclick=javascript:open_window(""FriendSiteAdd.asp"",""FriendSiteAdd"",""width=500,height=212"")></td>"
Next
elseif i<100 and (i mod oneline)<>0 then
for j=1 to oneline-(i mod oneline)
	javastr=javastr+"<td align=center valign=""middle""> <input class=submit type=button style=cursor:hand name=FriendSiteAdd value=申请加入  onclick=javascript:open_window(""FriendSiteAdd.asp"",""FriendSiteAdd"",""width=500,height=212"")></td>"
Next
end if
rs.close
set rs=nothing
conn.close
set conn=nothing

'javastr=javastr+"<td align=center valign=""middle""> <input type=button style=cursor:hand name=FriendSiteAdd value=申请加入  onclick=javascript:open_window(""FriendSiteAdd.asp"",""FriendSiteAdd"",""width=500,height=212"")></td>"
javastr=javastr+"</table></td></tr></table></td>"
javastr=javastr+"</tr></table>"
response.write ("document.write('"&javastr&"')")
response.end
%>