web_manage_ok.asp

K风搜索 2.1商业版 完整功能版 后台http://XXXXXX/admin/ 管理帐号：admin 管理密码：admin 安全密码： ks21 网站设置http://XXXXXX/

<!--#include file="../setup.asp"-->
<!--#include file="login_admin.asp"-->
<%
'================================================================================
'Product:K-Search Version 2.1
'本“软件产品”受《中华人民共和国著作权法》和《中华人民共和国计算机软件保护条例》 
'和国际条约的保护。如未经授权而擅自复制或传播本程序（或其中任何部分），将受到严厉
'的刑事及民事制裁，并将在法律许可的范围内受到最大可能的起诉！
'Homepage：http://www.lucoo.com/
'--------------------------------------------------------------------------------
'Copyright(c) 2005 lucoo.com All Rights Reserved 绿色互联 版权所有
'================================================================================
if session("rank")<>1 then
response.write "<Script>window.alert('您的管理员级别不能操作！');history.go(-1);</Script>"
response.end
end if
%>
<!--#include file="conn.asp"-->
<%
function filtration(str)
str=replace(str,chr(32),"")
str=replace(str,chr(34),"")
str=replace(str,chr(35),"")
str=replace(str,chr(37),"")
str=replace(str,chr(38),"")
str=replace(str,chr(39),"")
str=replace(str,chr(40),"")
str=replace(str,chr(41),"")
str=replace(str,chr(42),"")
str=replace(str,chr(43),"")
str=replace(str,chr(59),"")
str=replace(str,chr(60),"")
str=replace(str,chr(61),"")
str=replace(str,chr(62),"")
filtration=str
end Function

dim rs
dim id
dim sort
dim sort_path
dim sort_id
dim keyword
dim name
dim email
dim oicq
dim address
dim postcode
dim show_path
dim sequence
dim sequence_time
dim commend
dim commend_time
dim one_click
dim one_click_time
dim one_click_open

sort_id=filtration(request.form("sort_id"))
if sort_id<>"" then
set rs=server.createobject("adodb.recordset")
rs.open "select id,sort,sort_id from sort where id="&sort_id,conn,1,1
if rs.eof and rs.bof then
'
else
dim iid,ssort,ssort_id
iid=rs("id")
ssort=rs("sort")
ssort_id=rs("sort_id")
end if
rs.close
set rs = nothing

dim path_id
path_id="/"&iid&"/"
if ssort_id<>0 then
for i=1 to 8 step 1
set rs=conn.execute("select id,sort,sort_id from sort where id="&ssort_id)
if rs.eof and rs.bof then
'
else
ssort_id=rs("sort_id")
path_id="/"&rs("id")&""& path_id
end if
rs.close
set rs = nothing
next
end if
end if

id=filtration(request.form("id"))
keyword=filtration(request.form("keyword"))
name=filtration(request.form("name"))
email=filtration(request.form("email"))
oicq=filtration(request.form("oicq"))
address=filtration(request.form("address"))
postcode=filtration(request.form("postcode"))
show_path=filtration(request.form("show_path"))
sequence=filtration(request.form("sequence"))
sequence_time=filtration(request.form("sequence_time"))
commend=filtration(request.form("commend"))
commend_time=filtration(request.form("commend_time"))
one_click=filtration(request.form("one_click"))
one_click_time=filtration(request.form("one_click_time"))
one_click_open=filtration(request.form("one_click_open"))

if one_click<>"" and one_click_open=1 then
set rs=server.createobject("adodb.recordset")
rs.open "select id,one_click,one_click_open from web where one_click_open=1 and one_click='"&one_click&"'",conn,1,1
if rs.eof and rs.bof then
'
else
if rs("id")<>cint(id) then
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write "<Script>window.alert('关键词“"&one_click&"”已经设置一点通弹出窗口！');history.go(-1);</Script>"
response.end
end if
end if
rs.close
set rs=nothing
end if

set rs=server.createobject("adodb.recordset")
rs.open "select * from web where id="&id,conn,1,3
rs("sort_path")=path_id
rs("sort_id")=filtration(request.form("sort_id"))
rs("title")=filtration(request.form("title"))
rs("url")=filtration(request.form("url"))

if keyword="" then
rs("keyword")=null
else
rs("keyword")=keyword
end if

rs("content")=filtration(request.form("content"))

if name="" then
rs("name")=null
else
rs("name")=name
end if

if email="" then
rs("email")=null
else
rs("email")=email
end if

if oicq="" then
rs("oicq")=null
else
rs("oicq")=oicq
end if

if address="" then
rs("address")=null
else
rs("address")=address
end if

if postcode="" then
rs("postcode")=null
else
rs("postcode")=postcode
end if

rs("verify")=filtration(request.form("verify"))

if show_path="" then
rs("show_path")=Null
else
rs("show_path")=show_path
end If

if sequence="" then
rs("sequence")="0"
else
rs("sequence")=sequence
end if

if sequence_time="" then
rs("sequence_time")=Null
else
rs("sequence_time")=sequence_time
end if

if commend="" then
rs("commend")="0"
else
rs("commend")=commend
end if

if commend_time="" then
rs("commend_time")=Null
else
rs("commend_time")=commend_time
end if

if one_click="" then
rs("one_click")=Null
else
rs("one_click")=one_click
end if

rs("one_click_open")=one_click_open

if one_click_time="" then
rs("one_click_time")=Null
else
rs("one_click_time")=one_click_time
end if

rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write "<Script>window.alert('网站登录信息修改成功');location.replace('"&session("url")&"');</Script>"
%>