default.asp

广东交友源程序

<!--#include file="articleconn.asp"--> 
<!--#include file="INC/fun.inc"-->
<!--#include file="inc/part_1.asp"-->
<script language="javascript">
function popwin2(id,path)
{		window.open("openarticle.asp?id="+id+"&ppath="+path,"","");
}
</script>
<!--#include file="home.asp"-->
<!--#include file="inc/part_2.asp"-->
              <table width="97%" border="0" cellspacing="5" cellpadding="0">
                <tr> 
                  <td> 
                    <table width="100%" border="0" cellspacing="0" cellpadding="0">
                      <tr> 
                        <td width="70"><img src="IMAGES/title1.gif" width="60" height="60" border="0"></td>
                        <td valign="top"> 
                          <%
sql="SELECT TOP 1 * FROM learning ORDER BY hits DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then 
   response.write "还 没 有 任 何 文 章" 
else 
%>
                          →<a href="javascript:popwin2(<%=rs("articleid")%>)" class="a06"><%=rs("title")%></a><BR>
                          ...&nbsp;<%=RmHtml( left(rs("content"),90))%>&nbsp; 
                          <%
end if
                        %>
                        </td>
                      </tr>
                    </table>
                  </td>
                  <td> 
                    <table width="100%" border="0" cellspacing="0" cellpadding="0">
                      <tr> 
                        <td width="70"><img src="IMAGES/title3.gif" width="60" height="60" border="0"></td>
                        <td valign="top"> 
                          <%
sql="SELECT TOP 1 * FROM learning ORDER BY articleid DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then 
   response.write "还 没 有 任 何 文 章" 
else 
%>
                          →<a href="javascript:popwin2(<%=rs("articleid")%>)" class="a06"><%=rs("title")%></a><br>
                          ...&nbsp;<%=RmHtml( left(rs("content"),90))%>&nbsp; 
                          <%
end if
                        %>
                        </td>
                      </tr>
                    </table>
                  </td>
                </tr>
              </table>
              <table border="0" cellpadding="0" cellspacing="5">
               <tr>  
<%
sql="SELECT * FROM type"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then 
   response.write "还 没 有 任 何 文 章 分 类" 
else
   i=0 
   do while not rs.eof
      i=i+1
   
%>
               
                 <td width="260" valign="top">
                  <table width="100%" border="0" cellspacing="0" cellpadding="0">
                      <tr> 
                        <td height="2" bgcolor="#FF99CC"></td>
                      </tr>
                      <tr> 
                        <td height="22" bgcolor="#ffe8f0">
                          <table width="100%" border="0" cellspacing="0" cellpadding="0">
                            <tr>
                              <td><img src="../images/arrow.gif" width="12" height="12" align="top" hspace="5" border="0"><a href="index.asp?typeid=<%=rs("typeid")%>" class="a02"><%=rs("type")%></a> 
                              </td>
                              <td align="right"><a href="index.asp?typeid=<%=rs("typeid")%>" class="b1">more..</a>&nbsp;
                              </td>
                            </tr>
                          </table>
                        </td>
                      </tr>
                      <tr> 
                        <td height="4"></td>
                      </tr>
                      <tr> 
                        <td> 
                          <%showtips rs("typeid"),5,16,1%>
                        </td>
                      </tr>
                      <tr> 
                        <td height="3"></td>
                      </tr>
                    </table>
                  </td>
<% if i mod 2 <> 0 then%>
                  <td background="../images/vline.gif" width="1"></td>
<% else %>
                 </tr><tr>
<% end if 
   rs.movenext
loop

end if
%> 
                 
                </tr>
              </table>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
  
<!--#include file="inc/part_3.asp"-->

<%
Function RmHtml(fString)
	fString = Replace(fString, CHR(13), " ")
	fString = Replace(fString, CHR(10) & CHR(10), " ")
	fString = Replace(fString, CHR(10), " ")
	fString = Replace(fString, "<br>", " ")
	fString = Replace(fString, "<BR>", " ")
	fString = Replace(fString, "<Br>", " ")
	fString = Replace(fString, "<bR>", " ")
	fString = Replace(fString, "<p>", " ")
	fString = Replace(fString, "<P>", " ")
	fString = replace(fString, ">", "&gt;")
	fString = replace(fString, "<", "&lt;")
	fString = replace(fString, "&nbsp;", "")
	fString = replace(fString, "&nbsp", "")
	fString = replace(fString, "&nbs", "")
	fString = replace(fString, "&nb", "")
	fString = replace(fString, "&n", "")
	fString = replace(fString, "&", "")
        RmHtml=fString
End Function


%>