📄 gx1.asp

📁 下载管理系统,重新修改,无错.放心使用. 用户名和密码都是admin:admin

💻 ASP

字号:

<!--#include file="conn.asp"-->
<%
dim classid,foolcat,showname,title,totalsoft,tsoft,guone,guowa,hanhua,pojie
dim sql,sql2,sql3,sql4,sql5,sql6
sql="select count(id) from download"
sql2="select count(id) from download where dateandtime =date() "
sql3="select count(id) from download where dateandtime =date() and  kind='国产软件'"
sql4="select count(id) from download where dateandtime =date() and  kind='国外软件'"
sql5="select count(id) from download where dateandtime =date() and  kind='汉化补丁'"
sql6="select count(id) from download where dateandtime =date() and  kind='破解软件'"
totalsoft=conn.execute(sql)(0)
tsoft=conn.execute(sql2)(0)
guone=conn.execute(sql3)(0)
guowa=conn.execute(sql4)(0)
hanhua=conn.execute(sql5)(0)
pojie=conn.execute(sql6)(0)
foolcat = "軟件總數：" & totalsoft
foolcat = foolcat + "<br>今日更新軟件數目：" & tsoft
foolcat = foolcat + "<br>國產軟件今日更新：" & guone
foolcat = foolcat + "<br>國外軟件今日更新：" & guowa
foolcat = foolcat + "<br>漢化補丁今日更新：" & hanhua
foolcat = foolcat + "<br>破解軟件今日更新：" & pojie
foolcat = "" + foolcat + ""
foolcat = "document.write('" & foolcat & "')"
FolderPath = Server.MapPath("../js/")
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(FolderPath&"\gx.js")
fout.WriteLine foolcat

fout.close
set fout = nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<link rel="stylesheet" type="text/css" href="style.css">
</head><body bgcolor="#468ea3"><br><br>
<p align=center><FONT color="#FFFFFF"><b>成功更新了首页显示今日更新及软件数目的的JS文件</b></FONT><br><br><a href=javascript:history.go(-1)>>> 返 回 << </a></p>
</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -