guestbook.aspx

商务网站全部程序.很有借鉴意义

<%@ Page Language="VB" ContentType="text/html" %>
<%@ Register TagPrefix="gb" TagName="footer" Src="gb_footer.ascx" %>
<%@ Import Namespace="system.data" %>
<%@ Import Namespace="system.data.oledb" %>
<script runat="server">
dim conn as new oledbconnection("provider=microsoft.jet.oledb.4.0; data source="+server.MapPath("data\gb.mdb"))

'页面载入时的动作(page load action)
sub page_load(obj as object, e as eventargs)   

	viewState("timStart")=datetime.now.ticks
if request.QueryString("login")="admin" then
   loginbox.Visible="true"
   dgdata.currentpageindex=viewState("pageindex")
end if

if request.QueryString("login")="out" then session.Abandon()
if request.QueryString("gb_id")<>"" then deleteitem(request.QueryString("gb_id"))
	
if request.QueryString("reply_id")="" then viewState("state")="gb"
if request.QueryString("reply_id")<>"" then viewState("state")="reply"

if viewState("state")="gb" then	filldatagrid_gb
if viewState("state")="reply" then filldatagrid_reply

lblmessage.text=datetime.now.ticks-viewState("timStart")
end sub

sub filldatagrid_gb
    dgdata.Visible="true"
	dim cmd as new oledbdataadapter("SELECT gb.gb_id, gb.gb_date, gb.gb_poster, gb.gb_postersex, gb.gb_posterqq, gb.gb_posteremail, gb.gb_posterhome, gb.gb_posterfrom, gb.gb_posterip, gb.gb_content, gb.gb_view, gb.gb_reply FROM gb  order by gb_id desc",conn)
    dim ds as dataset=new dataset()
	cmd.fill(ds, "gb")
	dgdata.datasource=ds.tables("gb").defaultview
	dgdata.databind()
	
end sub

sub filldatagrid_reply

'增加查看的计数器	
		dim objcmd as new oledbcommand("add_gb_view",conn)
		objcmd.commandtype=commandtype.StoredProcedure
		
		dim objParam as oledbParameter
		objParam=objcmd.Parameters.add("@gb_id",oledbtype.integer)
		objParam.direction=parameterdirection.input
		objParam.value=request.QueryString("reply_id")

			try
			   conn.open()
			   objcmd.executenonquery
			catch ex as exception
			  response.write(ex.message)
			finally
			   conn.close()
			end try
			 
'提取回复的数据到页面 
    dgdata2.Visible="true"
	dim cmd as new oledbdataadapter("SELECT reply.*,reply.rep_id, gb.gb_view,gb.gb_id,gb.gb_reply FROM reply,gb where gb.gb_id=" &request.QueryString("reply_id") & " and reply.gb_id=" & request.QueryString("reply_id") & " order by rep_id desc",conn)
    dim ds as dataset=new dataset()
	cmd.fill(ds, "reply")
	dgdata2.datasource=ds.tables("reply").defaultview
	dgdata2.databind()

	
end sub

sub getnumber
           conn=new oledbconnection("provider=microsoft.jet.oledb.4.0; data source="+server.MapPath("data\gb.mdb"))
		   dim intid as integer
		   dim objcmd as new oledbcommand("getnumber",conn)
		   objcmd.commandtype=commandtype.StoredProcedure

			try
			   conn.open()
			   intid=ctype(objcmd.executeScalar,integer)
			   response.write(intid)
			catch ex as exception
			  response.write(ex.message)
			finally
			   conn.close()
			end try
end sub



sub login(obj as object,e as eventargs)
        conn=new oledbconnection("provider=microsoft.jet.oledb.4.0; data source="+server.MapPath("data\admin.mdb"))
		dim objcmd as new oledbcommand("getlogin",conn)
		objcmd.commandtype=commandtype.StoredProcedure
		
			  dim objParam as oledbParameter
			  objParam=objcmd.Parameters.add("@adminname",oledbtype.char)
			  objParam.direction=parameterdirection.input
			  objParam.value=adminname.text

			  objParam=objcmd.Parameters.add("@adminPassword",oledbtype.char)
			  objParam.direction=parameterdirection.input
			  objParam.value=adminpassword.text

		try
		   conn.open()
		   if ctype(objcmd.executeScalar,integer) <> 0 then
		      session("n_administrator")=ctype(objcmd.executeScalar,integer)
			  lblmessge.text="<font color=red>登录成功!ID:</font>" & session("n_administrator")
		   else
		      lblmessge.text="<font color=red>用户名或密码错误!</font>"
		  end if
		catch ex as exception
		   response.write(ex.message)
		finally
		   conn.close()
		end try
end sub	

sub deleteitem(gb_id as integer)
if not session("n_administrator") is nothing then
      dim objcmd as new oledbcommand("deleteitem",conn)
      objcmd.commandtype=commandtype.StoredProcedure
		
	  dim objParam as oledbParameter
	  objParam=objcmd.Parameters.add("@gb_id",oledbtype.integer)
	  objParam.direction=parameterdirection.input
	  objParam.value=gb_id

	try
	   conn.open()
       objcmd.executenonquery
	catch ex as exception
	   response.write(ex.message)
	finally
	  conn.close()
	end try 
    info.text="ID:" & gb_id & "删除成功!"
else
    info.text="您没有管理员的权限，请重新登录!"
end if


    dgdata.currentpageindex=viewState("pageindex")

end sub	

'分页
sub dgdata_pageindexChanged(obj as object,e as datagridpagechangedeventargs)
    dgdata.currentpageindex=e.newPageindex
	viewState("pageindex")=e.newPageindex
	dgdata.databind()
end sub

sub dgdata2_pageindexChanged(obj as object,e as datagridpagechangedeventargs)
    dgdata2.currentpageindex=e.newPageindex
	viewState("pageindex")=e.newPageindex
	dgdata2.databind()
end sub
</script>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>GuestBook</title>
<link href="gbtheme/cid4u/gbstyle.css" rel="stylesheet" type="text/css">
<link href="gbstyle.css" rel="stylesheet" type="text/css">
</head>
<body>
<div align="left"><img src="images/logo.gif" width="1000" height="235"><br>
</div>
<form runat="server">
<asp:label id="info" Font-Bold="true" ForeColor="#FF0000" font-size="12px" runat="server"/></P>
 
 <asp:datagrid ID="dgdata" Visible="false" AllowSorting="true"  AllowPaging="true" PageSize="5" PagerStyle-Mode="nextprev"  PagerStyle-Font-Name="宋体" PagerStyle-Font-Size="12px" PagerStyle-HorizontalAlign="center" PagerStyle-NextPageText="下页" PagerStyle-PrevPageText="上页" OnPageIndexChanged="dgdata_pageindexchanged" runat="server" BorderWidth="0" BorderStyle="None" ShowFooter="true" ShowHeader="true" AutoGenerateColumns="false" Width="100%">
<columns>
<asp:templatecolumn>
<headertemplate><table width="100%" border="0" align="center"  cellspacing="0" bgcolor="FFFFFF">
  <tr> 
    <td> 
      <table cellspacing="0" width="100%" align=center border="0">
        <tbody> 
		<tr>
		    <td colspan="2" align=center></td>
		</tr>
    <TABLE class=adminbg cellSpacing=0 width="100%" align=center>
        <tr> 
          <td align=left width="50%">
<table width="669" border="0">
  <tr>
    <td width="212"><a class=buttonview href="guestbook.aspx"  target=_self>查看留言 </a></td>
    <td width="255"><a class=buttonview href="New_gb.aspx" target=_self>发表留言</a></td>
    <td width="188"><a class=buttonview href="index.aspx" target=_self>站点首页 </a></td>
  </tr>
</table>
</td>
</tr>
</table>
</headertemplate>
<itemtemplate>  
        <tr> 
            <td valign=center colspan=2>
			 <p class=entry1header><strong><%# container.dataitem("gb_poster") %></strong>
			  <%# container.dataitem("gb_posterfrom") %>

              <img src="images/<%# container.dataitem("gb_postersex") %>.gif" width="18" height="14" align="middle" alt="性别" border="0">
			  
			   <a href="<%# container.dataitem("gb_posterhome") %>" target="_blank"><img src="images/gb_homepage.gif" width="18" height="14" align="middle" alt="<%# container.dataitem("gb_posterhome") %>" border="0"></a> 
			  <a href="http://search.tencent.com/cgi-bin/friend/user_show_info?ln=<%# container.dataitem("gb_posterqq") %>"><img src="images/qq-gray.gif" width="16" height="16" align="middle" alt="qq:<%# container.dataitem("gb_posterqq") %>" border="0"></a> &nbsp;&nbsp;&nbsp;IP:<%# container.dataitem("gb_posterip") %>
              <p class=entry1header> 
            </p></a>
            <p 
      class=entry2text><%# container.dataitem("gb_content")%>
            <p class=entry3date><%# container.dataitem("gb_date") %> &nbsp;(<%# container.dataitem("gb_id") %>) 
			&nbsp;<a href="New_reply.aspx?gb_id=<%# container.dataitem("gb_id") %>"><img src="images/gb_comment.gif" alt="回复" border="0" align="middle"></a> <a href="guestbook.aspx?gb_id=<%# container.dataitem("gb_id") %>"><img src="images/gb_trash.gif" alt="删除" border="0" align="middle"></a></p>
			            <p class=comment1header><a href="guestbook.aspx?reply_id=<%# container.dataitem("gb_id") %>">查看回复</a>[<%# container.dataitem("gb_reply") %>/<%# container.dataitem("gb_view") %>]浏览

          </td>
        </tr></itemtemplate>
<footertemplate>
<tr>   <td colspan=2>     <p class=jumplink>
		  <% if not session("n_administrator") is nothing then %> 
<A title=" 退出管理 " href="guestbook.aspx?login=out" target=_self>退出管理</a>[<A title=" 主页 " href="index.aspx" target=_self>主页</a>] 
	      <% else %> 
	  [<A title=" 管理登录页面 " href="guestbook.aspx?login=admin#login" target=_self>管理</a>] [<A title=" 主页 " href="index.aspx" target=_self>主页</a>] 
	      <% end if %>
	  <strong>共有条<%getnumber%>留言|<%# dgdata.currentpageindex+1 %>/<%# dgdata.pagecount %>页 </strong> </p>

          </td>
        </tr>
        </tbody> 
      </table>
    </td>
  </tr>
</table>
</footertemplate>
</asp:templatecolumn>
</columns>
</asp:datagrid> 



<asp:datagrid ID="dgdata2" Visible="false" AllowSorting="true"  AllowPaging="true" PageSize="5" AlternatingItemStyle-BackColor="#666666"   PagerStyle-Mode="nextprev"  PagerStyle-Font-Name="宋体" PagerStyle-Font-Size="12px" PagerStyle-HorizontalAlign="center" PagerStyle-NextPageText="下页" PagerStyle-PrevPageText="上页" OnPageIndexChanged="dgdata2_pageindexchanged" runat="server" BorderStyle="Dotted" ShowFooter="true" ShowHeader="true" AutoGenerateColumns="false" Width="100%">
<columns>
<asp:templatecolumn>
<headertemplate><table width="90%" border="0" align="center"  cellspacing="0" bgcolor="#e9e9e9">
  <tr> 
    <td> 
      <table cellspacing="0" width="100%" align=center border="0">
        <tbody> 
		<tr>
		    <td colspan="2" align=center></td>
		</tr>
        <tr> 
          <td align=left width="50%">
<a class=buttonview href="guestbook.aspx"  target=_self>查看留言</a><a class=buttonview href="New_gb.aspx" target=_self>发表留言 </a><a class=buttonview href="index.aspx" target=_self>站点首页 </A>


</td>

        </tr>
</headertemplate>
<itemtemplate>  
        <tr> 
            <td valign=center colspan=2>
			 <p class=entry1header><strong><%# container.dataitem("gb_poster") %></strong>
			  <%# container.dataitem("gb_posterfrom") %>

              <img src="images/<%# container.dataitem("gb_postersex") %>.gif" width="18" height="14" align="middle" alt="性别" border="0">
			  
			   <a href="<%# container.dataitem("gb_posterhome") %>" target="_blank"><img src="images/gb_homepage.gif" width="18" height="14" align="middle" alt="<%# container.dataitem("gb_posterhome") %>" border="0"></a> 
			  <a href="http://search.tencent.com/cgi-bin/friend/user_show_info?ln=<%# container.dataitem("gb_posterqq") %>"><img src="images/qq-gray.gif" width="16" height="16" align="middle" alt="qq:<%# container.dataitem("gb_posterqq") %>" border="0"></a> &nbsp;&nbsp;&nbsp;IP:<%# container.dataitem("gb_posterip") %>
              <p class=entry1header> 
            </p></a>
            <p 
      class=entry2text><%# container.dataitem("gb_content")%>
            <p class=entry3date><%# container.dataitem("gb_date") %> &nbsp;(<%# container.dataitem("reply.rep_id") %>) 
			&nbsp;<a href="New_reply.aspx?gb_id=<%# container.dataitem("gb.gb_id") %>"><img src="images/gb_comment.gif" alt="回复" border="0" align="middle"></a> <a href="guestbook.aspx?gb_id=<%# container.dataitem("gb.gb_id") %>"><img src="images/gb_trash.gif" alt="删除" border="0" align="middle"></a></p>
			            <p class=comment1header><a href="guestbook.aspx?reply_id=<%# container.dataitem("gb.gb_id") %>">查看回复</a>[<%# container.dataitem("gb_reply") %>/<%# container.dataitem("gb_view") %>]浏览

          </td>
        </tr></itemtemplate>
<footertemplate>
<tr>   <td colspan=2>     <p class=jumplink>
		  <% if not session("n_administrator") is nothing then %> 
<A title=" 退出管理 " href="guestbook.aspx?login=out" target=_self>退出管理</a>[<A title=" 主页 " href="index.aspx" target=_self>主页</a>] 
	      <% else %> 
	  [<A title=" 管理登录页面 " href="guestbook.aspx?login=admin#login" target=_self>管理</a>] [<A title=" 主页 " href="index.aspx" target=_self>主页</a>] 
	      <% end if %>
	  <strong>共有条<%getnumber%>留言|<%# dgdata2.currentpageindex+1 %>/<%# dgdata2.pagecount %>页 </strong> </p>

          </td>
        </tr>
        </tbody> 
      </table>
    </td>
  </tr>
</table>
</footertemplate>
</asp:templatecolumn>
</columns>
</asp:datagrid>



<a name="login"></a>
<div align="center">
  <p><span class="xeoline">processed:</span><span class="xeoline">
    <asp:Label ID="lblmessage" runat="server"/>
    m</span></p>
</div>
<p align="left" class=jumplink><span class="xeoline"><br>
</span>

<center><asp:panel ID="loginbox" Visible="false" runat="server">
<asp:label id=lblmessge cssclass="jumplink" font-size="12px" runat="server" text="请输入用户名和密码:"/>
<asp:textbox CssClass="input2" Width="50" runat="server" id=adminname/>
<asp:textbox CssClass="input2" Width="50" id=adminpassword runat="server" TextMode="Password"/>
<asp:button ID="click" runat="server" cssclass="buttonsend" Text="Submit" onclick="login" />
</asp:panel></center></P></form>
 <TABLE width="100%" align=center>
  <TBODY>
  <TR>
    <TD align=middle>      <div align="left"><IMG 
      src="images/foot.gif" width="1000" height="50" border=0></div></TD>
  </TR></TBODY></TABLE>
<P align="center" class=xeoline><br><br>  
</body>
</html>