📄 index.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Conn.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>xmuu.net LINK</title>
<LINK href="STYLE.css" type=text/css rel=stylesheet>
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0">
<table width="760" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td height="20" valign="top" background="images/title.gif" bgcolor="#FFFFFF">
<table width="100%" height="20" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="93%" valign="middle"><font color="#FF0000"><strong> 友情连接</strong></font></td>
<td width="7%" valign="bottom"><a href="tianjia.asp" target="_blank"><font color="#0000FF">申请链接</font></a></td>
</tr>
</table></td>
</tr>
<tr>
<td align="left" bgcolor="#FFFFFF"><table width="748" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>
<%
Set lg = Server.CreateObject("ADODB.Recordset")
lg.ActiveConnection = MM_logo_STRING
lg.Source = "SELECT * FROM logox WHERE wt = '图' AND xs ='显示' ORDER BY ID DESC"
lg.CursorType = 0
lg.CursorLocation = 2
lg.LockType = 1
lg.Open()
lg_numRows = 0
%>
<%i=1
do while not lg.eof%>
<a href="<%=(lg.Fields.Item("dizhi").Value)%>" target="_blank" title="<%=(lg.Fields.Item("zhujie").Value)%>"><img src="<%=(lg.Fields.Item("mingcheng").Value)%>" width="88" height="31" border="0"></a>
<%
if i mod 8 =0 then response.write "<br><br>"
lg.movenext
lg_numRows=lg_numRows+1
loop%>
<%
lg.Close()
Set lg = Nothing
%>
</td>
</tr>
</table></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><table width="748" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td> <%
Set lg = Server.CreateObject("ADODB.Recordset")
lg.ActiveConnection = MM_logo_STRING
lg.Source = "SELECT * FROM logox WHERE wt = '字' AND xs ='显示' ORDER BY ID DESC"
lg.CursorType = 0
lg.CursorLocation = 2
lg.LockType = 1
lg.Open()
lg_numRows = 0
%>
<%
do while not lg.eof%>
<a href="<%=(lg.Fields.Item("dizhi").Value)%>" target="_blank" title="<%=(lg.Fields.Item("zhujie").Value)%>"><%=(lg.Fields.Item("wmc").Value)%></a>
<%lg.movenext
lg_numRows=lg_numRows+1
loop%>
<%
lg.Close()
Set lg = Nothing
%> </td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -