adddata_link.asp

本系统为ASP版 1

<!--#include file="check.asp"-->
<!--#include file="mdb_path_info.asp"-->
<%
name=request("name")
url=request("url")
t=request("t")
about=request("about")
	if name="" or url="" then
		response.write "<font color='red'>表单不完整!</font><br>"
	else
		set r=server.createobject("adodb.recordset")
		r.open "select * from link where name='"&name&"'",conn,1,3
		if r.eof or r.bof then
		r.addnew
			r("name")=name
			r("url")=url
			r("t")=t
			r("about")=about
			r.update
			response.write "<font color='red'>新网站添加成功!</font><br>"
			response.write "<a href='#' onclick='window.close()'>关闭本窗口</a>"
		else
			response.write "<font color='red'>相同名称的网站已经存在!</font><br>"
			response.write "<a href='#' onclick='window.close()'>关闭本窗口</a>"			
		end if
	end if
%>