⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 main.asp

📁 该资料包含大量网络开发的案例和源代码
💻 ASP
📖 第 1 页 / 共 2 页
字号:
                      <td bordercolor="#D69E18"><img src="../resource/images/blog/main_one.gif" width="200" height="43"></td>
                    </tr>
                    <tr>
                      <td bordercolor="#D69E18"><div id="Layer1" style="position:absolute; width:200px; height:115px; z-index:1; visibility: hidden;"  onMouseOver="MM_showHideLayers('Layer1','','show')" onMouseOut="MM_showHideLayers('Layer1','','hide')">
							  <table width="100%" height="100%"  border="0" cellpadding="0" cellspacing="0"  bgcolor="#EFEBEF"style="table-layout: fixed;WORD-BREAK: break-all; WORD-WRAP: break-word BORDER-LEFT: #000000 1PX DASHED; BORDER-RIGHT: #000000 1PX DASHED; BORDER-TOP: #000000 1PX DASHED; BORDER-BOTTOM: #000000 1PX DASHED">
                                <tr>
                                  <td valign="top">个人简介:</td>
                                </tr>
								<tr>
                                  <td valign="top"><%=objrs("user_intro")%></td>
                                </tr>
                        </table>
							</div>
                        <table width="100%" height="100"  border="0" cellpadding="2" cellspacing="2">
                                                  <tr>
                          <td>
                            <table width="100%"  border="0" cellspacing="2" cellpadding="2">
                              <tr>
                                <td width="34%"><img src="../resource/images/blog/li7.gif" width="8" height="8"> 姓名:</td>
                                <td width="66%"><a href="../common/userinfo.asp?UserID=<%=objrs("user_id")%>" title="查看信息"><font color="#FF6600"><%=objrs("user_name")%></font> </a><a href="blog_show.asp?Showid=<%=objrs("user_id")%>" title="阅读日记"><img src="../resource/images/blog/li2.gif" width="9" height="9" border="0"></a></td>
                              </tr>
                              <tr>
                                <td><img src="../resource/images/blog/li7.gif" width="8" height="8"> 性别:</td>
                                <td><%=objrs("user_sex")%></td>
                              </tr>
                              <tr>
                                <td><img src="../resource/images/blog/li7.gif" width="8" height="8"> Email:</td>
                                <td><%=objrs("user_email")%></td>
                              </tr>
                              <tr>
                                <td><img src="../resource/images/blog/li7.gif" width="8" height="8"> 简介:
							</td>
                                <td onMouseOver="MM_showHideLayers('Layer1','','show')" onMouseOut="MM_showHideLayers('Layer1','','hide')">(鼠标置上)</td>
                              </tr>
                            </table>
                            </td>
                                                  </tr>
                      </table>
<%objrs.close%>
					  </td>
                    </tr>
                </table>
                  <%
strSQL="select top 5 user_id,user_name from user_info order by user_regtime desc"
objrs.open strsql,objconn,1,1
%>
                  <table width="100%"  border="1" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF">
                    <tr>
                      <td bordercolor="#D69E18"><img src="../resource/images/blog/main_new_blog.gif" width="200" height="43" border="0" usemap="#Map2"></td>
                    </tr>
                    <tr>
                      <td bordercolor="#D69E18">
                      <table width="100%"  border="0" cellspacing="2" cellpadding="3">
				    <%
	  				for i=1 to 5
	  				if objRS.eof then exit for %>
                        <tr>
                          <td width="17%" align="right"><img src="../resource/images/blog/li7.gif" width="8" height="8"></td>
                          <td width="83%"><a href="blog_show.asp?ShowID=<%=objrs("user_id")%>" title="阅读日记"><%=objrs("user_name")%></a></td>
                        </tr>
				    <%
	  				objRs.movenext
	  				next
					objrs.close%>
                      </table>					</td>
                    </tr>
                  </table>
                  <%
strSQL="select top 5 user_id,user_name from user_info order by commendcount desc"
objrs.open strsql,objconn,1,1
%>
                  <table width="100%"  border="1" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF">
                    <tr>
                      <td bordercolor="#D69E18"><img src="../resource/images/blog/main_comment.gif" width="200" height="43" border="0" usemap="#Map3"></td>
                    </tr>
                    <tr>
                      <td bordercolor="#D69E18">
                      <table width="100%"  border="0" cellspacing="2" cellpadding="3">
				    <%
	  				for i=1 to 5
	  				if objRS.eof then exit for %>
                        <tr>
                          <td width="17%" align="right"><img src="../resource/images/blog/li7.gif" width="8" height="8"></td>
                          <td width="83%"><a href="blog_show.asp?ShowID=<%=objrs("user_id")%>" title="阅读日记"><%=objrs("user_name")%></a></td>
                        </tr>
				    <%
	  				objRs.movenext
	  				next
					objrs.close%>
                      </table>					</td>
                    </tr>
                  </table>
                  <%
strSQL="select top 5  user_id,user_name from user_info order by rnd(user_id)"
objrs.open strsql,objconn,1,1
%>
                  <table width="100%"  border="1" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF">
                    <tr>
                      <td bordercolor="#D69E18"><img src="../resource/images/blog/main_ran_blog.gif" width="200" height="43"></td>
                    </tr>
                    <tr>
                      <td bordercolor="#D69E18">
                      <table width="100%"  border="0" cellspacing="2" cellpadding="3">
				    <%
	  				for i=1 to 5
	  				if objRS.eof then exit for %>
                        <tr>
                          <td width="17%" align="right"><img src="../resource/images/blog/li7.gif" width="8" height="8"></td>
                          <td width="83%"><a href="blog_show.asp?ShowID=<%=objrs("user_id")%>" title="阅读日记"><%=objrs("user_name")%></a></td>
                        </tr>
				    <%
	  				objRs.movenext
	  				next
					objrs.close%>
                      </table>					</td>
                    </tr>
                  </table>
                  <table width="100%"  border="1" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF">
                    <tr>
                      <td bordercolor="#D69E18"><img src="../resource/images/blog/main_link.gif" width="200" height="43"></td>
                    </tr>
                    <tr>
                      <td bordercolor="#D69E18">
                        <table width="100%"  border="0" cellspacing="2" cellpadding="2">                          
                          <tr>
                            <td width="17%" align="right"><img src="../resource/images/blog/li7.gif" width="8" height="8"></td>
                            <td width="83%"><a href="http://www.blogchina.com/">博客中国</a><a href="http://www.blogcn.com/"></a></td>
                          </tr>
                          <tr>
                            <td align="right"><img src="../resource/images/blog/li7.gif" width="8" height="8"></td>
                            <td><a href="http://www.blogcn.com/">中国博客网</a></td>
                          </tr>
                          <tr>
                            <td align="right"><img src="../resource/images/blog/li7.gif" width="8" height="8"></td>
                            <td><a href="http://www.blogbus.com/">博客巴士</a></td>
                          </tr>
                          <tr>
                            <td align="right"><img src="../resource/images/blog/li7.gif" width="8" height="8"></td>
                            <td> <a href="http://www.yourblog.org">你的博客网</a></td>
                          </tr>
                          <tr>
                            <td align="right"><img src="../resource/images/blog/li7.gif" width="8" height="8"></td>
                            <td> <a href="http://www.blogdriver.com">博客动力</a></td>
                          </tr>
                          <tr>
                            <td align="right"><img src="../resource/images/blog/li7.gif" width="8" height="8"></td>
                            <td><a href="http://spaces.msn.com/">MSN Space</a></td>
                          </tr>
                          <tr>
                            <td align="right"><img src="../resource/images/blog/li7.gif" width="8" height="8"></td>
                            <td> <a href="http://www.yculblog.com/">歪酷网</a></td>
                          </tr>
                          <tr>
                            <td align="right"><img src="../resource/images/blog/li7.gif" width="8" height="8"></td>
                            <td><a href="http://www.ttmv.net">天天影视论坛</a></td>
                          </tr>
                      </table></td>
                    </tr>
                  </table></td></tr>
          </table></td>
        </tr>
        <tr>
          <td bordercolor="#4C4C4C" background="../resource/images/bj2.gif" align="center">&nbsp;</td>
        </tr>
</table>
<map name="Map2">
  <area shape="rect" coords="152,14,201,45" href="blog_bloger.asp?ShowType=1">
  <area shape="rect" coords="193,40,194,46" href="blog_bloger.asp">
</map>
<map name="Map3">
  <area shape="rect" coords="152,11,200,43" href="blog_bloger.asp?ShowType=2">
</map>
<script language="vbscript">
Function checkin(myform)
checkin=true
if (trim(myform.keyword.value)="") then
  msgbox ("请填写查询内容!") 
  checkin= false
  exit function
end if

dim strforbid,arrforbid
strforbid="~,!,@,#,$,%,^,&amp;,*,(,),_,+,=,`,[,],{,},;,:,,',,,<,>,.,/,\,|,?,_,about&#13;&#10;1,2,3,4,5,6,7,8,9,0,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z&#13;&#10;after,all,also,an,and,another,any,are,as,at,be,because,been,before,being,between&#13;&#10;both,but,by,came,can,come,could,did,do,each,for,from,get,got,had&#13;&#10;has,have,he,her,here,him,himself,his,how,if,in,into,is,it,like,make,many&#13;&#10;me,might,more,most,much,must,my,never,now,of,on,only,or,other,our&#13;&#10;out,over,said,same,see,should,since,some,still,such,take,than,that,the,their&#13;&#10;them,then,there,these,they,this,those,through,to,too,under,up,very,was&#13;&#10;way,we,well,were,what,where,which,while,who,with,would,you,your&#13;&#10;的,一,不,在,人,有,是,为,以,于,上,他,而,后,之,来,及,了,因,下,可&#13;&#10;到,由,这,与,也,此,但,并,个,其,已,无,小,我,们,起,最,再&#13;&#10;今,去,好,只,又,或,很,亦,某,把,那,你,乃,它"
arrforbid=split(strforbid,",")
for each i in arrforbid
		if i=trim(myform.keyword.value) then
		  msgbox ("您输入非法查询字符,请重新输入!") 
  checkin= false
  exit function
		end if
next
end Function
</script>
<!--#include file="../include/endconn.inc" -->
<!--#include file="../include/footer.asp" -->

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -