const.asp

多用户个人主页系统(ASP)

<%
dim cfg(12),skin(14)
Set rs=conn.execute("select CopyRight,Version,MyHpgName,MyHpgUrl,AdvStr,ServerMail,MaxUser,SendMail,SkinID,AdminName,AdminPass,FormatName,LogoUrl from [Config] where ID = 1")
	For i=0 to 12
		cfg(i)=rs(i)
	next
rs.close
if not isempty(skinid) then tempskin=cint(skinid)
if not isempty(request.querystring("skinid")) then tempskin=cint(request.querystring("skinid"))
if not isempty(tempskin) then
	Set rs = conn.execute("Select skinid from [Skin] where SkinID =" & cstr(tempskin))
		if not (rs.bof and rs.eof) then cfg(8)=tempskin
	rs.close
end if
Set rs = Conn.execute("Select SkinID,SkinName,TitleStyle,Td1,Td2,Td3,Font1,Font2,Font3,Link1,Link2,TableWidth,BorderColor,BodyStr,MsgsPerPage from [Skin] where SkinID =" & cfg(8))
	For  i=0 to 14
		skin(i)=rs(i)
	next
rs.close
%>