ewebsave.asp

Follow me超级搜索引擎V6.2(完美版)绝对是目前全国功能最优秀的超级搜索引擎之一 全国已超过1000个网站和超过100家网吧正在使用本程序 (6.3和6.2功能上变化不大,但修复了很

<!--#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")=request2.Form("bbsgcolor")
rs("webname")=request2.Form("webname")
rs("myurl")=request2.Form("myurl")
rs("title")=request2.Form("title")
rs("keywords")=request2.Form("keywords")
rs("sfcz")=request2.Form("sfcz")
rs("sfblank")=request2.Form("sfblank")
rs("anname")=request2.Form("anname")
rs("gg3")=request2.Form("other3")
rs("logo")=ppic

rs.update
rs.close:set rs = nothing
conn.close:set conn= nothing

response.write"<script>alert('修改成功！');location='"&request.ServerVariables("HTTP_REFERER")&"'</script>"
%>