<%
' ############################ 留言本设定部分 (注意以下设定部分的文字中不能出现引号,否则会出错) ##############################
inc_pagesize = 8 '每页显示留言数,默认为15
inc_adminname = "sleeping" '超管用户名
inc_adminpass = "123456" '超管密码
inc_database = "gbook.mdb" '数据库名称,要与本程序放在同一个目录下
' ############################ 留言本设定部分结束 ##############################
Set ConnObj = Server.CreateObject("ADODB.Connection")
ConnObj.Open "Provider=Microsoft.Jet.Oledb.4.0;Data Source="&Server.MapPath(inc_database)
Set RSObj = Server.CreateObject("ADODB.Recordset")
'定义一个处理引号错误的函数
FUNCTION FixQuotes( fString )
if not isnull(fString) then
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, CHR(32), " ")
fString = Replace(fString, CHR(9), " ")
fString = Replace(fString, CHR(34), """)
fString = Replace(fString, CHR(39), "'")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "
")
fString = Replace(fString, CHR(10), "
")
fString=GetNode(fString)
FixQuotes = fString
end if
end function
function getNode(vStr)
dim blnNode
dim strContext
dim strNodetext
Dim strTabtext
Dim strTabValue
dim i
dim str
blnNode=true
strContext=""
strNodetext=""
strTabtext=""
strTabValue=""
for i=1 to len(vStr)
str=mid(vStr,i,1)
select case str
case "<"'不可以替换引号
If Trim(strNodetext)<>"" Then
strContext=strContext & strNodetext
strNodetext=""
End If
blnNode=false
strContext= strContext & str
case ">"'可以替换引号
blnNode=true
strContext= strContext & str
Case " "
If blnNode=true then
strContext=strContext & " "
End IF
case else'合并其它字符
if blnNode=true then'网页显示内容
strNodetext=strNodetext & str
else'Html标记
strContext= strContext & str
end if
end select
next
strContext= strContext & strNodetext
getNode=strContext
end function
%>
Guest
<%
'管理员登录界面开始
If Request.QueryString("admin") = 1 Then
'判断是否退出
If Request.QueryString("admin_logout") = 1 Then
Session.Abandon
Response.Redirect("index.asp")
End if
If Request.form("admin_login") <> 1 Then
%>
