dealwithall.asp

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

<!--#include file="Function.asp"-->
<%
SiteHead "批处理",3
%>
<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 style="line-height:160%;">

<%
dim Action,Part,SelectedId,SqlTable
Action=request.querystring("Action")
Part=request.querystring("Part")
SelectedId=request.form("LeoSelectId")
SqlTable=request.querystring("SqlTable")
SqlTable="Book"
if Part="Channel" then
   if Action="Del" then
      conn.execute("delete Id from "&SqlTable&" where Id In("&SelectedId&")")
      response.write "操作成功！"
      response.redirect("GuestBook.asp")      
   elseif Action="Up" then
      conn.execute("Update "&SqlTable&" Set Layer=9 where Id In("&SelectedId&")")
      response.write "操作成功！"
      response.redirect("GuestBook.asp")      
   elseif Action="Prime" then
      conn.execute("Update "&SqlTable&" Set Layer=5 where Id In("&SelectedId&")")
      response.write "操作成功！"
      response.redirect("GuestBook.asp")      
   elseif Action="Common" then
      conn.execute("Update "&SqlTable&" Set Layer=0 where Id In("&SelectedId&")")
      response.write "操作成功！"
      response.redirect("GuestBook.asp")      
   elseif Action="Level" then
      conn.execute("Update "&SqlTable&" Set Layer="&request.querystring("to")&" where Id In("&SelectedId&")")
      response.write "操作成功！"
      response.redirect("GuestBook.asp")      
   end if
end if

%>
</td></tr>
<tr><td class="trHead">　</td></tr>
<tr><td height="25" align="right" class="td"><a href="http://17Show.Net" target="_blank">一起秀网络</a>‖执行时间：<%ShowExecuteTime%>&nbsp;&nbsp;&nbsp;&nbsp;</td></tr>
</table>