js-tp.asp

Art2008 CMS是一款具有强大的功能的基于ASP语言的网站管理软件

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

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

vote="vote"&id

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 class='wz'><form method='POST'  name=form"&vote&" ><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='button' value='投  票' name='B1' onclick='tou"&vote&"();'>"");"
	Response.Write "document.write(""</td></tr></form></table>"");"
    Response.Write "document.write(""<\script>function tou"&vote&"(){window.open('about:blank','tou','width=520,height=350,resizable=0,scrollbars=0');form"&vote&".action='"&config("path")&"js-tp2.asp?tpid="&id&"';form"&vote&".target='tou';form"&vote&".submit();}</\script>"");"
end if
rs.close:set rs=nothing
conn.close:set conn=nothing
%>