data.asp

经过一些更改的留言板

<%
option explicit
Response.CacheControl = "no-cache"
dim conn,connstr,skin,style,rcPerPage,pageLinkNum
skin=getskin()
style=getstyle()
pageLinkNum=5		'页连接显示数
if style=1 then
	rcPerPage=10	'留言本式查看方式每页显示数
else
	rcPerPage=15	'讨论区式查看方式每页显示数
end if

Set Conn=Server.CreateObject("ADODB.Connection")   
'Connstr="DBQ="+server.mappath("public/ly.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;"   
connstr ="Provider = Microsoft.Jet.OLEDB.4.0; Data Source ="&Server.MapPath("public/9seek.mdb")
Conn.Open connstr

function encodestr(str)
	str=trim(str)
	str=replace(str,"<","&lt;")
	str=replace(str,">","&gt;")
	str=replace(str,"'","""")
	str=replace(str,vbCrLf,"<br>")
	encodestr=replace(str," ","&nbsp")
end function

function getskin()
	dim skin
	skin=request.cookies("skingb")
	if skin="" or not isNumeric(skin) then
		skin=1		'默认的界面风格
	else
		skin=int(skin)
	end if
	getskin=skin
end function

function getstyle()
	dim style
	style=request.cookies("style")
	if style="" or not isNumeric(style) then
		style=2		'默认显示方式，1留言本式，2讨论区式
	else
		style=int(style)
	end if
	getstyle=style
end function

sub connclose
	conn.close
	set conn=nothing
end sub

sub rsclose
	rs.close
	set rs=nothing
end sub
%>