Пейджинг и сохранение значений флажков - PullRequest
Новая
       0

Пейджинг и сохранение значений флажков

1 голос
/ 04 июля 2011

Я использую пейджинг, который использует хранимую процедуру для фильтрации по письму. Мне нужно сохранить значения флажков при отправке формы при фильтрации по письму. У меня был предыдущий вопрос , похожий на этот, который отлично работал, но я хочу сохранить свою хранимую процедуру.

Хранимая процедура: 

ALTER PROCEDURE [dbo].[A_Page_Paging]
@selected_Char char(1) = null,
@permissionID int = null
as
if @permissionID = ''
    if @selected_Char = '#'
            select * from A_Page where P_Description like '[^a-z]%'
    else if @selected_Char = '!'
            select * from A_Page
            order by P_Description
    else
            select * from A_Page where P_Description like @selected_Char + '%'
else
    select P_PageID, P_Name, P_Description from A_Permission
    inner join L_PagePermission
    on P_PermissionID = PP_PermissionID
    inner join A_Page
    on P_PageID = PP_PageID
    where P_PermissionID = @permissionID
    order by P_Name

Кнопки пейджинга: 

<input id="buttonStyle" type="submit" name="Paging_Button" value="#">
<% for i = 97 to 122 %>
    <input id="buttonStyle" type="submit" name="Paging_Button" value="<%=CHR(i) %>">&nbsp;
<% next %>
<input id="buttonStyle" type="submit" name="Paging_Button" value="All">

Функция для сохранения флажков и флажка (функция будет работать, например, только если я выберу флажок со значением, начинающимся с A, тогда фильтр по A будет показывать флажок, если я фильтрую по B, то не будет): 

   'Checkbox check
        Function CheckedByUser(id)
            Dim x
            CheckedByUser = "checked=""checked"""
            For x=1 To Request.Form("selectedRecord").Count
                If Trim(Request.Form("selectedRecord").Item(x)) = Trim(id) Then
                    Exit Function
                End If
            Next
            CheckedByUser = ""
        End Function

<input type="checkbox" name="selectedRecord" value="<%=objRS("P_PageID")%>" <%=CheckedByUser(objRS("P_PageID")) %>>

Предыдущий ответ, чтобы исправить проблему подкачки, но требует, чтобы я изменил свою хранимую процедуру, которую я предпочитаю не делать: 

<%
Do Until objRS.EOF
    Response.Write("<input type=""checkbox"" name=""selectedRecord"" value=""" & objRS("Id") & """ " & WasCheckedByUser(objRS("Id")))
    If Len(Request.Form("Page"))=1 And Trim(Left(objRS("Id"), 1))<>Trim(Request.Form("Page")) Then
        Response.Write(" style=""display: none;""")
    End If
    Response.Write(" />")
    objRS.MoveNext
Loop
%>

Выполнение хранимой процедуры 

connectionstring = obj_ADO.getconnectionstring
Set objCon = CreateObject("ADODB.Connection")
Set objRS = CreateObject("ADODB.Recordset")
set objComm = CreateObject("ADODB.Command")
objCon.Open connectionstring

objComm.ActiveConnection = objCon.ConnectionString
objComm.CommandText = "A_Page_Paging"
objComm.CommandType = 4


Set objParameter = objComm.CreateParameter
objParameter.Name = "selected_Char"
objParameter.Type = 129
objParameter.Direction = 1
objParameter.Size = 3
objParameter.Value = Selected_Button
objComm.Parameters.Append objParameter

Set objParameter2 = objComm.CreateParameter
objParameter2.Name = "PermissionID"
objParameter2.Type = 129
objParameter2.Direction = 1
objParameter2 .Size = 3
objParameter2 .Value = P_ID
objComm.Parameters.Append objParameter2

set objRS = objComm.Execute

1 Ответ

1 голос
/ 04 июля 2011

Измените эту строку в своем коде: 

objParameter.Value = Selected_Button

Вместо этого: 

objParameter.Value = "!"

Код, который у вас уже есть в цикле, должен скрывать флажки, которые не являются частьютекущая "страница".

...