data.asp

来自「UQC虚拟主机专用免费域名转向程序,域名也不需要支持泛解晰,就可以达到二级域名转」· ASP 代码 · 共 34 行

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