<!--#include file="../common/conn.asp"-->
<%
	strSQL="Select * From web_link Where m_id=" & WebUserID
	rs.open strSQL,conn,1,1
	if rs.recordcount>0 then
		strContent=replace(trim(rs("wl_content")),"'","\'")
		strContent=replace(strContent,chr(13) & chr(10),"")
		response.Write("document.write('" & strContent & "');")
	else
		response.Write("document.write('<center>网站友情链接<br><hr width=""90%"">如果您没有设置友情链接内容，请到后台的友情链接进行设置！<br><a href=admin>进入后台管理</a><center>');")
	end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>