xgg.asp

使用源码注意项： 1、Windows2000 Professional SP3、DELPHI 6.0、SQL Server2000的开发环境； 2、开发目录为：D:PieceRate

<!--#include file="conn.asp"-->
<!--#include file="qx.asp"-->
<%
exec="select * from sa where id="&request.form("id")
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3
		rs("name")=request.form("name")
		rs("Ic")=request.form("Ic")
		rs("Ym")=request.form("Ym")
		rs("fec_a")=request.form("fec_a")
		rs("fec_b")=request.form("fec_b")
		rs("fec_c")=request.form("fec_c")
		rs("fec_d")=request.form("fec_d")
		rs("fec_e")=request.form("fec_e")
		rs("fec_f")=request.form("fec_f")
		rs("fec_g")=request.form("fec_g")
		rs("fec_h")=request.form("fec_h")
		rs("fec_i")=request.form("fec_i")
		rs("fec_j")=request.form("fec_j")
		rs("fec_k")=request.form("fec_k")
		rs("fec_l")=request.form("fec_l")
		rs("fec_m")=request.form("fec_m")
		rs("fec_n")=request.form("fec_n")
		rs("fec_o")=request.form("fec_o")
		rs("fec_p")=request.form("fec_p")
		rs("fec_q")=request.form("fec_q")
		rs("fec_r")=request.form("fec_r")
		rs("fec_s")=request.form("fec_s")
		rs("fec_t")=request.form("fec_t")
		rs("fec_u")=request.form("fec_u")
	        rs("fec_v")=request.form("fec_v")
		rs("fec_w")=request.form("fec_w")
		rs("fec_x")=request.form("fec_x")
		rs("fec_y")=request.form("fec_y")
		rs("fec_z")=request.form("fec_z")
		rs("others")=request.form("others")
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write("<script language=JavaScript>{window.alert('修改成功!');window.location.href=""login_ok.asp"";}</script>")
'response.write("xiao jiji haha")
'response.redirect "login_ok.asp"
%>