| |
<%
if request.cookies("iadmin") <> "admin" then
%>
<%
else
if iaction = "exit" then
response.cookies("iadmin") = ""
set rs = nothing
conn.close
set conn = nothing
response.redirect "index.asp"
response.end
end if
if iaction = "config" and request.cookies("iadmin") = "admin" then
iadmin = request.form("name")
ipassword = request.form("password")
iretype = request.form("retype")
ititle = request.form("title")
ihomepage = request.form("homepage")
iurl = request.form("url")
imax = request.form("max")
ipagesize = request.form("pagesize")
iqqshow = request.form("qqshow")
iimage = request.form("image")
icolor1 = request.form("color1")
icolor2 = request.form("color2")
icolor3 = request.form("color3")
if iadmin = "" or ipassword = "" or iretype = "" or ititle = "" or ihomepage = "" or iurl = "" or imax = "" or ipagesize = "" or iimage = "" or iqqshow = "" or icolor1 ="" or icolor2 = "" or icolor3 = "" then
ierror = "有未填项"
end if
if ipassword <> iretype then
ierror = "两次输入的密码不同"
end if
if ierror = "" then
sql = "select * from config"
rs.open sql,conn,3,2
rs("admin") = iadmin
rs("password") = ipassword
rs("title") = ititle
rs("homepage") = ihomepage
rs("url") = iurl
rs("max") = imax
rs("pagesize") = ipagesize
rs("image") = iimage
rs("qqshow") = iqqshow
rs("color1") = icolor1
rs("color2") = icolor2
rs("color3") = icolor3
rs.update
rs.close
set rs = nothing
ierror = "成功修改留言本设置 请单击退出"
end if
end if
%>
<%
end if
response.write ibottom
%>
|
|
