修正ASP GuestBook留言本的错误
-----------------------------------------------------
数据库的结构
gstbook.mdb
表config
结构
id autonumber(自动增量)
ownerchar 50留言本名称
pwdchar 10留言本维护密码
ps char 255 留言本的欢迎信息
homepage char 255 主页连接
注：id=1的记录用于保存站长的密码，
故ID=1的留言本不可用。
表book
id autonumber
guestbookIDlong
name char 50留言者的大名
sexchar 50留言者的性别
fromwherechar 50留言者来自何处
homepage char 255 留言者的主页
emailchar 255 留言者的电邮地址
contentmemo(备注) 留言者的留言内容
replymemo 回复内容
dateandtimechar 50留言的日期
飞鸟按：
应该再加上回复的时间，俺太懒就不改了。
关于数据检查
数据检查就是检查对方输入的内容，如果对方留言，就必须至少
输入名字和留言。本程序是放在服务器端检查，飞鸟感觉用客户
端去检查，然后弹出MSGBOX告诉对方输错了，比较烦人，而且还
不能用msgbox显示中文（在英文系统下不能显示）。
程序处理输入内容的流程
call getInput() '获得输入的内容
call chkInput() '检查输入的内容
if foundError then
'如果输入的内容有错误（比如少输入了内容，或长度超过了）
call showErrors()
'提示出错信息，并重新显示输入画面，对方已输入的内容
'也显示，方便对方修改
else
saveData()'保存输入的内容
if foundError then '保存数据出错（通常是数据库操作失败，
'飞鸟提供下载的程序实际上无法处理这
'种错误，鞠躬致歉，请阅读下面的内容）
call showErrors()
else
'显示正常的画面或redirect到别处去
end if
end if
处理错误
在文件的头上加上下面的语句
on error resume next
并且每个函数和过程内都应该加上这句
在可能出现错误的地方加上
if err.number<>0 then
'应保存错误信息，或进行适当的处理
err.clear
else
'不出错的情况
end if
举例：savedata.asp
<%
on error resume next
dim sql
dim rs
dim sBookID
dim sName
dim sEmail
dim sSex
dim sFrom
dim sHomePage
dim sInput
dim foundError
dim errorMsg
call getInput()
call chkInput()
if foundError then
call showErrors()
else
saveData()
if foundError then
call showErrors()
else
response.redirect "default.asp?id="&cstr(sBookID)
end if
end if
sub saveData()
on error resume next
dim cmdTemp
dim InsertCursor
dim dataconn
Set DataConn = Server.CreateObject("ADODB.Connection")
dataconn.open connstr
Set cmdTemp = Server.CreateObject("ADODB.Command")
Set InsertCursor = Server.CreateObject("ADODB.Recordset")
cmdTemp.CommandText = "SELECT * FROM book WHERE (name is null)"
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = dataconn
InsertCursor.Open cmdTemp, , 1, 3
InsertCursor.addnew
InsertCursor("guestbookid") =clng(sBookID)
InsertCursor("name") =sName
InsertCursor("sex") =sSex
InsertCursor("fromwhere") =sFrom
InsertCursor("homepage") =sHomePage
InsertCursor("email") =sEmail
InsertCursor("content") =sInput
InsertCursor("dateandtime") =cstr(now())
InsertCursor.Update
InsertCursor.close
dataconn.close
'提供下载的程序使用sql语句插入留言，但不能保存大容量的字符串，
'鞠躬致谦应该改成上面的形式，同理savaReply.asp也应做同样修改
if err>0 then
err.clear
foundError=true
ErrorMsg="<li>数 据 库 操 作 失 败 !</li>"
end if
end sub
sub chkInput()
'略
end sub
sub getInput()
'略
end sub
sub showErrors()
'略
end sub
%>
飞鸟的留言本还存在的问题
1.中文下使用函数len()不能求出字串的字节数
故inc/char.inc增加下列内容
dim WINNT_CHINESE
WINNT_CHINESE=(len("飞鸟论坛")=4)
function strLength(str)
if WINNT_CHINESE then
dim l,t,c
dim i
l=len(str)
t=l
for i=1 to l
c=asc(mid(str,i,1))
if c<0 then c=c+65536
if c>255 then
t=t+1
end if
next
strLength=t
else
strLength=len(str)
end if
end function
将len替换成strLength即可。
飞鸟按：鞠躬致歉
2.sub showErrors()中显示对方输入内容也存在问题
可以做以下的实验
不输入“大名”,在"来自"中输入"test test"（含空格）
连续提交两次，就会出现问题：空格变成了&#XXX; XXX大概是161还是160
如果在留言中输入</textarea>也会出现问题
解决：在inc/char.inc增加函数htmlencode2()
function htmlencode2(str)
dim result
dim l
l=len(str)
result=""
dim i
for i = 1 to l
select case mid(str,i,1)
case "<"
result=result+"<"
case ">"
result=result+">"
case chr(34)
result=result+"""
case "&"
result=result+"&"
case chr(9)
result=result+""
case else
result=result+mid(str,i,1)
end select
next
htmlencode2=result
end function
而sub showErrors() 改成
<input class="smallInput" type="text" name="txtFrom" size="11"
value="<%=htmlencode2(sFrom)%>">
即可，其他的输入项目也同样修改（包括textarea）
飞鸟按：飞鸟提供下载的asp wwwboard也存在同样的问题，处理方法也一样。
鞠躬致歉
3.修改conn.inc处理无法创建connection的情况
<%
dim conn
dim connstr
dim sessionname
sessionname="gstbookconn"
on error resume next
connstr="DBQ="+server.mappath("db/gstbook.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;"
if isobject(session(sessionname)) then
set conn=session(sessionname)
else
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
%>
<script language="javascript">
top.location="bookerr.htm"
</script>
<%'bookerr.htm显示一些出错信息，比如数据库连接过多，请以后访问
else
conn.open connstr
set session(sessionname)=conn
end if
end if
%>
飞鸟按：
就不提供补丁程序了，大家如果需要修改的话，就自己改8，
自己动手会有更多的心得。 :-)
关键词：生蛋节礼物一分。