account_info.asp

asp与MYSQL的源码

<TABLE cellpadding=2 cellspacing=1>
<TR>
<TD class=cellsmallcontent>
User: <B>
<%
set rsAcct = server.CreateObject("ADODB.Recordset")
rsAcct.CursorLocation= 3
rsAcct.Open "Select user();", dsn, 2, 3

Response.Write rsAcct(0)
rsAcct.Close 
%>
</B><BR>
Your IP: <B><%=request.servervariables("REMOTE_HOST")%></B><BR>
Server Uptime: <%
rsAcct.Open "Show status", dsn, 2, 3

rsAcct.MoveLast 
response.write "<B>" & round((rsAcct("value")/60)/60, 2) & " Hrs.</B><BR>"
%>
</TD>
</TR>
</TABLE>