<%
action=request("action")
memo=request("memo")
title=request("title")
email=request("email")
url=request("url")
classname=request("classname")
leibie=request("leibie")
if action="add_wz" then
if title="" or memo="" or url="" or email="" or leibie="" then
response.write "表单填写不完整！"
response.end
end if
if session("lastaddedwz")<>title then
set rss=server.createobject("adodb.recordset")
rss.open "select * from detail",conn,1,3
rss.addnew
rss("title")=title
rss("url")=url
rss("classid")=leibie
rss("email")=email
rss("memo")=memo
rss("verity")=0
rss.update
rss.close
set rss=nothing
session("lastaddedwz")=title
response.write "| "
response.write "你的网站信息已经成功提交！我们会在72小时内审核你的网站是否收录！"
response.write " |
"
response.end
end if
end if
if action="add_leibie" then
if classname="" or leibie="" then
response.write "表单填写不完整！"
response.end
end if
if session("lastaddedleibie")<>classname then
set rss=server.createobject("adodb.recordset")
rss.open "select * from feilei",conn,1,3
rss.addnew
rss("classname")=classname
rss("topclass")=leibie
set r=server.createobject("adodb.recordset")
r.open "select * from feilei where classid="&leibie,conn,1,3
if not r.eof then
level=r("level")+1
else
level=1
end if
r.close
set r=nothing
rss("level")=level
if memo="" then memo=" "
rss("memo")=memo
rss("verity")=0
rss.update
rss.close
set rss=nothing
session("lastaddedleibie")=classname
response.write "| "
response.write "新网站分类信息已经成功提交！我们会在72小时内审核（未审核通过的分类不在前台显示）！"
response.write " |
"
response.end
end if
end if
%>
中国木业网址大全 新站登录
|
