admin_ly.asp

非常好的源码 非常好的源码 非常好的源码

<!--#include file=admin_login_check.asp-->
<%
Function inWML(str)
	sTemp = Replace(str, Chr(39), "&#39;")
	inWML = sTemp
End Function

	IF (Request.Form("Flag")="ReplySave") Then
		Id = Request.Form("Id")
		Name = inWml(Request.Form("Name"))
		Title = inWml(Request.Form("Title"))
		Content = inWml(Request.Form("Content"))
		Reply = inWml(Request.Form("Reply"))

			set rs=server.CreateObject("adodb.recordset")
			sql="select * from guestbook WHERE Id = "&Id
			rs.open sql,conn,1,3
					rs("Title")=Title
					rs("name")=name
					rs("Content")=Content
					rs("Reply")=Reply
				rs.update()
		Rs.close
		set rs=nothing
		Response.Redirect("admin_ly.asp")
	End IF
	
	IF (Request.QueryString("Action")="Del") Then

		Set Rs = Server.CreateObject("Adodb.Recordset")
		Sql = "select * FROM GuestBook WHERE id="&Request("Id")
		Rs.Open Sql,conn,1,3
		if not (rs.bof and rs.eof)  then 
		rs.Delete
		end if
		rs.Close
		Set rs = Nothing

		Response.Redirect("admin_ly.asp")

	End IF
%>
<style type="text/css">
body, td{font-size:12px;}
p{line-height:22px;}
</style>
<script language="javascript" type="text/javascript" charset="utf-8">
<!--
function check_form1()
{
	if (document.form1.Reply.value==""){
		alert("请填写回复内容！");
		document.form1.Reply.focus();
	}
	else{return true;}
	return false;
}
-->
</script>
</head>
<%	IF (Request.QueryString("Action")<>"Reply") Then%>

<table width="600" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#2D96FF">
  <tr align="center" bgcolor="#9BCDFF">
    <td height="25"><strong>ID</strong></td>
    <td><strong>留言者</strong></td>
    <td><strong>标题</strong></td>
    <td><strong>留言内容</strong></td>
    <td><strong>留言时间</strong></td>
    <td width="34"><strong>回复</strong></td>
<% if session("flag")="1" or session("flag")="2" then%>
    <td><strong>删除</strong></td>
<%end if%>
  </tr>
<%
	Set Rs=Server.CreateObject("adodb.Recordset")
	Sql = "SELECT * FROM GuestBook ORDER BY Id Desc"
	Rs.open Sql,conn,1,3
	Page = Request.QueryString("Page")
	Rs.PageSize = 10	'一页6条记录
if not (rs.bof and rs.eof)  then
	IF Not IsEmpty(Page) Then
		IF Not IsNumeric(Page) Then		'判断Page是否为数字
			Page=1
		Else
			Page=Cint(Page)		'转换成短整形Integer
		End IF
		IF Page > Rs.PageCount Then
			Rs.AbsolutePage = Rs.PageCount	'设置当前显示页等于最后一页
		ElseIF Page <= 0 Then
			Rs.AbsolutePage = 1		'设置当前页等于第一页
		Else
			Rs.AbsolutePage = Page	'如果大于零,显示当前页等于接收的页数
		End IF
	Else
		Rs.AbsolutePage = 1
	End IF
	Page = Rs.AbsolutePage
%>
<%
	For i=1 to Rs.PageSize
		If Rs.Eof Then 
			Exit For
		End If 
%>
  <tr bgcolor="#C8E3FF" onMouseOver="javascript:this.bgColor='#9BCDFF';" onMouseOut="javascript:this.bgColor='#C8E3FF';">
    <td width="19" height="25" align="center"><%=Rs("Id")%></td>
    <td width="48" align="center"><%=Rs("Name")%></td>
    <td width="53" align="center"><%=Rs("Title")%></td>
    <td width="247" align="left"><%=Rs("Content")%> </td>
    <td width="76" align="center"><%=Rs("CreatTime")%></td>
    <td align="center"><a href="admin_ly.asp?Action=Reply&Id=<%=Rs("Id")%>">回复</a></td>
<% if session("flag")="1" or session("flag")="2" then%>
    <td width="45" align="center"><a href="javascript:if(confirm('确实要删除吗?'))location='admin_ly.asp?Action=Del&Id=<%=Rs("Id")%>'">删除</a></td>
<%end if%>
  </tr>
<%
		Rs.MoveNext
	Next
%> 
<tr align="center" bgcolor="#9BCDFF">
  <td height="25" colspan="8">
    <%
	Response.Write("<form name=page method=get onsubmit=""document.location = 'admin_ly.asp?Page='+this.page.value;return false;"">")        
    if page<=1 then
        Response.Write ("[首页] [上一页] ")
    else        
        Response.Write("[<a href=admin_ly.asp?Page=1>首页</a>] ")
        Response.Write("[<a href=admin_ly.asp?Page=" & (Page-1) & ">上一页</a>] ")
    end if

    if page>=Rs.PageCount then
        Response.Write ("[下一页] [尾页]")        
    else
        Response.Write("[<a href=admin_ly.asp?Page=" & (Page+1) & ">下一页</a>] ")
        Response.Write("[<a href=admin_ly.asp?Page=" & Rs.PageCount & ">尾页</a>]")            
    end if
    Response.Write("[页次:<font color=red>" & page & "</font>/" & Rs.PageCount)    
    Response.Write("] [共" & Rs.RecordCount & "条 <font color=red>"& Rs.PageSize & "</font>条/页]")
    Response.Write(" 转到" & "<input name=page size=4 value=" & page & ">" & "页<input type=submit value=go>")
else
%>
  </td>
  </tr>
  <tr bgcolor="#C8E3FF" ><td colspan="7" ><div align="center">
暂时没有用户留言!
  </div></td>
  </tr>
<%end if%>
</table></form>
<p>&nbsp;</p>
<%
else
	Set Rs=Server.CreateObject("adodb.Recordset")
	Sql = "SELECT * FROM GuestBook WHERE Id ="&Request("Id")
	Rs.open Sql,conn,1,3


%>
<table width="333" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#C8E3FF">
<form name="form1" method="post" action="admin_ly.asp" onsubmit="javascript:return check_form1()">
  <tr>
    <td width="69"><strong>ID</strong></td>
    <td width="264"><%=Rs("Id")%></td>
  </tr>
  <tr>
    <td><strong>留言者</strong></td>
    <td>
      <input name="Name" type="text" value="<%=Rs("Name")%>" size="20">
    </td>
  </tr>
  <tr>
    <td><strong>标题</strong></td>
    <td><input name="Title" type="text" value="<%=Rs("Title")%>" size="20"></td>
  </tr>
  <tr>
    <td><strong>留言时间</strong></td>
    <td><%=Rs("CreatTime")%></td>
  </tr>
  <tr>
    <td><strong>留言内容</strong></td>
    <td><textarea name="Content" cols="30" rows="4"><%=Rs("Content")%></textarea></td>
  </tr>
  <tr>
    <td><strong>本站回复</strong></td>
    <td><textarea name="Reply" cols="30" rows="4"><%=Rs("Reply")%></textarea></td>
  </tr>
  <tr align="center">
    <td colspan="2"><input type="submit" name="Submit" value="提交">
      &nbsp;&nbsp;&nbsp;&nbsp;
      <input type="reset" name="Submit" value="重置">
	  <input name="Id" type="hidden" value="<%=Rs("Id")%>">
	  <input name="Flag" type="hidden" value="ReplySave">
	  </td>
    </tr>
  </form>
</table>
<%	End IF	%>
</body>
</html>
<%
	Rs.Close
	Set Rs = Nothing
%>