1.asp会员登陆代码

asp会员登陆代码

       <%

       dim conn,dbuid,dbpwd,dbname,dbip,rs,database

       startime=timer()

       database=1

       '修改以下信息以适合你的网站

       '---------------------------------------------------------------------------

       dbuid="sa" '数据库登陆名

       dbpwd="sa" '数据库密码

       dbname="xeda-exp" '数据库名称

       dbip="(local)" '数据库所在的IP地址，如果是理源本地数据库则为："(local)"

       '---------------------------------------------------------------------------

       set conn=Server.CreateObject("adodb.Connection")

       Conn.Open "PROVIDER=SQLOLEDB.1;Data Source="&dbip&";Initial Catalog="&dbname&";Persist Security Info=True;User ID="&dbuid&";Password="&dbpwd&";Connect Timeout="

       set rs=server.createobject("adodb.recordset")

       set rrs=server.createobject("adodb.recordset")

       set rrrs=server.createobject("adodb.recordset")

       %>

       以上是数据库连接

       自己做个登陆页面login.asp，一个FORM，管理方法设成method="post"，员管源码吃肉喝血指标源码action="checklogin.asp"，理源2个TEXTBOX，管理淘宝单号源码一个用户名，员管源码一个密码

       一个按纽

       验证页代码checklogin.asp

       <%@ LANGUAGE="VBSCRIPT" %>

       <!--#include file="conn.asp"-->

       <!--#include file="session.asp"-->

       <% dim username,理源a

       username=checkin(trim(Request.form("username")))

       password=checkin(trim(Request.form("password")))

       hiddenField=checkin(trim(Request.form("hiddenField")))

       sql="select * from yonghu where username='"&username&"'"

       rs.open sql,conn,1,3

       if rs.bof and rs.eof then

       errmsg=errmsg+"<li>您输入的用户名并不存在或者管理员已经将此用户账号锁定，请和管理员联系。管理"

       founderr=true

       rs.close

       else

       rs.close

       sql="select * FROM yonghu where username='"&username&"' and password='"&password&"'"

       rs.open sql,员管源码conn,1,3

       if rs.bof and rs.eof then

       response.write("您输入的密码不正确。")

       founderr=true

       rs.close

       else

       a=rs("quanxian")

       session("xpUser")=username

       session("xpPwd")=PassWord

       session("quanxian")=a

       session("name")=rs("name")

       session("expid")=""

       session.timeout=

       rs.close

       end if

       end if

       if founderr=true then

       call error()

       else

       response.redirect("main.asp")

       end if

       %>

       session引用页也给你

       <%

       '---------------------检查用户名密码-------------------------------

       function checkin(s)

       s=trim(s)

       s=replace(s,理源" ","&nbsp;")

       s=replace(s,"'","&#;")

       s=replace(s,"""","&quot;")

       s=replace(s,"<","&lt;")

       s=replace(s,">","&gt;")

       checkin=s

       end function

       '---------------------检查初级和中级管理员-------------------------------

       function checkAdmin1

       if Session("IsAdmin")<>true then response.redirect "admin_login.asp"

       end function

       '---------------------检查高级级管理员-------------------------------

       function checkAdmin2

       if Session("IsAdmin")<>true or (session("KEY")<>"senior" and session("KEY")<>"super") then response.redirect "admin_login.asp"

       end function

       '---------------------检查超级级管理员-------------------------------

       function checkAdmin3

       if Session("IsAdmin")<>true or session("KEY")<>"super" then response.redirect "admin_login.asp"

       end function

       '---------------------检查用户Email-------------------------------

       function IsValidEmail(email)

       IsValidEmail = true

       names = Split(email, "@")

       if UBound(names) <> 1 then

       IsValidEmail = false

       exit function

       end if

       for each name in names

       if Len(name) <= 0 then

       IsValidEmail = false

       exit function

       end if

       for i = 1 to Len(name)

       c = Lcase(Mid(name, i, 1))

       if InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 and not IsNumeric(c) then

       IsValidEmail = false

       exit function

       end if

       next

       if Left(name, 1) = "." or Right(name, 1) = "." then

       IsValidEmail = false

       exit function

       end if

       next

       if InStr(names(1), ".") <= 0 then

       IsValidEmail = false

       exit function

       end if

       i = Len(names(1)) - InStrRev(names(1), ".")

       if i <> 2 and i <> 3 then

       IsValidEmail = false

       exit function

       end if

       if InStr(email, "..") > 0 then

       IsValidEmail = false

       end if

       end function

       '---------------------错误输出-------------------------------

       sub error()

       %>

       <!--#include file="conn.asp"-->

       <!--#include file="const.asp"-->

       <html>

       <head>

       <title>出错提示</title>

       <meta http-equiv="Content-Type" content="text/html; charset=gb">

       <STYLE type=text/css>BODY {

       FONT-SIZE: 9pt

       }

       .body {

       FONT-SIZE: 9pt

       }

       </STYLE>

       <SCRIPT language=JavaScript>

       <!--

       function MM_swapImgRestore() { //v3.0

       var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;

       }

       function MM_preloadImages() { //v3.0

       var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();

       var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)

       if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}

       }

       function MM_findObj(n, d) { //v3.0

       var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {

       d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}

       if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];

       for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document); return x;

       }

       function MM_swapImage() { //v3.0

       var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)

       if ((x=MM_findObj(a[i]))!=null){ document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}

       }

       //-->

       </SCRIPT>

       </head>

       <body bgcolor="#FFFFFF" leftmargin="0" topmargin="0"onload= "MM_preloadImages('/image/err_help2.gif','/image/err_close2.gif','/image/err_but2.gif')">

       <TABLE height="%" cellSpacing=0 cellPadding=0 width="%" border=0>

       <TBODY>

       <TR>

       <TD height="%">

       <TABLE class=body cellSpacing=0 cellPadding=0 width= align=center background=/image/err_bg1.gif border=0>

       <TBODY>

       <TR>

       <TD width= height=><IMG height= src="/image/err1.gif" width= border=0></TD>

       <TD width= height=> <FONT face="Arial, Helvetica, sans-serif" color=#>ERROR - 出错啦！</FONT></TD>

       <TD vAlign=baseline width= height= align=right><A onMouseOver="MM_swapImage('close',管理'','/image/err_close2.gif',1)" onmouseout=MM_swapImgRestore() href="javascript:window.close()"><IMG height= src="/image/err_close1.gif" width= border=0 name=close></A></TD>

       <TD width=5 height=><IMG height= src="/image/err2.gif" width=5 border=0 name=errr1_c4></TD>

       </TR>

       </TBODY>

       </TABLE>

       <TABLE class=body cellSpacing=0 cellPadding=0 width= align=center border=0>

       <TBODY>

       <TR vAlign=bottom>

       <TD background=/image/err_bg.gif height=>

       <BLOCKQUOTE>

       <DIV id=base>

       <br>产生错误的可能原因：

       <ul>

       <%=errmsg%></ul>

       </DIV>

       </BLOCKQUOTE>

       <P align=center><A onMouseOver="MM_swapImage('back','','/image/err_but2.gif',1)" onmouseout=MM_swapImgRestore() href="javascript:history.go(-1)"><IMG height= src="/image/err_but1.gif" width= border=0 name=back></A>

       </TD>

       </TR>

       <TR>

       <TD height=2><IMG height=5 src="/image/err_bot.gif" width=></TD>

       </TR>

       </TBODY>

       </TABLE>

       </TD>

       </TR>

       </TBODY>

       </TABLE>

       </body>

       </html>

       <%

       end sub

       sub JMail

       Dim JMail,SendMail

       Set JMail=Server.CreateObject("JMail.SMTPMail")

       JMail.Logging=True

       JMail.Charset="gb"

       JMail.ContentType = "text/html"

       JMail.ServerAddress=SMTPServer

       JMail.Sender=FromUserEmail

       JMail.Subject=topic

       JMail.Body=mailbody

       JMail.AddRecipient ForUserEmail

       JMail.Priority=3

       JMail.Execute

       Set JMail=nothing

       if err then

        err.clear

        Response.Write "<center><b> 发信功能已经打开，但因服务器不支持发信或者信箱地址错误，员管源码latex公式编辑+源码导致信件无法发出！理源</b>"

       else

        Response.Write "<center><b> 信件已经发出！管理</b>"

       end if

       end sub

       sub CDONTS

       Dim objCDO

       Set objCDO = Server.CreateObject("CDONTS.NewMail")

       'MailFormat 邮件的纯脚本源码格式（0：Html 1：纯文本）

       'BodyFormat 链接的格式（1、所有链接自动变为可点击，0、当mailformat=0时链接不变，语聊平台app源码否则变为可点击）

       'To 邮件接收方的电子信箱地址

       'Importance 邮件的重要性（0：低 1：中 2：高）

       'From 邮件发送方的电子信箱地址

       'Subject 邮件的主题

       'Body 邮件的内容

       'Send 完成发送邮件的动作

       objCDO.To = ForUserEmail

       objCDO.From = FromUserEmail

       objCDO.MailFormat = 0

       objCDO.BodyFormat = 0

       objCDO.Importance = 1

       objCDO.Subject = topic

       objCDO.Body = mailbody

       objCDO.Send

       Set objCDO = Nothing

       if err then

        err.clear

        Response.Write "<center><b> 发信功能已经打开，但因服务器不支持发信或者信箱地址错误，导致信件无法发出！</b>"

       else

        Response.Write "<center><b> 信件已经发出！</b>"

       end if

       end sub

       sub ASPEmail

       Set mailer=Server.CreateObject("ASPMAIL.ASPMailCtrl.1")

       recipient=ForUserEmail

       sender=FromUserEmail

       subject=topic

       message=mailbody

       mailserver=SMTPServer

       result=mailer.SendMail(mailserver, recipient, sender, subject, message)

       if err then

        err.clear

        Response.Write "<center><b> 发信功能已经打开，但因服务器不支持发信或者信箱地址错误，导致信件无法发出！</b>"

       else

        Response.Write "<center><b> 信件已经发出！</b>"

       end if

       end sub

       %>