<!--#include file="inc/config.asp" -->
<!--#include file="inc/conn.asp" -->
<!--#include file="inc/sql_filter.asp" -->
<%
response.charset="GBK"
dim email
if(request.QueryString("email")<>"") then
	email=replaceBadChar(request.QueryString("email"))
end if

'是否登录
if(email<>"" and len(email)>1) then	
	set rs=server.createobject("adodb.recordset")
	rs.open "select * from t_member where Email='"&email&"'",conn,3,1
	if not rs.eof then
		response.Write("该邮箱已经有人注册了，请试其它的!")
	else
		response.write("恭喜您，此邮箱可以使用!")
	end if
	rs.close
	set rs=nothing
end if
call connclose()
%>