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

📄 powereasy.common.manage.asp

📁 个人网站比较简短
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
<%
'**************************************************************
' Software name: PowerEasy SiteWeaver
' Web: http://www.powereasy.net
' Copyright (C) 2005－2008 佛山市动易网络科技有限公司 版权所有
'**************************************************************

'**************************************************
'函数名：GetNumber_Option
'作  用：显示数字下拉菜单
'参  数：MinNum ---- 初始数
'        MaxNum ---- 最大数
'        CurrentNum ----selected 默认数
'返回值：下拉菜单数据
'**************************************************
Public Function GetNumber_Option(MinNum, MaxNum, CurrentNum)
    Dim strNumber, i
    For i = MinNum To MaxNum
        If i = CurrentNum Then
            strNumber = strNumber & "<option value='" & i & "' selected>&nbsp;&nbsp;" & i & "&nbsp;&nbsp;</option>"
        Else
            strNumber = strNumber & "<option value='" & i & "'>&nbsp;&nbsp;" & i & "&nbsp;&nbsp;</option>"
        End If
    Next
    GetNumber_Option = strNumber
End Function

'**************************************************
'函数名：IsStyleDisplay
'作  用：是否显示层
'参  数：Compare1-----比较值1
'参  数：Compare2-----比较值2
'返回值：替换后字符串
'**************************************************
Public Function IsStyleDisplay(ByVal Compare1, ByVal Compare2)
    If Compare1 = Compare2 Then
        IsStyleDisplay = " style='display:'"
    Else
        IsStyleDisplay = " style='display:none'"
    End If
End Function
'**************************************************
'函数名：RadioValue
'作  用：显示单选框或者多选框的值并判断是否选中
'参  数：compvalue ---- 选项的目前实际值
'        showvalue ---- 选项的显示值
'**************************************************
Public Function RadioValue(compvalue, showvalue)
    If compvalue = showvalue Then
        RadioValue = "value='" & showvalue & "' checked"
    Else
        RadioValue = "value='" & showvalue & "'"
    End If
End Function

'**************************************************
'函数名：OptionValue
'作  用：显示下拉列表的值并判断是否选中
'参  数：compvalue ---- 选项的目前实际值
'        showvalue ---- 选项的显示值
'**************************************************
Public Function OptionValue(compvalue, showvalue)
    If compvalue = showvalue Then
        OptionValue = "value='" & showvalue & "' selected"
    Else
        OptionValue = "value='" & showvalue & "'"
    End If
End Function

'**************************************************
'函数名：GetPayOnlineProviderName
'作  用：显示在线支付的名称
'参  数：PayOnlineProviderID ---- 系统在线支付的ID
'返回值：在线支付的名称
'**************************************************
Public Function GetPayOnlineProviderName(PayOnlineProviderID)
    Select Case PayOnlineProviderID
    Case 1, 10
        GetPayOnlineProviderName = "网银在线"
    Case 2
        GetPayOnlineProviderName = "中国在线支付网"
    Case 3
        GetPayOnlineProviderName = "上海环迅"
    Case 4
        GetPayOnlineProviderName = "广东银联"
    Case 5
        GetPayOnlineProviderName = "西部支付"
    Case 6
        GetPayOnlineProviderName = "易付通"
    Case 7
        GetPayOnlineProviderName = "云网在线"
    Case 8, 12
        GetPayOnlineProviderName = "支付宝"
    Case 9
        GetPayOnlineProviderName = "快钱"
    Case 11
        GetPayOnlineProviderName = "快钱神州行"
    Case 13
        GetPayOnlineProviderName = "财付通"
    End Select
End Function

'**************************************************
'函数名：GetArrItem
'作  用：得到数组中某个元素的值
'参  数：arrTemp ---- 要取的数组
'        ItemIndex ---- 第几位数
'返回值：所属位数的元素
'**************************************************
Public Function GetArrItem(ByVal arrTemp, ByVal ItemIndex)
    If Not IsArray(arrTemp) Then
        GetArrItem = ""
        Exit Function
    End If
    ItemIndex = PE_CLng(ItemIndex)
    If ItemIndex < 0 Or ItemIndex > UBound(arrTemp) Then
        GetArrItem = ""
        Exit Function
    End If
    Dim strTemp
    strTemp = arrTemp(ItemIndex)
    If InStr(strTemp, "|") > 0 Then
        GetArrItem = Left(strTemp, InStr(strTemp, "|") - 1)
    Else
        GetArrItem = strTemp
    End If
End Function

'**************************************************
'函数名：Array2Option
'作  用：把数组变成下拉列表项目
'参  数：arrTemp ---- 数组
'        ItemIndex ---- 数组中默认的数字
'返回值：下拉菜单
'**************************************************
Public Function Array2Option(ByVal arrTemp, ByVal ID)
    Dim strOption, i, arrValue
    strOption = "<option value='-1'> </option>"
    ID = PE_CLng(ID)
    For i = 0 To UBound(arrTemp)
        arrValue = Split(arrTemp(i), "|")
        If CLng(arrValue(1)) = 1 Then
            If ID > -1 Then
                If i = ID Then
                    strOption = strOption & "<option value='" & i & "' selected>" & arrValue(0) & "</option>"
                Else
                    strOption = strOption & "<option value='" & i & "'>" & arrValue(0) & "</option>"
                End If
            Else
                If CLng(arrValue(2)) = 1 Then
                    strOption = strOption & "<option value='" & i & "' selected>" & arrValue(0) & "</option>"
                Else
                    strOption = strOption & "<option value='" & i & "'>" & arrValue(0) & "</option>"
                End If
            End If
        End If
    Next
    Array2Option = strOption
End Function

'**************************************************
'函数名：GetArrFromDictionary
'作  用：从字典表获得区域值
'参  数：strTableName ---- 表名称
'        strFieldName ---- 区域名称
'返回值：查询区域值
'**************************************************
Public Function GetArrFromDictionary(strTableName, strFieldName)
    Dim rsDictionary, strTemp
    Set rsDictionary = Conn.Execute("select FieldValue from PE_Dictionary where TableName='" & strTableName & "' and FieldName='" & strFieldName & "'")
    If rsDictionary.BOF And rsDictionary.EOF Then
        strTemp = ""
    Else
        strTemp = rsDictionary(0) & ""
    End If
    Set rsDictionary = Nothing
    GetArrFromDictionary = Split(strTemp, "$$$")
End Function

'**************************************************
'方法名：PopCalendarInit
'作  用：调用日期js
'**************************************************
Public Sub PopCalendarInit()
    Response.Write "<script language='JavaScript' src='PopCalendar.js'></script>" & vbCrLf
    Response.Write "<script language='JavaScript'>" & vbCrLf
    Response.Write "    PopCalendar = getCalendarInstance()" & vbCrLf
    Response.Write "    PopCalendar.startAt = 0 // 0 - sunday ; 1 - monday" & vbCrLf
    Response.Write "    PopCalendar.showWeekNumber = 0 // 0 - don't show; 1 - show" & vbCrLf
    Response.Write "    PopCalendar.showTime = 0 // 0 - don't show; 1 - show" & vbCrLf
    Response.Write "    PopCalendar.showToday = 0 // 0 - don't show; 1 - show" & vbCrLf
    Response.Write "    PopCalendar.showWeekend = 1 // 0 - don't show; 1 - show" & vbCrLf
    Response.Write "    PopCalendar.showHolidays = 1 // 0 - don't show; 1 - show" & vbCrLf
    Response.Write "    PopCalendar.showSpecialDay = 1 // 0 - don't show, 1 - show" & vbCrLf
    Response.Write "    PopCalendar.selectWeekend = 0 // 0 - don't Select; 1 - Select" & vbCrLf
    Response.Write "    PopCalendar.selectHoliday = 0 // 0 - don't Select; 1 - Select" & vbCrLf
    Response.Write "    PopCalendar.addCarnival = 0 // 0 - don't Add; 1- Add to Holiday" & vbCrLf
    Response.Write "    PopCalendar.addGoodFriday = 0 // 0 - don't Add; 1- Add to Holiday" & vbCrLf
    Response.Write "    PopCalendar.language = 0 // 0 - Chinese; 1 - English" & vbCrLf
    Response.Write "    PopCalendar.defaultFormat = 'yyyy-mm-dd' //Default Format dd-mm-yyyy" & vbCrLf
    Response.Write "    PopCalendar.fixedX = -1 // x position (-1 if to appear below control)" & vbCrLf
    Response.Write "    PopCalendar.fixedY = -1 // y position (-1 if to appear below control)" & vbCrLf
    Response.Write "    PopCalendar.fade = .5 // 0 - don't fade; .1 to 1 - fade (Only IE) " & vbCrLf
    Response.Write "    PopCalendar.shadow = 1 // 0  - don't shadow, 1 - shadow" & vbCrLf
    Response.Write "    PopCalendar.move = 1 // 0  - don't move, 1 - move (Only IE)" & vbCrLf
    Response.Write "    PopCalendar.saveMovePos = 1  // 0  - don't save, 1 - save" & vbCrLf
    Response.Write "    PopCalendar.centuryLimit = 40 // 1940 - 2039" & vbCrLf
    Response.Write "    PopCalendar.initCalendar()" & vbCrLf
    Response.Write "</script>" & vbCrLf
End Sub



'**************************************************
'函数名：ShowJS_Main
'作  用：页面管理js(多项诓全选,删除提示)
'参  数：ItemName ---- 项目名称
'返回值：javascript 验证
'**************************************************
Public Sub ShowJS_Main(ItemName)
    Response.Write "<SCRIPT language=javascript>" & vbCrLf
    Response.Write "function unselectall(){" & vbCrLf
    Response.Write "    if(document.myform.chkAll.checked){" & vbCrLf
    Response.Write " document.myform.chkAll.checked = document.myform.chkAll.checked&0;" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "function CheckAll(form){" & vbCrLf
    Response.Write "  for (var i=0;i<form.elements.length;i++){" & vbCrLf
    Response.Write "    var e = form.elements[i];" & vbCrLf
    Response.Write "    if (e.Name != 'chkAll'&&e.disabled==false)" & vbCrLf
    Response.Write "       e.checked = form.chkAll.checked;" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "  }" & vbCrLf
    Response.Write "function ConfirmDel(){" & vbCrLf
    Response.Write " if(document.myform.Action.value=='Del'){" & vbCrLf
    Response.Write "     if(confirm('确定要删除选中的" & ItemName & "吗？'))" & vbCrLf
    Response.Write "         return true;" & vbCrLf
    Response.Write "     else" & vbCrLf
    Response.Write "         return false;" & vbCrLf
    Response.Write " }" & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "</SCRIPT>" & vbCrLf
End Sub

'**************************************************
'函数名：ShowJS_Manage
'作  用：通用频道管理js验证(多项诓全选,删除提示,移动)
'参  数：ItemName ---- 项目名称
'返回值：javascript 验证
'**************************************************
Public Sub ShowJS_Manage(ItemName)
    Dim strJS
    Response.Write "<SCRIPT language=javascript>" & vbCrLf
    Response.Write "function CheckItem(CB){" & vbCrLf
    Response.Write "  var tagname=(arguments.length>1)?arguments[1]:'TR';" & vbCrLf
    Response.Write "  if(document.myform.chkAll.checked){" & vbCrLf
    Response.Write "    document.myform.chkAll.checked = document.myform.chkAll.checked&0;" & vbCrLf
    Response.Write "  }" & vbCrLf
    Response.Write "  if (CB.checked){hL(CB,tagname)};else{dL(CB,tagname)};" & vbCrLf
    Response.Write "  var TB=TO=0;" & vbCrLf
    Response.Write "  for (var i=0;i<myform.elements.length;i++) {" & vbCrLf
    Response.Write "    var e=myform.elements[i];" & vbCrLf
    Response.Write "    if ((e.name != 'chkAll') && (e.type=='checkbox')) {" & vbCrLf
    Response.Write "      TB++;" & vbCrLf
    Response.Write "      if (e.checked) TO++;" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "  }" & vbCrLf
    Response.Write "  myform.chkAll.checked=(TO==TB)?true:false;" & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "function CheckAll(form){" & vbCrLf
    Response.Write "  var tagname=(arguments.length>1)?arguments[1]:'TR';" & vbCrLf
    Response.Write "  for (var i=0;i<form.elements.length;i++){" & vbCrLf
    Response.Write "    var e = form.elements[i];" & vbCrLf
    Response.Write "    if (e.name != 'chkAll' && e.disabled == false && e.type == 'checkbox') {" & vbCrLf
    Response.Write "      e.checked = form.chkAll.checked;" & vbCrLf
    Response.Write "      if (e.checked){hL(e,tagname)};else{dL(e,tagname)};" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "  }" & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "function hL(E,tagname){" & vbCrLf
    Response.Write "  while (E.tagName!=tagname) {E=E.parentElement;}" & vbCrLf
    Response.Write "  E.className='tdbg2';" & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "function dL(E,tagname){" & vbCrLf
    Response.Write "  while (E.tagName!=tagname) {E=E.parentElement;}" & vbCrLf
    Response.Write "  E.className='tdbg';" & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "function ConfirmDel(){" & vbCrLf
    Response.Write " if(document.myform.Action.value=='Del'){" & vbCrLf
    Response.Write "     if(confirm('确定要删除选中的" & ItemName & "吗？本操作将把选中的" & ItemName & "移到回收站中。必要时您可从回收站中恢复！'))" & vbCrLf
    Response.Write "         return true;" & vbCrLf
    Response.Write "     else" & vbCrLf
123

⌨️ 快捷键说明

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