save.asp

html生成静态页的小程序

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Const dbdns=""%>
<!--#include file="AppCode/Conn.asp"-->
<!--#include file="AppCode/fun/function.asp"-->
<!--#include file="AppCode/Class/Ok3w_Guest.asp"-->
<%
If Not IsSelfRefer() Then Call MessageBox("请不要站外提交。","./")

Select Case Request.Form("action")
	Case "Comments"
		Set Guest = New Ok3w_Guest
		Call Guest.Add()
		Set Rs = Nothing
		Call CloseConn()
		Call MessageBox("非常感谢！你的评论已经成功提交；管理员审核后，才会显示出来。","article/" & Guest.TableID & ".html")
	Case "Message"
		Set Guest = New Ok3w_Guest
		Call Guest.Add()
		Set Rs = Nothing
		Call CloseConn()
		Call MessageBox("非常感谢！你的留言已经成功提交...","guest.asp")
End Select
%>