logiresu.asp

来自「汉化dataadmin1.1版,这是一套经过汉化的数据库管理系统软件」· ASP 代码 · 共 35 行

<%@ language = "VBSCRIPT" %>
<!--#include file="globvars.asp"-->
<%response.buffer = true%>
<%
if request.form("AdmiName") = LogiName AND _
   request.form("Password") = LogiPass AND _
   request.form("DataName") <> "" AND _
   request.form("TablName") <> "" then
  session("DataAdmi_Access") = 1
  session("DataAdmi_DataName") = request.form("DataName")
  if request.form("DSN_Less")="ON" then
    session("DataAdmi_DSN_Less") = 1
  else
    session("DataAdmi_DSN_Less") = 0
  end if
  session("DataAdmi_DataUsid") = request.form("DataUsid")
  session("DataAdmi_DataPass") = request.form("DataPass")
  session("DataAdmi_TablName") = request.form("TablName")
  session("DataAdmi_AsceFiel") = request.form("AsceFiel")
  session("DataAdmi_DescFiel") = request.form("DescFiel")

  if Use_Cook = 1 then
    response.cookies(CookFile).Expires = date + 365
    response.cookies(CookFile)("AdmiName")= request.form("AdmiName")
    response.cookies(CookFile)("DataName")= request.form("DataName")
    response.cookies(CookFile)("DataUsid")= request.form("DataUsid")
    response.cookies(CookFile)("TablName")= request.form("TablName")
  end if

  response.redirect "datalist.asp?pg=1"
else
  response.redirect RediPage
end if
%>