<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="conn.asp"-->
<%
Dim sql,UserId
	UserId=che(request("regid"))
	If UserId<>"" then
		set rs=server.createobject("adodb.recordset")
		Sql = "select * from [Reg_Userinfo] where UserId='"&UserId&"'"
		rs.Open Sql, Conn, 2, 2
		if rs.eof and rs.bof then
			response.Write(1)
		else
			response.Write(0)
		end if
		rs.close
		set rs=Nothing
		response.End
	End If 
	response.write (0)
  %>