<!--#include file = admin_conn.asp -->
<!--#include file = titleb.asp -->
<%
id=chkhtm(trim(request("id")))

if (not isNumeric(newsid)) then
  Response.Write "<Script Language=JavaScript>alert('ＩＤ参数错误或有非法字符或没指定参数，请勿随意提交数据！');location.href='/';</Script>"
  response.end  
end if


set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "select * from [tp] where id="&id&" order by id desc",conn,1,1
if rs.recordcount<>0 then
	DD=rs("DD")
	id=rs("id")
	title=rs("title")
	EndTime=rs("Endtime")
	if DD=1 then
		Ftype="radio"
	else
		Ftype="checkbox"
	end if
	Response.Write "document.write(""<table border=0><form method='POST' action='"&config("path")&"JS-TP2.asp?tpid="&id&"' target=_blank><tr><td>"");"
	Response.Write "document.write("""&rs("title")&"<BR>"");"
	
	set rs2 = Server.CreateObject("ADODB.RecordSet")
	rs2.Open "select * from [tptitle] where tpid="&rs("id")&" order by id desc",conn,1,1
	
	while not rs2.eof
	
	Response.Write "document.write(""<input type='"&Ftype&"' name='tps' id='"&rs2("id")&"' value='"&rs2("id")&"'>"");"
	Response.Write "document.write(""<label for='"&rs2("id")&"'>"&rs2("tpxx")&"</label><BR>"");"
	
	rs2.movenext
	wend

	Response.Write "document.write("""");"
	Response.Write "document.write("""");"
	Response.Write "document.write(""<input type='submit' value='提交'>"");"
	Response.Write "document.write(""</td></tr></form></table>"");"
end if
rs.close:set rs=nothing
conn.close:set conn=nothing
%>
 
