各位帮忙看一下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")
%>
<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")
%>
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货