📄 top.asp
字号:
<!--#include file="online.asp"-->
<!--#include file="function/userinfo.asp"-->
<!--#include file="function/viewpro.asp"-->
<!--#include file="function/function.asp"-->
<!--#include file="inc/const.asp"-->
<div align="center">
<center>
<table border="0" width="755" cellspacing="0" cellpadding="0" height="25" style="background-color: #EDEDED; border-left: 1 solid #000000; border-right: 1 solid #000000; border-bottom: 1 solid #000000">
<tr>
<td width="188" bgcolor="#000000">
<p align="center"><a href="http://khoo.kom.cn" class="l17"><font color="#EDEDED"><%=WebSiteName%></font></a></td>
<td width="561">
<p align="center"><%
SQL="Select * From 网站栏目"
Set ColumnRS=Server.CreateObject("ADODB.Recordset")
ColumnRS.Open SQL,Connstr,1,1
I=0
Do While Not ColumnRS.Eof
%>
<a href="<%=ColumnRS("地址")%>"><%=ColumnRS("名称")%></a>
<%IF ColumnRS.RecordCount-I>1 Then%> | <%End IF%>
<%
ColumnRS.MoveNext
I=I+1
Loop
%></td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table border="0" width="755" cellspacing="0" cellpadding="0">
<tr>
<td height="2"></td>
</tr>
<tr>
<td width="100%"><img border="0" src="<%=BigLOGO%>"></td>
</tr>
<tr>
<td height="2"></td>
</tr>
</table>
</center>
</div>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -