manage.asp

来自「完整的网址站」· ASP 代码 · 共 42 行

<!--#include file="config.asp"-->
<%
dim founderr,errmsg
founderr=false
errmsg=""
if session("adminlogin")<>sessionvar then
  founderr=true
  errmsg=errmsg+"<br>"+"<li>你尚未登录，或者超时了！请<a href='index.asp'>重新登录</a>！"
  call diserror()
  response.end
end if
%>
<%
copyright=Request("copyright")
title=Request("title")
url=Request("url")
name=Request("name")
upopen=Request("upopen")
logo=Request("logo")
logo2=Request("logo2")
email=Request("email")
keywords=Request("keywords")
description=Request("description")
	set r=server.createobject("adodb.recordset")
	r.open "select * from happywz_CONFIG ",conn,1,3
	if not r.eof then
	        r("email")=email
	        r("title")=title
			r("name")=name
			r("url")=url
            r("upopen")=upopen
            r("copyright")=copyright
            r("logo")=logo
            r("logo2")=logo2
			r("keywords")=keywords
            r("description")=description
			r.update
errmsg="<li>网站信息修改成功!<br>"
call disok()
end if
%>