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>"
%>