go.asp

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

<!--#include file="articleconn.asp"-->
<!--#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"-->
<script language="JavaScript">
<!--
function checkinput()
{
	if (document.search.keyword.value=="")
	 {
		alert("请输入想查询的内容！");
		document.search.keyword.focus();
		return false;
	 }
	 return true;
}
-->
</script>
<table cellspacing=0 cellpadding=0 width=120 border=0>
                <tbody> 
                <tr> 
                  <td height="24" valign="bottom"> 
                    <table cellspacing=0 cellpadding=0 width=100% border=0 height="19">
                      <tbody> 
                      <tr> 
                        <td width="25"><img src="../images/gripblue.gif" width="25" height="19"></td>
                        <td align=center class="ccopen"><b>情感随笔</b></td>
                        <td width="25"><img src="../images/chevronUp.gif" width="25" height="19"></td>
                      </tr>
                      </tbody> 
                    </table>
                  </td>
                </tr>
                <tr> 
                  <td height="1" bgcolor="#FF99CC"></td>
                </tr>
                <tr> 
                  <td align="center" class="box1"> 
                    <table width="100" border="0" cellspacing="3" cellpadding="1">
                      <tbody> 
                      <tr> 
                        <td height="2"></td>
                      </tr>
<%
    dim rst
	set rst=server.CreateObject("ADODB.RecordSet")
	rst.open "select * from type",conn,1
    if rst.EOF then
	   response.write "<tr><td>还没有任何文章</td></tr>"
	else
%>
                      <tr> 
                        <td align="center" onMouseOver="this.className='menuover';" onMouseOut="this.className='menuout';"><a href="index.asp?typeid=0" class="a02">全部文章</a></td>
                      </tr>
<%do while NOT rst.EOF%>
                      <tr>
                        <td background="../images/hline.gif" height="1"></td>
                      </tr>
                      <tr>
                        <td align="center" onMouseOver="this.className='menuover';" onMouseOut="this.className='menuout';"><a href="index.asp?typeid=<%=rst("typeid")%>" class="a02"><%=rst("type")%></a></td>
                      </tr>
<%
	    rst.MoveNext
	    loop
	end if
    rst.close
%>
                      <tr> 
                        <td height="2"></td>
                      </tr>
                      </tbody> 
                    </table>
                  </td>
                </tr>
                </tbody> 
              </table><br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tbody>
                <tr> 
                  <td align="center" bgcolor="#FF99CC" height="1"></td>
                </tr>
                <tr>
                  <td align="center" height="22" bgcolor="#FFD9EC"><font color="#ff0099" class="fontshadow">文章搜索</font></td>
                </tr>
                <tr> 
                  <td align="center" bgcolor="#FF99CC" height="1"></td>
                </tr>
              </tbody>
</table>
<form action="search.asp" method="post" name="search" onsubmit="return checkinput()">
<input type="text" name=keyword size=17 maxlength="30" value="关键字搜索" onFocus=this.value='' class="put">
<input type="Image" src="images/ssearch.gif" tppabs="" align="absmiddle" width="20" height="20" title="查询" id=Image1 name=Image1>
<input type="hidden" name="typeid" value="0">
</form>
<!--#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">作者 <a href="../read.asp?user_id=<%=rs("user_id")%>"><%=rs("name")%></a>&nbsp;&nbsp;&nbsp;&nbsp;发表时间 <%=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>
            <blockquote> 
            <font face="Webdings" size="4" color="#FF0099">a</font> 本文章综合得分 <font color="#FF0000"><%=FormatNumber(rs("fenshu"),1)%></font> 分，共有 <font color="#FF0000"><%=rs("persons")%></font> 人进行了评分。
            <br><form action="pingfen.asp" method="POST">　　请您给文章的评分：
            <input type="hidden" name="ID" value="<%=rs("articleid")%>">
            <input type="radio" name="fenshu" value="1"><font color="#FFCC00">１</font> 
            <input type="radio" name="fenshu" value="2"><font color="#FF9933">２</font> 
            <input type="radio" name="fenshu" value="3" checked><font color="#FF6666">３</font> 
            <input type="radio" name="fenshu" value="4"><font color="#FF3399">４</font> 
            <input type="radio" name="fenshu" value="5"><font color="#FF00CC">５</font>
            &nbsp;<input type=image name="ping" height=15  width=45 cache src="../images/dafen.gif" border=0 align="absmiddle">
            </form>
            <font face="Webdings" size="4" color="#FF0099">q</font> <a href="review.asp?ID=<%=rs("articleid")%>" >文 章 点 评</a> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color="#FF0000"><%=rs("reviewcount")%></font> 篇
            <br><br>
            </blockquote> 
            <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%><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"-->