新闻顺序显示问题

<!--#include file="../webAdmin/Fun/DBconn.asp"-->
<!--#include file="../webAdmin/Fun/ToolKit.asp"-->
<%
'翻页的链接后缀
Function getGoString(nGoPage)
dim szReturn
szReturn=ParamGet()
szReturn=szReturn & "&PageSize=" & nPageSize
szReturn=szReturn & "&CurrPage=" & nGoPage
getGoString=szReturn
End Function

'翻页的链接后缀
Function getTurnString()
dim szReturn
szReturn=ParamGet()
szReturn=szReturn & "&CurrPage="
getTurnString=szReturn
End Function

Function ParamGet()
dim szReturn
szReturn="&A=A"
if len(Skey)<>0 then szReturn=szReturn & "&Skey=" & Skey
if len(InfTypeID)<>0 then szReturn=szReturn & "&InfTypeID=" & InfTypeID
if left(szReturn,1)="&" then szReturn=right(szReturn,len(szReturn)-1)
ParamGet=szReturn
End function

function CharFromA(varInt)
if CInt(varInt)<=25 then
CharFromA=chr(Asc("A")+varInt)
else
CharFromA=CStr(varInt-25)
end if
End function

Dim szSQL,oRst
set oRst=Server.CreateObject("AdoDb.recordset")
Set oRstCX = Server.CreateObject("ADODB.Recordset")

const cnstCountPL=1    '每行现实数
nPageSize=Request("PageSize")'每页显示数
nCurrPage=Request("CurrPage")'当前页数
if len(nPageSize)=0 then nPageSize=14 '默认显示15条
if len(nCurrPage)=0 then nCurrPage=1 '默认第一页
  if Cint(nCurrPage)<=0 then nCurrPage=1
InfTypeID=request("InfTypeID")
key=request("key")
if len(InfTypeID)=0 then InfTypeID="174"'默认最新报道
szSQL="Select * from tSysDateCode where Dco_ID="&InfTypeID
oRst.Open szSQL,conn,1,1
if not oRst.Eof then
InfTypeName=oRst("Dco_NameCn")
end if
oRst.Close 
szSQL="Select * from tInformation where Inf_Lanage='CN' and Inf_TypeID="&InfTypeID
if len(key)>0 then
szSQL="Select * from tInformation where Inf_Title like '%"&key&"%'"
end if
'response.write(szSQL)

'排序字段
szOderFields=Request("OrderFilds")
if len(szOderFields)=0 then szOderFields=" Inf_Order "
'升序降序
szAscOrDesc=Request("AscOrDesc")
if len(szAscOrDesc)=0 then 
szAscOrDesc="Desc"
end if
'组合SQL
szSQL=szSQL& " order by "& szOderFields & " " & szAscOrDesc &" "
'response.Write(szSQL&"<BR>")
'response.End()
'执行SQL
oRst.Open szSQL,conn,1,1
if not oRst.Eof then
oRst.PageSize=nPageSize
nTotalPages=oRst.PageCount
nTotalItems=oRst.RecordCount
if Cint(nCurrPage) > nTotalPages then nCurrPage=nTotalPages '超出总页数
oRst.AbsolutePage=nCurrPage
else
nTotalPages=0
nTotalItems=0
end if
    
if int(nCurrPage) > nTotalPages then nCurrPage=nTotalPages '超出总页数
dim szModelLine
dim realcar
nIterator=0

dim pp
'显示条转页下拉
for pp=1 to nTotalPages
  if Cint(nCurrPage)=pp then
pageNo_Str=pageNo_Str&"<option value="&pp&" selected >"&pp&"</option>"
  else
pageNo_Str=pageNo_Str&"<option value="&pp&" >"&pp&"</option>"
  end if
next
'显示每页显示下拉
for pp=10 to 50 Step 10
if Cint(nPageSize)=pp then 
   pageSize_Str=pageSize_Str & "<option value="&pp&" selected>"&pp&"</option>"
else
   pageSize_Str=pageSize_Str & "<option value="&pp&">"&pp&"</option>"
end if
'pp=pp+10
next 
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta http-equiv="Content-Language" contect="zh-CN">
<meta name="robots" content="all"  />
<meta name="author" content="Samuel Chan Web Design" />
<meta name="copyright" content="zg" />
<meta name="description" content="zg" />
<meta name="keywords" content="zg" />
<script language="javascript" type="text/javascript" src="../script/title.js"></script>
<script language="javascript" type="text/javascript" src="../script/common.js"></script>
<link href="../css/skin.css" rel="stylesheet" type="text/css" />
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
function Redirect(page){
FormName.CurrPage.value=page;
FormName.submit();
}
function filter(){
FormName.submit();
}
function orderby(OrderFilds,AscOrDesc){
if (AscOrDesc=='Desc'){
AscOrDesc = 'Asc';
}
else if (AscOrDesc=='Asc'){
AscOrDesc= 'Desc';
}
FormName.OrderFilds.value=OrderFilds;
FormName.AscOrDesc.value =AscOrDesc;
FormName.submit();
}
//-->
</script>

解决方案 »

  1.   

    接上面的贴子...</head><body>
    <!--#include file="../include/head.htm"//-->
    <table width="832" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr>
        <td width="200" align="left" valign="top" id="bg_left"><div style="margin-left:14px; margin-top:16px;"><a href="index.asp"><img src="img/menu_left1.gif" width="168" height="35" border="0" /></a><br />
            <a href="index2.asp"><img src="img/menu_left2.gif" width="168" height="35" vspace="5" border="0" /></a><br />
            <a href="../01aboutus/index3.asp"></a></div></td>
        <td width="632" height="400" align="center" valign="top"><img src="img/title.gif" width="594" height="28" style="margin-top:16px; margin-bottom:6px;"/>
          <table width="550" border="0" align="center" cellpadding="3" cellspacing="0" >
             <%
    nIterator=0
    i=0
    while not oRst.EOF and nIterator< Cint(nPageSize)
    InFID=oRst("Inf_ID")
         InfTitleCN=oRst("Inf_Title")
     InFContent=oRst("Inf_Content")
     Inf_MemID=oRst("Inf_MemID")
     Inf_Update=datevalue(oRst("Inf_Update"))
    %> 
    <tr>
              <td width="10" valign="top"><img src="../img/icon_arr2.gif" width="3" height="5" vspace="6" /></td>
              <td align="left" class="news_list"><a href="index_detail.asp?InfID=<%=InFID%>"><%=InfTitleCN%></a>&nbsp;&nbsp;    (<%=Inf_Update%>)</td>
            </tr>
    <%
     nIterator=nIterator+1
     i=i+1
       oRst.MoveNext
    wend
    oRst.Close
     %>
            <!--<tr>
              <td width="10" valign="top"><img src="../img/icon_arr2.gif" width="3" height="5" vspace="6" /></td>
              <td align="left" class="news_list"><a href="index_detail.asp">教育部严禁校庆搞变相摊派举办文娱活动</a>&nbsp;&nbsp;     (2006-04-22)<img src="../img/icon_new.gif" width="23" height="9" hspace="5" align="absmiddle" /></td>
            </tr>
                    <form name="FormName" action="index.asp" method="post">
     <input type="hidden" name="OrderFilds" value="<%=szOrderFilds%>">
     <input type="hidden" name="AscOrDesc" value="<%=szAscOrDesc%>">
     <input type="hidden" name="InfTypeID" value="<%=InfTypeID%>">
     <input type="hidden" name="CurrPage" value="<%=nCurrPage%>"> 
            <tr>
              <td valign="top">&nbsp;</td>
              <td align="left">共 <%=nTotalItems%> 条 &nbsp;(第<%=nCurrPage%>页/&nbsp;共<%=nTotalPages%> 
                页) <a href="javascript:Redirect('1')" >首页</a> &nbsp; <a href="javascript:Redirect('<%=nCurrPage-1%>')">上一页</a> &nbsp; <a href="javascript:Redirect('<%=nCurrPage+1%>')" >下一页</a>&nbsp; <a href="javascript:Redirect('<%=nTotalPages%>')">尾页</a>&nbsp;
                      <!--<select class="input" 
                      onchange="MM_jumpMenu('parent',this,1)" name="page">
                        <option 
                        value="#">go</option>
                        <option 
                        value="index.asp?page=1&amp;ntype=38" selected="selected">1</option>
                        <option 
                      value="index.asp?page=2&amp;ntype=38">2</option>
                      </select>--></td>
            </tr>
    </form>
          </table>
        <br /></td>
      </tr>  <br>
    </table>
    <!--#include file="../include/foot.htm"//-->
    </body>
    </html>问题:新闻顺序错乱,无序...
    把新闻条目通过后台全部删除后,连续发10条新闻,那个顺序又是没错的,过几天再发新闻的话,又出问题晕了...
      

  2.   

    asp怎么也发到这里来了
    lz走错地方了？