⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 main.asp

📁 个人网站系统,本人基于第三方源码进行更改!
💻 ASP
字号:
🔍 
<!--#Include file="../Common/Inc_DatConn.asp"-->
<!--#Include file="Common/Inc_Config.asp"-->
<!--#Include file="Common/Inc_Function.asp"-->
<%
'┌─  风云ASP在线  ────────────────────────┐
'│                                                                 │
'│  作者：赵振波.	http://www.fyasp.com	    				    │
'│                                                                 │
'│   Q Q：176189168  										   	    │
'│                                                                 │
'│ Email：fy96@163.com                                             │
'│                                                                 │
'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│
'│                                                                 │
'│【版权声明】                                                     │
'│                                                                 │
'│     本程序版权归坐看风云所有，未经授权擅自修改、复制或散布本程序│
'│                                                                 │
'│的部分或全部，将承受严厉的民事和刑事处罚，对已知的违反者将给予法 │
'│                                                                 │
'│律范围内的全面制裁。对非法使用此程序所造成的一切后果本人概不负责!│
'│                                                                 │
'└───────────────────  http://www.fyasp.com ──┘
%>
<%if IsTimeOut(Session("strAccount"),Session("strPassWord")) then Response.Redirect "index.asp"%>
<html>
<head>
<title><% = strSiteName%> - 网站后台管理系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="Common/Site.css" type="text/css">
</head>
<body leftMargin="0" topMargin="2">
<!--#Include file="Common/inc_Top.asp"-->
<table width="750" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td width="105" valign="top" style="border-left: 1px solid rgb(0,0,0); border-right: 1px solid rgb(0,0,0)" class="bottom"><br>
	<!--#Include file="Common/Inc_Button.asp"-->
    </td>
    <td valign="top" style="border-right: 1px solid rgb(0,0,0)" align="center"><br>
<%
Dim rdsMember
Dim intAllMemberCot

Dim rdsNews
Dim intAllNewsCot,intAllEaaNewsCot,intAllPubNewsCot

Dim rdsInfo
Dim intAllInfoCot,intAllEaaInfoCot,intAllPubInfoCot

Dim rdsFeedBack
Dim intAllFeedBackCot,intAllNewFeedBackCot

set rdsMember = Server.CreateObject("ADODB.Recordset")
rdsMember.Open "Select Count(*) As AllMemberCot From Dat_Member",Conn
if not rdsMember.EOF then
	intAllMemberCot = rdsMember("AllMemberCot")
else
	intAllMemberCot = 0
end if
rdsMember.Close

set rdsNews = Server.CreateObject("ADODB.Recordset")
rdsNews.Open "Select Count(*) As AllNewsCot From Dat_News",Conn
if not rdsNews.EOF then
	intAllNewsCot = rdsNews("AllNewsCot")
else
	intAllNewsCot = 0
end if
rdsNews.Close

rdsNews.Open "Select Count(*) As AllEaaNewsCot From Dat_News Where State = 0",Conn
if not rdsNews.EOF then
	intAllEaaNewsCot = rdsNews("AllEaaNewsCot")
else
	intAllEaaNewsCot = 0
end if
rdsNews.Close

rdsNews.Open "Select Count(*) As AllPubNewsCot From Dat_News Where State = 1",Conn
if not rdsNews.EOF then
	intAllPubNewsCot = rdsNews("AllPubNewsCot")
else
	intAllPubNewsCot = 0
end if
rdsNews.Close
set rdsNews = nothing

set rdsInfo = Server.CreateObject("ADODB.Recordset")
rdsInfo.Open "Select Count(*) As AllInfoCot From Dat_Information",Conn
if not rdsInfo.EOF then
	intAllInfoCot = rdsInfo("AllInfoCot")
else
	intAllInfoCot = 0
end if
rdsInfo.Close

rdsInfo.Open "Select Count(*) As AllEaaInfoCot From Dat_Information Where State = 0",Conn
if not rdsInfo.EOF then
	intAllEaaInfoCot = rdsInfo("AllEaaInfoCot")
else
	intAllEaaInfoCot = 0
end if
rdsInfo.Close

rdsInfo.Open "Select Count(*) As AllPubInfoCot From Dat_Information Where State = 1",Conn
if not rdsInfo.EOF then
	intAllPubInfoCot = rdsInfo("AllPubInfoCot")
else
	intAllPubInfoCot = 0
end if
rdsInfo.Close
set rdsInfo = nothing

set rdsFeedBack = Server.CreateObject("ADODB.Recordset")
rdsFeedBack.Open "Select Count(*) As AllFeedBackCot From Dat_FeedBack",Conn
if not rdsFeedBack.EOF then
	intAllFeedBackCot = rdsFeedBack("AllFeedBackCot")
else
	intAllFeedBackCot = 0
end if
rdsFeedBack.Close

rdsFeedBack.Open "Select Count(*) As AllNewFeedBackCot From Dat_FeedBack Where State = 0",Conn
if not rdsFeedBack.EOF then
	intAllNewFeedBackCot = rdsFeedBack("AllNewFeedBackCot")
else
	intAllNewFeedBackCot = 0
end if
rdsFeedBack.Close
set rdsFeedBack = nothing
Function GetFileSize(file)
   Dim fso,fs,GetFile
   On Error Resume Next
   Set Fso = Server.createobject("scripting.filesystemobject")
   Set GetFile=fso.getfile(server.mappath(file))
   GetFileSize=GetFile.size
   Set getfile=nothing
   Set fso=nothing
End Function
%>
           <TABLE border=0 cellPadding=0 cellSpacing=0 width="88%">
              <TR>
                <TD class="bottom" height=22 style="BORDER-BOTTOM: rgb(0,0,0) 1px solid" width="100%">
                  <TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
                    <TR>
                      <TD width="100%" height="30" align="center">用户管理须知</TD>
                    </TR>
                  </TABLE>
                </TD>
              </TR>
              <TR>
                <TD width="100%" valign="top">
				<table border="0" width="92%" cellpadding="2" align="center">
				  <tr>
				    <td width="100%" height="5"></td>
				  </tr>
				  <tr>
				    <td width="100%" style="line-height:150%"><li><b>数据库大小</b> 
					当前数据库大小：<b><font color="#FF0000"><%=GetFileSize(yslj)/1024&" KB"%></font>&nbsp;&nbsp;
					</b><a href="Database.asp?Action=Compact">压缩数据库</a></td>
				  </tr>
				  <tr>
				    <td width="100%" style="line-height:150%"><li><b>会员管理</b>  对网站注册会员进行管理。可查看会员注册资料、锁定、开启、删除会员
					、修改会员点数等操作。当前网站共有注册会员：<font color="#FF0000"><b><% = intAllMemberCot%></b></font>名</li></td>
				  </tr>
				  <tr>
				    <td width="100%" style="line-height:150%"><li><b>新闻管理</b>  对网站的公告，行业新闻进行发布、编辑和删除等管理操作。普通用户具有添加和编辑权限，管理员具有添加、审批、编辑和删除权限。只有通过管理员审批的新闻才可以在网站发布。当前系统中共有新闻数：<font color="#FF0000"><b><% = intAllNewsCot%></b></font>条（其中已发布：<font color="#FF0000"><b><% = intAllPubNewsCot%></b></font>条，未审批的：<font color="#FF0000"><b><% = intAllEaaNewsCot%></b></font>条）</li></td>
				  </tr>
				  <tr>
				    <td width="100%" style="line-height:150%"><li><b>信息管理</b>  对网站网友发布的供求信息进行审批发布
					、删除等管理操作。普通用户具有查看权限，管理员具有审批和删除权限。只有通过管理员审批的供求信息才可以在网站发布。当前系统中共有信息数：<font color="#FF0000"><b><%=intAllInfoCot%></b></font>个（其中已发布：<font color="#FF0000"><b><%=intAllPubInfoCot%></b></font>个，未审批的：<font color="#FF0000"><b><%=intAllEaaInfoCot%></b></font>个）</li></td>
				  </tr>
				  <tr>
				    <td width="100%" style="line-height:150%"><li><b>反馈管理</b>  对网站访客所反馈的信息进行管理，普通用户具有查看反馈信息权限，管理员具有查看和删除反馈信息权限。当前系统中共有反馈信息：<font color="#FF0000"><b><%=intAllFeedBackCot%></b></font>条（其中新反馈信息：<font color="#FF0000"><b><%=intAllNewFeedBackCot%></b></font>条）</li></td>
				  </tr>
				  <tr>
				    <td width="100%" style="line-height:150%"><li><b>链接管理</b>  对网站的合作伙伴和友情链接进行管理。普通用户具有添加和编辑权限，管理员具有添加、审批、编辑和删除权限。只有通过管理员审批的链接才可以在网站发布。</li></td>
				  </tr>
				  <%if Session("intUserLevel") > 2 then%>
				  <tr>
				    <td width="100%" style="line-height:150%"><li><b>目录维护</b>  
					对网站信息分类目录进行管理操作。<font color="#FF0000"><b>注</b>：在产品目录的管理上尽可有的保持“宁改勿删”的原则，因为删除目录，则同时会将该目录下的子目录及所有产品信息全部删除。</font></li></td>
				  </tr>
				  <tr>
				    <td width="100%" style="line-height:150%"><li><b>公司简介</b>  对公司简介进行修改更新，包括标志性图片，只对系统管理员开放。</font></li></td>
				  </tr>
				  <tr>
				    <td width="100%" style="line-height:150%"><li><b>联系方式</b>  对网站的联系方式进行修改更新，包括公司名称、电话、传真等，只对系统管理员开放。</li></td>
				  </tr>
				  <tr>
				    <td width="100%" style="line-height:150%"><li><b>用户管理</b>  对本系统的系统用户进行添加、编辑和删除，只对系统管理员开放。</li></td>
				  </tr>
				  <tr>
				    <td width="100%" style="line-height:150%"><li><b>参数设置</b>  对网站名称、网址、路径等一些参数进行设置更新，只对系统管理员开放。</li></td>
				  </tr>
				  <%end if%>
				  <tr>
				    <td width="100%" style="line-height:150%"><li><font color="#FF0000">为了本系统的管理安全性，还请用户在对本系统完成当前管理操作后，点击退出管理退出系统，尤其是在网吧或公众的地方上网的用户。</font></li></td>
				  </tr>
				  <tr>
				    <td width="100%" height="5"></td>
				  </tr>
				</table>
                </TD>
              </TR>
              <TR>
                <TD height=1 width="100%"></TD>
              </TR>
            </TABLE>
    </td>
  </tr>
<!--#Include file="Common/Inc_Bottom.asp"-->
</body>
</html>

⌨️ 快捷键说明

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