www.gusucode.com > Follow me超级搜索引擎 > admin/ewebsave.asp
<%Response.Charset = "GB2312"%> <!--#include File="../Conn.asp" --> <!--#include File="up1.asp" --> <% dbpath="../" dblink %> <!--#include file="check.asp"--> <% dim request2 '建立上传对象 set request2=New UpLoadClass '设置字符集 request2.Charset="gb2312" '打开对象 request2.Open() set rs=server.createobject("adodb.recordset") sql="select * from adminuser where username like '"&Session("admin")&"' " rs.open sql,conn,1,3 if request2.Form("strPhoto")<>"" then ppic="images/"+request2.Form("strPhoto") else ppic=rs("logo") end if rs("bbsgcolor")=trim(request2.Form("bbsgcolor")) rs("webname")=trim(request2.Form("webname")) rs("myurl")=trim(request2.Form("myurl")) rs("title")=trim(request2.Form("title")) rs("keywords")=trim(request2.Form("keywords")) rs("sfblank")=request2.Form("sfblank") rs("anname")=request2.Form("anname") rs("gg3")=request2.Form("other3") rs("sfcz")=request2.Form("sfcz") rs("ccount")=request2.Form("ccount") rs("logo")=ppic rs("web688zh")=trim(request2.Form("web688zh")) rs("baiduzh")=trim(request2.Form("baiduzh")) rs("googlezh")=trim(request2.Form("googlezh")) rs("xunleizh")=trim(request2.Form("xunleizh")) rs("sogouzh")=trim(request2.Form("sogouzh")) rs("taskcn")=trim(request2.Form("taskcn")) rs("zhubajie")=trim(request2.Form("zhubajie")) rs("dangdangzh")=trim(request2.Form("dangdangzh")) rs("amazonzh")=trim(request2.Form("amazonzh")) rs("zhongsouzh")=trim(request2.Form("zhongsouzh")) rs("alimamazh")=trim(request2.Form("alimamazh")) rs.update rs.close:set rs = nothing %> <!--#include File="htmlccight.asp" --> <!--#include File="htmlgg4.asp" --> <!--#include File="htmlccount.asp" --> <!--#include File="htmlindex.asp" --> <% conn.close:set conn= nothing response.write"<script>alert('修改成功!');location='"&request.ServerVariables("HTTP_REFERER")&"'</script>" %>