wm.cre.asp

网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。

<!--#include file="WM.Sys_Cook.asp"-->
<!--#include file="WM.Cre_Cls.asp"-->
<%
If CheckAdminFlag("CreHTML") = False Then Call WRMPS.ErrView("·您没有权限进行此操作",0)
'x
 Server.ScriptTimeout = 9999

 ID = WRMPS.CheckStr(Request("ID"), 0)
 ID = Replace(ID,"&nbsp;","")

 Call DBConnBegin()
 Select Case Request("Action")
  Case "CreOther"
	If Session("CreNum8") = 0 Then
	  If ID = "-1" Then
	    Session("CreNum8") = WRMPS.CheckStr(Request("Num"), 1)
        Session("CreList8") = WRMPS.CheckStr(Request("AllID"), 0)
	  Else
	    Session("CreNum8") = UBound(Split(ID,","))+1
        Session("CreList8") = ID
	  End If
      Session("CreOK8") = 0
	End If
	If Session("CreList8") = "" Or IsNull(Session("CreList8")) Then Call WRMPS.ErrView("·您还没有选择要发布的文件!",0)
	'开始生成
	If Int(Session("CreOK8")) < Int(Session("CreNum8")) Then
	  Response.write CreInfo("系统配置文件",0,Session("CreNum8"),Session("CreOK8"))
	  CreID = Split(Session("CreList8"),",")(Session("CreOK8"))
	  Set ClsPage = New Cls_Page
	  Select Case CreID
	    Case 0
		  Call AreaSort()
		Case 1
		  Call ClassSort()
		Case 2
		  Call CompanySort()
		Case 3
		  Call LabelNote()
		Case 4
		  Call AdsFile("")
		Case 5
		  Call CouponSort()
		Case 6
		  Call CreChannel()
		Case 7
		  'Call AskSort()
		Case 8
		  Call RehPage(0)
	  End Select
      Set ClsPage = Nothing
	  Session("CreOK8") = Session("CreOK8") + 1
      Response.Write "<meta http-equiv=refresh content='"&CreTime&";URL=?Action=CreOther'>"
	Else
	  Response.write CreInfo("系统配置文件",1,Session("CreNum8"),Session("CreOK8"))
	  Call SessionRemove(8)
	End If

  Case "Other"
    Content = "<table width='100%' cellpadding=3 cellspacing=1 Class=td1>" & vbCrLf
    Content = Content & "<form method=POST action='?Action=CreOther'>" & vbCrLf
    Content = Content & "<tr><td colspan=2 class=td4><strong>发布系统配置文件 </strong></td></tr>" & vbCrLf
    Content = Content & "<tr class=td2><td width='20%'><strong>系统配置文件</strong><br><font class=font2>提示：按住""CTRL""或""Shift""键可以进行多选</font></td>" & vbCrLf
    Content = Content & "<td width='80%'>"
	Content = Content & "<select name='ID' multiple size=12 style='width:400;font: 12px Tahoma, Verdana;font-weight: normal'>"
	Content = Content & "<option value=0>城市分类JS</option>"
	Content = Content & "<option value=1>分类信息分类JS</option>"
	Content = Content & "<option value=2>店铺分类JS</option>"
	Content = Content & "<option value=5>优惠券分类JS</option>"
	'Content = Content & "<option value=7>产品分类JS</option>"
	Content = Content & "<option value=3>每日帖士</option>"
	Content = Content & "<option value=4>广告文件</option>"
	Content = Content & "<option value=6>频道配置文件</option>"
	Content = Content & "<option value=8>自定义页面</option>"
	Content = Content & "</select>"
	Content = Content & "　<input type=submit value=' 确定发布 >> '></td></tr>" & vbCrLf
    Content = Content & "</form>" & vbCrLf
    Content = Content & "<form method=POST action='?Action=CreOther&ID=-1&Num=9&AllID=0,1,2,3,4,5,6,7,8'>" & vbCrLf
    Content = Content & "<tr class=td2><td><strong>发布所有页面</strong></td>" & vbCrLf
    Content = Content & "<td><input type=submit value=' 发布所有页面 >> '></td></tr>" & vbCrLf
    Content = Content & "</form>" & vbCrLf
    Content = Content & "</table>" & vbCrLf
    Call SessionRemove(8)
    Response.write Content
    Call GetBottom()
 End Select
   
%>