搜虎精品社区

标题: 求助各位大虾帮我看看代码 [打印本页]

作者: 风狼 时间: 2009-1-7 15:28
标题: 求助各位大虾帮我看看代码
这段代码就是移植在其它服务器上就不行了，在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

%>

作者: yuanbinkui 时间: 2009-2-12 10:44
是不是网站根目录，应该是目录问题

欢迎光临搜虎精品社区 (https://souho.net/)