return.asp

来自「图书管理系统,读者可以实现对图书的浏览,查询等功能.管理员能够实现图书的添加,更」· ASP 代码 · 共 19 行

<%@ LANGUAGE="VBSCRIPT" %>
<%
if request.cookies("adminok")="" then
  response.redirect "login.htm"
end if
%>
<!--#include file="conn.asp"-->
<%
   dim SQL, Rs, contentID,CurrentPage
   CurrentPage = request("Page")
   contentID=request("ID")
   return_time=now()
   set rs=server.createobject("adodb.recordset")
   sqltext="update borecorder set bo_flag=1 , return_time='"&return_time &"'where bo_id="& contentID
   rs.open sqltext,conn,3,3
   set rs=nothing
   response.redirect "info_check.asp?page="&CurrentPage
%>