owenlink.asp

中介之家房产中介系统 V4.0企业共享版

<LINK href="css/owen.css" type=text/css rel=stylesheet>
<META http-equiv=Content-Type content=text/html; charset=gb2312>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#000000">
  <tr> 
    <td width="163" height="30" align="center" bgcolor="#99CC33">&nbsp;</td>
    <td height="30" colspan="2" bgcolor="#D6EAAA"> 
      <marquee direction=left behavior=scroll height=31 width="100%" scrollamount=5 scrolldelay=60 onmouseover='this.stop()' onmouseout='this.start()'>
      <%
set rs=server.createobject("adodb.recordset")
sql="select * from link where type='LOGO连接' and ISok=true order by id desc"
rs.open sql,conn,1,1
	if rs.bof and rs.eof then
		response.write "LOGO连接暂时没有人申请"
	else
	do while not rs.eof
%>
      <a href="<%=rs("SiteUrl")%>" target="_blank"><img src="<%=rs("LogoUrl")%>" width=88 height=31  alt="网站资料：&#13;&#10;名称：<%=rs("Sitename")%>&#13;&#10;站长：<%=rs("SiteAdmin")%>&#13;&#10;简介：<%=rs("SiteIntro")%>" border=0></a> 
      <%
rs.movenext
loop
end if
rs.close
set rs=nothing
%>
      </marquee> </td>
  </tr>
  <tr> 
    <td align="center" bgcolor="#99CC33"><a href="#" onClick="window.open('linkreg.asp','owen','scrollbars=yes,resizable=no,width=420,height=283,menubar=no,top=0,left=0')">申请连接</a> 
    </td>
    <td width="65%" height="24" bgcolor="#B6B6B6"> <marquee direction=left behavior=scroll height=24 width="100%" scrollamount=5 scrolldelay=60 onmouseover='this.stop()' onmouseout='this.start()'>
      <%
set rs=server.createobject("adodb.recordset")
sql="select * from link where type='文字连接' and ISok=true order by id desc"
rs.open sql,conn,0,1
	if rs.bof and rs.eof then
		response.write "德阳房地产信息网欢迎你……"
	else
	do while not rs.eof
%>
      <a href="<%=rs("SiteUrl")%>" target="_blank" title="网站资料：&#13;&#10;名称：<%=rs("Sitename")%>&#13;&#10;站长：<%=rs("SiteAdmin")%>&#13;&#10;简介：<%=rs("SiteIntro")%>" ><%=rs("Sitename")%></a>| 
      <%
rs.movenext
loop
end if
rs.close
set rs=nothing
%>
      </marquee> </td>
    <td width="20%" align="center" bgcolor="#B6B6B6">德阳房地产信息网</td>
  </tr>
</table>