mwldc.asp

较为详细的介绍了asp自定义的各种函数,方便asp的各种开发.

<!--#include file="conn.asp"-->
<a href="wldc.asp?dtype=add">添加调查信息</a><br><a href="wldc.asp?dtype=del">管理调查信息</a><br><A href="wldc.asp">查看调查结果</A>
<%
on error resume next
cmd=request("cmd")
sid=request("sid")
reurl=request.ServerVariables("HTTP_REFERER")
if cmd="stop" then
   conn.execute("update wldc set dcbegin=false where id="&cint(sid))
elseif cmd="star" then
   conn.execute("update wldc set dcbegin=false where id<>"&cint(sid))
   conn.execute("update wldc set dcbegin=true where id="&cint(sid))
elseif cmd="del" then
      for each item in request.form("del")  
          conn.execute("delete from wldc where id="&item) 
      next       
else
    response.write "<meta http-equiv=refresh content=1;url="&reurl&">操作有误"
    response.end
end if
if err.number<>0 then
    response.write "<meta http-equiv=refresh content=1;url="&reurl&">操作有误"
    err.clear
else
    response.write "<meta http-equiv=refresh content=1;url="&reurl&">操作成功"
end if
%>



<%
set conn=nothing
%>