help.asp

淘客网上商店网站程序 淘客网上商店网站程序 淘客网上商店网站程序

<!--#include file="Conn.asp"-->
<!--#include file="Inc/Cl_Const.asp"-->
<!--#include file="Inc/Cl_Function_Public.asp"-->
<!--#include file="Inc/Cl_Function_Article.asp"-->
<!--#include file="Inc/Cl_Function_Soft.asp"-->
<!--#include file="Inc/Cl_Function_Photo.asp"-->
<!--#include file="Inc/Cl_Function_Movie.asp"-->
<!--#include file="Inc/Cl_Function_Product.asp"-->
<%
Dim ChannelID
Dim Action,PageTitle
ChannelID = Cl.GetClng(Request("ChannelID"))
Action	= Trim(Request("Action"))
Template.ProjectID	= Cl.ProjectID
Template.TemplateID	= 0
Template.CssID		= Cl.CssID
Select Case Lcase(Action)
Case "contact"
	Call Template.Load(0,7)
	TempStr		= Template.Html
	PageTitle	= Cl.Language.selectSingleNode("//ContactType").text
Case "remit"
	Call Template.Load(0,8)
	TempStr		= Template.Html
	PageTitle	= Cl.Language.selectSingleNode("//RemitType").text
Case "copyright"
	Call Template.Load(0,9)
	TempStr		= Template.Html
	TempStr		= Replace(TempStr,"{$title}",Cl.Language.selectSingleNode("//SysTem/Version").text)
	PageTitle	= Cl.Language.selectSingleNode("//CopyRight").text
Case "ubb"
	Call Template.Load(0,10)
	TempStr		= Template.Html
	PageTitle	= Cl.Language.selectSingleNode("//UbbHelp").text
Case "wap"
	Dim sUrl
	If ChannelID<>0 Then
		If ClassID=0 Then
			sUrl="?ChannelID="&ChannelID&""
		Else
			sUrl="?ChannelID="&ChannelID&"&ClassID="&ClassID&""
		End if
	Else
		sUrl=""
	End If
	Call Template.Load(0,11)
	TempStr		= Template.Html
	TempStr		= Replace(TempStr,"{$url}",sUrl)
	PageTitle	= Cl.Language.selectSingleNode("//Wap").text
Case "bbs"
	Call Template.Load(0,12)
	TempStr		= Template.Html
	PageTitle	= Cl.Language.selectSingleNode("//NetBbs").text
Case Else
	Call Template.Load(0,6)
	TempStr		= Template.Html
	PageTitle	= Cl.Language.selectSingleNode("//AboutWeb").text
End Select
Cl.Path = Cl.Language.selectSingleNode("//CurrentPath").text & "<a href='" & Cl.Web_info(4) & "'>" & Cl.Web_info(0) & "</a> &gt;&gt; " & PageTitle
Cl.Title= Cl.Web_info(1) & " &gt;&gt; " & PageTitle
Response.write Template.ReplaceAllFlag(TempStr)

'==================================================
'CreateLive CMS Version 4.0
'							Powered by Aspoo.Net
'
'邮箱: [e-mail]		[e-mail]
'ＱＱ: 3315263				596197794
'网站: www.aspoo.cn			www.aspoo.com
'论坛: bbs.aspoo.cn			bbs.aspoo.com
'
'Copyright (C) 2005-2007 Aspoo.Net All Rights Reserved.
'==================================================
%>