www.gusucode.com > Follow me超级搜索引擎 > admin/htmlccount.asp

    <%
set rs=server.createobject("adodb.recordset")
sql="select * from adminuser where username like '"&Session("admin")&"' "
rs.open sql,conn,1,3
Set Fso2=Server.CreateObject("Scripting.FileSystemObject")  '创建fso对象
Set Fout2=Fso2.CreateTextFile(server.mappath("../so/ccount.asp"))
Fout2.WriteLine rs("ccount")
Fout2.Close

rs.close:set rs = nothing
%>