【招商小程序源码】【源码网名字】【网店平台源码】asp会员管理源码_asp会员管理源码是什么
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,理源" "," ")
s=replace(s,"'","&#;")
s=replace(s,"""",""")
s=replace(s,"<","<")
s=replace(s,">",">")
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> 发信功能已经打开，但因服务器不支持发信或者信箱地址错误，员管源码网店平台源码导致信件无法发出！理源</b>"
else
Response.Write "<center><b> 信件已经发出！管理</b>"
end if
end sub
sub CDONTS
Dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail")
'MailFormat 邮件的mali ddk源码格式（0：Html 1：纯文本）
'BodyFormat 链接的格式（1、所有链接自动变为可点击，0、当mailformat=0时链接不变，主机源码PHP否则变为可点击）
'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
%>
