wz_add.asp

本系统为ASP版 1

<%Admin="SysSee"%>
<!--#include file="check.asp"-->
<!--#include file="mdb_path_info.asp"-->
<%
title=request("title")
url=request("url")
leibie=request("leibie")
memo=request("memo")
	if title="" or url="" or leibie="" then
		response.write "<font color='red'>表单不完整!</font><br>"
	else
		set r=server.createobject("adodb.recordset")
		r.open "select * from detail where title='"&title&"'",conn,1,3
		r.addnew
			r("title")=title
			r("url")=url
			if memo="" then
				r("memo")=" "&memo
			else
				r("memo")=memo
			end if
			r("classid")=leibie
			r("verity")=1
			r("hits")=0
			r("date")=now()
			r.update
			response.write "<font color='red'>新网站添加成功!</font><br>"
			response.write "<a href='#' onclick='window.close()'>关闭本窗口</a>"
	end if
%>