📄 owenlink.asp
字号:
<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"> </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="网站资料: 名称:<%=rs("Sitename")%> 站长:<%=rs("SiteAdmin")%> 简介:<%=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="网站资料: 名称:<%=rs("Sitename")%> 站长:<%=rs("SiteAdmin")%> 简介:<%=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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -