📄 admin_recount.aspx
字号:
<%@ Page Language="VB" ContentType="text/html"%>
<%@ Import Namespace="system.data" %>
<%@ Import Namespace="system.data.oledb" %>
<%@ Register TagPrefix="admin" TagName="menu" Src="../lib/adminmenu.ascx" %>
<%@ Register TagPrefix="admin" TagName="foot" Src="../lib/adminfoot.ascx" %>
<script runat="server">
dim conn as new oledbconnection("provider=microsoft.jet.oledb.4.0; data source="+server.MapPath("../data/admin.mdb"))
dim ds as new dataset("my")
'页面载入时的动作(page load action)
sub page_load(obj as object, e as eventargs)
if not page.Ispostback then
filldatagrid()
end if
end sub
'填充数据
sub filldatagrid(optional editindex as integer=-1)
dim objreader as oledbdatareader
dim objcmd as new oledbcommand("select * from allcount",conn)
try
conn.open()
objreader=objcmd.executereader
allcount.datasource=objreader
allcount.databind()
catch ex as exception
response.Write(ex.message)
finally
conn.close()
end try
end sub
sub update_count(obj as object, e as eventargs)
'日记数目
conn=new oledbconnection("provider=microsoft.jet.oledb.4.0; data source="+server.MapPath("../data/diary.mdb"))
viewstate("diary")=sqlexecute("select count(*) from diary")
'新闻数目
conn=new oledbconnection("provider=microsoft.jet.oledb.4.0; data source="+server.MapPath("../data/news.mdb"))
viewstate("news")=sqlexecute("select count(*) from news")
'酷站数目
conn=new oledbconnection("provider=microsoft.jet.oledb.4.0; data source="+server.MapPath("../data/sites.mdb"))
viewstate("coolsites")=sqlexecute("select count(*) from coolsites")
'链接数目
conn=new oledbconnection("provider=microsoft.jet.oledb.4.0; data source="+server.MapPath("../data/sites.mdb"))
viewstate("friendlink")=sqlexecute("select count(*) from friendlink")
'文章数目
conn=new oledbconnection("provider=microsoft.jet.oledb.4.0; data source="+server.MapPath("../data/article.mdb"))
viewstate("article")=sqlexecute("select count(*) from art")
'下载数目
conn=new oledbconnection("provider=microsoft.jet.oledb.4.0; data source="+server.MapPath("../data/down.mdb"))
viewstate("down")=sqlexecute("select count(*) from soft")
'留言数目
conn=new oledbconnection("provider=microsoft.jet.oledb.4.0; data source="+server.MapPath("../data/gb.mdb"))
viewstate("gb")=sqlexecute("select count(*) from gb")
'更新统计数据
conn=new oledbconnection("provider=microsoft.jet.oledb.4.0; data source="+server.MapPath("../data/admin.mdb"))
dim sql as string="update allcount set articlecount=" & viewstate("article") & ",softcount=" & viewstate("down") & ",coolsitescount=" & viewstate("coolsites") & ",friendlinkcount=" & viewstate("friendlink") & ",newscount=" & viewstate("news") & ",diarycount=" & viewstate("diary") & ",gbcount=" & viewstate("gb")
dim objcmd as new oledbcommand(sql,conn)
try
objcmd.connection.open()
objcmd.executenonquery()
submit1.text="更新成功!"
catch ex as exception
response.write(ex.message)
finally
objcmd.connection.close()
end try
'重新填充数据
filldatagrid()
end sub
function sqlexecute(sql as string) as integer
dim objcmd as new oledbcommand(sql,conn)
try
objcmd.connection.open()
return ctype(objcmd.executeScalar,integer)
objcmd.connection.close()
catch ex as exception
response.write(ex.message)
end try
end function
</script>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>首页统计更新</title>
<link href="../site_css.css" rel="stylesheet" type="text/css">
</head>
<body background="../images/bg1.gif">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr align="center">
<td height="8" colspan="3">
</td>
</tr>
<tr>
<td width="150" align="left" valign="top"> <admin:menu runat="server"/> </td>
<td width="1" background="../images/dotlinev.gif"></td>
<td width="554" valign="top">
<form runat="server">
<table border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td align="center" >
<span class="articlehead">首页统计更新</span><p></td>
</tr>
<tr>
<td align="center">
<asp:Repeater ID="allcount" runat="server">
<headertemplate>
</headertemplate>
<itemtemplate>
<font class="chinese" color="#666666">
日记数目:<span class="newshead"><%# container.dataitem("diarycount")%></span>篇
新闻数目:<span class="newshead"><%# container.dataitem("newscount")%></span>篇<br>
酷站数目:<span class="newshead"><%# container.dataitem("coolsitescount")%></span>个
链接数目:<span class="newshead"><%# container.dataitem("friendlinkcount")%></span>个<br>
文章数目:<span class="newshead"><%# container.dataitem("articlecount")%></span>篇
下载数目:<span class="newshead"><%# container.dataitem("softcount")%></span>个<br>
留言数目:<span class="newshead"><%# container.dataitem("gbcount")%></span>条
</font>
</itemtemplate>
<footertemplate>
</footertemplate>
</asp:Repeater><br>
<asp:button runat="server" id="submit1" Text="更新统计数据" onclick="update_count" class="button"/>
</td>
</tr>
</table>
</form>
<br>
</td>
</tr>
<tr>
<td colspan="3" height="1" background="../images/dotlineh.gif"></td>
</tr>
</table>
<admin:foot runat="server"/>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -