<% XingMing=request.form("txt_xingming") '用户姓名 txt_sex=request.form("txt_sex") '头衔 txt_yuanxiao=request.form("txt_yuanxiao") txt_nianji=request.form("txt_nianji") txt_yjfx=request.form("txt_yjfx") txt_tel=request.form("txt_tel") txt_mail=request.form("txt_mail") txt_address=request.form("txt_ADDRESS") txt_youbian=request.form("txt_youbian") txt_daoshi=request.form("txt_daoshi") txt_ds_lianxi=request.form("txt_ds_lianxi") txt_regtime=request.form("txt_regtime") txt_beizhu=request.form("txt_beizhu") dim db,trs Set db=new Connections select case request("Action") case "add" if txt_mail<>"" then sql_mail="select * from stu_info where M_MAIL='"& txt_mail &"'" set trs=db.Query (sql_mail,1) if not trs.eof or not trs.bof then response.write "" response.end end if end if add_sql="insert into stu_info (M_NAME,M_SEX,M_yuanxiao,M_nianji,M_yjfx,M_tel,M_mail,M_ADDRESS,M_youbian,M_daoshi,M_ds_lianxi,M_beizhu,M_regtime) values ('"& XingMing &"','"& txt_SEX &"','"& txt_yuanxiao &"','"& txt_nianji &"','"& txt_yjfx &"','"& txt_tel &"','"& txt_mail &"','"& txt_address &"','"& txt_youbian &"','"& txt_daoshi &"','"& txt_ds_lianxi &"','"& txt_beizhu &"',now())" db.Query add_sql,0 session("zhuce")=true response.write "" case "upd" add_sql="update stu_info set M_NAME='"& XingMing &"',M_SEX='"& txt_SEX &"',M_yuanxiao='"& txt_yuanxiao &"',M_nianji='"& txt_nianji &"',M_yjfx='"& txt_yjfx &"',M_tel='"& txt_tel &"',M_mail='"& txt_mail &"',M_ADDRESS='"& txt_ADDRESS &"',M_youbian='"& txt_youbian &"',M_daoshi='"& txt_daoshi &"',M_ds_lianxi='"& txt_ds_lianxi &"',M_beizhu='"& txt_beizhu &"' where MEMBER_ID=" & request("hid_id") db.Query add_sql,0 response.write "" end select %>