<!--#include file="conn.asp"-->
<%
dim js,js1
js1="document.write('"
select case Request.QueryString("action")
case "zs"
	set rs=conn.execute("Select SitcomID from SitcomInfo Where tj=true")
	dim i
	if rs.eof then
		
	else
		js=js&"<table border=""0"" cellpadding=""4"" cellspacing=""4"" class=""body""><tr> "
		for i=1 to 6
			js=js&"<td><img src=""/manage/showpic.asp?SitcomID="&RS("SitcomID")&"&Size=Small"" width=""130"" height=""107""></td>"
		rs.movenext
        js=js&"</tr></table>"
		if rs.eof then exit for
		next
	end if
case "yq"
		'js=js&"<table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0""><tr>"
		p=0
		set rs=conn.execute("select * from LinkInfo")
		do while not rs.eof
			js=js&"<option value="""&rs("linkURL")&""" >"&Server.HTMLEncode(rs("LinkName"))&"</option>"
		rs.movenext
		loop
		'js=js&"</tr></table>"
		rs.close
case "gg"
	js=js & conn.execute("Select n_content from t_news where n_id=297")(0)
end select
Response.write js1&replace(replace(replace(replace(js,vbcrlf,""),"'","\'"),"\","\\"),"""","\""")&"');"
set rs=nothing
set conn=nothing
%>