📄 admin_count.asp
字号:
<%Admin="System"%>
<!--#include file="check.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="mdb.asp"-->
<%
if session("adminlogin")<>sessionvar then
Response.Write("<script language=javascript>alert('你尚未登录，或者超时了！请重新登录');this.location.href='admin.asp';</script>")
response.end
end if%>
<HTML><HEAD><TITLE>管理中心—计数管理</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="inc/admin.css" type=text/css rel=StyleSheet>
<META content="MSHTML 6.00.2800.1126" name=GENERATOR>
</HEAD>
<body onkeydown=return(!(event.keyCode==78&&event.ctrlKey)) >
<%action=request("action")
if action="" then%>
<%
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from counters"
rs.open sql,conn,1,3
%>
<table width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
<form name="form" method="post" action="admin_count.asp?action=count">
<tr><td class=lanyuss align="center" colspan="2">计数管理、建站时间设置</td></tr>
<tr class=lanyuds><td width="80">全部访问量：</td><td width="*"><input name="total" type="text" value="<%=rs("total")%>"></td></tr>
<tr class=lanyuds><td width="80">本月访问量：</td><td width="*"><input name="MONTH" type="text" value="<%=RS("MONTH")%>"></td></tr>
<tr class=lanyuds><td width="80">上月访问量：</td><td width="*"><input name="BMONTH" type="text" value="<%=rs("BMONTH")%>"></td></tr>
<tr class=lanyuds><td width="80">今日访问量：</td><td width="*"><input name="TODAY" type="text" value="<%=rs("TODAY")%>"></td></tr>
<tr class=lanyuds><td width="80">昨日访问量：</td><td width="*"><input name="YESTERDAY" type="text" value="<%=rs("YESTERDAY")%>"></td></tr>
<tr class=lanyuds><td width="80">建站时间：</td><td width="*"><input name="inputdate" type="text" value="<%=rs("inputdate")%>"> * 请按此格式设置</td></tr>
<tr class=lanyuqs><td align="center" colspan="2"><input type="submit" name="Submit" value="提 交">
<input type="submit" name="Submit2" value="重 置"></td></tr>
</form>
</table>
<%rs.close
else
end if%>
<%if action="count" then
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from counters"
rs.open sql,conn,1,3
rs("total")=Trim(Request.Form("total"))
rs("today")=Trim(Request.Form("today"))
rs("yesterday")=Trim(Request.Form("yesterday"))
rs("month")=Trim(Request.Form("month"))
rs("bmonth")=Trim(Request.Form("bmonth"))
rs("inputdate")=Trim(Request.Form("inputdate"))
rs.update
rs.close
response.Redirect "admin_count.asp?提示=修改数据操作成功"
%>
<%else
set rs=nothing
end if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -