echklogin.asp

来自「红金羚v1.5办公自动化软件是基于大型数据库系统开发的应用系统」· ASP 代码 · 共 42 行

ASP

42 行

<%@ LANGUAGE="VBSCRIPT" %>
<% option explicit%>
<!--#include file="newconn.asp"-->
<!-- #include file="inc/char.inc" -->
<!-- #include file="inc/tree.inc"-->
<%
   dim sql,rs
   dim mastername
   dim masterpass
   dim ok
   ok=false

   'on error resume next
   if not isEmpty(request("lstBoard")) then
      boardID=clng(request("lstBoard"))
   end if
   if iis3onchsys then
      masterName=trim(HTMLCharacter(trim(request("username"))))
      masterpass=HTMLCharacter(cstr(request("password")))
   else
      masterName=trim(request("username"))
      masterpass=cstr(request("password"))
   end if
set rs=server.createobject("adodb.recordset")
sql="select * from board where boardid="+cstr(boardid)+""
rs.open sql,conn,1,1
  if not(rs.bof and rs.eof) then
     if masterpass=rs("masterpwd") and mastername=rs("boardmaster") then 
	    response.cookies("adminok")=true
	  session("masterlogin")="true"
          session("manageboard")=boardID
	 response.redirect "emanage.asp"
	 
   else
      response.write "<link rel='stylesheet' type='text/css' href='forum.css'>"
      response.write "<body bgcolor='#ffffef'>" 
      response.write "Sorry,请输入正确的版主名字和密码"
   end if
end if
   rs.close
%>

echklogin.asp - 源码说明

本页面展示了「红金羚v1.5办公自动化软件是基于大型数据库系统开发的应用系统」中的 echklogin.asp 源码文件，采用 ASP 编程语言编写，共 42 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与1.5相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?