📄 join_ok.asp
字号:
<!--#include file="setup.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
dim sort_path
dim sort_id
dim path
dim path_id
dim url
sort=filtration(request.form("sort"))
sort_id=filtration(request.form("sort_id"))
url=filtration(request.form("url"))
oicq=filtration(request.form("oicq"))
set rs=conn.execute("select id,sort,sort_id from sort where id="&sort_id)
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
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
set rs=conn.execute("select url from web where url like '%" & url & "%'")
if not rs.eof then
rs.close
set rs=Nothing
conn.close
set conn=nothing
response.write "<Script>window.alert('已经存在“"&url&"”这个网站！');history.go(-1);</Script>"
url=null
else
rs.close
set rs=Nothing
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")=url
rs("keyword")=filtration(request.form("keyword"))
rs("content")=filtration(request.form("content"))
rs("name")=filtration(request.form("name"))
rs("email")=filtration(request.form("email"))
if oicq="" then
rs("oicq")=null
else
rs("oicq")=oicq
end if
rs("address")=filtration(request.form("address"))
rs("postcode")=filtration(request.form("postcode"))
rs("sequence")="0"
rs("commend")="0"
rs("one_click_open")="0"
rs("verify")="-1"
rs("click")="0"
rs("time")=date()
rs.update
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<html>
<head>
<title><%=WebSite_Title%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="css/style.css">
</head>
<body leftmargin="5" topmargin="0" marginwidth="0" marginheight="5">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="100"> </td>
<td width="268" align="center"><img src="image/logo.gif" width="200" height="60"></td>
<td> </td>
</tr>
<tr>
<td height="20" colspan="3"></td>
</tr>
</table>
<table border="0" align="center" cellpadding="5" cellspacing="0">
<tr align="center" bgcolor="#f5f5f5">
<td width="55" height="20"><a href="index.asp">网站搜索</a></td>
<td width="55" bgcolor="#f5f5f5"><a href="dir.asp">分类目录</a></td>
<td width="55" bgcolor="#f5f5f5"><a href="protocol.asp"><strong>网站登录</strong></a></td>
<td width="55" bgcolor="#f5f5f5"><a href="admin.asp">网站修改</a></td>
<td width="55" bgcolor="#f5f5f5"><a href="help.asp">搜索帮助</a></td>
</tr>
</table>
<!--#include file="query.asp" -->
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="20"></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tbody>
<tr>
<td width="545" height="25"> </td>
</tr>
<tr>
<td height="25" align="center"><strong>恭喜您：网站登录成功！</strong></td>
</tr>
<tr>
<td height="25" align="center">在一周内我们会对您提交的网站登录信息作出审核</td>
</tr>
<tr>
<td height="25" align="center">网站需要审核通过后才可以录入搜索引擎</td>
</tr>
<tr>
<td height="25"> </td>
</tr>
</tbody>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="20"></td>
</tr>
</table>
<!--#include file="bottom.asp" -->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -