<%@ Language=VBScript %>
<!--#include virtual="/inc-freehost-function/FreeHostFunction.asp"-->
<!--#include virtual="/inc-freehost-function/FreeHostFunctionMain.asp"-->
<%
If session("admau")="" Then
	ef=True
	ec="授权非法，有可能是超时造成的。"
'ElseIf Request.Form ("username")="" Then
'	ef=True
'	ec="请输入用户名！"
ElseIf Request.Form ("email")="" Then
	ef=True
	ec="请选择产品！"
elseIf session("canadmemail")="" Then
	ef=True
	ec="您没有此操作的权限。"
'ElseIf Request.Form ("Hosttype")="" Then
'	ef=True
'	ec="请选择产品！"
'ElseIf Request.Form ("ServerlistID")="" Then
'	ef=True
'	ec="请选择服务器！"
end if
'if not ef then
'Set conn=Server.CreateObject("ADODB.Connection")
'	conn.Open Application("FreeHostDBlink")
'	Set ds = Server.CreateObject("ADODB.Recordset")	
'		Sql="Select * from FreeHost.FreeHost_USER where username='"&Request.Form ("username")&"'"
'		ds.Open Sql,conn,1,1
'if ds.eof then
'	ef=True
'	ec="用户不存在!"
'end if
'end if

'if not ef then
'	Set dshost = Server.CreateObject("ADODB.Recordset")	
'	Sql="Select * from FreeHost.FreeHost_HostProductlist where Hosttype='"&Request.Form ("Hosttype")&"'"
'	dshost.Open Sql,conn,1,1
'if dshost.Eof then
'	ef=True
'	ec="产品不存在！"
'end if
'end if

if not ef then
email=Request.Form ("email")
'emailarry=split(email,"@")
if not RegExpTest("(\w)+[@]{1}(\w)+[.]{1,3}(\w)+",email) then
	ef=True
	ec="无效邮箱名称！"
end if
end if

if not ef then
'emailname=emailarry(0)
'domain=emailarry(1)
'response.write emailname
%>
<!--#include virtual="/inc-freehost-function/htmlwrite.asp"--><%=htmlwrite("html8")%>　邮箱管理
<%=htmlwrite("html9")%>
返回结果：<%
ID=1'Request.Form ("ServerlistID")
pw="123"
tem=DelEmail(ID,Email)
response.write tem
%>
<%=htmlwrite("html10")%>
<%end if
if ef then
Response.Redirect "e.asp?e="&ec
end if%>
