📄 data.asp
字号:
<%
set conn=server.CreateObject("adodb.connection")
DBPath = Server.MapPath("../database/domainyagis.asp")
conn.open "provider=microsoft.jet.oledb.4.0; data source="&DBpath
function dbclose(rsname)
rsname.close
set rsname=nothing
conn.close
set conn=nothing
end function
%>
<%
Application("domain_database")=conn
%>
<%
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open "select * from [user]",conn,1,1
zxCount=rs.recordcount
rs.close
set rs=nothing
%>
<%
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open "select * from [user] where ad=2 order by id desc",conn,1,1
killCount=rs.recordcount
rs.close
set rs=nothing
%>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open ("select sum(count) from [user] "),conn,1
allcount=rs(0)
rs.Close
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -