guestbook.asp

Ajax留言本源代码 网上找到的一个源码,希望做网站的能用上.

<!--#include file="Function.asp"-->

<%
SiteHead "留言频道",3
dim Action,Sort,Id,rs,sql,i,Num,KeyWord,Page,Amount,Attach
Action=request.querystring("Action")
Sort=request.querystring("Sort")
Page=request.querystring("Page")
Id=request.querystring("Id")
set rs=server.createobject("adodb.recordset")

%>
<script language="javascript" src="Leo.js"></script>

<table width="<%=SiteWidth%>" border="0" align="center" cellpadding="2" cellspacing="0">
<tr><td height="25" align="center" class="td">留言频道</td></tr>
<tr><td class="trHead">　</td></tr>
<tr><td valign="top">

    <table width="100%" border="0" align="center" cellpadding="2" cellspacing="0">
    <tr><td width="16%" valign="top">
<%
sql="select Id,Sort,Name from Sort where Lei=-1 order by Layer desc,Id"
rs.open sql,conn,1,1
do while not rs.eof
    if rs("Sort")=Sort then
        response.write "<li><a href=""?Sort="&rs("Sort")&"""><font color=""red"">"&rs("Name")&"</font></a></li>"
    else
        response.write "<li><a href=""?Sort="&rs("Sort")&""">"&rs("Name")&"</a></li>"
    end if
   rs.movenext
loop
rs.close
%>
    <td valign="top">
       <table width="100%" border="0" align="center" cellpadding="2" cellspacing="0">
<%       
if Action="Update" then

   response.write "<tr><td>"
   if Not IsNumeric(Id) then ErrMsg=ErrMsg&"<li>ID参数错误！</li>"
   if trim(request.form("Title"))="" then ErrMsg=ErrMsg&"<li>请填写主题！</li>"
   if len(trim(request.form("Title")))<1 or len(trim(request.form("Title")))>255 then ErrMsg=ErrMsg&"<li>主题只能为1-255个字符！当前有"&len(trim(request.form("Title")))&"字符</li>"
   if len(trim(request.form("Content")))="" then ErrMsg=ErrMsg&"<li>内容不能为空！</li>"
   if ErrMsg<>"" then
   
      response.write "<script language=javascript>alert('"&ErrMsg&"');</script>"
      response.redirect("Channel.asp")      

   else
      sql="select * from [Book] where Id="&Id
      rs.open sql,conn,1,3
      rs("Title")=Server.HTMLEncode(trim(request.form("Title")))
      rs("NickName")=request.form("NickName")
      rs("Layer")=request.form("Layer")
      if request.form("Show")="on" then:rs("Show")=1:else:rs("Show")=0  
      rs("Belong")=request.form("Sort")
      rs("Sex")=request.form("Sex")
      rs("QQ")=request.form("QQ")
      rs("Email")=request.form("Email")
      rs("HomePage")=request.form("HomePage")
      rs("Reply")=server.htmlencode(request.form("Reply"))
      if server.htmlencode(request.form("Reply"))<>"" then rs("ReplyTime")=now()
      rs("Content")=server.htmlencode(request.form("Content"))
      rs.update
      rs.close
      response.write "<script language=javascript>alert('操作成功');</script>"
      response.redirect("GuestBook.asp")      
      
   end if
   response.write "</td></tr>"

elseif Action="Modify" then
if IsNumeric(Id) then
   sql="select Layer,Title,Belong,NickName,Show,Reply,Content,QQ,Email,HomePage,Sex from [Book] where Id="&Id
rs.open sql,conn,1,1
if rs.bof and rs.eof then
      response.write "<script language=javascript>alert('操作失败');</script>"
      response.redirect("GuestBook.asp")      

else
%>
<form name="Modify" method="post" action="?Action=Update&Id=<%=Id%>">
<tr><td colspan="6" align="center">编辑</td></tr>
<tr><td width="72">主题</td><td colspan="5"><input name="Title" size="60" type="text" value="<%=rs("Title")%>"></td></tr>
<tr><td>作者</td><td colspan="3"><input name="NickName" size="16" type="text" value="<%=rs("NickName")%>"></td>
<td>显示</td><td><input type="checkbox" name="Show" <%if rs("Show")=1 then response.write "checked"%>></td>
</tr>
<tr>
<td width="60">QQ</td><td><input name="QQ" size="12" type="text" value="<%=rs("QQ")%>"></td>
<td width="60">Email</td><td><input type="text" size="20" name="Email" value="<%=rs("Email")%>"></td>
<td width="60">性别</td><td width="36"><input name="Sex" size="8" type="text" value="<%=rs("Sex")%>"></td>
</tr>
<tr><td>分类频道</td><td>
    <select name="Sort">
<%
dim rss,sqll
set rss=server.createobject("adodb.recordset")
sqll="select Id,Sort,Name from Sort where Lei=-1 order by Layer desc,Id"
rss.open sqll,conn,1,1
do while not rss.eof
   if rss("Sort")=rs("Belong") then
      response.write "<option value="""&rss("Sort")&""" selected>"&rss("Name")&"</a></option>"
   else
      response.write "<option value="""&rss("Sort")&""">"&rss("Name")&"</a></option>"
	end if
   rss.movenext
loop
rss.close
set rss=nothing
%>	
</td>
<td>HomePage</td><td><input type="text" size="20" name="HomePage" value="<%=rs("HomePage")%>"></td>

<td>排序：</td><td>
    <select name="Layer">
<%
for i=0 to 9
    if Cint(rs("Layer"))=i then
       response.write "<option value="""&i&""" selected>"&i&"</option>"		
	else
       response.write "<option value="""&i&""">"&i&"</option>"		
	end if
next
%>
    </select>
</td>

</tr>

<tr><td>内容</td><td colspan="5">
<textarea name="Content" cols="72" rows="12"><%=rs("Content")%></textarea>
</td></tr>
<tr><td>回复</td><td colspan="5">
<textarea name="Reply" cols="72" rows="6"><%=rs("Reply")%></textarea>
</td></tr>



<tr><td colspan="6" align="center">
<input type="submit" value="编辑">&nbsp;&nbsp;&nbsp;&nbsp;<input type="reset" value="重置"></td></tr>
</form>

<%
      end if
      rs.close
   else
      response.write "<tr><td>"
      Error 3,"","错误类型：100004<br>可能原因：<li>参数必须为数字！</li>","","","96%",0,4,"white","#E4E4F3"
      response.write "</td></tr>"
   end if

elseif Action="Del" then

   response.write "<tr><td>"
   if Not IsNumeric(Id) then ErrMsg=ErrMsg&"<li>Id参数错误！</li>"
   if ErrMsg="" then
      conn.execute("Delete Id from [Book] where Id="&Id)  
      response.write("<script language=javascript>alert('成功删除！');</script>")
      response.redirect("GuestBook.asp")

   else
      response.write("<script language=javascript>alert('删除失败！');</script>")
      response.redirect("Channel.asp")

   end if
   response.write "</td></tr>"
   
else

   i=1
   Num=20
   if Sort<>"" then
      sql="select * from [Book] where Belong='"&Sort&"' order by Id desc"
   else
      sql="select * from [Book] order by Id desc"
   end if
   rs.open sql,conn,1,1
   if rs.bof and rs.eof then
      response.write "<tr><td colspan=""5"">数据库没有数据记录！</td></tr>"
   else
      rs.pagesize=Num
      if Page="" or IsNull(Page) or Not IsNumeric(Page) or Page=0 then:Page=1
      rs.absolutepage=Page
      Amount=Num
      response.write "<tr><td colspan=""5"">"
      DividePage "Sort="&Sort&"&",rs.recordcount,rs.pagecount,8,Amount,"条",Page,"100%","16","Table2","TdPageHead","a","right","lightblue","blue"
	  response.write "<form name=""myform"" method=""post"" action="""">"&VbCrLf&_
      "<input type=""hidden"" name=""LeoSelectId"" value="""">"&VbCrLf&_
      "</td></tr>" 
      do while not rs.eof and Num>0
         response.write "<tr><td align=""center"" width=""6%"">"&(Page-1)*Amount+i&"</td><td width=""60%""><input type=""checkbox"" name=""CurrentId"" value="""&rs("Id")&"""></a>"&rs("Title")&"&nbsp;&nbsp;&nbsp;&nbsp;"&GetTime(rs("DateAndTime"),3)&_
         "</td><td width=""10%"" align=""center"">"&rs("Belong")&"</td><td align=""center"">"&Intercept(rs("NickName"),16,"")&_
"</td><td width=""15%"" align=""center"">[<a href=""?Action=Modify&Id="&rs("Id")&""">编</a>]&nbsp;"&VbCrLf&_
"[<a href=""?Action=Del&Id="&rs("Id")&""">删</a>]</td></tr>"
         i=i+1
         Num=Num-1
         rs.movenext
      loop
%>	 
<tr><td colspan="5">
<input name="reset" type="reset" value="重置">
<input name="submitsc" onClick="selAll(this.form.CurrentId)" type="button" value="全选">
<input name="submitsc" onClick="noSelAll(this.form.CurrentId)" type="button" value="反选">
<input name="submitsc" type="button" value="删除" onClick="Operate(this.form,'Channel','Del','&SqlTable=Information')">
<input name="submitsc" type="button" value="固顶" onClick="Operate(this.form,'Channel','Up','&SqlTable=Information')">
<input name="submitsc" type="button" value="精华" onClick="Operate(this.form,'Channel','Prime','&SqlTable=Information')">
<input name="submitsc" type="button" value="普通" onClick="Operate(this.form,'Channel','Common','&SqlTable=Information')">
<input name="submitsc" type="button" value="排序" onClick="Operate(this.form,'Channel','Level','&SqlTable=Information&to='+Layer.options[Layer.selectedIndex].value)">
<select name="Layer" type="text">
<%
for i=0 to 9
    response.write "<option value="""&i&""">"&i&"</option>"
next
%>
</select>

</td></tr>
</form>	  
<%
   end if
   rs.close

end if
%>
       </table>
    </td></tr>
    </table>

</td></tr>
<tr><td class="trHead">　</td></tr>
<tr><td height="25" align="right" class="td"><%SiteBottom%></td></tr></table>
</body>
</html>