config.asp

不错的一个网站哦, 不错的一个网站哦

<!--#include file="topu_mdb/conn.asp" -->
<%
function encode(str)
str = Replace(str, "<br>", "[br]")
str = Replace(str, ">", "&gt;")
str = Replace(str, "<", "&lt;")
str = Replace(str, CHR(32), " ")
str = Replace(str, CHR(9), "&nbsp;")
str = Replace(str, CHR(34), "&quot;")
str = Replace(str, CHR(39), "&#39;")
str = Replace(str, CHR(13), "")
str = Replace(str, CHR(13) & CHR(10), "[BR]")
str = Replace(str, CHR(10) & CHR(10), "</P><P>")
str = Replace(str, "[BR]", "<BR>")
encode=str
end function
sql = "SELECT * FROM admin " 
Set rs = Server.CreateObject("ADODB.Recordset")
rs.OPEN sql,Conn,1,1
if not(rs.eof and rs.bof) then
logo=rs("logo")

title=rs("title")
desktoptitle=""
bbs=rs("bbs")
cy=encode(rs("bottom"))
bgcolor="#044C49"'背景颜色,首页背景是用图片的,所以更改这里是没有用的,要改只能改背景图片了,背景图片名为bg.jpg在根目录中,一看就看到了的.
titlecolor="#669999"'例表颜色
xcolor="#887DDD"'边框线颜色
fontcolor="#020202"'文字颜色
end if
rs.close
Set rs=nothing
%>