wz_add.asp

来自「是个不错的文件代码,希望大家好好用,」· ASP 代码 · 共 28 行

<!--#include file="conn.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.update
			response.write "<font color='red'>新网站添加成功!</font><br>"
			response.write "<a href='#' onclick='window.close()'>关闭本窗口</a>"
	end if
%>