📄 sysinfo.asp

📁 商务网站,信息分类,可以搜索加上ACCESS数据库

💻 ASP

字号:

<%Option Explicit%>
<!--#include file="adoconn.asp"-->

<%
dim objRS,sql
dim totalispass,totalnopass,totalsort

Response.Write("<html><head><title>KingUn搜索引擎——系统信息</title></head><body>")

Response.Write("<center><b>系统信息</b></center><br>")
Response.Write("正在读取数据，请稍候......")

sql = "sort"
Set objRS = Server.CreateObject("ADODB.RecordSet")
objRS.Open sql, objConn, 3, 1
totalsort = objRS.RecordCount
objRS.Close()

Response.Write("本系统共有！<br>")
Response.Write("类&nbsp;&nbsp;&nbsp;&nbsp;目: <font color=red>" & FormatNumber(totalsort,0,-1) & "</font><br>")

sql = "select * from stationinfo where ispass = TRUE"
objRS.Open sql, objConn, 3, 1
totalispass = objRS.RecordCount
objRS.Close()
Response.Write("已通过验证的网站: <font color=red>" & FormatNumber(totalispass,0,-1) & "</font><br>")

sql = "select * from stationinfo where ispass = FALSE"
objRS.Open sql, objConn, 3, 1
totalnopass = objRS.RecordCount
objRS.Close()
Response.Write("有待验证的站点: <font color=red>" & FormatNumber(totalnopass,0,-1) & "</font><br>")
Response.Write("总&nbsp;&nbsp;&nbsp;&nbsp;计: <font color=red>" & FormatNumber(totalispass + totalnopass,0,-1) & "</font>")

objConn.Close()
Set objRS = nothing
Set objConn = nothing

Response.Write("<p align=""right"">")
Response.Write("<font  style={font-size:10.5pt}>[<a href=""JavaScript: window.close()"" style={text-decoration:none;color:blue}>关闭窗口</a>]</font>")

Response.Write("</body></html>")
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -