错误类型: Response 对象, ASP 0104 (0x80070057) 不允许操作
function myvisible(myclassname,visiblevalue)
{
var rules;
for (var x=0;x<document.styleSheets.length;x++)
{
if (document.styleSheets[x].cssRules)
{
rules = document.styleSheets[x].cssRules;
}
else
{
rules = document.styleSheets[x].rules;
}
for (var i=0;i<rules.length;i++)
{
if (rules[i].selectorText == myclassname)
{
rules[i].style.display = visiblevalue;
}
}
}
}
function ChangeState(SelText,i)
{
if ((SelText=="其他")
{
myvisible(".mytr"+i,"block") ;
}
else
{
myvisible(".mytr"+i,"none");
}
}
<style>
<%
Dim mycssi
mycssi=1
While Not rBANKCARDSCATEGORY.EOF
If(Trim(rBANKCARDSCATEGORY.Fields("c_codename"))="其他") Then
response.Write (".mytr" & mycssi & " { display:block;}" & chr(13))
Else
response.Write (".mytr" & mycssi & " { display:none;}" & chr(13))
End if
mycssi=mycssi+1
Wend
if rBANKCARDSCATEGORY.RecordCount > 0 then rBANKCARDSCATEGORY.MoveFirst
%>
</style>
高手帮忙看看这段代码有问题么……已加进去就出错……
补充:显示部分在这里……
<tr class="normal3,mytr<%=i%>">
<td class="normal-color"><font face="<%=cFont%>"><%=CapTranslate("Open card bank name")%><%=i%></font></td>
<td>
<input name="bankothername<%=i%>" type="text" id="bankothername<%=i%>" style="width:30%" value="<%=rBank.Fields("s_bankothername"&i)%>" >
</td>
</tr>