main.asp

该资料包含大量网络开发的案例和源代码

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="../include/datatransfer.asp"-->
<!--#include file="../include/functionjs.asp"-->
<!--#include file="../include/functionvb.asp" -->
<!--#include file="../include/dbconn.inc" -->
<!--#include file="../include/header.asp" -->
<link href="../include/main.css" rel="stylesheet" type="text/css">

<table width="710" border="1" cellpadding="2" cellspacing="0" align="center"  class="tablestyle"  bordercolor="#FFFFFF">
        <tr>
          <td bordercolor="#4C4C4C" background="../resource/images/bbs/bg.gif" class="tablehead">&nbsp;<img src="../resource/images/blog/li.gif" width="12" height="12">&nbsp;
            <%if userid="" then%>
欢迎您访问56Blog论坛,您尚未<b>[<A href="../common/register.asp">注册</A>］</b>或<b>［<A href="../common/login.asp">登录</A>]</b>
<%else%>
<%=username%>,欢迎您回来
<%end if%></td>
        </tr>
        <tr>
          <td bordercolor="#4C4C4C" background="../resource/images/new3.jpg">
		  <table width="710" height="0"  border="0" cellpadding="0" cellspacing="0">
            <tr>
              <td width="200"  valign="top"><!--#include file="../include/blog_leftpub.asp"--></td>
              <td width="310" valign="baseline">
			  <table width="100%"  border="0" cellpadding="0">
                <tr>
                  <td bordercolor="#666666" bgcolor="#FFFFFF">
                    <form name="form2" method="post" action="../common/login.asp?action=login&logintype=blog">
                      <table width="100%"  border="1" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF">
                        <tr>
                          <td colspan="4">
                            <table width="100%"  border="0" cellspacing="0" cellpadding="0">
                              <tr>
                                <td><img src="../resource/images/blog/main_login.gif" width="298" height="19"></td>
                              </tr>
                          </table></td>
                        </tr>
                        <tr>
                          <td  bordercolor="#6633CC">
                            <table width="100%"  border="0" cellspacing="0" cellpadding="0">
                              <tr>
                                <td width="12%" align="center"> 用户 ：
                                    <input name="name" type="text" id="name32" size=10 maxlength="12">
              密码：
              <input name="psw" type="password" id="psw22"size=10>
              <input type="submit" name="Submit1" class="input"value="登录">
                            </table>
                        </tr>
                      </table>
                    </form>
                    <form name="form1" method="post" action="../blog/blog_search.asp?action=post"  onSubmit="return checkin(this)">
                      <table width="100%"  border="1" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF">
                        <tr>
                          <td colspan="4">
                            <table width="100%"  border="0" cellspacing="0" cellpadding="0">
                              <tr>
                                <td><img src="../resource/images/blog/main_search.gif" width="298" height="19"></td>
                              </tr>
                          </table></td>
                        </tr>
                        <tr>
                          <td  bordercolor="#CC00CC">
                            <table width="100%"  border="0" cellspacing="2" cellpadding="2">
                              <tr>
                                <td width="11%" align="center"> 关键字：
                                    <input name="keyword" type="text" id="name" size=12 maxlength="12">
                                    <input name="stype" type="radio" value=2 checked>
              日记
              <input name="stype" type="radio" value=1>
              作者
              <input type="submit" name="Submit32" class="input"value="确认">
                            </table>
                        </tr>
                      </table>
                    </form>
                    <%
Randomize
strSQL="select top 10 * from blog_topic order by pubtime desc"
objrs.open strsql,objconn,1,1
%>	
			  <table width="100%"  border="1" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF">
			  
                    <tr>
                      <td colspan="4" bordercolor="#84BAF7">					  <table width="100%"  border="0" cellspacing="0" cellpadding="0">
                        <tr>
                          <td><img src="../resource/images/blog/main_new_post.gif" width="272" height="19"></td>
                          <td><a href="blog_showall.asp?ShowType=1"><img src="../resource/images/blog/li_more.gif" width="42" height="13" border="0"></a></td>
                        </tr>
                      </table>					  </td>
                    </tr>
                    <tr>
                      <td bordercolor="#84BAF7">
					  <table width="100%"  border="0" cellspacing="2" cellpadding="1">
						<%
	  					for i=1 to 10
	  					if objRS.eof then exit for %>
  						<tr>
    					<td width="8%" align="right"><img src="../resource/images/blog/li3.gif" width="11" height="6"></td>
   						 <td width="55%"><a href="blog_show.asp?ShowID=<%=objrs("user_id")%>&TopicID=<%=objrs("topic_id")%>" title="<%=objRs("title")%>"><%if len(objRs("title"))>12 then response.Write(left(objRs("title"),12)&"...") else response.Write(objRs("title"))%></a></td>
    					<td width="30%"><a href="../common/userinfo.asp?UserID=<%=objrs("user_id")%>"  title="<%=objrs("user_name")%>"><%if len(objrs("user_name"))>8 then response.Write(left(objrs("user_name"),6)&"..") else response.Write(objrs("user_name"))%></a></td>
    					<td width="7%"><a href="blog_show.asp?ShowID=<%=objrs("user_id")%>&TopicID=<%=objrs("topic_id")%>"><img src="../resource/images/blog/li6.gif" width="9" height="13" border="0"></a></td>
  						</tr>
						<%
	  					objRs.movenext
	  					next
						objrs.close%>
					</table>
                    </tr>
                  </table>
				  <%
strSQL="select top 10 * from blog_topic order by replycount desc"
objrs.open strsql,objconn,1,1
%>				  <br>
<table width="100%"  border="1" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF">
  <tr>
    <td colspan="4" bordercolor="#ADDB6B">
      <table width="100%"  border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td><img src="../resource/images/blog/main_most_replies.gif" width="272" height="19"></td>
          <td><a href="blog_showall.asp?ShowType=2"><img src="../resource/images/blog/li_more.gif" width="42" height="13" border="0"></a></td>
        </tr>
    </table>
	</td>
  </tr>
  <tr>
    <td bordercolor="#ADDB6B">
      <table width="100%"  border="0" cellspacing="2" cellpadding="1">
        <%
	  				for i=1 to 10
	  				if objRS.eof then exit for %>
        <tr>
          <td width="8%" align="right"><img src="../resource/images/blog/li3.gif" width="11" height="6"></td>
          <td width="55%"><a href="blog_show.asp?ShowID=<%=objrs("user_id")%>&TopicID=<%=objrs("topic_id")%>"  title="<%=objRs("title")%>" ><%if len(objRs("title"))>12 then response.Write(left(objRs("title"),12)&"...") else response.Write(objRs("title"))%></a></td>
          <td width="30%" title="<%=objrs("user_name")%>"><a href="../common/userinfo.asp?UserID=<%=objrs("user_id")%>"  title="<%=objrs("user_name")%>">
            <a href="../common/userinfo.asp?UserID=<%=objrs("user_id")%>"  title="<%=objrs("user_name")%>"><%if len(objrs("user_name"))>8 then response.Write(left(objrs("user_name"),6)&"..") else response.Write(objrs("user_name"))%></a>
          </td>
          <td width="7%"><a href="blog_show.asp?ShowID=<%=objrs("user_id")%>&TopicID=<%=objrs("topic_id")%>"><img src="../resource/images/blog/li6.gif" width="9" height="13" border="0"></a></td>
        </tr>
        <%
	  				objRs.movenext
	  				next
					objrs.close%>
      </table>  </tr>
</table>
<br>
<%
strSQL="select top 10 * from blog_topic order by commendcount desc"
objrs.open strsql,objconn,1,1
%>
<table width="100%"  border="1" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF">
  <tr>
    <td colspan="4" bordercolor="#FF3000">
      <table width="100%"  border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td><img src="../resource/images/blog/main_hot2.gif" width="272" height="19"></td>
          <td><a href="blog_showall.asp?ShowType=3"><img src="../resource/images/blog/li_more.gif" width="42" height="13" border="0"></a></td>
        </tr>
    </table></td>
  </tr>
  <tr>
    <td bordercolor="#FF3000">
      <table width="100%"  border="0" cellspacing="2" cellpadding="1">
        <%
	  				for i=1 to 10
	  				if objRS.eof then exit for %>
        <tr>
          <td width="8%" align="right"><img src="../resource/images/blog/li3.gif" width="11" height="6"></td>
          <td width="55%"><a href="blog_show.asp?ShowID=<%=objrs("user_id")%>&TopicID=<%=objrs("topic_id")%>"  title="<%=objRs("title")%>">
            <%if len(objRs("title"))>12 then response.Write(left(objRs("title"),12)&"...") else response.Write(objRs("title"))%>
          </a></td>
          <td width="30%"><a href="../common/userinfo.asp?UserID=<%=objrs("user_id")%>"  title="<%=objrs("user_name")%>">
            <a href="../common/userinfo.asp?UserID=<%=objrs("user_id")%>"  title="<%=objrs("user_name")%>"><%if len(objrs("user_name"))>8 then response.Write(left(objrs("user_name"),6)&"..") else response.Write(objrs("user_name"))%></a>
          </td>
          <td width="7%"><a href="blog_show.asp?ShowID=<%=objrs("user_id")%>&TopicID=<%=objrs("topic_id")%>"><img src="../resource/images/blog/li6.gif" width="9" height="13" border="0"></a></td>
        </tr>
        <%
	  				objRs.movenext
	  				next
					objrs.close%>
      </table>  </tr>
</table></td>
                </tr>
				
              </table>
              </td>
              <td width="200"valign="top">
<%
'strSQL="select * from user_info order by rnd(user_id)"rs.open sqlstr,1,3  '只能产生固定的随机记录
strSQL="select user_id,user_name,user_sex,user_facephoto,user_email,user_intro from user_info"
objrs.open strsql,objconn,1,1
Randomize
objrs.move int(objrs.recordcount*Rnd)
%>
                <table width="100%"  border="1" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF">
                    <tr>