<!--#include file="conn.asp"-->
<!--#include file="../../inc/filter.asp"-->
<%
Rem 获得待修改的友情链接信息
dim id
id=trim(request("id"))
if(id="") then
	response.Write("<script language='javascript'>")
	response.Write("alert('输入参数不能为空');")
	response.Write("window.location='main_body.asp';")
	response.Write("</script>")
else
	if(ChkBadWord(id)<>0) then
		response.Write("<script language='javascript'>")
		response.Write("alert('输入参数包含非法字符');")
		response.Write("window.location='main_body.asp';")
		response.Write("</script>")
	else
		set rs=Server.CreateObject("ADODB.RecordSet")
		rs.open "select * from [fksf_link] where id="&id,conn,1,1
		webname=rs("linkname")
		weburl=rs("linkurl")
		rs.close()
		set rs=nothing
	end if
end if
%>