?? main.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 │
'│ │
'│ 程序定做，系統(tǒng)開發(fā)，網(wǎng)站制作，提供高質(zhì)量的網(wǎng)絡(luò)產(chǎn)品、技術(shù)和服務(wù)！│
'│ │
'│【版權(quán)聲明】 │
'│ │
'│ 本程序版權(quán)歸坐看風云所有，未經(jīng)授權(quán)擅自修改、復(fù)制或散布本程序│
'│ │
'│的部分或全部，將承受嚴厲的民事和刑事處罰，對已知的違反者將給予法 │
'│ │
'│律范圍內(nèi)的全面制裁。對非法使用此程序所造成的一切后果本人概不負責!│
'│ │
'└─────────────────── http://www.fyasp.com ──┘
%>
<%if IsTimeOut(Session("strAccount"),Session("strPassWord")) then Response.Redirect "index.asp"%>
<html>
<head>
<title><% = strSiteName%> - 網(wǎng)站后臺管理系統(tǒng)</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>數(shù)據(jù)庫大小</b>
當前數(shù)據(jù)庫大小：<b><font color="#FF0000"><%=GetFileSize(yslj)/1024&" KB"%></font>
</b><a href="Database.asp?Action=Compact">壓縮數(shù)據(jù)庫</a></td>
</tr>
<tr>
<td width="100%" style="line-height:150%"><li><b>會員管理</b> 對網(wǎng)站注冊會員進行管理。可查看會員注冊資料、鎖定、開啟、刪除會員
、修改會員點數(shù)等操作。當前網(wǎng)站共有注冊會員：<font color="#FF0000"><b><% = intAllMemberCot%></b></font>名</li></td>
</tr>
<tr>
<td width="100%" style="line-height:150%"><li><b>新聞管理</b> 對網(wǎng)站的公告，行業(yè)新聞進行發(fā)布、編輯和刪除等管理操作。普通用戶具有添加和編輯權(quán)限，管理員具有添加、審批、編輯和刪除權(quán)限。只有通過管理員審批的新聞才可以在網(wǎng)站發(fā)布。當前系統(tǒng)中共有新聞數(shù)：<font color="#FF0000"><b><% = intAllNewsCot%></b></font>條（其中已發(fā)布：<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> 對網(wǎng)站網(wǎng)友發(fā)布的供求信息進行審批發(fā)布
、刪除等管理操作。普通用戶具有查看權(quán)限，管理員具有審批和刪除權(quán)限。只有通過管理員審批的供求信息才可以在網(wǎng)站發(fā)布。當前系統(tǒng)中共有信息數(shù)：<font color="#FF0000"><b><%=intAllInfoCot%></b></font>個（其中已發(fā)布：<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> 對網(wǎng)站訪客所反饋的信息進行管理，普通用戶具有查看反饋信息權(quán)限，管理員具有查看和刪除反饋信息權(quán)限。當前系統(tǒng)中共有反饋信息：<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> 對網(wǎng)站的合作伙伴和友情鏈接進行管理。普通用戶具有添加和編輯權(quán)限，管理員具有添加、審批、編輯和刪除權(quán)限。只有通過管理員審批的鏈接才可以在網(wǎng)站發(fā)布。</li></td>
</tr>
<%if Session("intUserLevel") > 2 then%>
<tr>
<td width="100%" style="line-height:150%"><li><b>目錄維護</b>
對網(wǎng)站信息分類目錄進行管理操作。<font color="#FF0000"><b>注</b>：在產(chǎn)品目錄的管理上盡可有的保持“寧改勿刪”的原則，因為刪除目錄，則同時會將該目錄下的子目錄及所有產(chǎn)品信息全部刪除。</font></li></td>
</tr>
<tr>
<td width="100%" style="line-height:150%"><li><b>公司簡介</b> 對公司簡介進行修改更新，包括標志性圖片，只對系統(tǒng)管理員開放。</font></li></td>
</tr>
<tr>
<td width="100%" style="line-height:150%"><li><b>聯(lián)系方式</b> 對網(wǎng)站的聯(lián)系方式進行修改更新，包括公司名稱、電話、傳真等，只對系統(tǒng)管理員開放。</li></td>
</tr>
<tr>
<td width="100%" style="line-height:150%"><li><b>用戶管理</b> 對本系統(tǒng)的系統(tǒng)用戶進行添加、編輯和刪除，只對系統(tǒng)管理員開放。</li></td>
</tr>
<tr>
<td width="100%" style="line-height:150%"><li><b>參數(shù)設(shè)置</b> 對網(wǎng)站名稱、網(wǎng)址、路徑等一些參數(shù)進行設(shè)置更新，只對系統(tǒng)管理員開放。</li></td>
</tr>
<%end if%>
<tr>
<td width="100%" style="line-height:150%"><li><font color="#FF0000">為了本系統(tǒng)的管理安全性，還請用戶在對本系統(tǒng)完成當前管理操作后，點擊退出管理退出系統(tǒng)，尤其是在網(wǎng)吧或公眾的地方上網(wǎng)的用戶。</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>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -