add_ok.asp

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

<!--#include file="../setup.asp"-->
<!--#include file="login_admin.asp"-->
<!--#include file="conn.asp"-->
<%
'================================================================================
'Product:K-Search Version 2.1
'本“软件产品”受《中华人民共和国著作权法》和《中华人民共和国计算机软件保护条例》 
'和国际条约的保护。如未经授权而擅自复制或传播本程序（或其中任何部分），将受到严厉
'的刑事及民事制裁，并将在法律许可的范围内受到最大可能的起诉！
'Homepage：http://www.lucoo.com/
'--------------------------------------------------------------------------------
'Copyright(c) 2005 lucoo.com All Rights Reserved 绿色互联 版权所有
'================================================================================
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 sort_id
dim keyword
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

keyword=filtration(request.form("keyword"))
set rs=server.createobject("adodb.recordset")
rs.open "select * from web where id is null",conn,1,3
rs.addnew
rs("sort_path")=path_id
rs("sort_id")=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"))
rs("sequence")="0"
rs("commend")="0"
rs("one_click_open")="0"
rs("verify")="0"
rs("click")="0"
rs("time")=date()
rs.update
rs.close
set rs = nothing
response.write "<Script>window.alert('网站添加成功');location.replace('add.asp?sort_id="&sort_id&"');</Script>"
%>