<%@ Language=VBScript %>
<%

If session("username")="" Then
Response.Redirect "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,3

%>
<!--#include virtual="/inc-freehost-function/htmlwrite.asp"--><%=htmlwrite("html2")%>
欢迎您光临用户专区！
<%=htmlwrite("html3")%>
<%dsreg("usernotice")=null
dsreg.update
dsreg.close
set dsreg=nothing
%><br><br>
<a href="logininfo.asp">通知已清空成功,返回>>></a>
<br><br>
<%=htmlwrite("html4")%>
<%
conn.Close
set conn=nothing
end if

if ef then
Response.Redirect "e.asp?e="&ec
end if%>
