saveip1.asp

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

<!--#include file="articleconn.asp"-->
<!--#include file="security.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"))  
   set rs=server.createobject("adodb.recordset")
   sql="select * from noip"
   rs.open sql,conn,1,3
   rs.addnew
   rs("noip")=noip
   rs("testok")=testok
   rs.update

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

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