📄 certificates.asp
字号:
<!--#include file="conn.asp"-->
<%
dim rs,classid,pid
set rs=conn.execute("select top 1 id,name from data_Categorys where name='纹身器材' ")
if not rs.eof then
pid=rs("id")
pname=rs("name")
end if
rs.close
set rs=nothing
classid=trim(request("classid"))
if classid="" then
classid=pid
end if
set rs=conn.execute("select top 1 name,title,keywords,Description from data_Categorys where name<>'' and id="&classid&" ")
if not rs.eof then
name_p=rs("name")
title_p=rs("name")
if rs("title")<>"" then
title_p=rs("title")
end if
keywords_p=rs("keywords")
Description_p=rs("Description")
end if
rs.close
set rs=nothing
%>
<!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=utf-8" />
<title><%=title_p%>-<%=websitename%></title>
<%
if keywords_p<>"" then
response.write("<meta name=""keywords"" content="""&keywords_p&""" />" & vbcrlf)
end if
if Description_p<>"" then
response.write("<meta name=""Description"" content="""&Description_p&""" />" & vbcrlf)
end if
%><script src="inc/functions.js" type="text/javascript"></script>
<link href="images/style.css" rel="stylesheet" type="text/css" />
</head>
<body class="about">
<div id="page">
<!--#include file="top.asp"-->
<div id="body">
<div id="left">
<%
str=","&get_pids_c(classid)&","
set rs=conn.execute("select count(id) from data_Categorys where name<>'' and classid="&pid&" ")
if rs(0)>0 then
response.write("<div id=""Categoryslist"">" & vbcrlf)
response.write("<div class=""title""><span>"&pname&"</span></div>" & vbcrlf)
response.write("<div class=""content"" id=""TreeMenu2"">")
call site_Categorys_show(pid,str)
response.write("</div>" & vbcrlf)
response.write("<script type=""text/javascript"">" & vbcrlf)
response.write("<!--" & vbcrlf)
response.write("var MyTreeMenu2=new CNLTreeMenu(""TreeMenu2"",""li"");" & vbcrlf)
response.write("MyTreeMenu2.InitCss(""Opened"",""Closed"",""Child"",""images/s.gif"");" & vbcrlf)
response.write("-->" & vbcrlf)
response.write("</script>" & vbcrlf)
response.write("</div>")
end if
rs.close
set rs=nothing
'--------------------------------------显示目录
function site_Categorys_show(byval classid,byval str)
dim rs,i,rs2
set rs=server.CreateObject("adodb.recordset")
rs.open "select id,name,classid from data_Categorys where name<>'' and classid="&cint(classid)&" order by orderby,id",conn,1,1
if not rs.eof then
response.write("<ul>"&vbcrlf)
i=0
while not rs.eof
i=i+1
set rs2=conn.execute("select count(id) from data_Categorys where name<>'' and classid="&cint(rs("id"))&" ")
if rs2(0)>0 then
if instr(str,","&rs("id")&",")>0 then
response.Write("<li class=""Opened"">")
else
response.Write("<li>")
end if
response.Write("<h3><a href=""?classid="&rs("id")&""" >"&rs("name")&"</a></h3>")
site_Categorys_show rs("id"),str
response.write("</li>"&vbcrlf)
else
response.Write("<li class=""Child""><h3><a href=""?classid="&rs("id")&""" >"&rs("name")&"</a><h3></li>"&vbcrlf)
end if
rs.movenext
wend
response.write("</ul>"&vbcrlf)
end if
rs.close
set rs=nothing
end function
%>
<!--#include file="left.asp"-->
</div>
<div id="right">
<div id="list_content">
<div class="title"><span class="t"><span><h1><%=name_p%></h1></span></span></div>
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from data_info where title<>'' and classid="&classid&" order by updatetime desc,id desc",conn,1,2
if not rs.eof then
PageSize=20
rs.PageSize=PageSize
recordcount=rs.recordcount
pagecount=rs.pagecount
'获得当前页码
if request("page") = "" then
page = 1
else
page = cint(request("page"))
if page > pagecount then page=pagecount
end if
rs.AbsolutePage=page
if rs.recordcount=1 then
response.Write("<div class=""content"" >")
if rs("img")<>"" then
response.Write("<div align=""center"" style=""margin-bottom:10px;"">")
response.Write("<img src="""&rs("img")&""" width="""&c_info_width&""" height="""&c_info_height&""" align=""middle""")
response.Write(" onload=""ResizeImage(this, "&c_info_width&", "&c_info_height&");"" />")
response.Write("</div>")
end if
response.Write(rs("content"))
response.Write("</div>")
else
response.Write("<div class=""content"" >")
response.Write(" <ul>")
for i=1 to rs.PageSize
response.Write("<li onMouseOver=""this.className='a';"" onMouseOut=""this.className=''"">")
updatetime=rs("updatetime")
if updatetime<>"" then
response.Write("<span class=""time"">")
response.Write year(updatetime)&"-"&month(updatetime)&"-"&day(updatetime)
response.Write("</span>")
end if
title=rs("title")
response.Write("<h2><a href=""show.asp?id="&rs("id")&""" target=""_blank"">"&keyword_tag(title,keyword)&"</a></h2>")
response.Write("</li>"&vbcrlf)
rs.movenext
if rs.eof then exit for
next
response.Write("</ul>")
response.Write("<div class=""page"">共"&recordcount&"条信息 ")
call showpage_fun(pagecount,page,4)
response.Write("</div>")
response.Write("</div>")
end if
else
response.Write("<div class=""content"" >无信息</div>")
end if
rs.close
set rs=nothing
%>
</div>
</div>
<div class="clear"></div>
</div>
<!--#include file="bottom.asp"-->
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -