各位帮忙看一下asp+access做的网站 数据编辑点击修改提示修改成功,但是并没有修改代码如下:changewebconfig.asp:
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="error.ini"-->
<!--#include file="../MD5/md5.asp" -->
<!--#include file="conn.asp"-->
<%if session("flag")>1 then
    response.write "<script>alert('您的操作权限不够!');history.back();</script>"
    response.end
end if
%>
<%  function HTMLEncode1(fString)
fString = Replace(fString, "http://", "")
HTMLEncode1 = fString
    end function
%>
<%
set rs=server.createobject("adodb.recordset")
   rs.open "select * from home",conn,1,3
   rs("homes")=trim(request("homes"))
   rs("en_name")=trim(request("en_name"))
   url=HTMLEncode1(request("url"))
   rs("weburl")=url
   rs("urls")=request("urls")
  rs("fuwu")=request("fuwu")
   rs("nj_tel")=request("nj_tel")
   rs("hz_tel")=request("hz_tel")
   rs("fz_tel")=request("fz_tel")
   rs("cs_tel")=request("cs_tel")
   rs("nc_tel")=request("nc_tel")
     rs("gonggao")=request("gonggao")
   rs("wh_tel")=request("wh_tel")
     rs("webmail")=request("webmail")
   rs("sd_tel")=request("sd_tel")
   
   rs("sitephone")=request("phone")
   rs("Mob_phone")=request("Mob_phone")
   rs("qqone")=request("qqone")
   rs("Mob_phone")=trim(request("Mob_phone"))
   rs("fax")=request("fax")
   rs("mail")=request("mail")
   rs("address")=request("address")
   rs("en_address")=request("en_address")
   rs("webtitle")=request("webtitle")
      rs("gd_mob")=request("gd_mob")
   rs("en_webtitle")=request("en_webtitle")
   rs("beian")=request("beian")
   rs("lxr")=request("lxr")
      rs("en_lxr")=request("en_lxr")
   rs("zip")=request("zip")
   rs("keywords")=request("keywords")
   rs("en_keywords")=request("en_keywords")
  ' rs("banquan")=request("banquan")   rs.update
   rs.close   set rs=nothing
   conn.close
   set conn=nothing
'response.redirect "main.asp"
response.write "<script>alert('修改成功!');window.location.href='"&Request.ServerVariables("HTTP_REFERER")&"';</script>"    
'response.redirect Request.ServerVariables("HTTP_REFERER")
%>