default.aspx

互动留言簿.NET2.0

For i=0 to ds.Tables("guest").Rows.Count-1
%>
        <BR>
        <table class="gueststyleline" border="0" cellpadding="0" cellspacing="1" align="center" width="610">
          <tr> 
          <td> 
              <table width="100%" border="0" cellpadding="6" cellspacing="0" class="gueststylebg" align="center">
                <tr> 
                  <td width="112" align="center" height="153" valign="top"> 
                    <table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%" class="gueststylebg" >
                      <tr>
                        <td>
                          <table border="0" cellspacing="0" cellpadding="0" align="center" height="25">
                            <tr> 
                              <td class="FILTER"> 
                                <div align="center"><font style="LEFT: 0px; WIDTH: 100%; WORD-WRAP: break-word; 130; 0pt"><%=server.htmlencode(ds.Tables("guest").Rows(i)(1))%></font></div>
                              </td>
                            </tr>
                          </table>
                          <div align="center"><font style="LEFT: 0px; WIDTH: 100%; WORD-WRAP: break-word; 130; 0pt"><img src="<%=ds.Tables("guest").Rows(i)(13)%>" width="80" height="90" align="middle"></font><br>
                            <br>
                            ★ <%=ds.Tables("guest").Rows(i)(2)%> ★</div>
                        </td>
                      </tr>
                    </table>
                  </td>
                  <td align="center" height="153" width="2"> 
                    <table class="gueststyleline" width=1 height=100% border="0" cellpadding="0" cellspacing="0">
                    <tr> 
                      <td width=1></td>
                    </tr>
                  </table>
                </td>
                  <td height="33" valign="top" width="463"> 
                    <table width="100%" border="0" cellspacing="0" cellpadding="0" class="gueststylebg" style="TABLE-LAYOUT: fixed" height="20">
                      <tr> 
                        <td height="14" width="310" ><img src="images/icon/subject.gif" width="15" height="15" alt="主题">:<%=server.htmlencode(ds.Tables("guest").Rows(i)(7))%><br>
                        </td>
                        <td width="151" height="14"><font style="0pt"> &nbsp;<img src="images/icon/posttime.gif" width="16" height="15" alt="发表时间[北京时间]">:<%=ds.Tables("guest").Rows(i)(9)%></font></td>
                    </tr>
                  </table>
                    <hr class="gueststylehr" size="0.1" width="100%" >
                    <table width="100%" border="0" cellpadding="5" cellspacing="0" class="gueststylebg" height="45%" style="TABLE-LAYOUT: fixed">
                      <tr> 
                      <td valign="top" width="28" align="center"><img src="images/emot/<%=ds.Tables("guest").Rows(i)(6)%>.gif" width="16" height="16"> 
                      </td><td valign="top" width="94%" style="LEFT: 0px; WIDTH: 100%; WORD-WRAP: break-word; 130; 0pt" >
                          <p><%=autochange(ds.Tables("guest").Rows(i)(8))%><br>
                            <br>
                            <br>
                            <br>
                            <%if not ISDBNull(ds.Tables("guest").Rows(i)(11)) then%>
                          <table class="gueststyleline" width="100%" border="0" cellpadding="1" cellspacing="0" >
                            <tr> 
                            <td> 
                              <table class="gueststylerebg" width="100%" border="0" cellspacing="0" cellpadding="6">
                                <tr> 
                                  <td valign="top"> 
                                    <table width="100%" border="0" cellpadding="2" cellspacing="0" style="TABLE-LAYOUT: fixed" class="replytext">
                                      <tr> 
                                          <td>站长回复:</td>
                                      </tr>
                                      <tr> 
                                          <td valign="bottom">
                                            &nbsp;&nbsp;&nbsp;&nbsp;<%=autochange(ds.Tables("guest").Rows(i)(11))%></td>
                                      </tr>
                                      <tr align="right"> 
                                        <td valign="bottom" align="right"> 
                                          <hr class="gueststylehr" size="0.1" width="70%" noshade align="right" >
                                            回复于: <%=ds.Tables("guest").Rows(i)(12)%></td>
                                      </tr>
                                    </table>
                                  </td>
                                </tr>
                              </table>
                            </td>
                          </tr>
                        </table>
                          <%end if%>
                        </td>
                    </tr>
                  </table>
                    <table width="100%" border="0" cellpadding="4" cellspacing="0">
                      <tr> 
                      <td valign="top"  > 
                        <hr class="gueststylehr" size="0.1" width="100%">
                          <a href="<%=ds.Tables("guest").Rows(i)(5)%>" target="_blank"><img src="images/icon/home.gif" width="44" height="16" alt="<%=ds.Tables("guest").Rows(i)(5)%>" border="0"></a>&nbsp; 
                          <a href="ipinfo.aspx?ip=<%=f_IP(ds.Tables("guest").Rows(i)(14))%>" target="_blank"><img src="images/icon/ip.gif" align="absmiddle" alt="访客IP:<%=f_IP(ds.Tables("guest").Rows(i)(14))%>" height="16" border="0"></a>&nbsp; 
                          <a href="http://search.tencent.com/cgi-bin/friend/user_show_info?ln=<%=ds.Tables("guest").Rows(i)(3)%>" target="_blank"><img src="images/icon/qq.gif" alt="<%=ds.Tables("guest").Rows(i)(3)%>" border="0" width="35" height="16" ></a>&nbsp; 
                          <% if session("isadmin")="" then %><a href="mailto:<%=ds.Tables("guest").Rows(i)(4)%>"><img src="images/icon/email.gif" width="42" height="16" border="0" alt="<%=ds.Tables("guest").Rows(i)(4)%>"></a><%else%><a href="sendmail.aspx?mail=<%=ds.Tables("guest").Rows(i)(4)%>&guestname=<%=ds.Tables("guest").Rows(i)(1)%>" target="_blank"><img src="images/icon/email.gif" width="42" height="16" border="0" alt="管理员在线发送邮件"></a><%end if%>&nbsp; 
                          <a href="javascript:;" onClick="MM_showHideLayers('admin','','hide','postcontent','','show')"><img src="images/icon/postguest.gif" width="45" height="16" border="0"></a> 
                          <% if session("isadmin")<>"" then %>
                          <a href="default.aspx?replyid=<%=ds.Tables("guest").Rows(i)(0)%>&caption=<%=ds.Tables("guest").Rows(i)(7)%>"><img src="images/icon/quote.gif" width="45" height="16" border="0" alt="回复这条留言"></a><%if not  ISDBNull(ds.Tables("guest").Rows(i)(11)) then%>&nbsp; 
<a href="default.aspx?replyid=<%=ds.Tables("guest").Rows(i)(0)%>"><img src="images/icon/EDIT.GIF" width="47" height="16" border="0" alt="编辑回复"></a><%end if%>&nbsp; <a href="default.aspx?del=<%=ds.Tables("guest").Rows(i)(0)%>"><img src="images/icon/del.gif" width="45" height="16" alt="删除这条留言" border="0" ></a> 
                          <%end if%>
                        </td>
                    </tr>
                  </table>
                </td>
              </tr>
            </table>
          </td>
        </tr>
      </table><BR>
        <%
next
%>
      </td>
  </tr>
</table>
  <table width="100%" border="0" cellspacing="0" cellpadding="2" align="center" height="9">
    <tr> 
    <td align="center">
        <table class="gueststyleline" width="610" border="0" cellpadding="1" cellspacing="0" height="18">
          <tr> 
            <td height="24">
              <table width="100%" border="0" cellspacing="0" cellpadding="0" class="gueststylebg" height="18">
                <tr> 
                  <td width="38%" align="center" height="36">
                    <table width="213" border="0" cellspacing="0" cellpadding="0" align="center" height="11">
                      <tr> 
                        <td class="gueststylebg" width="21%">关键字: </td>
                        <td width="51%" valign="top"> 
                         <asp:textbox id="search" class="text" columns="15" maxlength="20" OnTextChanged="GoToSearch" onMouseMove=this.focus() runat=server />   
                        </td>
                        <td width="28%"> 
<asp:imageButton id="btsumit" imageurl="images/icon/find.gif" class="gueststylebg" runat=server />
                        </td>
                      </tr>
                    </table>
                  </td>
                  <td width="35%" align="center" height="36">共<font color="#FF0000"><asp:Label id="lblPageCount" ForeColor="red" runat="server" /></font>页/<font color="#FF0000"><asp:Label id="lblRecordCount" ForeColor="red" runat="server" /></font>条留言&nbsp;&nbsp;转第<asp:textbox id="lblcurrentpage" class="text" columns="3" maxlength="4" AutoPostBack="true" OnTextChanged="GoToPage" onMouseMove=this.focus() runat=server />
                    页</td>
                  <td align="center" height="36"><asp:imagebutton id="lbnprevpage" CommandName="prev" OnCommand="OnClick" width="80" height="13" runat=server /><asp:imagebutton id="lbnnextpage" CommandName="next" OnCommand="OnClick" width="80" height="13" runat=server /></td>
                </tr>
              </table>
          </td>
          </tr>
        </table>
        
        
        
      </td>
            </tr>
          </table>
        
<%
Catch objex As exception
      If codemessage="loginerror" then
      response.write("<BR><font color=red>错误：管理帐号或管理密码有误，请<a href='default.aspx'>重新登录</a>。</font><BR>")
      ElseIf search.text="" then
      response.write("<BR><font color=red>错误：搜索关键字不能是空字符串。请<a href='default.aspx'>返回首页</a>重新搜索。</font><BR>")
      ElseIf search.text=viewstate("state") then
      response.write("<BR><font color=red>错误：搜索时不能连续提交相同关键字，请<a href='default.aspx'>返回首页</a>重新搜索。</font><BR>")     
      Else 
      response.write("<BR><font color=red>错误：未知错误，请尽快联系管理员解决。</font><BR>")
      End If
End Try
end if%>
  <div id="admin" style="position:absolute; width:244px; z-index:1;left:279px; top: 241px; height: 120px; visibility: hidden"> 
    <table class="gueststyleline" border="0" cellpadding="1" cellspacing="0" width="241">
      <tr> 
        <td valign="top" > 
          <table width="100%" border="0" cellpadding="0" cellspacing="0" height="100%">
            <tr> 
              <td  valign="top"> 
                <table width="100%" border="0" cellpadding="0" cellspacing="0" class="gueststyleline">
                  <tr> 
                    <td align="left" height="21"><img src="images/icon/online.gif" width="16" height="16">&nbsp;[超级管理员登录]</td>
                    <td width="30" align="center" height="20"><a href="javascript:;"><img src="images/icon/close_a.gif" width="15" height="15" onClick="MM_showHideLayers('admin','','hide')" border="0" alt=" 关 闭 窗 口 "></a></td>
                  </tr>
                </table>
                <table width="100%" cellpadding="1" cellspacing="0" class="gueststylebg">
                  <tr> 
                    <td height="120" valign="top"> 
                      <div align="center"><br>
                        <table border="0" cellspacing="0" cellpadding="0" height="85" align="center">
                          <tr> 
                            <td width="97" height="32"> 
                              <div align="center">管理帐号：</div>
                            </td>
                            <td width="117" height="32"><asp:textbox id="name" class="text" columns="15" maxlength="20" onMouseMove=this.focus() runat=server/></td>
                          </tr>
                          <tr> 
                            <td height="40" width="97"> 
                              <div align="center">管理密码：</div>
                            </td>
                            <td height="40" width="117"><asp:textbox id="password" class="text" columns="15" maxlength="20" onMouseMove=this.focus() textmode="password" runat=server/></td>
                          </tr>
                          <tr> 
                            <td colspan="2"> 
                              <div align="center"> <asp:button id="submitform" text="登 录" class="gueststylebg" onclick="checkadmin" runat=server/> 
                                &nbsp; 
                                <input type="reset" name="reset" value="重 填" class="gueststylebg">
                              </div>
                            </td>
                          </tr>
                        </table>
                      </div>
                    </td>
                  </tr>
                </table>
          </table>
        </td>
      </tr>
    </table>
  </div>
<% if session("isadmin")<>"" then%>
  <div id="setup" style="position:absolute; z-index:1; left:237px; top: 142px; height: 469px; width: 200px; visibility: hidden;"> 
<table class="gueststyleline" border="0" cellpadding="1" cellspacing="0" width="329" height="374">
      <tr> 
        <td valign="top" > 
          <table width="100%" border="0" cellpadding="0" cellspacing="0" height="100%">
            <tr> 
              <td  valign="top" height="288"> 
                <table width="100%" border="0" cellpadding="0" cellspacing="0" class="gueststyleline">
                  <tr> 
                    <td align="left" height="21"><img src="images/icon/online.gif" width="16" height="16">&nbsp;[管理员高级设置]</td>
                    <td width="30" align="center" height="20"><a href="javascript:;"><img src="images/icon/close_a.gif" width="15" height="15" onClick="MM_showHideLayers('setup','','hide')" border="0" alt=" 关 闭 窗 口 "></a></td>
                  </tr>
                </table>
                <table width="91%" cellpadding="1" cellspacing="0" class="gueststylebg" height="100%">
                  <tr> 
                    <td height="430" valign="top"> 
                      <div align="center"> 
                        <table border="0" cellspacing="0" cellpadding="0" align="center" width="340" height="485">
                          <tr> 
                            <td width="111"> <div align="center">管理员名称</div></td>
                            <td width="239"> <div align="center"> 
                                <asp:textbox id="setname" class="text" columns="20" maxlength="10" onMouseMove=this.focus() runat=server/>
                              </div></td>
                          </tr>
                          <tr> 
                            <td width="111"> <div align="center">网站名称</div></td>
                            <td width="239"> <div align="center"> 
                                <asp:textbox id="sethomepage" class="text" columns="20" maxlength="20" onMouseMove=this.focus() runat=server/>
                              </div></td>
                          </tr>
                          <tr> 
                            <td width="111"> <div align="center">网站地址</div></td>
                            <td width="239"> <div align="center"> 
                                <asp:textbox id="seturl" class="text" columns="20" maxlength="50" onMouseMove=this.focus() runat=server/>
                              </div></td>
                          </tr>
                          <tr> 
                            <td width="111"> <div align="center">管理员邮箱</div></td>
                            <td width="239"> <div align="center"> 
                                <asp:textbox id="setemail" class="text" columns="20" maxlength="20" onMouseMove=this.focus() runat=server/>
                              </div></td>
                          </tr>
                          <tr> 
                            <td width="111"> <div align="center">每页显示留言数</div></td>
                            <td width="239"> <div align="center"> 
                                <asp:textbox id="setpage" class="text" columns="20" maxlength="3" onMouseMove=this.focus() runat=server/>