📄 sysinfo.asp

📁 该系统可对信息系统尽行有效的分类管理

💻 ASP

字号:

<%Option Explicit%>
<!--#include file="adoconn.asp"-->
<!--#include file="top.htm"-->
<link href=style2.css rel=stylesheet>
<%
dim objRS,sql
dim totalispass,totalnopass,totalsort

Response.Write("<html><head><title>系统信息</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("</body></html>")
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -