<%@language="vbscript" codepage="936" %>
<%path="../basedata"%>
<!--#include file="../conn/conn_link.asp"-->
<!--#include file="../inc/function.asp"-->
<%call Loginpower%>
<%call legalpower%>
<%
dim dl_http,dl_into,dl_alins,dl_endtail,dl_strart,dl_end,dl_change_id1,dl_change_word1,dl_change_id2,dl_change_word2,dl_Proxy,dl_Languages,dl_Content_Type,dl_cookies,dl_Accept_Language,dl_User_Agent,dl_Accept,dl_Connection,dl_Cache_Control,dl_Pragma

dl_http=request.form("dl_http")
dl_into=request.form("dl_into")
dl_alins=request.form("dl_alins")
dl_endtail=request.form("dl_endtail")
dl_strart=request.form("dl_strart")
dl_end=request.form("dl_end")
dl_change_id1=request.form("dl_change_id1")
dl_change_word1=request.form("dl_change_word1")
dl_change_id2=request.form("dl_change_id2")
dl_change_word2=request.form("dl_change_word2")
dl_Proxy=request.form("dl_Proxy")
dl_Languages=request.form("dl_Languages")
dl_Content_Type=request.form("dl_Content_Type")
dl_cookies=request.form("dl_cookies")
dl_Accept_Language=request.form("dl_Accept_Language")
dl_User_Agent=request.form("dl_User_Agent")
dl_Accept=request.form("dl_Accept")
dl_Connection=request.form("dl_Connection")
dl_Cache_Control=request.form("dl_Cache_Control")
dl_Pragma=request.form("dl_Pragma")
bate_test=request.form("bate_test")

dim rs1,rs,sql
set rs1=conn_link.execute("select * from url where url_alias='"&dl_alins&"'")
	if not rs1.eof and not rs1.bof then response.write errorback("有重复的 指站别名 存在!"):response.end
set rs=server.createobject("adodb.recordset")
	sql="select * from url"
	rs.open sql,conn_link,1,3

	rs.addnew
	rs("url_identify")="yes"
	rs("url_alias")=dl_alins
	rs("url_http")=dl_http
	rs("url_into")=dl_into
	rs("url_start")=dl_strart
	rs("url_end")=dl_end
	rs("url_endTail")=dl_endtail
	rs("url_change_id1")=dl_change_id1
	rs("url_change_word1")=dl_change_word1
	rs("url_change_id2")=dl_change_id2
	rs("url_change_word2")=dl_change_word2
	rs("url_Proxy")=dl_Proxy
	rs("url_Languages")=dl_Languages
	rs("url_Content_Type")=dl_Content_Type
	rs("url_cookies")=dl_cookies
	rs("url_Accept_Language")=dl_Accept_Language
	rs("url_User_Agent")=dl_User_Agent
	rs("url_Accept")=dl_Accept
	rs("url_Connection")=dl_Connection
	rs("url_Cache_Control")=dl_Cache_Control
	rs("url_Pragma")=dl_Pragma
	rs("url_dl_http")=bate_test

	rs.update

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