yd_guestbook_const.asp

是个不错的留言版

<!--#include file="YD_plus/inc/DvADChar.asp"-->
<%
'------------------------------------------------------------------------
'By 玄天尊, 更新于2005-05-19 晚.
'和论坛结合的留言本,分会员与游客两种模式
'可定义是否使用验证码,防止恶意留言
'ACCESS与MSSQL通用版本
'www.YdSpace.org And www.YdSpace.net  异度空间技术部
'------------------------------------------------------------------------
Dim guestbook_setting,User_Setting,Shenhe_Setting,Guestbook_User,Isshenhe
Dim errmess,sucmess,page_count,Pcount,totalrec,currentpage,written_connconn
if Dvbbs.UserID<>0 then
	Guestbook_User=1
else
	Guestbook_User=0
end if

'读取设置信息
Set Rs=guestbook_conn.execute("select * from [YD_Guest_Config]")
guestbook_setting=split(Rs("guestbook_setting"),",")
User_Setting=split(Rs("User_Setting"),"|")
Rs.close
Set Rs=nothing

'过滤HTML代码
function HTMLEncode(fString)
	If not isnull(fString) then
		fString = replace(fString, ">", "&gt;")
		fString = replace(fString, "<", "&lt;")
		fString = Replace(fString, CHR(32), "<I></I>&nbsp;")
		fString = Replace(fString, CHR(9), "&nbsp;")
		fString = Replace(fString, CHR(34), "&quot;")
		fString = Replace(fString, CHR(39), "&#39;")
		fString = Replace(fString, CHR(13), "")
		fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
		fString = Replace(fString, CHR(10), "<BR> ")
		HTMLEncode = fString
	End if
End function

Sub endinfo(flag) 
%>
<table class=tableborder1 cellspacing=1 cellpadding=3 align=center>
  <tr>
    <th valign=center align=middle height=23><b>操作信息提示</b></th>
  <tr>
    <td class=tablebody1>
<%
	If errmess<>"" then
		response.Write "<b>产生错误的可能原因：</b><br><br><li>您是认真填写要求的内容，请返回并仔细填写。"
		response.Write "<font color=red>"&errmess&"</font>"
	Else
		response.Write "<b>操作成功：</b><br><br><li>操作成功，请返回进行其它操作"
		response.Write "<font color=navy>"&sucmess&"</font>"
	End if
%>	
    </td>
  </tr>
  <tr>
    <td class=tablebody2 height=25 align="center">
<%
	if flag=0 then
		response.Write "<a href=""index.asp""><< 返回论坛</a>