savewanbaip1.asp

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

<!--#include file="security.asp"-->
<!--#include file="articleconn.asp"-->

<%
   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"
%>