savewanbaip1.asp

来自「网上流行的MOVE站点」· ASP 代码 · 共 30 行

<!--#include file="security.asp"-->
<!--#include file="articleconn.asp"-->
<%if session("flag")>1 then
    response.write "<script>alert('您的操作权限不够！');history.back();</script>"
    response.end
end if
%>
<%
   noip=LCase(Request("username"))
   testok=LCase(Request("newpin"))
   endtimes=LCase(Request("endtimes"))   
   set rs=server.createobject("adodb.recordset")
   sql="select * from okip"
   rs.open sql,conn,1,3
   rs.addnew
   rs("okip")=noip
   rs("testok")=testok
   rs("endtimes")=endtimes
   rs("startimes")=now()
   rs.update

   rs.Close
   set rs=Nothing
   conn.Close
   set conn=Nothing

   Response.Redirect "wanba.asp"
%>
</body>
</html>