wyly_lygl_1_1.asp

asp+Access开发的客户资源管理系统,用户名:admin,密码:

<%response.expires=0%>
<%
' 将数据中的单引号改成两个单引号，并且在前后加上单引号
Function SqlStr( data )
   SqlStr = "'" & Replace( data, "'", "''" ) & "'"
End Function

		  '获得用户名和密码
          name = Request("username")
          pass1 = Request("password")
          '与数据库*.mdb建立连接
	      Set conn = Server.CreateObject("ADODB.Connection")
	conn.open "driver={Microsoft Access Driver (*.mdb)};pwd=webcool_2000;dbq=" & Server.MapPath("../database/customer.mdb")		  
          '发送一条检查密码的指令
          SET pass=CONN.EXECUTE("SELECT password FROM quanxian WHERE user='admin'")
          if  pass.eof then
			 Response.Redirect ("wyly_lygl_11.asp")'转移到相应的网页
		  else
             '如果有这个用户，检查密码
             if pass1=pass.Fields("password")  then
                '为session("member")赋值
                session("username")=name
                       '加入日志操作=====================================
                       user_ip=Request.ServerVariables("REMOTE_HOST")
		               sql = "Insert Into day (ip,user,thing) Values( "
		               sql = sql & SqlStr(user_ip) & ", "
		               sql = sql & SqlStr(session("username")) & ", "
		               sql = sql & SqlStr("留言管理系统") & ")"
					   '发送sql指令，加入信息
	                	conn.Execute sql
					   '===================================================
                '进入登录后页面
             Response.Redirect ("wyly_lygl_1.asp")'转移到相应的网页
			 else
                '进入重新登录页面
             Response.Redirect ("wyly_lygl_11.asp")'转移到相应的网页
             end if
          end if

'=关闭数据库============================
pass.close'关闭记录
set pass=nothing
conn.close'关闭数据库
set conn=nothing
%>