<% '---------------------确定是否已经登陆------------------------------- dim cls if session("admin")="" then Response.Redirect("index.asp?err=4") end if '---------------------确定是否已经登陆------------------------------- %> <% set rs=server.createobject("adodb.recordset") sql="select * from about" rs.open sql,conn,1,3 rs.Addnew rs("A_tel1")=trim(request.Form("A_tel1")) rs("A_tel2")=trim(request.Form("A_tel2")) rs("A_tel3")=trim(request.Form("A_tel3")) rs("A_email1")=trim(request.Form("A_email1")) rs("A_email2")=trim(request.Form("A_email2")) rs("A_msn1")=trim(request.Form("A_msn1")) rs("A_msn2")=trim(request.Form("A_msn2")) rs("A_qq1")=trim(request.Form("A_qq1")) rs("A_qq2")=trim(request.Form("A_qq2")) rs("A_qq3")=trim(request.Form("A_qq3")) rs("A_qq4")=trim(request.Form("A_qq4")) rs("A_fax")=trim(request.Form("A_fax")) rs("A_address")=trim(request.Form("A_address")) rs("A_time")=trim(request.Form("A_time")) rs.update rs.close conn.close set rs=nothing set conn=nothing ' Response.Redirect"admin_prod.asp?action=detail&id="&request.form("ProdId") response.Write "" response.end %>