<%
dim user_skin
user_skin=100
sub user_skin_input(v_n,acturl)
	dim tmp_i,sql3,rs3,rs2,sql2

   sql2="select count(id) from oblog_userskin "
set rs2=joekoe_cms.exec(sql2,1)
rssum=rs2(0)
  rs2.close
  if int(rssum)<1 then
     response.write "<table cellpadding='4' cellspacing='1' class=table><tr><td class=td>没有样式</td></tr><tr class=tr height=150><td align=center >没有样式</td></tr></table>"
  exit sub
  end if
  call format_pagecute()
  
	
	if not IsNumeric(v_n) then v_n=1
	v_n = int(v_n)
	if v_n>user_skin or v_n<0 then  v_n=1
	response.write "<table width=300><tr>"
	
  sql3="select * from oblog_userskin order by id "
  set rs3=joekoe_cms.exec(sql3,1)

  
    if int(viewpage)>1 then rs3.move (viewpage-1)*nummer
  if int(viewpage*nummer)>int(rssum) then nums=nummer-(viewpage*nummer-rssum)
   for tmp_i=1 to nums

	if tmp_i>3 and tmp_i mod 3 = 1 then response.write vbcrlf&"</tr><tr>"
		response.write vbcrlf&"<td align=center><img width=160 height=120 src='/blog/"&trim(rs3("skinpic"))&"'><br>"
		response.write        "<input class=bg_td type=radio name=skin value="&trim(rs3("id"))
		if v_n=tmp_i then response.write "checked"
		response.write ">样式-[<font color=red >"&trim(rs3("userskinname"))&"</font>]</td>"
	    rs3.movenext
	next
	%></tr><tr class=trb height=26><td colspan=4>&nbsp;共有<font class=red><%response.write rssum%></font>个模板&nbsp;页次：<font class=red><%response.write viewpage&"</font>/<font class=red>"&thepages%></font>&nbsp;分页：<% response.write jk_pagecute(nummer,thepages,viewpage,""&acturl&"?action=adn&",5,"#ff0000") %></td>
	<%
	response.write vbcrlf&"</table>"
		rs3.close
		set rs3=nothing
end sub
%>