<%
Dim s_RootID
'当然更改为其他跟栏目的时候，只需要适当的更改下面的值，就可以实现不同栏目。
s_RootID = "A"
Sub GetNewsCata()
Dim cRs, cSql, i, TempCataStr
Set cRs = Server.CreateObject( "ADODB.Recordset" )
cSql = "SELECT * FROM DdsCata WHERE C_ID <> 1 ORDER BY C_RootID"
cRs.Open cSql, oConn, 1, 3
Do While Not cRs.EOF
TempCataStr = "<option value='"&Trim(cRs("C_ID"))&"'>"
TempCataStr = TempCataStr&" |"
For i=1 To Int(Len(Trim(cRs("C_RootID")))/4) - 1
TempCataStr = TempCataStr&" |"
Next
TempCataStr = TempCataStr&"_"&Trim(cRs("C_Title"))&"</option>"
Response.Write TempCataStr
cRs.MoveNext
Loop
cRs.Close
Set cRs = Nothing
End Sub
%>
<td width="18%"></td>
<td class="font_mb green"><font color="#C41039">月检修计划</font></td>
<td align="right"><a href="News sDefault.asp?cataid=A00017" class="tt2">更多</a></td>
</tr>
</table></td>
<td width="1%" background="Images/Bg_2.gif"></td>
<td width="44%" background="Images/Nav_Title_4.gif">
<table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="18%"> </td>
<td class="font_mb green"><font color="#006F68">继电保护定值通知单</font></td>
<td align="right"><a href="News sDefault.asp?cataid=A0006" class="tt2">更多</a></td>
</tr>
</table></td>
</tr>
<tr>
<td valign="top"><Script Language="JavaScript" Src="<%=RootUrl%>/News sNews.asp?Cataid=A0001&Attr=0&ChildCata=0&Style=1&RowNum=10&ColNum=1&TitleNum=12&TitleCSS=&Line_H=24&More=0&MoreCSS=&Date=2&Click=0&Postfix=&NaviPic=7&OpenMode=1"></Script></td>
<td background="Images/Bg_2.gif"></td>
<td valign="top"><Script Language="JavaScript" Src="<%=RootUrl%>News sNews.asp?Cataid=A0006&Attr=0&ChildCata=0&Style=1&RowNum=10&ColNum=1&TitleNum=12&TitleCSS=&Line_H=24&More=0&MoreCSS=&Date=2&Click=0&Postfix=&NaviPic=7&OpenMode=1"></Script></td>
</tr>
<td valign="top"><Script Language="JavaScript" Src="<%=RootUrl%>/News sNews.asp?Cataid=A0001&Attr=0&ChildCata=0&Style=1&RowNum=10&ColNum=1&TitleNum=12&TitleCSS=&Line_H=24&More=0&MoreCSS=&Date=2&Click=0&Postfix=&NaviPic=7&OpenMode=1"></Script>
我改成：<td valign="top"><Script Language="JavaScript" Src="<%=RootUrl%>/News sNews.asp?Cataid=A00010&Attr=0&ChildCata=0&Style=1&RowNum=10&ColNum=1&TitleNum=12&TitleCSS=&Line_H=24&More=0&MoreCSS=&Date=2&Click=0&Postfix=&NaviPic=7&OpenMode=1"></Script>
就正常了地址如果是A0001就不行
