<!--#include file="../common/conn.asp"-->
<%
if GetKey("Enable",WebUserID,"ad")="Yes" then
	strSQL="Select a_content From web_ad Where m_id=" & WebUserID & " And id=" & Cint(request.QueryString("id"))
	rs.open strSQL,conn,1,1
	if rs.recordcount>0 then
		strContent=replace(trim(rs("a_content")),"'","\'")
		strContent=replace(strContent,chr(13) & chr(10),"")
		response.Write("document.write('" & strContent & "');")
	else
		response.Write("document.write('ÔÝÎÞ¹ã¸æÄÚÈÝ£¡');")
	end if
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>