yd_guestbook_save.asp

是个不错的留言版

<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="YD_guestbook_CONN.asp" -->
<!--#include file="YD_guestbook_Const.asp" -->
<%
'------------------------------------------------------------------------
'By 玄天尊, 更新于2005-05-19 晚.
'和论坛结合的留言本,分会员与游客两种模式
'可定义是否使用验证码,防止恶意留言
'ACCESS与MSSQL通用版本
'www.YdSpace.org And www.YdSpace.net  异度空间技术部
'------------------------------------------------------------------------
Response.Buffer=True
Dvbbs.Stats="保存成功"
Dvbbs.Nav()
Dvbbs.Head_var 0,0,""&guestbook_setting(0)&"","YD_guestbook_index.asp"
select case request("action")
	case "information"
		call information()
	case else
		call main()
end select
Dvbbs.ActiveOnline
Dvbbs.footer()

sub main()
errmess="<li>请到有效入口进入。"
call endinfo(2)
End sub

sub information()
Dim act,sid,Flag
sid=request("sid")
act=request("act")
Flag=request("Flag")
If sid=1 then
	sucmess=""&act
Else
	errmess=""&act
End if
call endinfo(""&Flag)
End sub
%>