📄 index.asp

📁 PDA,若你死昂师傅你说的附件是打开附件上课的附件四度空间就大方快速减肥

💻 ASP

字号:

<!--#include file="../act_inc/ACT.User.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>友情链接 - powered by actcms</title>
<link href="images/css.css" rel="stylesheet" type="text/css" />
</head>

<body>

<div class="main mceneter">
	<div class="toplogo">
		<div class="logo">
				<a href="/"><img src="../images/logo.gif" /></a>		</div>
		<div class="title">
			友情链接 <a href="LinkReg.asp">申请友情连接</a>
		</div>
	</div>
	<div class="cmain">
		<div class="ctitle">
			<h1>所有链接</h1>
			<span></span>
		</div>
		<div class="cbox mceneter">
			<div class="linklist">				
				<div class="txtlink">
					<%
					Dim rs
					Set rs=actcms.actexe("select * from Link_Act where LinkType=0 and sh=1")
					Do While Not rs.eof 

					response.write 	"<a href='"&rs("Url")&"' target='_blank'>"&rs("SiteName")&"</a>"& vbCrLf

					rs.movenext
					loop
					
					%>
					
					
				</div>
				<div class="imglink">
					<%
					Dim rs1
					Set rs1=actcms.actexe("select * from Link_Act where LinkType=1 and sh=1")
					Do While Not rs1.eof 

					response.write 	"<a href='"&rs1("Url")&"' target='_blank'><img src='"&rs1("Logo")&"' width='88' height='31' border='0' alt='"&rs1("SiteName")&"'></a>"& vbCrLf

					rs1.movenext
					loop
					
					%>
					
										
				</div>
			</div>
		</div>
		
<div class="copyright mceneter">
Powered by <a href="http://www.actcms.com" target="_blank">actcms 2.0</a> &copy; 2007-2008  
</div>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -