setup.asp

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

<%@ LANGUAGE=VBScript CodePage=936%>
<%
'Product:K-Search Version 2.1
'Homepage：http://www.lucoo.com/
'Copyright(c) 2005 lucoo.com All Rights Reserved
If Response.IsClientConnected Then 
Response.Flush 
Else 
Response.End 
End If

dim Query_Word
dim Form_Word
Query_Word="'☆and☆*☆select☆update☆chr☆delete☆%20from☆;☆insert☆mid☆master.☆set☆chr(37)☆="
'在这部份定义get非法参数,使用"☆"号间隔

Form_Word="'☆%☆&☆*☆#☆@☆="
'在这部份定义post非法参数,使用"☆"号间隔

if request.QueryString<>"" then
Query_Word=split(Query_Word,"☆")
for each Query_Name in Request.QueryString
for i=0 to ubound(Query_Word)
if Instr(LCase(request.QueryString(Query_Name)),Query_Word(i))<>0 then
response.write "<Script>window.alert('非法字符“"&Query_Word(i)&"”！');location.replace('index.asp');</Script>"
response.end
end if
next
next
end if

if request.form<>"" then
Form_Word=split(Form_Word,"☆")
for each Form_Name in Request.Form
for i=0 to ubound(Form_Word)
if Instr(LCase(request.QueryString(Form_Name)),Form_Word(i))<>0 then
response.write "<Script>window.alert('非法字符“"&Query_Word(i)&"”！');location.replace('index.asp');</Script>"
response.end
end if
next
next
end if

dim MerveName
dim ServeMail
dim MailServer
dim MailServerLoginName
dim MailServerLoginPass
dim MailUserDomain
dim WebSite_Title
dim Search_Path
dim Web_path
dim db
dim kdb
dim pass
dim keyword_add
dim page_showdb
dim admin_session

WebSite_Title="K风搜索 K-Search Version 2.1 Access 企业商业版"
'网页标题名称

Search_Path="/k-search/"
'安装目录，目录名称必须在/内（例：/search/），如果没有安装目录不需要填写（例：Search_Path=""）

Web_path="http://127.0.0.1/k-search/"
'安装系统的网址

db="database/#database.asp"
'系统数据库路径

kdb="database/#keyword.asp"
'关键词数据库路径

pass="ks21"
'后台管理安全密码设置

keyword_add="1"
'关键词自动录入开关，“0”表示不自动录入新搜索关键词，“1”表示自动录入新搜索关键词

page_showdb=20
'分类目录每页显示的网站数量

admin_session="ksearch_Login"
'管理登录权限Session名称

ServeMail="[e-mail]"
'发信的电子邮箱

MailServer="smtp.abc.com"
'发信服务器地址

MailServerLoginName="abc"
'E-MAIL登录帐号

MailServerLoginPass="abc"
'E-MAIL登录密码

MailUserDomain="www.abc.com"
'电子邮箱的域名
%>