showskin.asp

来自「实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下：管理员」· ASP 代码 · 共 36 行

<%
if session("globalecmaster")="" or session("masterflag")="" then
response.write "<script language='javascript'>"
response.write"parent.location.href='../login.asp';</SCRIPT>" 
response.end
end if
%>

<% data_path="../../" 'ACC连接数据库路径，对SQL无效 %>
<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/safe.asp"-->
<%
dim rs,skinid,userid
dim show,skinshowlog,i
skinid=clng(request("id"))
userid=clng(request("userid"))
if skinid>0 then
	set rs=conn.execute("select skinmain,skinshowlog from Yixiang_userskin where id="&skinid)
	if rs.eof then
		response.write "模版不存在！"
	else
		response.write rs(0)
		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 

%>