showskin.asp

来自「博客程序整站（完整）」· ASP 代码 · 共 22 行

<!--#include file="conn.asp"-->
<%
dim rs,skinid
dim show,skinshowlog
skinid=clng(request("id"))
set rs=conn.execute("select skinmain,skinshowlog from userskin where id="&skinid)
if rs.eof then
	response.write "模版不存在！"
else
	skinshowlog=rs(1)
	dim i
	i=0
	for i=0 to 5
		i=i+1
		skinshowlog=skinshowlog+rs(1)
	next
	show=replace(rs(0),"$show_log$",skinshowlog)
	response.write show
end if
set rs=nothing
call closeconn()
%>