progress.asp

来自「一个用jsp 编写的个人主页网站哦。希望对大家有所帮助啊」· ASP 代码 · 共 95 行

<!--#include file = "public.asp"-->
<%
SQL="Select * From friend order by MyDate desc"
Set rs=conn.Execute(SQL)

Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open SQL,Conn,2,3

select case request.Form("act")
case 1
   do while not rs.eof
   n=trim(cstr(rs("id")))
        if request.form(n)="on" then
		rs("mark")=true
		rs.update
      end if
   rs.movenext
   loop
   info="认证链接成功！"
case 2
   do while not rs.eof
   n=trim(cstr(rs("id")))
        if request.form(n)="on" then
		rs("mark")=false
		rs.update
      end if
   rs.movenext
   loop
   info="取消认证成功！"
case 3
   do while not rs.eof
   n=trim(cstr(rs("id")))
        if request.form(n)="on" then
        rs.delete
		rs.update
      end if
   rs.movenext
   loop
   info="删除链接成功！"
case 4
   do while not rs.eof
   n=trim(cstr(rs("id")))
        if request.form(n)="on" then
		rs("mydate")=now
		rs.update
      end if
   rs.movenext
   loop
   info="提到最前成功！"
case 5
   do while not rs.eof
   n=trim(cstr(rs("id")))
        if request.form(n)="on" then
		rs("sitelevel")=1
		rs.update
      end if
   rs.movenext
   loop
   info="固定顶端成功！"
case 6
   do while not rs.eof
   n=trim(cstr(rs("id")))
        if request.form(n)="on" then
		rs("sitelevel")=0
		rs.update
      end if
   rs.movenext
   loop
   info="取消固顶成功！"
case 7
   do while not rs.eof
   n=trim(cstr(rs("id")))
        if request.form(n)="on" then
		rs("show")=1
		rs.update
      end if
   rs.movenext
   loop
   info="首页显示成功！"
case 8
   do while not rs.eof
   n=trim(cstr(rs("id")))
        if request.form(n)="on" then
		rs("show")=0
		rs.update
      end if
   rs.movenext
   loop
   info="取消显示成功！"   
end select


response.Redirect "progress_ok.asp?info="&info
%>