?? inc_link.asp
字號:
<%
'┌─ 風云ASP在線 ────────────────────────┐
'│ │
'│ 作者:趙振波. http://www.fyasp.com │
'│ │
'│ Q Q:176189168 │
'│ │
'│ Email:fy96@163.com │
'│ │
'│ 程序定做,系統開發,網站制作,提供高質量的網絡產品、技術和服務!│
'│ │
'│【版權聲明】 │
'│ │
'│ 本程序版權歸坐看風云所有,未經授權擅自修改、復制或散布本程序│
'│ │
'│的部分或全部,將承受嚴厲的民事和刑事處罰,對已知的違反者將給予法 │
'│ │
'│律范圍內的全面制裁。對非法使用此程序所造成的一切后果本人概不負責!│
'│ │
'└─────────────────── http://www.fyasp.com ──┘
%>
<%
Dim rdsLink
Dim sqlLink
set rdsLink = Server.CreateObject("ADODB.Recordset")
sqlLink = "Select * From Dat_Link Where LinkClass = 2 And State = 1 Order By LinkKey Desc"
rdsLink.Open sqlLink,Conn,1,1
if not rdsLink.EOF then
Response.Write "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
do while not rdsLink.EOF
Response.Write "<tr>"& VbCRLF
Response.Write "<td height=""19""> <font color=""#FFFFFF"">·</font> <a href="""& rdsLink("Url") &""" target=""_blank"" class=""menu"">"& rdsLink("Homepage") &"</a></td>"& VbCRLF
Response.Write "</tr>"& VbCRLF
rdsLink.MoveNext
loop
Response.Write "<tr>"& VbCRLF
Response.Write "<td height=""5""></td>"& VbCRLF
Response.Write "</tr>"& VbCRLF
Response.Write "</table>"
end if
rdsLink.Close
set rdsLink = nothing
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -