📄 bottom.asp
字号:
<%
Set conn= Server.CreateObject("ADODB.Connection")
connstr="DBQ="+server.mappath("../data/onsystemshop.asp")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
conn.open connstr
%>
<table width="850" border="0" align="center" cellpadding="0" cellspacing="0" class="table_2">
<tr>
<td background="../images/b_bg.gif"> </td>
</tr>
</table>
<table width="850" border="0" align="center" cellpadding="0" cellspacing="0" class="table_2">
<tr>
<td width="10" height="50"> </td>
<td><table border="0" cellspacing="0" cellpadding="0">
<%
dim b
set rsl=server.CreateObject("ADODB.recordset")
sql = "select * from link"
rsl.open sql,conn,3,3
count=rsl.recordcount
%>
<tr>
<%
if rsl.eof and rsl.bof then
response.write "<br><center>暂时还没有友情链接!</center>"
else
for b=1 to count
user=rsl("linkimg")
%>
<td><div align="center"><a href="<%=rsl("link")%>" target="_blank"><img src="<%=user%>" alt="<%=rsl("linkname")%>" width="88" height="31" border="0"></a></div></td>
<td width="15"> </td>
<%
if b mod 7=0 then
%>
</tr>
<tr>
<%
end if
rsl.movenext
next
rsl.close
set rsl=nothing
end if
%>
</tr>
</table></td>
<td width="10"> </td>
</tr>
</table>
<table width="850" border="0" align="center" cellpadding="0" cellspacing="0" class="table_2">
<tr>
<td background="../images/b_bg.gif"> </td>
</tr>
</table>
<table width="850" border="0" align="center" cellpadding="0" cellspacing="0" class="table_5">
<tr>
<td height="25" colspan="2"><div align="center" class="haogao"> <!-- #Include File=max.asp --> <br>
在线技术支持 <a href="http://www.culian.com">创涌科技</a> <a href="../admin.asp">管理登录</a><br>
客服E-mail:<a href="mailto:<%=email%>"><%=email%></a> 客服QQ:<%=qq%></div></td>
</tr>
<tr>
<td width="486" height="25" bgcolor="#939393" class="font12_white"><span class="haogao"><%=copy%></span></td>
<td width="362"> </td>
</tr>
</table>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -