adminsave.asp

睿网留言版 2004 v1.0

<!--#include file="conn.inc"-->
<%
if session("nimadebuyaokan")<>"tingbaxiaozi" then
   for i=1 to 10
   response.write "<br>"
   next
   response.write "<center>"
   response.write "你不是站长，请不要乱跑！" 
   response.write "好关闭窗口啦！"
   response.redirect "mblogin.asp"
end if
%>


<%
dim adminmail
dim adminname
dim counter
dim adminpass
dim adminhomepage
dim title
dim bgcolor1
dim backpic
dim bianchuang
dim maxperpage
dim banquan
dim zhizuo
dim pss
pss=request("pss")
if pss<>"1" then
 pss=0
else
 pss=1
end if
adminmail=request("adminmail")
adminname=request("adminname")
counter=request("counter")
adminpass=request("adminpass")
adminhomepage=request("adminhomepage")
title=request("title")
bgcolor1=request("bgcolor1")
backpic=request("backpic")
bianchuang=request("bianchuang")
maxperpage=request("maxperpage")
banquan=request("banquan")
zhizuo=request("zhizuo")
set rs=server.createobject("adodb.recordset")
sql="select * from admin where id=1"
rs.open sql,conn,1,3
if instr(1,zhizuo,"stanley",1)=0 then
 zhizuo="程序制作：<a href=mailto:[e-mail]>stanley</a>"
 rs("zhizuo")=zhizuo
end if
rs("adminemail")=adminmail
rs("adminname")=adminname
rs("counter")=counter
rs("adminpass")=adminpass
rs("adminhomepage")=adminhomepage
rs("title")=title
if bgcolor1<>"" then
rs("bgcolor1")=bgcolor1
end if
rs("background1")=backpic
rs("bianchuang")=bianchuang
rs("maxperpage")=maxperpage
rs("banquan")=banquan
rs("zhizuo")=zhizuo
rs("pss")=pss
rs.update
rs.close
set rs1=nothing
response.redirect "madmin.asp"
%>