showskin.asp

来自「后台登陆admin.asp」· ASP 代码 · 共 25 行

<!--#include file="mdb.asp"-->
<%
dim rs,skinid
dim show,skinshowlog
skinid=clng(request("id"))
set rs=conn.execute("select skin1,skin2 from b_skin 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
rs.close
set rs=nothing
%>