<%@language="vbscript" codepage="936" %>
<%path="../basedata"%>
<!--#include file="../conn/conn_link.asp"-->
<!--#include file="../inc/function.asp"-->
<%call Loginpower%>
<%call legalpower%>

<%
id=request.querystring("id")
if not idboolean(id) then response.write errorback("发现有错,请返回刷新页面"):response.end

set rs=server.createobject("adodb.recordset")
	sql="select * from url where url_id="&cint(id)
	rs.open sql,conn_link,1,3

	rs("url_identify")="no"

	rs.update

	rs.close
	set rs=nothing
	conn_link.close
	set conn_link=nothing
	response.redirect "General_manager.asp"
%>
