setting.asp

正版创力4.1SQL商业版!!!ASP版。

<!--#include file="../Conn.asp"-->
<!--#include file="../Inc/Cl_ClsSysTem.asp"-->
<!--#include file="../Inc/Cl_ClsTemplate.asp"-->
<!--#include file="../Inc/Cl_Function_Public.asp"-->
<!--#include file="../Inc/Cl_ClsUbb.asp"-->
<%
Const TempLateIndex	= "Template/Index.html"
Const TempLateList	= "Template/List.html"
Const TempLateShow	= "Template/Show.html"
Const TempLateShowPK= "Template/ShowPK.html"
Const TempLateWrite	= "Template/Write.html"
Const TempLateJs	= "Template/Js.html"
Const UseValidCode	= 1 Rem 是否使用验证码 1为是
Dim InfoID,CommentID
Dim ModuleID,ChannelID
Dim ComeUrl,Action,i
ChannelID	= Cl.GetClng(request("ChannelID"))
InfoID		= Cl.GetClng(request("InfoID"))
ComeUrl		= Trim(Request("ComeUrl"))
Action		= LCase(Trim(request("Action")))
if ComeUrl="" then
	ComeUrl = Request.ServerVariables("HTTP_REFERER")
	if ComeUrl="" then ComeUrl="Index.asp"
end if
%>