<％
id =请求（id）
如果请求（操作）=更新然后
设置RS = Server.CreateObject（adodb.RecordSet）
sqlText = select *从表中id =＆id
Rs.open SqlText，Conn，1,3
rs（x_name）= request.form（x_name）
rs（x_biaojia）= request.form（x_biaojia）
rs（x_leixun）= request.form（x_leixun）
rs（x_shijian）= request.form（x_shijian）
rs（x_shuoming）= request.form（x_shuoming）
rs（x_jingdian）= request.form（x_jingdian）
rs（x_anpai）= request.form（x_anpai）
rs（x_zhushi）= request.form（x_zhushi）
Rs.update
Rs.Close
设置Rs =没有
响应。redirect转向页.asp
如果结束
％>