<!--#include file="conn.asp"-->
<%
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 "<table width=100% height=100%\><tr><td width=100% height=100% align=center>"
  Response.Write "你的网站信息已经成功提交!我们会在72小时内审核你的网站是否收录!"
  Response.Write "</td></tr></table>"
  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 "<table width=100% height=100%\><tr><td width=100% height=100% align=center>"
  Response.Write "新网站分类信息已经成功提交!我们会在72小时内审核(未审核通过的分类不在前台显示)!"
  Response.Write "</td></tr></table>"
  Response.End
 end if
end if
%>