📄 main.asp

📁 企业管理系统,黑色风格
💻 ASP
字号:
<!--#include file="i_login.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>提示</title>
<LINK href="images/style.css" type=text/css rel=stylesheet>
</head>

<body><center><fieldset style="padding: 2; width:310; height:120"> 
  <legend><font color="#FF0000"><strong>登录成功</strong></font></legend>
  <br>
  <table align="center" border="0" width=301 cellspacing="2" cellpadding="0" class="sft" height="154">
    <tr> 
      <td width="30%" height="30" bgcolor="#F7F7F7">&nbsp;*当前时间:<%=now()%></td>
    </tr>
    <tr> 
      <td width="30%" height="30" bgcolor="#F7F7F7">&nbsp;*您的IP:<%=Request.ServerVariables("REMOTE_ADDR")%></td>
    </tr>
    <tr> 
      <td width="30%" height="30" bgcolor="#F7F7F7">&nbsp;*服务器名称:<%=Request.ServerVariables("SERVER_SOFTWARE")%></td>
    </tr>
    <tr> 
      <td width="30%" height="30" bgcolor="#F7F7F7">&nbsp;现在您可以从左边列表中选择链接来管理网站了，有问题请联系QQ:8700294</td>
    </tr>
  </table>
  </fieldset>
</center><br>

<hr>
<br>
<table width="545" border="0" align="center" cellpadding="10" cellspacing="2" style="border:1px solid #92B0DD;">
  <tr>
    <td colspan="2" align="center" bgcolor="#E2EAF8" style="font-size:18px; font-weight:bold;">统计信息</td>
  </tr>
  <tr>
    <td width="208" align="left"><%
		  set rs=conn.execute("select count(id) from data_request where read=0")
		  if rs(0)>0 then
		  response.Write("◆ <a href=""request.asp"" style=""color:#ff0000;"">新的留言["&rs(0)&"]</a>&nbsp;")
		  else
		  response.Write("◆ 无新的留言")
		  end if
		  rs.close
		  %></td>
    <td width="207" align="left"><%
		  set rs=conn.execute("select count(id) from data_request ")
		  if rs(0)>0 then
		  response.Write("◆ <a href=""request.asp"" style=""color:#0000ff;"">留言["&rs(0)&"]</a>")
		  else
		  response.Write("◆ 留言[0]")
		  end if
		  rs.close
		  %></td>
  </tr>
  <tr>
    <td align="left"><%
		  set rs=conn.execute("select count(id) from data_product ")
		  if rs(0)>0 then
		  response.Write("◆ <a href=""product.asp"" style=""color:#0000ff;"">产品["&rs(0)&"]</a>&nbsp;:&nbsp;")
		  else
		  response.Write("◆ 无产品&nbsp;")
		  end if
		  rs.close
		  %>
		  <%
		  set rs=conn.execute("select count(id) from data_product where tuijian=1 ")
		  if rs(0)>0 then
		  response.Write("<a href=""product.asp?orderby=tuijian desc"" >推荐["&rs(0)&"]</a>&nbsp;&nbsp;")
		  end if
		  rs.close
		  %>
    <%
		  set rs=conn.execute("select count(id) from data_product where display=1 ")
		  if rs(0)>0 then
		  response.Write("<a href=""product.asp?orderby=display desc"" >显示["&rs(0)&"]</a>&nbsp;&nbsp;")
		  end if
		  rs.close
		  %></td>
    <td align="left"><%
		  set rs=conn.execute("select count(id) from data_info ")
		  if rs(0)>0 then
		  response.Write("◆ <a href=""info.asp"" style=""color:#0000ff;"">信息["&rs(0)&"]</a>&nbsp;")
		  else
		  response.Write("◆ 无信息")
		  end if
		  rs.close
		  %></td>
  </tr>
  <tr>
    <td align="left"><%
		  set rs=conn.execute("select count(id) from data_pic ")
		  if rs(0)>0 then
		  response.Write("◆ <a href=""pic.asp"" style=""color:#0000ff;"">链接["&rs(0)&"]</a>&nbsp;")
		  else
		  response.Write("◆ 无链接")
		  end if
		  rs.close
		  %></td>
    <td align="left"><%response.Write("◆ <a href=""config.data.asp"" style=""color:#0000ff;"">基本配置</a>&nbsp;")%></td>
  </tr>
</table>
</body>
</html>
<%
if isobject(conn) then conn.close:set conn=nothing
%>
⌨️ 快捷键说明

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