  <% 
	data_path="../" 'ACC连接数据库路径，对SQL无效
	numid="no"
	dir="no" 
  %>
 <!--#include file="../conn/conn.asp"-->
<!--#include file="../inc/safe.asp"-->
 <!--#include file="rolecheckout.asp"-->

<%
dim rs,skinid,userid
dim show,skinshowlog,i
skinid=clng(request("id"))
userid=clng(request("userid"))
if skinid>0 then
	set rs=server.CreateObject("adodb.recordset")
	sqld="select skinmain,skinshowlog from Websen_userskin where id="&skinid
    rs.OPen sqld,conn,1,1
	if rs.eof then
		response.write "模版不存在！"
	else
		response.write rs("skinmain")
		response.end
		skinshowlog=rs(1)
		
		for i=1 to 6
			skinshowlog=skinshowlog+rs(1)
		next
		
		show=replace(rs(0),"$show_log$",skinshowlog)

	end if
	set rs=nothing
end if 

%>