📄 lmcode.asp

📁 强大的后台文章编辑器的功能
💻 ASP
字号:

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<style>
<!--
a:link       { font-size: 9pt; font-family: 宋体; color: #000000;text-decoration: none; }
a:visited    { color: #000000; font-family: 宋体; font-size: 9pt;text-decoration: none; }
a:hover      { font-size: 9pt; font-family: 宋体; color: #000000;TEXT-DECORATION: underline; }
body         { font-family: 宋体; color: #000000; font-size: 9pt }
p            { color: #000000; font-family: 宋体; font-size: 9pt }
td           { font-size: 9pt; font-family: 宋体; color: #000000 }
input        { font-size: 9pt; font-family: 宋体; color: #000000 }

-->
</style>
</head>

<%
lmid=trim(request("lm"))
lmname=trim(request("lmname"))
n=trim(request("n"))
list=trim(request("list"))
more=trim(request("more"))
open=trim(request("open"))
bg=trim(request("bg"))
hot=trim(request("hot"))
tj=trim(request("tj"))
t=trim(request("t"))
if bg="" then bg="ffffff"
%>
<Body bgcolor=<%=bg%>>
<%

if lmname="" then lmname=0
'if lmid=0 then lmid=""
if n="" then n=20
if list="" then list=10
if more="" then more=1
if open="" then open=1
if t="" then t=0
if hot="" then hot=0
if tj="0" then
  tj="不推荐"
else
  tj="推荐"
end if
%>
<!--#include file = admin_conn.asp -->

					  <%					  
					  sql = "select * from lm where lm<>'' order by id asc"
					  Set rs = Server.CreateObject("ADODB.RecordSet")
					  rs.Open sql,conn,1,1
					  while not rs.eof
					       response.write "<a href=news_more.asp?lm="&rs("id")&" target=_blank title='"&rs("lm")&"'><B>"&rs("lm")&"</b></a>"
					         sql11 = "select id,lm,lm2 from news where lm='"&rs("ID")&"' or lm2='"&rs("ID")&"'"
					         Set rs11 = Server.CreateObject("ADODB.RecordSet")
					         rs11.Open sql11,conn,1,1
					         Response.Write "<font color=999999>("&rs11.recordcount&")</font><BR>"
					         
							sql2 = "select * from lm where lmid='"&rs("id")&"' order by id asc"
							Set rs2 = Server.CreateObject("ADODB.RecordSet")
							rs2.Open sql2,conn,1,1
							while not rs2.eof
							
							   Response.Write "&nbsp;├<a href=news_more.asp?lm2="&rs2("id")&"&lmname=0&open=1&n=30&tj=0&hot=0 target=_blank title='"&rs2("lm2")&"'>"&rs2("lm2")&"</a>"
									sql3 = "select id,lm,lm2 from news where lm2='"&rs2("id")&"' or lm='"&rs2("id")&"'"
									Set rs3 = Server.CreateObject("ADODB.RecordSet")
									rs3.Open sql3,conn,1,1	
									Response.Write "<font color=999999>("&rs3.recordcount&")</font>"
							   		Response.Write "<BR>"
							   		rs3.close
							   		set rs3=nothing
							rs2.movenext
							wend
							rs2.close
							set rs2=nothing
					  rs.movenext
					  wend 
					  rs.close
					  set rs=nothing
					 
					%>
					
					</select>


</body>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -