<%@ LANGUAGE = "VBScript" %>
<!--#INCLUDE FILE="style.asp"-->
<%
startime=timer()
db="data\GuestbookDt.mdb"
db = Server.MapPath(db)
set conn=server.createobject("adodb.connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db
'如果你的服务器采用较老版本Access驱动，请用下面连接方法
'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & db
conn.Open connstr
PageSize = 6  '每页显示多条留言
showpage = 10  '一次显示多少页
admin = "乱刀杨过"
'设置消息背景颜色1
colors1="#FFFFFF"
'设置消息背景颜色2
colors2="#EAEAEA"
'设置背景颜色1
color1="#FF0000"
'设置边框颜色
color2="#000000"
'设置亮边框颜色
color3="#ffffff"
'设置暗边框颜色
Color4="#000000"
'设置线条颜色
Colorline="#000000"
'设置图像背景颜色
Colorimages="#FFFFFF"
'设置界面
skin=4
%>
<LINK target=_blank href=images/skin<%=skin%>/index.asp rel=stylesheet>
<%
Function guanggao
endtime=timer()
Response.write "<br><hr color=#000000 size=1><br><div align=center>本系统属&nbsp;<a href='http://www.zy995.com' title='点击进入通罗时代主页'><font color=red>通罗时代</font></a>&nbsp;所有</div><div align=center>制作设计 -- 乱刀杨过 &nbsp;&nbsp; 页面执行时间：<font color=red>"&FormatNumber((endtime-startime)*1000,3)&"</font>毫秒</div>"
end function
%>
<%
Function PageTitile(txt)
Response.write "<title>网吧留言系统 - "&txt&"</title>"
end function
%>

<!--#INCLUDE file="inc/UBB.asp"-->
<%
FUNCTION txtToURL(tekst)
Tekst_temp = tekst
Tekst_temp = Replace(Tekst_temp,"<","&lt;")
Tekst_temp = Replace(Tekst_temp,">","&gt;")
Tekst_temp = Replace(Tekst_temp,"'","&#39;")
txtToURL = unHtml(Tekst_temp)
END FUNCTION
%>
<% FUNCTION msgbox(yourvar)%>
<script language='javascript'> 
alert("<%=yourvar%>") 
</script> 
<%END FUNCTION
FUNCTION backurl(urls)
Response.redirect urls
END FUNCTION
function CloseDataBase
conn.close
set conn=nothing
END FUNCTION
%>