softtop.asp

blue space 蓝色空间下载系统精简版---大家分享

<!--#include file="Check.asp" -->
<!--#include file="../Inc/HeadDH.asp" -->
<!--#include file="../inc/oConn.asp" -->
<!--#include file="../inc/function.asp" -->
<!--#include file="../Soft/function.asp" -->
<%
Call PrintHead("蓝色空间 网站后台采集管理")
Call PrintTable2()
Call HeadDH2()
Print "<br><table align='center' width='"&MaxTableWidth&"' style='border:1 solid #cccccc;background:#f5f5f5'><tr><td>"
Call CreateCount()
Print "</td></tr></table><br>"
Call PrintFoot()

Sub CreateCount()
	Dim strJSCode,JSFileName,SoftCount,UpdateCount,DownCount
	JSFileName = Server.MapPath("../JSFile/SoftCount.js")
	strJSCode = "//生成日期："&Now()&""&vbCrLf
	SoftCount = oConn.Execute("Select Count(*) From SoftInfo")(0)
	UpdateCount = oConn.Execute("Select Count(*) From SoftInfo Where SoftUpdateTime Between #"&DateAdd("d",-1,Date)&" 00:00:00# And #"&Date&" 23:59:59#")(0)
	DownCount = oConn.Execute("Select Sum(SoftCount) From SoftInfo")(0)
	strJSCode = strJSCode & "document.write('共有软件："&SoftCount&"个<br> 今日更新："&UpdateCount&"个<br> 共计下载："&DownCount&"次')"
	
	Call WriteLocalFile(JsFileName,strJSCode)
	Response.Write "生成文件"&JSFileName&"成功"
End Sub
%>