admin_makeshop.asp

网络上经典的图片程序

<!--#include file="setup.asp"-->
<!--#include file="check.asp"-->
<!--#include file="../inc/cls_public.asp"-->
<!--#include file="../inc/ShopChannel.asp"-->
<%
'=====================================================================
' 系统名称：润滑油营销网
' 开 发 商：方圆卓越——中国最专业的营销咨询团队
' 擅长项目：润滑油行业的营销培训、样板市场、人员培训
' 更新日期：2005-4-15
' 官方网站：润滑油营销网(www.lubesale.com) QQ:66687989
'=====================================================================
' Copyright 2006-2008 润滑油营销网·方圆卓越 - All Rights Reserved.
' newasp is a trademark of [e-mail]
'=====================================================================
Dim shopid,sortid,showid,indexid
ChannelID = Newasp.ChkNumeric(Request("ChannelID"))
If ChannelID < 3 Then ChannelID = 3
shopid = Newasp.ChkNumeric(Request("shopid"))
sortid = Newasp.ChkNumeric(Request("sortid"))
showid = Newasp.ChkNumeric(Request("showid"))
indexid = Newasp.ChkNumeric(Request("indexid"))
NewCloud.Channel = ChannelID
NewCloud.MainChannel
NewCloud.ShowFlush = showid
If indexid > 0 Then
	NewCloud.CreateShopIndex
End If
If shopid > 0 Then
	NewCloud.LoadShopInfo(shopid)
End If
Set NewCloud = Nothing
CloseConn
%>