<!--#include file="sql_noin.asp"-->
<!--#include file="conn.asp"-->
<%mc = request("ad")

if mc <> "" then
	set rs=server.createobject("adodb.recordset")
	''定位
	sql="select * from yrwl_ad_dhl where cl='1' and mc='" + mc & "'"
	rs.open sql,conn,1,1 
	if not rs.eof then
		code = rs("dcode")
		response.write "document.write(""" & code  & """);"
	end if
	rs.close
end if
call close_conn%>