程序的文章显示问题。谢谢

点击进入网站某个栏目  出现

Microsoft VBScript ??ʱ?? '800a01b6' ?????ִ??򷽷?: 'Response.Charset' \include\pics.asp, line 1


找到文件后   文件中是
<%Response.Charset="gb2312"
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.cachecontrol = "no-cache"
%>
<!--#Include File="index2.asp"-->
<style type="text/css">
<!--
.STYLE2 { font-family: "宋体";
font-size: 12px;
line-height: 22px;
}
-->
</style>
<div id="content" style="width:98%; margin:auto;">
<table width="100%"  border="0" cellpadding="0" cellspacing="0">
  
  <tr>
    <td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td align="center" valign="top"><table width="100%" height="100" border="0" cellpadding="0" cellspacing="0" style="margin:10px 0px 20px 0px;" >
          <tr>
            <td  height="50" align="center">
<%
  Sql="Select * From B_News Where 1=1"
  If Type1<>"" Then Sql=Sql+" And Type='"&Type1&"'"
  If SmallID<>""  Then Sql=Sql+" And SmallID='"&SmallID&"'"
  Sql=Sql+" Order By [Order] Asc"
  'Response.Write Sql
  Rs.Open Sql,Conn(),1,1
  If Not Rs.Eof Then
   Rs.Pagesize=8
Rs.Absolutepage=Page
For i=1 To Rs.Pagesize
  If Rs.Eof Then Exit For
  %>
<table border="0" cellspacing="0" cellpadding="3" width="24%" style="float:left;">
                                            <tr>
                                              <td align="center" valign="top"><table border="0" cellpadding="0" cellspacing="0" class="bian2">
                                                  <tr>
                                                    <td style="padding:4px;"><a href="?t=<%=Rs("Type")%>&amp;id=<%=Rs("ID")%>" title="<%=Rs("N_Title")%>"><img src="<%=Rs("Pic")%>" width="140" height="181" border="0" /></a></td>
                                                  </tr>
                                                </table>
                                                  <table width="100%" border="0" cellpadding="0" cellspacing="0" class="bian3">
                                                    <tr>
                                                      <td style="padding:4px;"><table width="100%" height="23" border="0" cellpadding="0" cellspacing="0" background="images/index_39.jpg">
                                                          <tr>
                                                            <td align="center"><a href="?t=<%=Rs("Type")%>&amp;id=<%=Rs("ID")%>" title="<%=Rs("N_Title")%>"  class="lan"><%=Rs("N_Title")%></a></td>
                                                          </tr>
                                                      </table></td>
                                                    </tr>
                                                </table></td>
                                            </tr>
                                        </table>   
                <%
Rs.Movenext
Next
End If
%>            </td>
          </tr>
        </table></td>
      </tr>
    </table>
        <table width="95%" height="20" border="0" align="center" cellpadding="0" cellspacing="0" style="margin-top:5px; margin-bottom:10px;">
          <tr>
            <td align="center">共有信息 <%=Rs.Recordcount%> 条 　<%=Rs.Pagesize%>个/页　当前第 <%=Page%> 页
              <%If Page=1 Then%>
              首 页　上一页
              <%Else%>
              <a href="javascript:showAjax('left','<%=Type1%>','include/pics.asp?','','')"  class="huang">首 页</a>　<a href="javascript:showAjax('left','<%=Type1%>','include/pics.asp?','<%=Page-1%>','')" class="huang">上一页</a>
              <%End If%>
              <%If Page=Cstr(Rs.Pagecount) Or Rs.Pagecount=0 Then%>
              下一页　尾页
              <%Else%>
              <a href="javascript:showAjax('left','<%=Type1%>','include/pics.asp?','<%=Page+1%>','')" class="huang">下一页</a>　<a href="javascript:showAjax('left','<%=Type1%>','include/pics.asp?','<%=Rs.Pagecount%>','')" class="huang">尾页</a>
              <%End If%>
              <select name="select" >
                <%For i=1 To Rs.Pagecount%>
                <option value="<%=i%>" <%If Page=Cstr(i) Then%>selected="selected"<%End If%>>第<%=i%>页</option>
                <%Next
Rs.Close
%>
              </select>            </td>
          </tr>
        </table></td>
  </tr>
</table>
</div>







不知道是不是这个文件的问题 谢谢。确实想帮助的。请联系。zhanhui@188.com
我把极品集团程序 送你。然后你帮我修改下就谢谢了。