📄 info.asp

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

💻 ASP

字号:


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

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

Response.Write("<html><head><title>系统信息</title>")
Response.Write("<link rel=stylesheet href=info.css type=text/css>")
Response.Write("</head><body topmargin=0 leftmargin=0 bgcolor=#C6E3FF >")

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

'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 + -