style.asp

程序网络论坛HigroupBBS v4.00 默认管理员帐号密码都是Marcos

<!--#include file="MarcosCB.asp"-->
<%
	getConn()

	dim str,body,theAct,skinId,pageTitle,pageOther,pageCode,PageStyle
	
	theAct=getPost("theAct")
	skinId=getPost("skinId")
	if theAct="select" then
		setValue m&"mySkinId",skinId
		response.cookies(m&m&"mySkinId").expires=now()+365
		locate "style.asp"
	end if
	
	str=getMainCode(mySkinId)
	
	pageTitle="<a href=style.asp>修改我的界面风格</a>"
	pageOther="<script>document.title+=' - 修改我的界面风格';</script>"
	nowWhere "修改我的界面风格","style.asp"
	
	showHead str,pageTitle,pageOther
	showBody()
	showFoot(str)
	
	sub showBody()
		pageCode=getPageCode(mySkinId,"PageStyle")
		PageStyle=split(pageCode,"$$$")
		body=PageStyle(0)
		sql="select skinId,skinName from Marcos_Skin order by theOrder"
		rs.open sql,conn,1,1
		for i=1 to rs.recordCount
			body=body&PageStyle(1)
			body=replace(body,"{$checked}","{$checked"&i&"}")
			body=replace(body,"{$skinId}",i)
			body=replace(body,"{$skinName}",rs(1))
			rs.movenext
		next
		body=body&PageStyle(1)
		body=replace(body,"{$skinId}","")
		body=replace(body,"{$skinName}","系统默认")
		body=body&PageStyle(2)
		rs.close
		queryTimes=queryTimes+1
		body=replace(body,"{$checked"&getValue(m&"mySkinId")&"}","checked")
		echo body
	end sub

	closeConn()
%>