📄 database.asp
字号:
<!--#include file="dbpath.asp"-->
<%
if session("admin")="" then
objconn.close
set objconn=nothing
response.redirect "../default.asp"
end if
%>
<%
dim objRS,sql
dim totalcat,totalbadlinks,totalbook
Response.Write("<html><head><title>：：图片程序数据库信息：：</title><link rel=stylesheet type=text/css href=../links.css></head><body>")
Response.Write("<table width=400 border=1 cellspacing=0 cellpadding=0 align=center bordercolor=#000000 bordercolordark=#FFFFFF>")
Response.Write("<tr><td background=../images/background.gif height=20 align=center><b>Database Info</b></td></tr><tr><td>")
Response.Write("读取数据库信息，请稍后......<br>")
sql = "cat"
Set objRS = Server.CreateObject("ADODB.RecordSet")
objRS.Open sql, objConn, 3, 1
totalcat = objRS.RecordCount
objRS.Close()
Response.Write("分类总数：<font color=red>" & FormatNumber(totalcat,0,-1) & "</font><br>")
sql = "SELECT * FROM gallery WHERE error=true"
objRS.Open sql, objConn, 3, 1
totalbadlinks = objRS.RecordCount
objRS.Close()
Response.Write("失效链接总数：<font color=red>" & FormatNumber(totalbadlinks,0,-1) & "</font><br>")
sql = "gallery"
objRS.Open sql, objConn, 3, 1
totalbook = objRS.RecordCount
objRS.Close()
Response.Write("图片总数：<font color=red>" & FormatNumber(totalbook,0,-1) & "</font></td></tr></table>")
objConn.Close()
Set objRS = nothing
Set objConn = nothing
Response.Write("<P align=center>制作：<a href=""http://www.huamed.com/gallery"">Galleryit Pro 3.0.0</a></p>")
Response.Write("<P align=center>来源：<a href=""http://bbs.5iasp.com"">http://bbs.5iasp.com</a></p>")
Response.Write("<P align=center>汉化：<a href=""http://www.youilove.com"">ORPIN</a></p>")
Response.Write("</body></html>")
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -