<%
If session("username")="" Then
Response.Redirect "/user/default.asp"
end if
If not ef then
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open Application("FreeHostDBlink")
Set dsreg = Server.CreateObject("ADODB.Recordset")
Sql="Select * from FreeHost.FreeHost_USER where username='"&session("username")&"'"
dsreg.Open Sql,conn,1,1
session("usermoney")=dsreg("usermoney")
dsreg.close
set dsreg=nothing
%>
动易主机－会员专区
佛山市动易网络科技有限公司版权所有 © 2003 -
