📄 index.aspx
字号:
<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="gb2312" %>
<%@ Register TagPrefix="MM" Namespace="DreamweaverCtrls" Assembly="DreamweaverCtrls,version=1.0.0.0,publicKeyToken=836f606ede05d46a,culture=neutral" %>
<MM:DataSet
id="DataSet1"
runat="Server"
IsStoredProcedure="false"
ConnectionString='<%# System.Configuration.ConfigurationSettings.AppSettings("MM_CONNECTION_STRING_MyMessageData") %>'
DatabaseType='<%# System.Configuration.ConfigurationSettings.AppSettings("MM_CONNECTION_DATABASETYPE_MyMessageData") %>'
CommandText='<%# "SELECT * FROM MessageBook ORDER BY id DESC" %>'
Debug="true" PageSize="10" CurrentPage='<%# IIf((Request.QueryString("DataSet1_CurrentPage") <> Nothing), Request.QueryString("DataSet1_CurrentPage"), 0) %>'
></MM:DataSet>
<MM:PageBind runat="server" PostBackBind="true" />
<script runat="server">
'函数代码块
function strdetlete(strid as integer) as string'定义一个strdetlete函数
if not session("MM_Username") is nothing then'当session不为空时
strdetlete="<input name=delete type=checkbox id=delete value="& strid &" >删除"
'输出复选框及它的值
end if
end function
function strbrvbs(messagetext as string) as string
strbrvbs=Replace(messagetext,"<", "<")
strbrvbs=Replace(strbrvbs,">", ">")
strbrvbs=Replace(strbrvbs ,vbCrLf,"<br>")
strbrvbs=Replace(strbrvbs,chr(32)&chr(32), " ")
end function
function AdminRel(relmessage)
if relmessage<>Nothing then
AdminRel="<br><table width=550 border=0 cellpadding=2 cellspacing=0 bgcolor=#E1F3FF>" & _
"<tr><td> 管理员回复：" & strbrvbs(relmessage) &"</td></tr></table>"
end if
end function
</script>
<script runat="server">
dim xxx as string'声明一个全局变量
Sub Page_Load(Src As Object, E As EventArgs)'页载载入时触发事件
xxx=request.form("delete")'接收复选框集合值，并赋值给XXX变量
label1.Visible="False"'初始化Label1控件不显示
label2.Visible="False"'初始化Label2控件不显示
ButtonDelete.Visible="False"'初始化扭按控件不显示
if not session("MM_Username") is nothing then'当session不为空时
ButtonDelete.Visible="true"'session变量有值时即显示按扭
end if
Delete1.ConnectionString= _
System.Configuration.ConfigurationSettings.AppSettings("MM_CONNECTION_STRING_MyMessageData")
'读取数据库连接字符串
Delete1.CommandText="DELETE FROM MessageBook WHERE id in ("+ xxx +")"'SQL删除语句
End Sub
Sub sub_delete(Src As Object, E As EventArgs)'这是响应单击Button按扭控件的代码
if not session("MM_Username") is nothing then'当session不为空时
if xxx<>"" then'当复选框有钩选时
Delete1.Debug=true'执行Delete控件删除命令
label1.Visible="True"'成功删除记录，label1控件显示输出成功提示信息。
else'否则
label2.Visible="True"'没有选择删除项，label2控件显示输出出错提示。
end if
end if
End Sub
</script>
<MM:Delete id="Delete1" runat="server"></MM:Delete>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>留言本首页</title>
<style type="text/css">
<!--
.style3 {color: #666666}
.style12 {font-size: 14px}
.style13 {color: #666666; font-size: 14px; }
-->
</style>
</head>
<body>
<form name="form1" id="form1" method="post" runat="server">
<asp:label ID="label1" runat="server" Text="<script Language=JavaScript >alert('成功删除留言！')</script>"></asp:label>
<asp:label ID="label2" runat="server" Text="<script Language=JavaScript >alert('对不起！请选择要删除的留言！')</script>"></asp:label>
<table width="707" border="0">
<tr>
<td width="198" height="27"> </td>
<td colspan="2"><span class="style3"><img src="gif/logo.gif" width="259" height="36"></span></td>
</tr>
<tr>
<td><span class="style13"><a href="post.aspx"><img src="gif/FIL3319.GIF" width="99" height="25" border="0" lowsrc="gif/FIL3319.GIF"></a></span></td>
<td colspan="2"><span class="style13"></span></td>
</tr>
<tr>
<td height="12" colspan="3"><img src="gif/gray.gif" width="662" height="10"></td>
</tr>
<ASP:Repeater runat="server" DataSource='<%# DataSet1.DefaultView %>'>
<ItemTemplate>
<tr>
<td><div align="center" class="style13 style12">
<div align="center"><img src="gif/FIL119.JPG"></div>
</div></td>
<td colspan="2"><span class="style13"><strong>留言标题</strong>：<%# DataSet1.FieldValue("title", Container) %></span></td>
</tr>
<tr>
<td><div align="center" class="style13 style12"></div></td>
<td colspan="2"><span class="style13"><a href="<%# DataSet1.FieldValue("PageUrl", Container) %>"><img src="gif/FIL24113.GIF" width="47" height="18" border="0"></a> <a href="mailto:<%# DataSet1.FieldValue("email", Container) %>"><img src="gif/FIL24111.GIF" width="45" height="18" border="0"></a> <img src="gif/FIL3241.GIF" alt="<%# DataSet1.FieldValue("Qicq", Container) %>" width="45" height="18"> <a href="admin_update.aspx?id=<%# DataSet1.FieldValue("id", Container) %>"><img src="gif/FIL3242.GIF" width="47" height="18" border="0"></a> <a href="admin_post.aspx?id=<%# DataSet1.FieldValue("id", Container) %>"><img src="gif/FIL24003.GIF" width="45" height="18" border="0"></a></span></td>
</tr>
<tr>
<td rowspan="2"><div align="center" class="style13">
<p align="center"><span class="style13 style12"><img src='<%# DataSet1.FieldValue("face", Container) %>'></span></p>
<p align="center">昵称：<%# DataSet1.FieldValue("MessageName", Container) %></p>
</div></td>
<td colspan="2"><span class="style13"><img src='<%# DataSet1.FieldValue("Miange", Container) %>'><%# strbrvbs(DataSet1.FieldValue("MessageBook", Container)) %><%#AdminRel(DataSet1.FieldValue("MessageAdmin", Container)) %></span></td>
</tr>
<tr>
<td width="387" height="37"><span class="style13"><img src="gif/FIL23629.GIF" width="16" height="16">IP地址：<%# DataSet1.FieldValue("UserIP", Container) %> <img src="gif/FIL23680.GIF" width="15" height="12">留言时间：<%# DataSet1.FieldValue("TimeInsert", Container) %></span></td>
<td width="108"><span class="style13">
<%# strdetlete(DataSet1.FieldValue("id", Container)) %></span></td>
</tr>
<tr>
<td height="12" colspan="3"><div align="center"><span class="style12"><img src="gif/gray.gif" width="662" height="10"> </span></div></td>
</tr>
</ItemTemplate>
</ASP:Repeater>
<tr>
<td colspan="3"><div align="center" class="style13"> <span class="style12">
<asp:Button ID="ButtonDelete" runat="server" Text="删除留言" OnClick="sub_delete" />
记录 <%= IIf((DataSet1.RecordCount = 0), 0, (DataSet1.StartRecord + 1)) %> 到 <%= DataSet1.EndRecord %> (总共 <%= DataSet1.RecordCount %> 个记录)
<MM:If runat="server" Expression='<%# (DataSet1.CurrentPage <> 0) %>'>
<ContentsTemplate> <a href="<%# Request.ServerVariables("SCRIPT_NAME") %>?DataSet1_currentPage=0">第一页</a> </ContentsTemplate>
</MM:If>
<MM:If runat="server" Expression='<%# (DataSet1.CurrentPage <> 0) %>'>
<ContentsTemplate> <a href="<%# Request.ServerVariables("SCRIPT_NAME") %>?DataSet1_currentPage=<%# DataSet1.CurrentPage - 1 %>">前一页</a> </ContentsTemplate>
</MM:If>
<MM:If runat="server" Expression='<%# (DataSet1.CurrentPage < DataSet1.LastPage) %>'>
<ContentsTemplate> <a href="<%# Request.ServerVariables("SCRIPT_NAME") %>?DataSet1_currentPage=<%# DataSet1.CurrentPage + 1 %>">下一页</a> </ContentsTemplate>
</MM:If>
<MM:If runat="server" Expression='<%# (DataSet1.CurrentPage < DataSet1.LastPage) %>'>
<ContentsTemplate> <a href="<%# Request.ServerVariables("SCRIPT_NAME") %>?DataSet1_currentPage=<%# DataSet1.LastPage %>">最后一页</a> </ContentsTemplate>
</MM:If>
</span></div></td>
</tr>
<tr>
<td colspan="2"> <div align="center" class="style13"></div>
<div align="center" class="style13"><span class="style12">
</span>总共有 <strong> <%# DataSet1.LastPage+1 %></strong> 页 /当前页<strong><%= DataSet1.CurrentPage + 1 %></strong> /分页：
<%dim i as integer
for i=1 to (DataSet1.LastPage+1)
if (DataSet1.CurrentPage + 1)=i then
response.Write("<font color=#FF0000><strong>" & i &"</strong> </font> ")
else
response.Write("<a href='index.aspx?DataSet1_currentPage="& (i-1) &"'>" & i &"</a> ")
end if
next%>
</div></td>
<td><span class="style3"></span></td>
</tr>
<tr>
<td><div align="center"><span class="style12"></span></div></td>
<td><div align="left" class="style12"><span class="style3"><a href="admin_loing.aspx">管理</a> <a href="admin_Cancellation.aspx">退出</a> 程序设计：B.A.D QQ:5414856 </span></div></td>
<td><span class="style12">
</span></td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
</table>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -