viewarticle.asp

不错的ASP整站源代码。在IIS环境下运行都没有问题

<%
   dim conn   
   dim connstr
   on error resume next
   connstr="DBQ="+server.mappath("story.asp")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
   set conn=server.createobject("ADODB.CONNECTION")
   conn.open connstr 
%>
<!--#include file="INC/fun.inc"-->
<%
   dim sql
   dim rs
   dim listname
   set rs=server.createobject("adodb.recordset")
   sql="select * from learning where articleid="&request("id")
   rs.open sql,conn,1,1
   %> 
<!--#include file="inc/part_11.asp"-->
<!--#include file="inc/part_2.asp"-->
  <table cellspacing="0" width="100%" border="0" bordercolorlight="#000000" cellpadding="0">
  <tbody>
    <tr> 
      <td class="title"> <br>
        <p align="center" class="titletext"><b><font color="#000000"><%=rs("title")%></font></b> 
        <blockquote> 
          <p align="right">发表日期 <%=GetDateTime(rs("dateandtime"))%>&nbsp;&nbsp;&nbsp;&nbsp;阅览 <%=rs("hits")%> 次&nbsp;&nbsp;
            <br><p class="text">
            <%=rs("content")%>
            </p>    
            <p>
            <table width="465" border="0" cellspacing="0" cellpadding="0">
              <tbody>
                <tr> 
                  <td background="../images/hline.gif" height="1"></td>
                </tr>
              </tbody>
            </table>
            <br><br>
<%rs.close
set rs=server.createobject("adodb.recordset")
sql="select * from learning where articleid="&request("id")-1
rs.open sql,conn,1,1 
  if rs.eof and rs.bof then
%>
<font face="Webdings" size="4" color="#FF0099">4</font>上篇文章:已经没有了 <%else%> <br>
<font face="Webdings" size="4" color="#FF0099">4</font>上篇文章:<a href="openarticle.asp?id=<%=rs("articleid")%>"><%=rs("title")%></a> 
              <%end if%><BR>
              <% rs.close
set rs=server.createobject("adodb.recordset")
sql="select * from learning where articleid="&request("id")+1
rs.open sql,conn,1,1
  if rs.eof and rs.bof then
 %>
<font face="Webdings" size="4" color="#FF0099">4</font>下篇文章:已经没有了
<%else%>
<font face="Webdings" size="4" color="#FF0099">4</font>下篇文章:<a href="openarticle.asp?id=<%=rs("articleid")%>"><%=rs("title")%></a> 
<%end if
rs.close
conn.close
%><br>
              <br>
            </p>
      </blockquote>
    </td>
  </tr>
</tbody>
</table><br>
<p align="right"><a href="javascript:self.close()">关闭窗口</a>&nbsp;&nbsp;&nbsp;</p>
<!--#include file="inc/part_3.asp"-->