sysinfo.asp

来自「商务网站,信息分类,可以搜索加上ACCESS数据库」· ASP 代码 · 共 43 行

ASP

43 行

<%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>")
%>

sysinfo.asp - 源码说明

本页面展示了「商务网站,信息分类,可以搜索加上ACCESS数据库」中的 sysinfo.asp 源码文件，采用 ASP 编程语言编写，共 43 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与商务网站相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?