📄 reload.asp
字号:
<!--#Include File="../conn.asp" -->
<!--#Include File="comm/inc.asp" -->
<%
'====================================================================
'= Team Elite - Elite Article System
'= Copyright (c) 2005 Eason Chan All Rights Reserved.
'=-------------------------------------------------------------------
'= 文件名称：/Manager/ReLoad.asp
'= 摘 要：后台-数据更新文件
'=-------------------------------------------------------------------
'= 最后更新：eason007
'= 最后日期：2005-07-24
'====================================================================
Call EA_Manager.Chk_IsMaster
Call EA_Manager.Admin_Nav
If Not EA_Manager.Chk_Power(Admin_Power,"07") Then
ErrMsg=str_Comm_NotAccess
Call EA_Manager.Error(1)
End If
Dim Atcion
Atcion=Request.QueryString ("atcion")
Select Case LCase(Atcion)
Case "updata"
Call UpData
Case "markjs"
Call MarkJs
Case Else
Call Main
End Select
Call EA_Pub.Close_Obj
Set EA_Pub=Nothing
Sub Main
%>
<table width="100%" cellpadding="0" cellspacing="0" align="center" class=TableBorder>
<tr height="22" valign="middle">
<td width="50%" class=forumRow align="left"> <B><a href="javascript:switch_helpcontent()" title="<%=str_Comm_HelpAlt%>"><%=str_OperationNotice%></a></B></td>
<td width="50%" class=forumRow align="right">·<a href=# onclick=history.go(-1)><b><%=str_Comm_Back%></b></a> <a href=# onclick=history.go(1)><b><%=str_Comm_Next%></b></a>· </td>
</tr>
<tr style="display:none" id="info_content">
<td colspan="2" bgcolor="ffffff" height="25">
<table width="99%" align=center>
<tr>
<td><%=str_ReLoad_Help%></td>
</tr>
</table>
</td>
</tr>
</table>
<br>
<table width="95%" cellpadding="1" cellspacing="1" align="center" style="border: 1 solid #808080">
<form action="?atcion=updata" method=post id=form3 name=form3>
<tr height=22 bgcolor="ffffff">
<td> 更新系统数据 <input type="submit" name="Submit" value=" <%=str_Comm_Submit_Button%> "></td>
</tr>
</form>
</table>
<%
End Sub
Sub UpData()
Call EA_Pub.Chk_Post
Dim ArticleTotal,MangerArticleTotal,MemberTotal,ColumnTotal,ReviewTotal
Dim i,TempTotal_A,TempTotal_B,TempArray
SQL="Select Count([Id]) From [NB_Content] Where IsPass="&EA_M_DBO.TrueValue&" And IsDel=0"
ArticleTotal=Conn.Execute(SQL)(0)
SQL="Select Count([Id]) From [NB_Content] Where IsPass=0 And IsDel=0"
MangerArticleTotal=Conn.Execute(SQL)(0)
SQL="Select Count([Id]) From [NB_Review] Where IsPass="&EA_M_DBO.TrueValue
ReviewTotal=Conn.Execute(SQL)(0)
SQL="Select Count([Id]) From [NB_Column]"
ColumnTotal=Conn.Execute(SQL)(0)
SQL="Select Count([Id]) From [NB_User]"
MemberTotal=Conn.Execute(SQL)(0)
SQL="UpDate [NB_System] Set "
SQL=SQL&" RegUser="&MemberTotal
SQL=SQL&",TopicNum="&ArticleTotal
SQL=SQL&",ColumnNum="&ColumnTotal
SQL=SQL&",MangerTopicNum="&MangerArticleTotal
SQL=SQL&",ReviewNum="&ReviewTotal
Conn.Execute(SQL)
Call EA_Ini.WriteNode("System","Column_Total",ColumnTotal)
Call EA_Ini.WriteNode("System","Topic_Total",ArticleTotal)
Call EA_Ini.WriteNode("System","M_Topic_Total",MangerArticleTotal)
Call EA_Ini.WriteNode("System","User_Total",MemberTotal)
Call EA_Ini.WriteNode("System","Review_Total",ReviewTotal)
EA_Ini.Save
TempArray=EA_DBO.Get_Column_List()
If IsArray(TempArray) Then
For i=0 To UBound(TempArray,2)
SQL="Select Count([Id]) From [NB_Content] Where ColumnId="&TempArray(0,i)&" And IsPass="&EA_M_DBO.TrueValue&" And IsDel=0"
TempTotal_A=Conn.Execute(SQL)(0)
SQL="Select Count([Id]) From [NB_Content] Where ColumnId="&TempArray(0,i)&" And IsPass=0 And IsDel=0"
TempTotal_B=Conn.Execute(SQL)(0)
SQL="UpDate [NB_Column] Set CountNum="&TempTotal_A&",MangerNum="&TempTotal_B&" Where [Id]="&TempArray(0,i)
Conn.Execute(SQL)
Next
End If
TempArray=EA_M_DBO.Get_Group_List()
If IsArray(TempArray) Then
For i=0 To UBound(TempArray,2)
SQL="Select Count([Id]) From [NB_User] Where User_Group="&TempArray(0,i)
TempTotal_A=Conn.Execute(SQL)(0)
SQL="UpDate [NB_UserGroup] Set UserTotal="&TempTotal_A&" Where [Id]="&TempArray(0,i)
Conn.Execute(SQL)
Next
End If
If iDataBaseType=0 Then
SQL="UpDate [NB_Content] a Left Join [NB_Column] b On a.ColumnId=b.[Id] Set a.ColumnName=b.Title,a.ColumnCode=b.Code"
Else
SQL="UpDate [NB_Content] Set ColumnName=b.Title,ColumnCode=b.Code From [NB_Content] a Join [NB_Column] b On a.ColumnId=b.[Id] "
End If
Conn.Execute(SQL)
Set Rs=Nothing
Response.Write "系统数据更新完成。"
End Sub
Sub MarkJs
Call EA_Pub.Chk_Post
If EA_Manager.IsObjInstalled("Scripting.FileSystemObject") Then
On Error Resume Next
Dim i,j,k,List,TopicList
Dim fso,f1,file
Dim OutStr
Set fso = CreateObject("Scripting.FileSystemObject")
file=Server.MapPath("../js/menu.js")
Set f1 = fso.CreateTextFile(file, True)
OutStr="mpmenu1=new mMenu('首页','"&SystemFolder&"','self','','','','');"
OutStr=OutStr&Chr(10)
OutStr=OutStr&"mpmenu1.addItem(new mMenuItem('<img src="&SystemFolder&"images/ye.gif> 图片文章','"&SystemFolder&"img_list.asp','self',false,'图片文章',null,'','','',''));"
OutStr=OutStr&Chr(10)
OutStr=OutStr&"mpmenu1.addItem(new mMenuItem('<img src="&SystemFolder&"images/ye.gif> 会员列表','"&SystemFolder&"member_list.asp','self',false,'会员列表',null,'','','',''));"
OutStr=OutStr&Chr(10)
OutStr=OutStr&"mpmenu1.addItem(new mMenuItem('<img src="&SystemFolder&"images/ye.gif> 高级搜索','"&SystemFolder&"search.asp','self',false,'高级搜索',null,'','','',''));"
'第一层菜单选择
Sql="select id,title,code from NB_Column where len(code)=4 and IsTop="&EA_M_DBO.TrueValue&" order by code"
Set rs=conn.execute(sql)
If Not rs.eof And Not rs.bof Then
TopicList=rs.getrows()
rs.close:Set rs=Nothing
j=1 '初始化二级菜单标识号
For i=0 To Ubound(TopicList,2)
'生成一级菜单项
OutStr=OutStr&"mpmenu"&i+2&"=new mMenu('"&TopicList(1,i)&"','"&EA_Pub.Cov_ColumnPath(TopicList(0,i),EA_Pub.SysInfo(18))&"','self','','','','');"
OutStr=OutStr&Chr(10)
'筛选当次一级菜单的下属菜单（二级）
Sql="select id,title,code from NB_Column where left(code,4)='"&TopicList(2,i)&"' and len(code)=8 and id<>"&TopicList(0,i)&" and IsTop="&EA_M_DBO.TrueValue&" order by code"
Set rs=conn.execute(sql)
If Not rs.eof And Not rs.bof Then
List=rs.getrows()
rs.close
For k=0 To Ubound(List,2)
'筛选当次二级菜单的下属菜单（三级）
Sql="select id,title from nb_column where left(code,8)='"&List(2,k)&"' and len(code)=12 and id<>"&List(0,k)&" and IsTop="&EA_M_DBO.TrueValue&" order by code"
Set rs=conn.execute(sql)
If rs.eof And rs.bof Then '判断是否有第三层
OutStr=OutStr&"mpmenu"&i+2&".addItem(new mMenuItem('<img src="&SystemFolder&"images/ye.gif> "&List(1,k)&"','"&EA_Pub.Cov_ColumnPath(List(0,k),EA_Pub.SysInfo(18))&"','self',false,'"&List(1,k)&"',null,'','','',''));"
OutStr=OutStr&Chr(10)
Else
OutStr=OutStr&"msub"&j&"=new mMenuItem('<img src="&SystemFolder&"images/ye.gif> "&List(1,k)&"','"&EA_Pub.Cov_ColumnPath(List(0,k),EA_Pub.SysInfo(18))&"','self',false,'','1','','','','');"
OutStr=OutStr&Chr(10)
Do While Not rs.eof '历遍第三层项目
OutStr=OutStr&"msub"&j&".addsubItem(new mMenuItem('<img src="&SystemFolder&"images/doc.gif> "&rs(1)&"','"&EA_Pub.Cov_ColumnPath(Rs(0),EA_Pub.SysInfo(18))&"','self',false,'"&rs(1)&"',null,'','','',''));"
OutStr=OutStr&Chr(10)
rs.movenext
Loop
OutStr=OutStr&"mpmenu"&i+2&".addItem(msub"&j&")" '关闭当次第三层
OutStr=OutStr&Chr(10)
j=j+1
End If
rs.close
Next
End If
rs.close
Next
End If
OutStr=OutStr&"mwritetodocument();"
Rs.Close
f1.Write OutStr
f1.close
file=Server.MapPath("../js/searchbar.js")
Set f1 = fso.CreateTextFile(file, True)
Dim Level
List=EA_DBO.Get_Column_List()
If IsArray(ColumnArray) Then
f1.Write "document.write ('<table border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">');"&chr(10)
f1.Write "document.write ('<form method=""post"" name=""SearchForm"" action="""&SystemFolder&"search.asp?action=query"" target=""_blank"">');"&chr(10)
f1.Write "document.write ('<tr>');"&chr(10)
f1.Write "document.write ('<td align=""center""><font color=""#000000"">站内文章搜索：</font></td>');"&chr(10)
f1.Write "document.write ('<td align=""center""> ');"&chr(10)
f1.Write "document.write ('<select name=""field"" class=""iptA"">');"&chr(10)
f1.Write "document.write ('<option value=""0"">标题</option>');"&chr(10)
f1.Write "document.write ('<option value=""1"">关键字</option>');"&chr(10)
f1.Write "document.write ('<option value=""2"">作者</option>');"&chr(10)
f1.Write "document.write ('<option value=""3"">摘要</option>');"&chr(10)
f1.Write "document.write ('</select> ');"&chr(10)
f1.Write "document.write ('<select name=""column"" class=""iptA"">');"&chr(10)
f1.Write "document.write ('<option value=""0"">--栏 目--</option>');"&chr(10)
For i=0 To Ubound(List,2)
Level=(Len(List(2,i))/4-1)
f1.Write "document.write ('<option value="""&List(0,i)&"|"&List(2,i)&""">');"&chr(10)
If Len(List(2,i))>4 Then f1.Write "document.write ('├');"&chr(10)
f1.Write "document.write ('"&String(Level,"-")&"');"&chr(10)
f1.Write "document.write ('"&List(1,i)&"</option>');"&chr(10)
Next
f1.Write "document.write ('</select> <input name=""keyword"" type=""text"" value=""关键字"" onfocus=""this.select();"" size=""20"" maxlength=""50""> <input name=""Submit"" type=""submit"" value=""搜索""></td>');"&chr(10)
f1.Write "document.write ('<td align=""center""> <a href="""&SystemFolder&"search.asp"">高级搜索</a></td>');"&chr(10)
f1.Write "document.write ('</tr>');"&chr(10)
f1.Write "document.write ('</form>');"&chr(10)
f1.Write "document.write ('</table>');"&chr(10)
End if
f1.close
file=Server.MapPath("../js/friend.js")
Set f1 = fso.CreateTextFile(file, True)
f1.Write "document.write ('<table border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" width=""90%"">');"&Chr(10)
f1.Write "document.write ('<tr>');"&Chr(10)
f1.Write "document.write ('<td align=""center""><marquee style=""word-break:break-all;FONT-SIZE: 9pt; LEFT: 2px; MARGIN-LEFT: 2px; WIDTH: 100%; TOP: 2px; HEIGHT: 100px; TEXT-ALIGN: center"" onMouseOver=this.stop() onMouseOut=this.start() scrollamount=1 scrolldelay=50 direction=up behavior=loop>');"&Chr(10)
SQL="Select Top 8 LinkURL,LinkImgPath,LinkName,LinkInfo From [NB_FriendLink] Where ColumnId=0 And State="&EA_M_DBO.TrueValue&" And Style=1 Order By OrderNum Desc"
Set Rs=Conn.Execute(SQL)
If Not rs.EOF And Not rs.BOF Then
List=rs.getrows()
For i=0 To UBound(List,2)
f1.Write "document.write ('<a href="""&List(0,i)&""" target=_blank title="""&List(3,i)&"""><img src="""&List(1,i)&""" border=0 align=""absmiddle"" width=""88"" height=""31"" src="""&List(3,i)&"""></a><br>');"&Chr(10)
Next
End If
f1.Write "document.write ('</marquee></td>');"&Chr(10)
f1.Write "document.write ('</tr>');"&Chr(10)
f1.Write "document.write ('<tr><td align=""center"" height=""5""></td></tr>');"&Chr(10)
f1.Write "document.write ('<tr><td align=""center"">');"&Chr(10)
f1.Write "document.write ('<select name=""textfriend"" onChange=""if(this.selectedIndex) window.open(this.options[this.selectedIndex].value);"" style=""width:150"">');"&Chr(10)
f1.Write "document.write ('<option value="""">--文字连接站点--</option>');"&Chr(10)
SQL="Select Top 10 LinkURL,LinkName From [NB_FriendLink] Where ColumnId=0 And State="&EA_M_DBO.TrueValue&" And Style=0 Order By OrderNum Desc"
Set Rs=Conn.Execute(SQL)
If Not rs.EOF And Not rs.BOF Then
List=rs.getrows()
For i=0 To UBound(List,2)
f1.Write "document.write ('<option value="""&List(0,i)&""">"&List(1,i)&"</option>');"&Chr(10)
Next
End If
f1.Write "document.write ('</select></td>');"&Chr(10)
f1.Write "document.write ('</tr>');"&Chr(10)
f1.Write "document.write ('<tr><td align=""center"" height=""5""></td></tr>');"&Chr(10)
f1.Write "document.write ('<tr><td align=""center"" height=""25""><a href=""#"" onclick=""javascript:window.open(\'"&SystemFolder&"app_link.asp\',\'\',\'height=320,width=550\')"">申请连接</a> <a href="""&SystemFolder&"morelink.asp"" target=""_blank"">更多连接</a></td>');"&Chr(10)
f1.Write "document.write ('</tr>');"&Chr(10)
f1.Write "document.write ('</table>');"&Chr(10)
f1.close
ErrMsg="JS文件生成成功！"
Call EA_Manager.Error(0)
Else
ErrMsg="对不起，服务器不支持FSO组件，JS未能生成！"
Call EA_Manager.Error(1)
End If
End Sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -