<!--#include File="inc/conn.asp"-->
<%
Response.Charset="gb2312"
if session("user_id")="" then
response.Write("login_no")
else
Dim id
Dim Rs,Sql 
id = Replace(Trim(Request.QueryString("id")),"'","")
	Set Rs = Server.CreateObject("ADODB.Recordset")
	Sql = "Select * From add Where add_base_id='"&id&"' and add_user_id='"&session("user_id")&"'"
	Rs.Open Sql,Conn,3,3
	If not Rs.Eof Then
		Response.Write("url_no")
	Else
	rs.addnew()
	rs("add_base_id")=id
	rs("add_user_id")=session("user_id")
	Response.Write("url_yes")
	rs.update
	rs.close
	set rs=nothing
	End If
conn.close
set conn=nothing
End If
%>