📄 wm.sys_cook.asp

📁 网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
        End If
        If zRs(2) > 0 Then GetLabelSort = GetLabelSort & "+ " Else GetLabelSort = GetLabelSort & "- "
        GetLabelSort = GetLabelSort & zRs(3)
        GetLabelSort = GetLabelSort & "</option>" & vbCrLf
        zRs.MoveNext
        Loop
      End If
	  zRs.Close
	  Set zRs = Nothing
      GetLabelSort = GetLabelSort & "</select>"
	  If zList > 0 Then GetLabelSort = GetLabelSort & "　"&SortList
   End Function
   
 Sub SessionRemove(Num)
    Session("CreNum"&Num) = 0
    Session("CreOK"&Num) = 0
    Session("CreList"&Num) = ""
 End Sub
 Function GetPercent(CreNum,CreOK)
    If CreNum = "" or isnull(CreNum) or IsNumeric(CreNum)=False Then GetPercent = 0:Exit Function
	If CreOK = "" or isnull(CreOK) or IsNumeric(CreOK)=False Then GetPercent = 0:Exit Function
    GetPercent = Formatnumber(Formatnumber(CreOK/CreNum,4)*100)
	If Split(GetPercent,".")(0) = "" Then GetPercent = "0."&Split(GetPercent,".")(1)
	If GetPercent >= 100 Then GetPercent = 100
 End Function
 Function PicWidth(Percent,Multiple)
    If Percent = "" or isnull(Percent) or IsNumeric(Percent)=False Then PicWidth = 0:Exit Function
	If Multiple = "" or isnull(Multiple) or IsNumeric(Multiple)=False Then PicWidth = 0:Exit Function
    PicWidth = Round(Percent * Multiple,0)
	If PicWidth > Multiple*100 Then PicWidth = Multiple*100
 End Function

 Sub GetChannel(ID)
  Set zRs = Conn.Execute("Select WM_ChannelDir,WM_ChannelName,WM_Module,WM_Title,WM_Re,WM_ChannelLogo,WM_MetaKey,WM_MetaContent,WM_CreateHTML,WM_StructureType,WM_FileNameType,WM_FileExt_Index,WM_FileExt_Item From WM_Channel Where WM_ID="&ID)
	If Not zRs.Eof Then
      ChannelID = ID
      ChannelDir = zRs(0)
      ChannelName = zRs(1)
      Module = zRs(2)
      ChannelTitle = zRs(3)
      Revert = zRs(4)
      ChannelLogo = zRs(5)
      MetaKey = zRs(6)
      MetaContent = zRs(7)
      CreateHTML = zRs(8)
      StructureType = zRs(9)
      FileNameType = zRs(10)
      FileExt_Index = zRs(11)
      FileExt_Item = zRs(12)
	End If
  zRs.Close
  Set zRs = Nothing
 End Sub

Function CreInfo(Str,Num,CreNum,CreOK)
    If cForm = "" Or IsNull(cForm) Then
      CreInfo = "<table width='100%' cellpadding=3 cellspacing=1 Class=td1>" & vbCrLf
      CreInfo = CreInfo & "<tr><td height=100></td></tr>" & vbCrLf
      CreInfo = CreInfo & "<tr><td>" & vbCrLf
	  CreInfo = CreInfo & "<table width='500' cellpadding=0 cellspacing=0 Class=td1 align=center>" & vbCrLf
	  Select Case Num
	   Case 0
        CreInfo = CreInfo & "<tr><td height=30px><strong>正在发布"&Str&" ...</strong></td></tr>" & vbCrLf
	    CreInfo = CreInfo & "<tr><td style='border:1px #1084BE solid;padding:1px'><img src='img/Bar.gif' width="&PicWidth(GetPercent(CreNum,CreOK),5)&" height=10></td></tr>" & vbCrLf
        CreInfo = CreInfo & "<tr><td height=100px>" & vbCrLf
	    CreInfo = CreInfo & "发布进度：<strong class=font2>"&GetPercent(CreNum,CreOK)&" %</strong><br>" & vbCrLf
        CreInfo = CreInfo & "总共需要发布 <strong class=font2>"&CreNum&"</strong> 个文件，<strong class=font2>在此过程中请勿刷新此页面！</strong>正在生成第 <strong class=font2>"&CreOK+1&"</strong> 个文件。" & vbCrLf
	    CreInfo = CreInfo & "</td></tr>" & vbCrLf
	    CreInfo = CreInfo & "<tr><td height=50px></td></tr>" & vbCrLf
	   Case 1
        CreInfo = CreInfo & "<tr><td height=30px><strong>发布"&Str&"完成</strong></td></tr>" & vbCrLf
	    CreInfo = CreInfo & "<tr><td style='border:1px #1084BE solid;padding:1px'><img src='img/Bar.gif' width=500 height=10></td></tr>" & vbCrLf
        CreInfo = CreInfo & "<tr><td height=100px>" & vbCrLf
	    CreInfo = CreInfo & "发布进度：<strong class=font2>100 %</strong><br>" & vbCrLf
        CreInfo = CreInfo & "总共发布了 <strong class=font2>"&CreNum&"</strong> 个文件。" & vbCrLf
	    CreInfo = CreInfo & "</td></tr>" & vbCrLf
	    CreInfo = CreInfo & "<tr><td height=50px align=center><img src=img/Back.gif Onclick=""javascript:history.back()"" style='cursor:pointer'></td></tr>" & vbCrLf
	  End Select
      CreInfo = CreInfo & "</table>" & vbCrLf
      CreInfo = CreInfo & "</td></tr>" & vbCrLf
      CreInfo = CreInfo & "<tr><td height=100></td></tr>" & vbCrLf
      CreInfo = CreInfo & "</table>" & vbCrLf
	Else
      CreInfo = "<table width='100%' cellpadding=3 cellspacing=1 Class=td1>" & vbCrLf
      CreInfo = CreInfo & "<tr><td>" & vbCrLf
	  CreInfo = CreInfo & "<table width='500' cellpadding=0 cellspacing=0 Class=td1 align=center>" & vbCrLf
	  Select Case Num
	   Case 0
        CreInfo = CreInfo & "<tr><td height=30px><strong>正在发布"&Str&" ...</strong></td></tr>" & vbCrLf
	    CreInfo = CreInfo & "<tr><td style='border:1px #800000 solid;padding:1px'><img src='img/Bar.gif' width="&PicWidth(GetPercent(CreNum,CreOK),5)&" height=10></td></tr>" & vbCrLf
        CreInfo = CreInfo & "<tr><td height=50px>" & vbCrLf
	    CreInfo = CreInfo & "发布进度：<strong class=font2>"&GetPercent(CreNum,CreOK)&" %</strong><br>" & vbCrLf
        CreInfo = CreInfo & "总共需要发布 <strong class=font2>"&CreNum&"</strong> 个文件，<strong class=font2>在此过程中请勿刷新此页面！</strong>正在生成第 <strong class=font2>"&CreOK+1&"</strong> 个文件。" & vbCrLf
	    CreInfo = CreInfo & "</td></tr>" & vbCrLf
	    CreInfo = CreInfo & "<tr><td height=50px></td></tr>" & vbCrLf
	   Case 1
        CreInfo = CreInfo & "<tr><td height=30px><strong>发布"&Str&"完成</strong></td></tr>" & vbCrLf
	    CreInfo = CreInfo & "<tr><td style='border:1px #800000 solid;padding:1px'><img src='img/Bar.gif' width=500 height=10></td></tr>" & vbCrLf
        CreInfo = CreInfo & "<tr><td height=50px>" & vbCrLf
	    CreInfo = CreInfo & "发布进度：<strong class=font2>100 %</strong><br>" & vbCrLf
        CreInfo = CreInfo & "总共发布了 <strong class=font2>"&CreNum&"</strong> 个文件。" & vbCrLf
	    CreInfo = CreInfo & "</td></tr>" & vbCrLf
	  End Select
      CreInfo = CreInfo & "</table>" & vbCrLf
      CreInfo = CreInfo & "</td></tr>" & vbCrLf
      CreInfo = CreInfo & "</table>" & vbCrLf
	End If
End Function

  Function Color(eName)
      Color = Color & "<select name='"&eName&"'>" & vbCrLf
      Color = Color & "<option value=''>　　</option>" & vbCrLf
      Color = Color & "<option value='#000000' style='background-color:#000000'></option>" & vbCrLf
      Color = Color & "<option value='#FFFFFF' style='background-color:#FFFFFF'></option>" & vbCrLf
      Color = Color & "<option value='#008000' style='background-color:#008000'></option>" & vbCrLf
      Color = Color & "<option value='#800000' style='background-color:#800000'></option>" & vbCrLf
      Color = Color & "<option value='#808000' style='background-color:#808000'></option>" & vbCrLf
      Color = Color & "<option value='#000080' style='background-color:#000080'></option>" & vbCrLf
      Color = Color & "<option value='#800080' style='background-color:#800080'></option>" & vbCrLf
      Color = Color & "<option value='#808080' style='background-color:#808080'></option>" & vbCrLf
      Color = Color & "<option value='#FFFF00' style='background-color:#FFFF00'></option>" & vbCrLf
      Color = Color & "<option value='#00FF00' style='background-color:#00FF00'></option>" & vbCrLf
      Color = Color & "<option value='#00FFFF' style='background-color:#00FFFF'></option>" & vbCrLf
      Color = Color & "<option value='#FF00FF' style='background-color:#FF00FF'></option>" & vbCrLf
      Color = Color & "<option value='#FF0000' style='background-color:#FF0000'></option>" & vbCrLf
      Color = Color & "<option value='#0000FF' style='background-color:#0000FF'></option>" & vbCrLf
      Color = Color & "<option value='#008080' style='background-color:#008080'></option>" & vbCrLf
      Color = Color & "</select>"
  End Function

  Function TempSelect(TempID,TempSortID,TempChannelID,TempInputName)
     Dim TempArr,TempSelectStr,SelectOK,TempI  'TempID
	 If TempID = "" Or IsNumeric(TempID) = False Then TempID = 0
     TempArr = WRMPS.GetCache("Templates")
     TempSelect = "<select name='"&TempInputName&"'>" & vbCrLf
	 TempSelect = TempSelect & "<option value=0>== 默认模板 ==</option>" & vbCrLf
     For TempI=0 To UBound(TempArr,2)
       If Int(TempArr(2,TempI)) = Int(TempSortID) And Int(TempArr(3,TempI)) = Int(TempChannelID) Then
		  TempSelect = TempSelect & "<option value='"&TempArr(0,TempI)&"'"
		  If TempID = Int(TempArr(0,TempI)) Then TempSelect = TempSelect & " selected"
		  TempSelect = TempSelect & ">"&TempArr(4,TempI)&"</option>" & vbCrLf
       End If
     Next
     TempSelect = TempSelect & "</select>" & vbCrLf
  End Function

%>
上一页 12
⌨️ 快捷键说明

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