ad1.asp

来自「毕业设计_新闻管理系统(ASP)+论文.rar(1.32M)」· ASP 代码 · 共 48 行

ASP
48 行
字号 
<%@ Language=VBScript %>
<%

name=trim(request("name"))
passwd=trim(request("passwd"))

	Set conn = Server.CreateObject("ADODB.Connection")
	conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("yh.mdb")
	set rs= server.createobject("adodb.recordset") 
	'判断是否为用户
	sql= "select * from yh where username='" & name & "'"
	rs.open sql,conn,3,2
	
	'Set rs= conn.Execute(sql) 
  if not rs.eof then
	  if passwd <> rs("password")  then
	  Response.Write "你的密码输入有误"
	else
		
		session("pass")=1
		session("user")=name
		session("mima")=passwd
		conn.close
		response.redirect "ad.asp"
	end if
else
		Response.Write "您不是管理员！"
end if 


%>


<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>New Page 1</title>
</head>

<body>

</body>

</html>

ad1.asp - 源码说明

本页面展示了「毕业设计_新闻管理系统(ASP)+论文.rar(1.32M)」中的 ad1.asp 源码文件，采用 ASP 编程语言编写，共 48 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?