⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 startup.asp

📁 网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。
💻 ASP
字号:
🔍 
<!--#include file="../../Inc/Conn.asp"-->
<!--#include file="../../Inc/Cls.Common.asp"-->
<!--#include FILE="../Cook.asp"-->

<link href="Style.CSS" type="text/css" rel="stylesheet">
<%
   Call FlagU()
   
   Dim Btn,aButton,aButtonCode(),aButtonHTML()
   Dim aN,arrButtonOption,A_InitTool
   Function CssSelect()
     Dim CssPath,SkinCss,TempCss,TempHtml
     CssPath = "../../Skins/"&WR_Setting(5)&"/Style.Css"
     Call WRMPS.FsoBegin()
	   If WRMPS.FsoIsTrue("File",CssPath) = True Then SkinCss = WRMPS.GetHtml(CssPath) Else SkinCss = ""
     Call WRMPS.FsoEnd()
     SkinCss = Leach(SkinCss)
	 SkinCss = Split(SkinCss,"|")
	 CssSelect = "<Select name=select onchange=""InsertHTML(this.options[this.selectedIndex].value)"">"
	 CssSelect = CssSelect & "<Option Value=''>当前主题 CSS 选择</Option>"
	 For i = 0 To UBound(SkinCss)
	   TempCss = ""
	   If SkinCss(i) <> "" And (Instr(SkinCss(i),".") > 0 Or Instr(SkinCss(i),"#") > 0) Then
	     If Instr(SkinCss(i),":") > 0 Then SkinCss(i) = Split(SkinCss(i),":")(0)
		 If Instr(SkinCss(i),"#") > 0 Then
		   TempCss = Split(SkinCss(i),"#")(1)
		   If Instr(TempCss," ") > 0 Then TempCss = Split(TempCss," ")(0)
		   TempHtml = " id="&TempCss
		 Else
		   TempCss = Split(SkinCss(i),".")(1)
		   If Instr(TempCss," ") > 0 Then TempCss = Split(TempCss," ")(0)
		   TempHtml = " Class="&TempCss
		 End If
		 If Instr(CssSelect,"'"&TempHtml&"'") = 0 Then CssSelect = CssSelect & "<Option Value='"&TempHtml&"'>"&TempCss&"</Option>" & vbCrLf
	   End If
	 Next
	 CssSelect = CssSelect & "</Select>"
   End Function
   '过滤CSS中多余字符
   Function Leach(str)
     If Str="" or Isnull(Str) Then Exit Function
     Set regEx = New Regexp
     regEx.IgnoreCase = True
     regEx.Global = True
     regEx.Pattern = "{.+?}"
	 Leach = Replace(Str,vbCrLf,"|")
     Leach = regEx.Replace(Leach,"")
     regEx.Pattern = "/.+?/"
     Leach = regEx.Replace(Leach,"")
	 Set regEx=Nothing
	 Leach = Trim(Leach)
   End Function
   '标签列表
   Function LabelSelect(iNum)
     Dim LName
	 If WRMPS.GetCache("TempEditLabel"&iNum) = "" Then
	   LabelSelect = "<Select name=select onchange=""InsertHTML(this.options[this.selectedIndex].value)"">"
	   Select Case iNum
	     Case 1
	       LabelSelect = LabelSelect & "<Option Value=''>=自定义标签=</Option>"
	     Case 2
	       LabelSelect = LabelSelect & "<Option Value=''>=系统标签=</Option>"
	     Case 3
	       LabelSelect = LabelSelect & "<Option Value=''>=自定义Js标签=</Option>"
	     Case 4
	       LabelSelect = LabelSelect & "<Option Value=''>=系统Js标签=</Option>"
	   End Select
	   Set Rs = Conn.Execute("Select WM_Name From WM_Label Where WM_Type = "&iNum&" and WM_SkinDir = '"&WR_Setting(5)&"' Order By WM_Taxis Desc")
	   Do While Not Rs.EOF
	     Select Case iNum
		   Case 1,2
		     LabelSelect = LabelSelect & "<Option Value='"&Rs(0)&"'>"&Mid(Rs(0),Instr(Rs(0),"_")+1,Len(Rs(0))-1-(Instr(Rs(0),"_")))&"</Option>"
		   Case Else
		     LabelSelect = LabelSelect & "<Option Value='"&chr(60)&"script language=javascript src="&WR_Setting(3)&"API/Transfer/Index.asp?"&Rs(0)&chr(62)&chr(60)&"/script"&chr(62)&"'>"&Mid(Rs(0),Instr(Rs(0),"_")+1,Len(Rs(0))-1-(Instr(Rs(0),"_")))&"</Option>"
		 End Select
       Rs.MoveNext
       Loop
       Rs.Close
	   Set Rs = Nothing
	   LabelSelect = LabelSelect & "</Select>"
       Call WRMPS.SCache("TempEditLabel"&iNum,LabelSelect)
	   Application(CacheName&"TempEditLabel") = LabelSelect
	 Else
       LabelSelect = WRMPS.GetCache("TempEditLabel"&iNum)
	 End If
   End Function
   Function InitToolBar(Str)
     Dim arrButtons(42)
	 Btn = " Class=Hand_Off onMouseOver=this.ClassName='Hand_On' onMouseOut=this.ClassName='Hand_Off' onMouseDown=this.ClassName='Hand_Down' onMouseMove=this.ClassName='Hand_On' style='cursor:pointer'"     
	 arrButtons(0) = "2§TBHandle§工具栏头§TBHandle.gif§"
	 arrButtons(1) = "2§TBBottom§工具栏尾§TBBottom.gif§"
     arrButtons(2) = "2§TBSep§分隔线§TBSep.gif§"
	 arrButtons(3) = "1§CssSelect§风格样式列表§§"&CssSelect()
	 arrButtons(4) = "1§MyLabel§自定义标签§§"&LabelSelect(1)
	 arrButtons(5) = "1§MrLabel§系统标签§§"&LabelSelect(2)
	 arrButtons(6) = "1§MyJsLabel§自定义Js标签§§"&LabelSelect(3)
	 arrButtons(7) = "1§MrJsLabel§系统Js标签§§"&LabelSelect(4)
	 arrButtons(8) = "0§Site§通用系统标签§Site.gif§ShowDialog('Label/Label.asp?Action=LabelSite', 300, 275)"
	 arrButtons(9) = "0§Channel§通用频道标签§Channel.gif§ShowDialog('Label/Label.asp?Action=Channel', 160, 275)"
     arrButtons(11) = "0§Search§搜索标签§search.gif§ShowDialog('Label/Label.asp?Action=Search', 160, 275)"
     arrButtons(12) = "0§Announce§滚动公告标签§Announce.gif§ShowDialog('Label/LabelAnnounce.asp', 250, 230)"
     arrButtons(13) = "0§PopAnnounce§弹出公告标签§PopAnnounce.gif§ShowDialog('Label/LabelAnnounce.asp?Action=PopAnnounce', 250, 150)"
     arrButtons(14) = "0§AnnounceList§公告分页标签§AnnounceList.gif§ShowDialog('Label/Label.asp?Action=Announce', 160, 275)"
     arrButtons(23) = "0§GuestBook§留言标签§GuestBook.gif§ShowDialog('Label/Label.asp?Action=GuestBook', 160, 275)"
     arrButtons(24) = "0§InGuestBook§个性化留言标签§GuestBook.gif§ShowDialog('Label/Label.asp?Action=InGuestBook', 160, 275)"
     arrButtons(25) = "0§Review§评论标签§Review.gif§ShowDialog('Label/Label.asp?Action=Review', 160, 275)"
     arrButtons(10) = "0§User§通用会员标签§User.gif§ShowDialog('Label/Label.asp?Action=User', 160, 275)"
	 arrButtons(32) = "0§InUser§个性化会员标签§InUser.gif§ShowDialog('Label/Label.asp?Action=InUser', 160, 275)"
	 arrButtons(19) = "0§InClassAD§个性化分类信息标签§ClassContent.gif§ShowDialog('Label/Label.asp?Action=InClassAD', 160, 275)"
     arrButtons(20) = "0§ClassSortList§分类信息栏目循环标签§ClassContent.gif§ShowDialog('Label/Label.asp?Action=ClassSortList', 160, 275)"
     arrButtons(21) = "0§ClassAD§分类信息栏目标签§ClassAD.gif§ShowDialog('Label/Label.asp?Action=ADClass', 160, 275)"
     arrButtons(22) = "0§ClassContent§分类信息内容标签§ClassContent.gif§ShowDialog('Label/Label.asp?Action=Class', 160, 275)"
     arrButtons(34) = "0§ClassList§分类信息分页标签§ClassList.gif§ShowDialog('Label/Label.asp?Action=ClassList', 160, 275)"
	 arrButtons(15) = "0§InArticle§个性化文章标签§ArticleContent.gif§ShowDialog('Label/Label.asp?Action=InArticle', 160, 275)"
     arrButtons(16) = "0§ArticleSortList§循环文章分类显示标签§ArticleContent.gif§ShowDialog('Label/Label.asp?Action=ArticleSortList', 160, 275)"
     arrButtons(18) = "0§ArticleContent§文章内容标签§ArticleContent.gif§ShowDialog('Label/Label.asp?Action=Article', 160, 275)"
     arrButtons(17) = "0§ArticleClass§文章栏目标签§ArticleClass.gif§ShowDialog('Label/Label.asp?Action=ArticleClass', 160, 275)"
     arrButtons(33) = "0§ArticleList§文章分页标签§ArticleList.gif§ShowDialog('Label/Label.asp?Action=ArticleList', 160, 275)"
	 arrButtons(26) = "0§Company§商家频道标签§Company.gif§ShowDialog('Label/Label.asp?Action=Company', 160, 275)"
     arrButtons(27) = "0§CompanyContent§商家内容标签§CompanyContent.gif§ShowDialog('Label/Label.asp?Action=CompanyContent', 160, 275)"
     arrButtons(28) = "0§InCompany§个性化商家标签§CompanyContent.gif§ShowDialog('Label/Label.asp?Action=InCompany', 160, 275)"
     arrButtons(29) = "0§CompanyDP§商家点评标签§CompanyRe.gif§ShowDialog('Label/Label.asp?Action=CompanyDP', 160, 275)"
     arrButtons(42) = "0§CompanyDPList§商家点评分页标签§CompanyRe.gif§ShowDialog('Label/Label.asp?Action=CompanyDPList', 160, 275)"
     arrButtons(30) = "0§CompanyPhoto§商家图片标签§CompanyPhoto.gif§ShowDialog('Label/Label.asp?Action=CompanyPhoto', 160, 275)"
     arrButtons(35) = "0§CompanyList§商家分页标签§CompanyList.gif§ShowDialog('Label/Label.asp?Action=CompanyList', 160, 275)"
	 arrButtons(31) = "0§CouponList§优惠券分页标签§CouponList.gif§ShowDialog('Label/Label.asp?Action=CouponList', 160, 275)"
	 arrButtons(38) = "0§CouponClass§优惠券栏目标签§CouponClass.gif§ShowDialog('Label/Label.asp?Action=CouponClass', 160, 275)"
	 arrButtons(39) = "0§InCoupon§优惠券内容标签§InCoupon.gif§ShowDialog('Label/Label.asp?Action=InCoupon', 160, 275)"
	 arrButtons(41) = "0§CouponCon§优惠券内容标签§InCoupon.gif§ShowDialog('Label/Label.asp?Action=CouponCon', 160, 275)"
	 arrButtons(36) = "0§Gift§礼品内容标签§Gift.gif§ShowDialog('Label/Label.asp?Action=Gift', 160, 275)"
	 arrButtons(40) = "0§GiftCon§礼品内容标签§Gift.gif§ShowDialog('Label/Label.asp?Action=GiftCon', 160, 275)"
     arrButtons(37) = "0§GiftList§礼品分页标签§Giftlist.gif§ShowDialog('Label/Label.asp?Action=GiftList', 160, 275)"

	 Select Case Str
	   Case "CLASSSORTLIST"
	     A_InitTool = "TBHandle|Site|TBSep|ClassSortList|TBSep|CssSelect|TBBottom"
	   Case "INARTICLE"
	     A_InitTool = "TBHandle|Site|TBSep|InArticle|TBSep|CssSelect|TBBottom"
	   Case "ARTICLESORTLIST"
	     A_InitTool = "TBHandle|Site|TBSep|ArticleSortList|TBSep|CssSelect|TBBottom"
	   Case "INCLASSAD"
	     A_InitTool = "TBHandle|Site|TBSep|InClassAD|TBSep|CssSelect|TBBottom"
	   Case "INGUESTBOOK"
	     A_InitTool = "TBHandle|Site|TBSep|InGuestBook|TBSep|CssSelect|TBBottom"
	   Case "INCOMPANY"
	     A_InitTool = "TBHandle|Site|TBSep|InCompany|TBSep|CssSelect|TBBottom"
	   Case "INCOUPON"
	     A_InitTool = "TBHandle|Site|TBSep|InCoupon|TBSep|CssSelect|TBBottom"
	   Case "DP"
	     A_InitTool = "TBHandle|Site|TBSep|CompanyDP|TBSep|CssSelect|TBBottom"
	   Case "USER"
	     A_InitTool = "TBHandle|Site|TBSep|InUser|TBSep|CssSelect|TBBottom"
	   Case "GIFT"
	     A_InitTool = "TBHandle|Site|TBSep|Gift|TBSep|CssSelect|TBBottom"
	   Case "MY"
	     A_InitTool = "TBHandle|Site|Channel|User|TBSep|Search|TBSep|GuestBook|Review|TBSep|AnnounceList|Announce|PopAnnounce|TBBottom§TBHandle|CssSelect|MyLabel|MrLabel|MyJsLabel|MrJsLabel|TBBottom"
	   Case "NONE"
	     A_InitTool = ""
	   Case "PAGE"
	     A_InitTool = "TBHandle|Site|CssSelect|MyLabel|MrLabel|MyJsLabel|MrJsLabel|TBBottom"
	   Case Else
	     A_InitTool = "TBHandle|Site|Channel|User|TBSep|ClassAD|ClassContent|ClassList|TBSep|Company|CompanyContent|CompanyList|CompanyPhoto|CompanyDPList|TBSep|CouponClass|CouponCon|CouponList|TBSep|ArticleClass|ArticleContent|ArticleList|TBSep|GiftCon|GiftList|TBSep|Search|TBSep|GuestBook|Review|TBSep|Announce|PopAnnounce|AnnounceList|TBBottom§TBHandle|CssSelect|MyLabel|MrLabel|MyJsLabel|MrJsLabel|TBBottom"
	 End Select
     For aN = 0 To UBound(arrButtons)
	   Redim Preserve aButtonCode(aN)
	   Redim Preserve aButtonHTML(aN)
	   arrButtonOption = Split(arrButtons(aN),"§")
	   aButtonCode(aN) = arrButtonOption(1)
	   Select Case Int(arrButtonOption(0))
	     Case 0
			aButtonHTML(aN) = "<div"&Btn&" onclick="""&arrButtonOption(4)&"""><IMG SRC='../../images/TempImg/"&arrButtonOption(3)&"' WIDTH=20 HEIGHT=20 BORDER=0 ALT="&arrButtonOption(2)&"></div>"
	     Case 1
			aButtonHTML(aN) = "<div class=TBHandle>"&arrButtonOption(4)&"</div>"
	     Case 2
			aButtonHTML(aN) = "<div class=TBSep><IMG SRC='../../images/TempImg/"&arrButtonOption(3)&"' BORDER=0></div>"
	   End Select
	 Next
	 If A_InitTool <> "" Then 
       InitToolBar = "<tr><td height=25>"
	   A_InitTool = Split(A_InitTool,"§")
	   For aN = 0 To UBound(A_InitTool)
         InitToolBar = InitToolBar & "<table cellpadding=0 cellspacing=0 border=0 style='height:25px;background-image:url(../../images/TempImg/TBBg.gif)'><tr>"
         aButton = Split(A_InitTool(aN),"|")
	     For aI=0 To UBound(aButton)
	       InitToolBar = InitToolBar & "<td>"&Code2HTML(aButton(aI))&"</td>"
	     Next
         InitToolBar = InitToolBar & "</tr></table>"
	   Next
       InitToolBar = InitToolBar & "</td></tr>"
	 End If
   End Function

   '由按钮代码得到按钮的最终输出
   Function Code2HTML(s_Code)
	 Dim i
	 Code2HTML = ""
	 For i = 0 To UBound(aButtonCode)
		If UCase(aButtonCode(i)) = UCase(s_Code) Then
			Code2HTML = aButtonHTML(i)
			Exit Function
		End If
	 Next
   End Function

%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -