?? gb_list.asp
字號:
<!--#include file="open.asp" -->
<%
del=Request("del")
if del<>"" then
SQL="Select * from guestbook where id="&del
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open SQL,con,1,1
if not rs.Eof then
SQL="Delete from guestbook where id="&del
con.Execute(SQL)
Response.write("<script>alert('記錄刪除成功')</script>")
end if
rs.Close
Set rs=nothing
end if
%>
<HTML><HEAD><TITLE>留言管理</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK
href="image/myweb.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.2800.1106" name=GENERATOR></HEAD>
<BODY bgColor=#ffffff leftMargin=0 topMargin=0 marginheight="0" marginwidth="0">
<TABLE height=30 cellSpacing=0 cellPadding=0 width=600 align=center border=0>
<TBODY>
<%
SQL="Select * from guestbook order by id Desc"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open SQL,con,1,1
rs.PageSize=15
count=1
if Request("count")<>"" then
count=Cint(Request("count"))
if count<1 then
count=1
end if
if count>rs.PageCount then
count=rs.PageCount
end if
end if
%>
<TR>
<TD> <P align=right><IMG height=13 src="image/rent.gif" width=18
align=absMiddle>頁數:<%=count%>/<%=rs.PageCount%> <IMG height=15
src="image/amount.gif" width=15 align=absMiddle> 數量: <%=rs.RecordCount%></P></TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=1 cellPadding=4 width=600 align=center border=0>
<TBODY>
<TR align=middle>
<TD class=web_title width=60>序號</TD>
<TD class=web_title height=20>留言主題</TD>
<TD class=web_title width=30>刪除</TD>
<TD class=web_title width=30>查看</TD>
</TR>
<%
if not rs.Bof and not rs.Eof then
rs.ABSolutePage=count
end if
for i=0 to rs.PageSize-1
if rs.Eof then
exit for
end if
if i mod 2=0 then
Response.Write("<TR class=web_td1 >")
else
Response.Write("<TR class=web_td2 >")
end if
%>
<TD align=middle><%=(count-1)*rs.pageSize+i+1%></TD>
<TD align=left> <%=rs("title")%></TD>
<TD align=middle><A
href="javascript:del(<%=rs("id")%>)"><IMG
src="image/del.gif" border=0></A></TD>
<TD align=middle><A
href="javascript:ishow(tr<%=i%>)"><IMG
src="image/edit.gif" border=0></A></TD>
</TR>
<tr bgcolor="#f1f1f1" id="tr<%=i%>" style="display:none">
<td colspan="4">
<%
response.write("<TABLE cellSpacing=1 cellPadding=4 width=550 align=center border=0 bgcolor=#efefef>")
Response.write("<tr bgcolor=#ffffff>"&chr(13)&"<td>序號</td><td>"&(count-1)*rs.pageSize+i+1&" <A href=""javascript:ishow(tr"&i&")""><font color=""#ff0000""><strong>關閉</strong></font></a></td></tr>")
Set xml=Server.CreateObject("Microsoft.XMLDOM")
xml.async=false
xml.load(Server.MapPath("gb.xml"))
Set root=xml.documentElement
for j=0 to root.childnodes.length-1
Set node=root.childnodes.item(j)
Response.write("<tr bgcolor=#ffffff>"&chr(13))
Response.write("<td>"&node.attributes.item(2).nodevalue&"</td>"&chr(13))
Response.write("<td>"&rs(node.attributes.item(1).nodevalue)&"</td>"&chr(13))
Set node=nothing
next
response.write("</TABLE>")
Set xml=nothing
%>
</td>
</tr>
<%
rs.movenext
next
%>
</TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=600 align=center border=0>
<TBODY>
<TR>
<TD align=right>[<a href="gb_list.asp?count=1&tid=<%=tid%>">首頁</a>] [<a href="gb_list.asp?count=<%=count-1%>&tid=<%=tid%>">上一頁</a>][<a href="gb_list.asp?count=<%=count+1%>">下一頁</a>]
[<a href="gb_list.asp?count=<%=rs.PageCount%>&tid=<%=tid%>">尾頁</a>]
<DIV></DIV></TD></TR></TBODY></TABLE><BR>
<%
rs.Close
Set rs=nothing
%>
<DIV align=center></DIV></TD></TR></TABLE>
<script>
function del(id)
{
if(confirm("你真得要刪除這條記錄嗎？"))
location.href="p_list.asp?del="+id+"&count=<%=count%>&tid=<%=tid%>";
}
function ishow(id)
{
if(id.style.display=="none")
id.style.display=""
else
id.style.display="none"
}
</script>
</BODY></HTML>
<!--#include file="close.asp" -->
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -