<% dim ation,ID ation = trim(Request.QueryString("ation")) ID = trim(Request.QueryString("ID")) if ID="" or ation="" then Call Error("错误操作！") end if if ation = "nof" or ation = "f" or ation = "noh" or ation = "h" or ation = "nox" or ation= "x" or ation = "nol" or ation= "l" or ation= "noj" or ation= "j" or ation= "nolock" or ation= "lock" then else Call Error("操作无效！") end if set rs=server.createobject("adodb.recordset") rs.open "select keys,skey from Users where ID="&ID,conn,1,1 if rs.eof then Call Error("没有这个会员！") end if rs.close set rs=nothing Response.write format(ation)&"
" %> <%if len(ation) =3 then%> 操作原因：

期限: 1小时 1天 2天 3天 4天 5天 10天 15天
<%end if%> 执行 <%if len(ation) =3 then%> <%end if%>
返回