guestbook.asp

一套很好的可研究竟ASP源代码！ 如果您是ASP的初学者

<!--#include file="commond.asp" -->
<!--#include file="include/function.asp" -->
<!--#include file="include/ubbcode.asp" -->
<!--#include file="include/md5code.asp" -->
<!--#include file="header.asp" -->
<table width="830" border="0" align="center" cellpadding="0" cellspacing="0" class="wordbreak">
  <tr>
    <td width="188" valign="top" nowrap><table width="100%"  border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td><img src="images/center_r2_c1.jpg" width="188" height="72"></td>
      </tr>
    </table>
      <table width="100%"  border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td><table width="100%"  border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td width="7%" background="images/center_r3_c1.gif">&nbsp;</td>
              <td width="81%" bgcolor="#F6F6F6"><%
	Dim SQLFiltrate,Url_Add,gbAuthor
	gbAuthor=CheckStr(Request.QueryString("memName"))
	Url_Add="?"
	If gbAuthor<>Empty Then
		SQLFiltrate="WHERE gb_Author='"&gbAuthor&"'"
		Url_Add="?memName="&gbAuthor&""
	End If
	Call MemberCenter
	Response.Write("<br>")
	Call CategoryList
	Response.Write("<br>")
	Call SiteInfo
	Response.Write("<br>")
	Call NewCommList
	Response.Write("<br>")
	Call blogSearch%><br>
                <div class="siderbar_head"><img src="images/sider_links.gif" border="0" align="absmiddle" /> 鍙嬫儏閾炬帴</div>
                <div class="siderbar_main">
                  <%
		Dim blog_LinksListNums,blog_LinksListNumI,blog_LinksMainIMG,blog_LinksMainTXT
		blog_LinksListNums=Ubound(Arr_Bloglinks,2)
		For blog_LinksListNumI=0 To blog_LinksListNums
			IF Arr_Bloglinks(2,blog_LinksListNumI)<>Empty Then
				blog_LinksMainIMG=blog_LinksMainIMG&"<div class=""hyperlink""><a href="""&Arr_Bloglinks(1,blog_LinksListNumI)&""" target=""_blank""><img src="""&Arr_Bloglinks(2,blog_LinksListNumI)&""" border=""0"" alt="""&Arr_Bloglinks(0,blog_LinksListNumI)&"""></a></div>"
			Else
				blog_LinksMainTXT=blog_LinksMainTXT&"<div class=""hyperlink""><a href="""&Arr_Bloglinks(1,blog_LinksListNumI)&""" target=""_blank"">"&Arr_Bloglinks(0,blog_LinksListNumI)&"</a></div>"
			End IF
		Next
		Response.Write(blog_LinksMainIMG)
		Response.Write(blog_LinksMainTXT)
		%>
                  <div align="right" style="margin: 4px;"><a href="bloglinks.asp">鏇村