Добавление оператора If в тег html внутри response.write из vb - PullRequest
Новая
       9

Добавление оператора If в тег html внутри response.write из vb

0 голосов
/ 08 ноября 2011

Привет, ребята, мне трудно писать код.

В настоящее время у меня есть этот код: 

Response.Write "<option value='" & Trimplus(rs("User_Doc_No"),"") & "'>" & Trimplus(rs("User_Doc_No"),"") & "</option>"

, и я хочу добавить в него оператор ifПриведенный выше код, подобный приведенному ниже, с атрибутом select внутри. 

<OPTION value="<%=TrimPlus(rsReqNo("Assetcode"),"")%>" <%IF t_Assetcode=TrimPlus(rsReqNo("Assetcode"),"") THEN Response.Write "SELECTED" END IF%>>test</option>

после этого приведет к автоматическому выбору выпадающего параметра, ЕСЛИ он равен коду t_Asset, указанному на странице.

любая помощь будет высоко ценится.ТИА!:)

Ответы [ 3 ]

1 голос
/ 08 ноября 2011

Есть ли какая-то особая причина, почему этот код должен быть запутан?Вы можете сделать следующее: 

<%
    Dim dbAssetCode
    Dim sSelected

    dbAssetCode = TrimPlus(rsReqNo("Assetcode"),"")
    If t_Assetcode = dbAssetCode Then
        sSelected = "SELECTED"
    Else
        sSelected = ""
    End If
%>
<OPTION value="<%=dbAssetCode %>" <%=sSelected %> >test</option>

Это легче для чтения, и это также немного более эффективно (TrimPlus (rsReqNo ("Assetcode"), "") кэшируется).

0 голосов
/ 08 ноября 2011

Это должно сработать. 

Dim outputString
outputString = "<option value='" & Trimplus(rs("User_Doc_No"),"") & "'"
If t_Assetcode = TrimPlus(rs("Assetcode"), "") Then
    outputString = outputString & " SELECTED"
End If
outputString = outputString & ">" & Trimplus(rs("User_Doc_No"),"") & "</option>"
Response.Write outputString
0 голосов
/ 08 ноября 2011

Я думаю, это то, что вы хотите, используйте II, если это решит вашу проблему: 

<OPTION value="<%=TrimPlus(rsReqNo("Assetcode"),"")%>" "<%=IIf t_Assetcode=TrimPlus(rsReqNo("Assetcode"),"") , "SELECTED", "" %>">test</option>

Не уверен, что "вокруг него: S

РЕДАКТИРОВАТЬ:

Здесь с правильным синтаксисом: 

 Response.Write "<option value='" & Trimplus(rs("User_Doc_No"),"") & "'" & IIf(t_Assetcode = TrimPlus(rsReqNo("Assetcode"), ""), " SELECTED", "") & ">" & Trimplus(rs("User_Doc_No"),"") & "</option>"
...