admin_data.asp

网页酷吧全站系统在此之前提供了一个新闻系统V1.0,反应十分热烈,并有不少网友提供了不少意见例如在线编辑器等问题,并强烈要求本部提供全部程序,顺应广大网友的强烈要求,并希望本人的QQ能够闲下来(因为实

if method="" then  					
%>
<form method="post" action="admin_data.asp?action=restoredata&method=Restore">
<tr bgcolor=eeeeee><td height=100 >
&nbsp;&nbsp;数据库路径(相对)：<input type=text size=30 name=DBpath value="eoknews_back.mdb">&nbsp;&nbsp;<input type=submit value="确定"> | 请注意:本功能需要FSO支持<br>
-----------------------------------------------------------------------------------------<br>
&nbsp;&nbsp;在上面填写本程序的数据库路径全名，本程序的备份数据库文件为eoknews_Backup.MDB<br>
&nbsp;&nbsp;您可以用这个功能来恢复您的程序数据，以保证您的数据安全！<br>
&nbsp;&nbsp;注意：所有路径都是相对与程序空间根目录的相对路径。
</td></tr></form>
<%
elseif method="Restore" then
Dbpath=request.form("Dbpath")
if dbpath="" then
response.write "<tr><td bgcolor=#efefef height=25><li>请输入您要恢复成的数据库全名</td></tr>"	
else
Dbpath=server.mappath(Dbpath)
end if  				
Backpath=left(dbpath,instrrev(dbpath,"\",(instrrev(dbpath,"\")-1)))&"admin\eoknews_back.mdb"
'Response.write Backpath
Set Fso=server.createobject("scripting.filesystemobject")
if fso.fileexists(Backpath) then  					
fso.copyfile Backpath,Dbpath
response.write "<tr><td bgcolor=#efefef height=25><li>成功恢复数据！</td></tr>"
else
response.write "<tr><td bgcolor=#efefef height=25><li>备份目录下并无您的备份文件！</td></tr>"	
end if	
end if
else%>  							
<tr><td height=30 ><li>本项功能已经被管理员关闭</td></tr>
<%end if%>
</table>	
<%end sub%>



<%sub dosql()%>
<br>
<table width=95% cellspacing=1 cellpadding=5  align=center>
<tr ><td><p><b>SOL语句执行操作</b></p>
<p>注意：本操作仅限高级、对SQL编程比较熟悉的用户，您可以直接输入sql执行语句。

在操作前请慎重考虑您的执行语句是否正确和完整，执行后不可恢复。</p></td></tr>
<tr ><td>	
<%
if request("method") = "go" then
SQL_Statement=Request("SQL_Statement")
if SQL_Statement<>Empty then
On Error Resume Next 
conn.Execute(SQL_Statement)
if err.number="0" then
response.write "<br><center><font color=red>SQL命令执行成功！</font>"
'response.redirect"admin_data.asp?action=dosql"
else
response.write "<br><center>语句有问题，具体出错如下：<br><br><font color=red>"
response.write Err.Description
response.write "</font>"
err.clear
end if
end if
else
%>
<table cellspacing="3" cellpadding="0">
<tr><td width="100%" >
<Form Name=FormPst Method=Post Action="admin_data.asp?action=dosql&method=go">
<FieldSet><Legend>请输入SQL语句</Legend>
<br>指令：<Input type="text" name="SQL_Statement" Size=80><br> 
<p align=center><Input type="Submit" Value="送出">  <Input type="reset" Value="清除"><br><br></p>
</FieldSet>
</Form></td></tr></table>
<%end if%>
<%end sub%>


<%sub updateuser()%>
<table width="95%" cellspacing="1" cellpadding="5" bgcolor=#999999 align=center>
 <tr bgcolor=#cccccc><td><center><b><font color=red>数据更新成功</font></b></td></tr>
        <%
	set rs=server.createobject("adodb.recordset")
	sql="select userid,username from [users] order by userid desc"
	rs.open sql,conn,1,1
	do while not rs.eof
	set rs1=server.createobject("adodb.recordset")
	sql1="select * from [article] where username='"&rs("username")&"'"
	rs1.open sql1,conn,1,1
	userTopic=RS1.RecordCount
	conn.execute("update [users] set articleNum="&userTopic&" where username='"&rs("username")&"'")
	rs1.close
	rs.movenext
	loop
	rs.close
	set rs=nothing
	
	set rs=server.createobject("adodb.recordset")
	sql="select * from [users] order by userid desc"
	rs.open sql,conn,1,1
	usercount=RS.RecordCount
	do while not rs.eof %>
	<tr bgcolor=#eeeeee><td>用户 <font color=blue><%=rs("username")%></font>&nbsp;发表&nbsp;<font color=red><%=rs("articleNum")%></font> 篇文章</td></tr>
	
	<%rs.movenext
	loop
	rs.close
	set rs=nothing
	%>
	</table>
	<%end sub%>
	
	
	
<%sub updateclass()%>
<table width="95%" cellspacing="1" cellpadding="5" bgcolor=#999999 align=center>
 <tr bgcolor=#cccccc><td><center><b><font color=red>数据更新成功</font></b></td></tr>
        <%
	set rs=server.createobject("adodb.recordset")
	sql="select classid,classname from [class] order by classid desc"
	rs.open sql,conn,1,1
	do while not rs.eof
	set rs1=server.createobject("adodb.recordset")
	sql1="select * from [article] where classid="&rs("classid")&""
	rs1.open sql1,conn,1,1
	classTopic=RS1.RecordCount
	conn.execute("update [class] set classNum="&classTopic&" where classid="&rs("classid")&"")
	rs1.close
	rs.movenext
	loop
	rs.close
	set rs=nothing
	
	set rs=server.createobject("adodb.recordset")
	sql="select * from [class] order by classid desc"
	rs.open sql,conn,1,1
	usercount=RS.RecordCount
	do while not rs.eof %>
	<tr bgcolor=#eeeeee><td>总类 <font color=blue><%=rs("classname")%></font>&nbsp;共有&nbsp;<font color=red><%=rs("classNum")%></font> 篇文章</td></tr>
	
	<%rs.movenext
	loop
	rs.close
	set rs=nothing
	%>
	</table><%
	end sub%>


<%sub updateboard()%>
<table width="95%" cellspacing="1" cellpadding="5" bgcolor=#999999 align=center>
 <tr bgcolor=#cccccc><td><center><b><font color=red>数据更新成功</font></b></td></tr>
        <%
        oneDay=" DATEDIFF('d',addtime,Now()) < 1 and "
	set rs=server.createobject("adodb.recordset")
	sql="select boardid,boardname from [board] order by boardid desc"
	rs.open sql,conn,1,1
	do while not rs.eof
	set rs1=server.createobject("adodb.recordset")
	sql1="select * from [article] where boardid="&rs("boardid")&""
	rs1.open sql1,conn,1,1
	boardTopic=RS1.RecordCount
	conn.execute("update [board] set boardNum="&boardTopic&" where boardid="&rs("boardid")&"")
	rs1.close
	set rs2=server.createobject("adodb.recordset")
	sql2="select * from [article] where "& oneday & "boardid="&rs("boardid")&""
	rs2.open sql2,conn,1,1
	todayTopic=RS2.RecordCount
	conn.execute("update [board] set todayNum="&todayTopic&" where boardid="&rs("boardid")&"")
	rs2.close
	rs.movenext
	loop
	rs.close
	set rs=nothing
	
	set rs=server.createobject("adodb.recordset")
	sql="select * from [board] order by boardid desc"
	rs.open sql,conn,1,1
	usercount=RS.RecordCount
	do while not rs.eof %>
	<tr bgcolor=#eeeeee><td>版面 <font color=blue><%=rs("boardname")%></font>&nbsp;共有&nbsp;<font color=red><%=rs("boardNum")%></font> 篇文章&nbsp; 今日&nbsp;<font color=red><%=rs("todayNum")%></font> 篇文章</td></tr>
	
	<%rs.movenext
	loop
	rs.close
	set rs=nothing
	%>
	</table><%
	end sub%>
	
	
	
<%sub updatetopic()%>
<table width="95%" cellspacing="1" cellpadding="5" bgcolor=#999999 align=center>
 <tr bgcolor=#cccccc><td><center><b><font color=red>数据更新成功</font></b></td></tr>
        <%
	set rs=server.createobject("adodb.recordset")
	sql="select topicid,topicname from [topic] order by topicid desc"
	rs.open sql,conn,1,1
	do while not rs.eof
	set rs1=server.createobject("adodb.recordset")
	sql1="select * from [article] where topicid="&rs("topicid")&""
	rs1.open sql1,conn,1,1
	Topicnum=RS1.RecordCount
	conn.execute("update [topic] set topicNum="&TopicNum&" where topicid="&rs("topicid")&"")
	rs1.close
	rs.movenext
	loop
	rs.close
	set rs=nothing
	
	set rs=server.createobject("adodb.recordset")
	sql="select * from [topic] order by topicid desc"
	rs.open sql,conn,1,1
	usercount=RS.RecordCount
	do while not rs.eof %>
	<tr bgcolor=#eeeeee><td>总类 <font color=blue><%=rs("topicname")%></font>&nbsp;共有&nbsp;<font color=red><%=rs("topicNum")%></font> 篇文章</td></tr>
	
	<%rs.movenext
	loop
	rs.close
	set rs=nothing
	%>
	</table><%
	end sub%>
    <table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr> 
        <td>&nbsp;</td>
      </tr>
    </table>