showskin.asp

博客模块：Blog是继Email、BBS、ICQ后的第四种网络交流方式

<!--#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()
%>