blog_leftprv.asp

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

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<table border="0" cellspacing="0" cellpadding="0" align="center">
  <tr>
    <td><img src="../resource/images/blog/block1_top.gif" width="188" height="19"></td>
  </tr>
  <tr>
    <td align="center" background="../resource/images/blog/block1_bg.gif">
        <!--#include file="Caledar.asp"-->
		</td>
  </tr>
  <tr>
    <td><img src="../resource/images/blog/block1_bottom.gif" width="188" height="22"></td>
  </tr>
</table>
<table border="0" cellspacing="0" cellpadding="0" align="center">
  <tr>
    <td><img src="../resource/images/blog/block1_top.gif" width="188" height="19"></td>
  </tr>
  <tr>
    <td align="center" background="../resource/images/blog/block1_bg.gif">
      <table width="80%"  border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td><h4><img src="../resource/images/blog/icon_pub.gif" width="21" height="21">&nbsp;&nbsp;<a href="blog_show.asp">我的博客</a></a></h4></td>
        </tr>
      </table>
      <table width="90%"  border="0" cellspacing="2" cellpadding="0">
        <tr>
          <td width="31%" align="center"><img src="../resource/images/blog/li5.gif" width="5" height="9"></td>
          <td width="69%"><a href="../blog/blog_new.asp">发表日记</a></td>
        </tr>
		<tr>
          <td width="31%" align="center"><img src="../resource/images/blog/li5.gif" width="5" height="9"></td>
          <td width="69%"><a href="../blog/blog_announce.asp">修改公告</a></td>
        </tr>
	  	<tr>
          <td width="31%" align="center"><img src="../resource/images/blog/li5.gif" width="5" height="9"></td>
          <td width="69%"><a href="../blog/blog_msg.asp">发表留言</a></td>
        </tr>
		<tr>
          <td width="31%" align="center"><img src="../resource/images/blog/li5.gif" width="5" height="9"></td>
          <td width="69%"><a href="../blog/blog_showcmt.asp">查看评论</a></td>
        </tr>
		<tr>
          <td width="31%" align="center"><img src="../resource/images/blog/li5.gif" width="5" height="9"></td>
          <td width="69%"><a href="../bbs/bbs_man.asp">进入论坛</a></td>
        </tr>		
        <tr>
          <td width="31%" align="center"><img src="../resource/images/blog/li5.gif" width="5" height="9"></td>
          <td width="69%"><a href="../common/userinfo.asp">我的信息</a></td>
        </tr>
        <tr>
          <td align="center"><img src="../resource/images/blog/li5.gif" width="5" height="9"></td>
          <td><a href="../common/userchginfo.asp">修改信息</a></td>
        </tr>
        <tr>
          <td align="center"><img src="../resource/images/blog/li5.gif" width="5" height="9"></td>
          <td><a href="../common/userchgpsw.asp">修改密码</a></td>
        </tr>
        <tr>
          <td align="center"><img src="../resource/images/blog/li5.gif" width="5" height="9"></td>
          <td><a href="../blog/blog_bloger.asp?ShowType=3">Blog好友</a></td>
        </tr>
        <tr>
          <td align="center"><img src="../resource/images/blog/li5.gif" width="5" height="9"></td>
          <td><a href="../blog/blog_search.asp">Blog搜索</a></td>
        </tr>
		<tr>
          <td align="center"><img src="../resource/images/blog/li5.gif" width="5" height="9"></td>
          <td><a href="../bbs/bbs_search.asp">论坛搜索</a></td>
        </tr>
      </table>
    </td>
  </tr>
  <tr>
    <td><img src="../resource/images/blog/block1_bottom.gif" width="188" height="22"></td>
  </tr>
</table>
<%
strSQL="select * from blog_topic where user_id="&userid&" order by pubtime desc"
objrs.open strsql,objconn,1,1
%>
<table border="0" cellspacing="0" cellpadding="0" align="center">
  <tr>
    <td><img src="../resource/images/blog/block1_top.gif" width="188" height="19"></td>
  </tr>
  <tr>
    <td align="center" background="../resource/images/blog/block1_bg.gif">
        <table width="80%"  border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td><h4><img src="../resource/images/blog/icon_new.gif" width="21" height="21">&nbsp;&nbsp;最新日记</h4></td>
          </tr>
        </table>
        <table width="90%"  border="0" cellspacing="2" cellpadding="0">
		 <%
	  		for i=1 to 5
	  		if objRS.eof then exit for %>
          <tr>
            <td width="10%" align="center"><img src="../resource/images/blog/li5.gif" width="5" height="9"></td>
            <td width="90%"><a href="blog_show.asp?TopicID=<%=objrs("topic_id")%>" title="<%=objRs("title")%>"><%if len(objRs("title"))>10 then response.Write(left(objRs("title"),10)&"...") else response.Write(objRs("title"))%></a></td>
          </tr>
		  <%
	  		objRs.movenext
	  		next
			objrs.close%>
      </table>
        <table width="90%"  border="0" cellspacing="2" cellpadding="2">
          <tr>
            <td align="right"><a href="../blog/blog_show.asp"><img src="../resource/images/blog/li_more.gif" width="42" height="13" border="0"></a></td>
          </tr>
        </table></td>
  </tr>
  <tr>
    <td><img src="../resource/images/blog/block1_bottom.gif" width="188" height="22"></td>
  </tr>
</table>

<%
strSQL="select blog_reply.* from blog_topic,blog_reply where blog_topic.topic_id=blog_reply.topic_id and blog_topic.user_id="&userid&" order by blog_reply.pubtime desc"
objrs.open strsql,objconn,1,1
%>
<table border="0" cellspacing="0" cellpadding="0" align="center">
  <tr>
    <td><img src="../resource/images/blog/block1_top.gif" width="188" height="19"></td>
  </tr>
  <tr>
    <td align="center" background="../resource/images/blog/block1_bg.gif">
      <table width="80%"  border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td><h4><img src="../resource/images/blog/icon_reply.gif" width="21" height="21">&nbsp;&nbsp;最近评论</h4></td>
        </tr>
      </table>
      <table width="90%"  border="0" cellspacing="2" cellpadding="0">
        <%
	  		for i=1 to 5
	  		if objRS.eof then exit for %>
        <tr>
          <td width="5%" align="center"><img src="../resource/images/blog/li5.gif" width="5" height="9"></td>
          <td width="60%"><a href="blog_show.asp?TopicID=<%=objrs("topic_id")%>" title="<%=objRs("title")%>">
            <%if len(objRs("title"))>10 then response.Write(left(objRs("title"),10)&"...") else response.Write(objRs("title"))%>
          </a></td>
          <td width="35%"><a href="../common/userinfo.asp?UserID=<%=objrs("user_id")%>"><%=objrs("user_name")%></td>
        </tr>
        <%
	  		objRs.movenext
	  		next
			objrs.close%>
    </table>
      <table width="90%"  border="0" cellspacing="2" cellpadding="2">
        <tr>
          <td align="right"><a href="../blog/blog_showcmt.asp"><img src="../resource/images/blog/li_more.gif" width="42" height="13" border="0"></a></td>
        </tr>
      </table></td>
  </tr>
  <tr>
    <td><img src="../resource/images/blog/block1_bottom.gif" width="188" height="22"></td>
  </tr>
</table>
<%
strSQL="select * from blog_friend where user_id="&userid
objrs.open strsql,objconn,1,1
%>
<table border="0" cellspacing="0" cellpadding="0" align="center">
  <tr>
    <td><img src="../resource/images/blog/block1_top.gif" width="188" height="19"></td>
  </tr>
  <tr>
    <td align="center" background="../resource/images/blog/block1_bg.gif">
      <table width="80%"  border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td><h4><img src="../resource/images/blog/icon_friend.gif" width="21" height="21">&nbsp;&nbsp;我的好友</h4></td>
        </tr>
      </table>
      <table width="90%"  border="0" cellspacing="2" cellpadding="0">
        <%
	  		for i=1 to 5
	  		if objRS.eof then exit for %>
        <tr>
          <td width="10%" align="center"><img src="../resource/images/blog/li5.gif" width="5" height="9"></td>
          <td width="60%"><a href="../common/userinfo.asp?UserID=<%=objrs("friend_id")%>"><%=objrs("friend_name")%></a></td>
          <td width="30%"><a href="../blog/blog_show.asp?ShowID=<%=objrs("friend_id")%>">阅读</a></td>
        </tr>
        <%
	  		objRs.movenext
	  		next
			objrs.close%>
    </table>
      <table width="90%"  border="0" cellspacing="2" cellpadding="2">
        <tr>
          <td align="right"><a href="../blog/blog_bloger.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><img src="../resource/images/blog/block1_bottom.gif" width="188" height="22"></td>
  </tr>
</table>
<form name="form1" method="post" action="blog_msg.asp?action=add"  onSubmit="return checkin(this)">
  <table border="0" cellspacing="0" cellpadding="0" align="center">
    <tr>
      <td><img src="../resource/images/blog/block1_top.gif" width="188" height="19"></td>
    </tr>
    <tr>
      <td align="center" background="../resource/images/blog/block1_bg.gif"> <br>
          <table width="80%"  border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td><h4><img src="../resource/images/blog/icon_msg.gif" width="21" height="21">&nbsp;&nbsp;快速留言 <a href="../blog/blog_msg.asp" title="发表留言"> &gt;&gt;</a></h4></td>
            </tr>
            <tr>
              <td>留名：
                  <input name="pubname" type="text" id="pubname" value="<%=username%>" size="12" disabled></td>
            </tr>
            <tr>
              <td>留言：
                  <textarea name="msg" cols="12" rows="2"></textarea></td>
            </tr>
            <tr>
              <td align="center"><input type="submit" name="Submit" class="input"value="发表">
                  <input type="reset" name="reset" class="input"value="取消"> 
                  [<a href="../blog/blog_showall.asp?ShowType=4" title="显示所有留言">察看</a>]</td>
            </tr>
        </table></td>
    </tr>
    <tr>
      <td><img src="../resource/images/blog/block1_bottom.gif" width="188" height="22"></td>
    </tr>
  </table>
</form>

<script language="vbscript">
Function checkin(myform)
checkin=true
if (trim(myform.pubname.value)="") then
  msgbox ("请填写姓名或昵称！") 
  checkin= false
  exit function
end if

if (trim(myform.msg.value)="") then
  msgbox ("请填写留言内容！！") 
  checkin= false
  exit function
end if
end Function
</script>