<!--#include file="../common/conn.asp"-->
<%
showPopWin=GetKey("Enable",WebUserID,"popwin")
if showPopWin="Yes" then
	strSQL="Select * From web_popwin"
	rs.open strSQL,conn,1,1
	if rs.recordcount>0 then
		strContent=replace(trim(rs("pw_content")&""),"'","\'")
		strContent=replace(strContent,chr(13) & chr(10),"")
		strContent="<body leftmargin=0 topmargin=0>" & strContent & "</body>"
		response.Write("var popwin=window.open('','','width=" & rs("pw_width") & ",height=" & rs("pw_height") & ",top=" & rs("pw_top") & ",left=" & rs("pw_left") & "');")
		response.Write("popwin.document.write('" & strContent & "');")
		response.Write("popwin.document.title='" & rs("pw_title") & "';")
	else
		response.Write("var popwin=window.open('','','width=200,height=150');")
		response.Write("popwin.document.write('<center>弹出式广告<br><hr>如果您没有设置弹出式广告内容，请到后台的公告管理进行设置！<a href=javascript:; onclick=window.open(\'admin\')>进入后台</a><center>');")
	end if
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>