📄 js-ly.asp

📁 Art2008 CMS是一款具有强大的功能的基于ASP语言的网站管理软件

💻 ASP

字号:

<!--#include file = admin_conn.asp -->
<!--#include file = admin/titleb.asp -->
document.write("<head><meta http-equiv='Content-Language' content='zh-cn'><meta http-equiv='Content-Type' content='text/html; charset=gb2312'></head>");
<%
'function lleft(Comments,lef)
'for le=1 to len(Comments)
'if asc(mid(Comments,le,1))<0 then
'lef=lef-2
'else
'lef=lef-1
'end if
'if lef<=0 then exit for
'next
'lleft=left(Comments,le)
'end function

path=config("path")
list=chkhtm(trim(request("list")))
font=chkhtm(trim(request("font")))
'color=chkhtm(trim(request("color")))
n=chkhtm(trim(request("n")))
'lb=chkhtm(trim(request("lb")))

if list="" then list=10
list=int(list)
if font="" then font="9"
'if color="" then color="000000"
'if lb="" then lb=0
if n="" then n="30"
n=int(n)
'lb=int(lb)

icon=trim(request("icon"))
if icon="" or icon="1" then 
icon="<font face=Wingdings>1</font>"
elseif icon<>"0" and icon<>"1" then 
icon="<img src="&icon&" border=0>"
else
  icon=""
end if
%>
   document.write("<table  width='100%' align='center' cellpadding='0' cellspacing='0' >");
<%
sql="select top "&list&" * from [gbook] where online='1' "
'if lb<>0 then sql=sql&" and lb="&lb&" "
sql=sql&" order by id desc"
set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1

if rs.recordcount<>0 then

while not rs.eof
   id=rs("id")
  'content=rs("Comments")
   title=titleb(rs("title"),n)
  'content=lleft(server.htmlencode(content),50) 
%>
    document.write("<tr <% if bbb=1 then Response.Write "style='background-color: #F2F2F2'"%>>");
	//document.write("<td height='18'><font style='font-size:<%=font%>pt'><%=icon%>&nbsp;<a href=<%=path%>lyview.asp?id=<%=id%> target=_blank style='font-size:<%=font%>pt'><%=title%></font></a></td>");
   	document.write("<td height='18'><font style='font-size:<%=font%>pt'><%=icon%>&nbsp;<a href=<%=path%>gly.asp#id_<%=id%> target=_blank ><%=title%></font></a></td>");

    document.write("</tr>");
<%
bbb=bbb+1
if bbb>=2 then bbb=0
rs.movenext
wend
else
%>
  document.write("<tr><td width='100%'  height='15'><font style='font-size:<%=font%>pt'>暂无留言!</font></td></tr>");

<%
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
document.write("</table>");

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -