main.asp
来自「一套设计完善、高效的web商城解决方案」· ASP 代码 · 共 177 行
ASP
177 行
<!--#include file="Session.asp"-->
<%'按条件删除登陆日志
conn.execute("Delete From Log where datediff('d',date,now())>10")
Set rs = conn.execute("select * from Log order by id DESC")%>
<html>
<link href="../css/site.css" rel="stylesheet" type="text/css">
<body style="MARGIN: 0px">
<table width="100%" align="center" cellpadding="0" cellspacing="0">
<tr align="center" valign="middle">
<td height="35" class="tdstyle"><font size="3"><strong>欢迎<%= rs("Name") %>登陆后台管理</strong></font></td>
</tr>
<tr>
<td height="50" valign="middle" class="text">
<table width="90%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="25%" height="19" >您的登陆IP:<%= rs("IP") %></td>
<td width="25%" >操作系统信息:<%= rs("OS") %></td>
<td width="25%" >浏览器信息:<%=rs("Browser")%></td>
<td width="25%" >登陆时间:<%= rs("Date") %></td>
</tr>
</table>
</td>
</tr>
<tr align="center" valign="middle">
<td height="35" class="tdstyle"><font size="3"><strong>网站流量</strong></font></td>
</tr>
<tr>
<td height="50" valign="middle" class="text">
<%
rs.close
set rs=nothing
Set rs1 = conn.execute("select top 1 * from [Count] order by id desc")
if not rs1.eof then
TodayCount=rs1("Counts")
PersonCount=rs1("Persontime")
end if
rs1.close
set rs1=nothing
Set rs1 = conn.execute("select Sum(Counts) as SunCounts,Sum(Persontime) as SumPersontime from [Count]")
SunCounts=rs1("SunCounts")
SumPersontime=rs1("SumPersontime")
rs1.close
set rs1=nothing
%>
<table width="90%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="25%" > 今日流量 <%=TodayCount%></td>
<td width="25%" >今日人次 <%=PersonCount%></td>
<td width="25%" >总浏览量 <%=SunCounts%></td>
<td width="25%" >总计人次 <%=SumPersontime%></td>
</tr>
</table>
</td>
</tr>
<tr align="center" valign="middle">
<td height="35" class="tdstyle"><font size="3"><strong>待处理事务</strong></font></td>
</tr>
<tr>
<td height="50" valign="middle" class="text">
<table width="90%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="25%" >未处理定单 <font color="#990000">
<%Set rs = Server.CreateObject("ADODB.Recordset")
sql ="select Id from OrderForm where State>0 and State <3"
rs.open sql,conn,1,1
Response.Write(rs.recordcount)
rs.close
set rs=nothing%>
</font></td>
<td width="25%" >未处理已付款定单 <font color="#990000">
<%Set rs = Server.CreateObject("ADODB.Recordset")
sql ="select Id from OrderForm where State=2"
rs.open sql,conn,1,1
Response.Write(rs.recordcount)
rs.close
set rs=nothing%>
</font></td>
<td width="25%" >未回复留言 <font color="#990000">
<%Set rs = Server.CreateObject("ADODB.Recordset")
sql ="select id from GuestBook where state=0"
rs.open sql,conn,1,1
Response.Write(rs.recordcount)
rs.close
set rs=nothing%>
</font></td>
<td width="25%" >最新注册用户 <font color="#990000">
<%Set rs = Server.CreateObject("ADODB.Recordset")
sql ="select Id from Member where datediff('h',date,now())<24"
rs.open sql,conn,1,1
Response.Write(rs.recordcount)
rs.close
set rs=nothing%>
</font></td>
</tr>
</table>
</td>
</tr>
<tr align="center" valign="middle">
<td height="35" class="tdstyle"><font size="3"><strong>版本信息</strong></font></td>
</tr>
<tr>
<td valign="middle" class="text">
<table width="90%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="26%" ><%
dim objFso,Fso,NewVersion,OldVersion
set objFso = server.CreateObject("scripting.filesystemobject")
set Fso = objFso.opentextfile(server.mappath("Version.ini"),1)
OldVersion = Fso.readall
Fso.close
set Fso = nothing
Str = "&cmd=validate"
set objHttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
objHttp.open "POST", "http://UpDate.web767.com/sql/Version.asp", false
objHttp.setRequestHeader "Content-type", "application/x-www-form-urlencoded"
objHttp.Send Str
if (objHttp.status <> 200 ) then
Response.Write("<font color=#FF0000>暂时无法检测到升级信息</font>")
else
Response.Write(" <form action=http://UpDate.web767.com/sql/UpData.asp method=post name=form>")
Call input()
NewVersion = split(objHttp.responseText,"|")
for i=0 to ubound(NewVersion)
if instr(OldVersion,NewVersion(i))=0 then
Up=1
Response.Write("<br><input type=submit name=Submit style='cursor: hand;background-color: #eeeeee;border-top: 1px solid #FFFFFF;border-right: 1px solid #a2a2a2;border-bottom: 1px solid #a2a2a2;border-left: 1px solid #FFFFFF;height: 19px;' value='升级到"&NewVersion(i)&"版'><br>")
end if
next
if Up=1 then
Sub input()
Response.Write("<input name=UpUrl type=hidden id=UpUrl value='"&Url&"'>")
Response.Write("<br>用 户 名:<input class=input2 name=Name type=text id=Name size=11>")
Response.Write("<br>授权代码:<input class=input2 name=Impower type=text id=Impower size=11><br>")
End Sub
else
Response.Write("检测成功:<font color=#0033CC>当前为最新版本</font>")
end if
Response.Write("</form>")
end if%>
</td>
<td width="1%" bgcolor="#E0E0E0" > </td>
<td width="3%" > </td>
<td width="70%" ><br>
当前版本<br>
亿众购物系统 Version <%Dim NonceVersion
NonceVersion = split(OldVersion,"|")
Response.Write(NonceVersion(int(ubound(NonceVersion))))%> (YZ Shopping Cart System Version <%Response.Write(NonceVersion(int(ubound(NonceVersion))))%>)<br> <br>
版权声明<br>
1、本软件为商业软件，每套系统我们均有不同的加密及识别方法；<br>
2、本软件受中华人民共和国《著作权法》、《计算机软件保护条例》等相关法律、法规保护；<br>
3、转让、公开、泄漏源代码的行为，均由北京时代律师事务所(王亮律师)代为起诉；<br>
4、作者保留一切权利。<br><br></td>
</tr>
</table>
</td>
</tr>
<tr align="center" valign="middle">
<td height="35" class="tdstyle"><font size="3"><strong>开发信息</strong></font></td>
</tr>
<tr align="center" valign="middle">
<td height="50" class="text">
<table width="90%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="25%" >系统开发:亿众购物系统开发组</td>
<td width="25%" >联系QQ:6205822、6778717</td>
<td width="25%" >联系电话:(0)13833993605</td>
<td width="25%" >网址:<a href="http://web767.com" target="_blank"><font color="#666666">http://web767.com</font></a></td>
</tr>
</table>
</td>
</tr>
</table>
<br><br><br>
</body>
</html>
<%conn.close
set conn=nothing%>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?