源码问题，请求帮助，实在在网上找不到了才来请教

行咖啡 · 发表于 2010-4-25 23:11:23

有个文章列表程序，要求每5个列表下面加一条分割线，不知用ASP如何实现，请高手赐教，小弟感激不尽。
希望实现的形式：

跨国公司直接投资战略比较研究(硕）（2006-9-15）
跨国公司在华投资战略与应对策略(硕）（2006-9-12 ）
跨国公司在华直接投资的研究(硕）（2006-9-11）
XX市房地产市场发展研究(硕）（2006-8-24 ）
我国商业银行内部控制研究(硕)（2006-8-18）
------------------------------------------------------------------------------
企业集团投资业务的内部控制研究(硕）（2006-8-4）
我国企业外汇管理风险研究(硕士）（2006-8-1）
个人房贷的风险与控制研究(硕士）（2006-7-27）
股权结构和会计信息研究(硕士）（2006-7-20）
公司治理与内部控制研究(硕）（2006-7-19 ）
-------------------------------------------------------------------------------
循环经济研究(硕)（2006-7-13 ）
上市公司盈余管理和股权结构研究(硕）（2006-7-13）
以战略为导向的预算管理研究(硕)（2006-7-10 ）
上市公司股权结构和公司治理研究(硕）（2006-7-10）
我国风险投资存在问题与应对策略（硕）（2006-7-6）

以下是我的程序部分代码：
<table width="667" border="0" cellspacing="10" cellpadding="0">
<%SelectFrom rs,"Select * From Ce_NewsTable Where  ClassID = "&ID&"  Order BY ID Desc"
If Page = "" Then
Page = 1
End If
If Not Isnumeric(Page) Then
Call msg("必须为数字","index.asp")
else                                                                                                 分页代码
Page = Cint(Page)
End If
If Not rs.Eof Then
rs.PageSize = 20
If Page <= 1 Then Page = 1
If Page > rs.PageCount Then Page = rs.PageCount
rs.AbsolutePage = Page
End IfIF rs.BOF Then%>
<tr>
<td height="80" align="left" colspan="2">
<font face="serif">暂无数据</font></td>
</tr>
<%Else
For I = 1 To rs.PageSize                                                                               内容代码，要改的就是这里
IF rs.EOF Then Exit For
%>
<tr bgcolor="#FFFFFF" onMouseOver="this.bgColor='#EEF7FD'" onMouseOut="this.bgColor='#FFFFFF'">
<td width="63%" align="left">
<b style="font-weight:normal;">
<a href="view.asp?<%=rs("ID")%>" target="_blank" class="black" title="<%=rs("NewsTitle")%>">
<font color="#000000">
<img border="0" src="images/page.gif" width="16" height="16"></font></a><font color="#000000" face="serif"> 
<a href="view.asp?<%=rs("ID")%>" target="_blank" class="black" title="<%=rs("NewsTitle")%>">
<font color="#000000"><%=IsTitle(rs("NewsTitleColor"),rs("NewsTitle"))%></font></a></font></b><font color="#000000" face="serif"><%if rs("isnew")=1 then response.Write "<img src='images/new.gif' align='absmiddle'/>"%> <%if rs("ishot")=1 then response.Write "<img src='images/hot.gif' align='absmiddle'/>"%></font></td>
<td width="26%" align="left">
<font color="#FF5816" face="serif"><%=Split(rs("NewsAddTime")," ")(0)%></font></td>
</tr>
<%rs.Movenext
Next%><form name="pageform">
<tr>
<td height="9" align="center" colspan="2">
<font color="#000000" face="serif"><%ReturnAtpage ""&ID&",",rs%>
<script>
function go(list){
var myindex1  = document.pageform.selectedIndex;
if (myindex1 != 0)
{
var URL = "?<%=ID%>," + document.pageform.page.options[document.pageform.page.selectedIndex].value;
this.location.href = URL;
target = '_self';
}
}
</script></font></td>
</tr>
</form>
<%End IF
Closed rs%>
</table>

行咖啡 · 发表于 2010-4-27 13:50:57

为了不扰乱会员对源码的测试，有问题咨询右侧客服不要直接回复，否则视为非法信息屏蔽会员ID！

怎么没人会吗

		自动登录	找回密码
密码			会员注册