<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn/conn.asp"-->
<!--#include file="inc/Commoncode.asp"-->
<!--#include file="inc/CommonFunction.asp"-->
<%Call closeandopen(6)
Call SQLin()
If Trim(Request("Member_type"))<>"" and IsNumeric(Trim(Request("Member_type"))) Then
	Member_type=Request("Member_type")
else
	Member_type=0
end if
Select Case Member_type
	Case "0"
		membertype="个人会员"
		memberto="<a href='?Member_type=2'>转向注册企业会员</a>"
		Call closeandopen(3)
		MTID=1
	Case "1"
		membertype="个人会员"
		memberto="<a href='?Member_type=2'>转向注册企业会员</a>"
		Call closeandopen(3)
		MTID=1
	Case "2"
		memberto="<a href='?Member_type=1'>转向注册个人会员</a>"
		membertype="企业会员"
		Call closeandopen(2)
		MTID=2
End Select
'读取模版内容
html=LoadTemplate(9999,10,0)
html=Replace(html,"{$FR_注册会员类型}",MTID)
html=Replace(html,"{$FR_会员类型}",membertype)
html=Replace(html,"{$FR_会员转向}",memberto)
html=ReplaceLableFlag(ReplaceAllLabel(html))
Response.Write(CreateHTMLReplace(html))
Call CloseConn()
%>