<%
Dim LoginCheckCode,RegCheckCode,RegClose,RegCome,RegComeUrl
Set rs_reg=server.CreateObject("Adodb.recordset")
	 Sql_reg="Select * from hl_RegSet where id=1"
	 rs_reg.open Sql_reg,conn,1,1
	 LoginCheckCode=rs_reg(1)
	 RegCheckCode=rs_reg(2)
	 RegClose=rs_reg(3)
	 RegCome=rs_reg(4)
	 RegComeUrl=rs_reg(5)
	 rs_reg.close
	 set rs_reg=nothing
%>