<%
if session("USER_NAME")="" then
response.write ""
response.end
end if
%>
修改客户资料
<%
upd_year=request("up_year")
dim db,trs
Set db=new Connections
set rs=server.CreateObject("ADODB.recordset")
strSql="select * from stu_info where MEMBER_ID=" & request("ID")
set rs=db.Query (strsql,1)
if not rs.eof or not rs.bof then
XingMing=rs("M_NAME") '用户姓名
txt_sex=rs("M_sex") '头衔
txt_yuanxiao=rs("M_yuanxiao")
txt_nianji=rs("M_nianji")
txt_yjfx=rs("M_yjfx")
txt_tel=rs("M_tel")
txt_mail=rs("M_mail")
txt_address=rs("M_ADDRESS")
txt_youbian=rs("M_youbian")
txt_daoshi=rs("M_daoshi")
txt_ds_lianxi=rs("M_ds_lianxi")
txt_regtime=rs("M_regtime")
txt_beizhu=rs("M_beizhu")
end if
rs.close
set rs=nothing
%>