%
if session("S_login")="" then
Response.Redirect "default.asp"
end if
%>
--
<%
dim db,trs
Set db=new Connections
set trs=server.CreateObject("ADODB.recordset")
strsql="select * from MEMBER_CN where MEMBER_ID="& request("ID")
set trs=db.Query (strsql,1)
if not trs.eof or not trs.bof then
member_id=trs("MEMBER_ID")
XingMing=trs("M_NAME")
txt_sex=trs("M_SEX")
txt_research=trs("M_RESEARCH")
txt_researchtype=trs("M_FENLEI")
txt_jigou=trs("M_AGENCIES")
txt_title=trs("M_TITLE")
txt_guojia=trs("M_COUNTRY")
txt_sheng=trs("M_SHENG")
txt_shi=trs("M_SHI")
txt_dizhi=trs("M_ADDRESS")
txt_youbian=trs("M_ZIP")
txt_tel=trs("M_TEL")
txt_fax=trs("M_FAX")
txt_mail=trs("M_MAIL")
txt_item=trs("M_ITEM")
txt_gg=trs("M_GUANGGAO")
txt_ticket=trs("M_TICKET")
txt_session=trs("M_SESSION")
txt_other=trs("M_OTHER")
payment_type=trs("M_PAYTYPE")
pay_other=trs("M_PAYOTHER")
admin_user=trs("ADMIN_USER")
txt_cwbark=trs("CW_BARK")
pay_all=trs("PAY_ALL")
pay_shifu=trs("PAY_SHIFU")
txt_add=trs("ADD_DATE")
end if
%>