📄 index.asp

📁 企业管理系统,黑色风格
💻 ASP
字号:
<!--#include file="conn.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>
<!-- Published By skit8.cn -->
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title><%=websitename%></title>
<%
if keywords<>"" then
response.write("<meta name=""keywords"" content="""&keywords&""" />" & vbcrlf)
end if
if Description<>"" then
response.write("<meta name=""Description"" content="""&Description&""" />" & 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="home">
<div id="page">
<!--#include file="top.asp"--> 
<div id="body">
     <div id="left">
       <!--#include file="left.asp"-->
     </div>
<div id="right">
          <div id="notice">
           <div class="title"><span></span></div>
           <div class="content">
          <%
		   set rs=server.CreateObject("adodb.recordset")
           rs.open "select data_info.content from data_info,data_Categorys where data_Categorys.id=data_info.classid and data_info.title<>''  and data_Categorys.name='网站公告' order by data_info.updatetime desc,data_info.id desc",conn,1,2
           if not rs.eof  then
		      response.Write rs(0)
		   end if
		   rs.close
		   set rs=nothing
		  %></div>
          </div>
          <div id="producttuijian">
             <div class="title">
                <span class="more"><a href="products.asp">more &gt;&gt;</a></span>
                <span class="t"><span>推荐作品</span></span>
             </div>
            <div class="content">
              <ul>
                <%
   set rs=server.CreateObject("adodb.recordset")
   rs.open "select top 15 * from data_Product where item<>''  and display=1  order by tuijian desc, updatetime desc,id desc",conn,1,1
   i=0
   while not rs.eof
   if i mod  5=0 then
   response.write("<li class=""first"">" & vbcrlf)
   else
   response.write("<li>" & vbcrlf) 
   end if
   response.write("<div class=""box"" >" & vbcrlf)
   response.write("<a href=""product.asp?id="&rs("id")&""" target=""_blank""><img src="""&rs("img_s")&""" alt="""&rs("item")&""" border=""0"" align=""absmiddle"" width="""&c_product_width_s&""" height="""&c_product_height_s&""" onload=""ResizeImage(this, "&c_product_width_s&", "&c_product_height_s&");""></a></div>" & vbcrlf)
   response.write("      <div class=""txt""><a href=""product.asp?id="&rs("id")&""" target=""_blank"">"&strleft(rs("item"),16,"..")&"</a></div>" & vbcrlf)
   response.write(" </li>" & vbcrlf)
i=i+1
	rs.movenext
	wend
	rs.close
	set rs=nothing
	%>
              </ul>
              <div class="clear"></div>
             </div>
      </div>
          <div id="infotuijian">
             <div class="title"><span>纹身相关</span></div>
            <div class="content">
             <ul>
             <%
set rs=conn.execute("select top 1 id,name from data_Categorys where name='纹身相关' ")
   if not rs.eof then
     pid=rs("id")
   end if 
rs.close
set rs=nothing
			set rs=server.CreateObject("adodb.recordset")
  rs.open "select top 2 * from data_info where title<>'' and classid in("&get_sids_c(pid)&") order by updatetime desc,id desc",conn,1,2
  while not rs.eof 
          response.Write("<li>")
		  response.write("<span class=""t""><a href=""show.asp?id="&rs("id")&""" target=""_blank"">"&strleft(rs("title"),30,"..")&"</a></span>")
		  content=rs("content")
		  content=cutStr(content,100)
		  response.Write "<span class=""n"">"&content&"</span>"
		  response.Write("</li>")
		  rs.movenext
		  wend 
		  rs.close
		  set rs=nothing
		%>
                  </ul>
             </div>
          </div>
     </div>
     <div class="clear"></div>
  </div>
  
     
     <%
	 set rs=conn.execute("select name,img_s,url from data_pic where name<>'' order by  orderby,id")
	 if not rs.eof then
	 response.Write("<div id=""link"">")
	 response.Write("<ul>")
     while not rs.eof 
	 if rs("img_s")<>"" then
	 response.write("<li><a href="""&rs("url")&""" target=""_blank""><img src="""&rs("img_s")&""" alt="""&rs("name")&""" border=""0"" align=""absmiddle"" width="""&c_pic_width_s&""" height="""&c_pic_height_s&""" onload=""ResizeImage(this, "&c_pic_width_s&", "&c_pic_height_s&");""></a></li>" & vbcrlf)
	 else
	 response.write("<li><a href="""&rs("url")&""" target=""_blank"">"&rs("name")&"</a></li>" & vbcrlf)
	 end if
	 rs.movenext
	 wend 
	 response.Write("</ul>")
	 response.Write("<div class=""clear""></div></div>")
	 end if
	 rs.close
	 set rs=nothing
	 %>
     <!--#include file="bottom.asp"-->
</div>
</body>
</html>
⌨️ 快捷键说明

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