saveip1.asp

来自「视频点播系统」· ASP 代码 · 共 29 行

<!--#include file="articleconn.asp"-->
<%
if Session("admin")<>"imoviejads" then
  response.redirect "login.asp"
end if
%>
<%if session("flag")>1 then
    response.write "<br><p align=center>您的操作权限不够！</p>"
    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"
%>