<!--#include file="../common/conn.asp"-->
<%
'检查用户权限
call checkuser("友情链接")
%>

<%
  	Content=replace(trim(GetVariable("Content")),"'","''")
	strsql="update web_link set "
	strsql=strsql &	 "wl_content='" & Content & "' "
	strsql=strsql &	" where m_id=" & WebUserID

conn.execute strsql,0,1
response.Write(strSQL)

  conn.close
  set conn=nothing 
%>
<body onLoad="window.parent.location=window.parent.location;alert('保存完毕!')"></body>