求助各位大虾帮我看看代码
这段代码就是移植在其它服务器上就不行了，在2003上可以\'注意：
\' 1、strUrl 新闻详细信息链接地址
\' 2、TitleLen 新闻标题长度
\' 3、Num 显示新闻记录数
\' 4、DateSkins 日期格式：格式1 2005年4月17日 格式2 2005-4-17 格式5 2005-04-17
\'/////////////////////////////////////////////////////////////////////////////////////////
Dim strUrl, TitleLen, Num, chkDate, DateSkins
strUrl = \"../04_news/newsInfo.asp\"
TitleLen = 40
Num = 6
chkDate = 1
DateSkins = 5
%>
<table width=\"98%\" border=\"0\" align=\"center\" cellpadding=\"0\" cellspacing=\"0\">
<%
set RsList = server.CreateObject(\"adodb.recordset\")
SqlList = \" select ArtID, ArtTitle, ArtHits, ArtUpdateTime, ArtType from ArticleList00 \"
SqlList = SqlList + \" where ArtID >= 1 \"
SqlList = SqlList + \" order by ArtRank, ArtUpdateTime, ArtID \"
RsList.open SqlList, objConn, 1, 1
for RsList_i = 1 to Num
if not RsList.eof then
%>
<tr>
<td width=\"80%\" height=\"20\" class=\"textbox\"><strong><img src=\"../IMAGE/arrow.gif\" width=\"4\" height=\"7\"></strong><a href=\"javascript:winopen(\'<% = strUrl %>?ID=<% = RsList(\"ArtID\")%>\',600,480)\" title=\"<% = Server.Htmlencode(RsList(\"ArtTitle\")) %>\">
<% = gotTopic( RsList(\"ArtTitle\"), TitleLen )%>
</a></td>
</tr>
<%
RsList.movenext
else
%>
<tr>
<td height=\"25\" class=\"newsBg\"> </td>
</tr>
<%
end if
\'if RsList.eof then exit for
next
RsList.close
set RsList = nothing
%> 是不是网站根目录，应该是目录问题
页:
[1]