最简单的asp登陆界面代码 asp登陆界面源代码详细介绍

发布时间：2017-04-12 10:55:49作者：知识屋

最简单的asp登陆界面代码 asp登陆界面源代码详细介绍。在有些时候我们是需要用到ASP的登录界面代码的，有的人不知道在哪里可以找到，我们今天就一起来看看吧。

　　asp完整登陆代码

　　option explicit

　　强制浏览器重新访问服务器下载页面，而不是从缓存读取页面

　　Response.Buffer = True

　　Response.Expires = -1

　　Response.ExpiresAbsolute = Now() - 1

　　Response.Expires = 0

　　Response.CacheControl = "no-cache"

　　主要是使随机出现的图片数字随机

　　<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

　　<HTML>

　　<HEAD>

　　<TITLE><%=rs_config("c_incname")%>-管理员登录</TITLE>

<!--

　　.style2 {font-size: 12pt}

　　-->

　　</style>

<!--

　　function frmSubmit() {

　　if (theForm.name.value == "") {

　　alert("请输入用户名");

　　theForm.name.focus();

　　return false;

　　}

　　if (theForm.pass.value == "") {

　　alert("请输入密码");

　　theForm.pass.focus();

　　return false;

　　}

　　if (theForm.safecode.value == "") {

　　alert("请输入校验码");

　　theForm.safecode.focus();

　　return false;

　　}

　　return true;

　　}

　　//-->

　　</SCRIPT>

　　<LINK

　　href="images/WEI.css" type=text/css rel=stylesheet>

　　</HEAD>

　　<BR>

　　<br>

　　<BR>

　　<TBODY>

　　<TR>

　　<TBODY>

　　<TR>

　　<tr>

　　</tr>

　　<tr>

　　<tr>

　　</tr>

　　<tr>

　　<td width="103"><font color="#043BC9">验证码：<b><font color=#ff0000><IMG

　　src="inc/Code.asp" width="40" height="10" align="absmiddle"></font></b></font></td>

　　</tr>

　　<tr>

　　</tr>

　　</table></td>

　　<td>

　　</tr>

　　</table>

　　</FORM>

　　</TD>

　　</TR>

　　</TBODY>

　　</TABLE>

　　</TD>

　　</TR>

　　</TBODY>

　　</TABLE>

　　</BODY>

　　</HTML>

　　下面是asp处理文件

　　<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

　　function ChkPost()

　　dim server_v1,server_v2

　　chkpost=false

　　server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))

　　server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))

　　if mid(server_v1,8,len(server_v2))<>server_v2 then

　　chkpost=false

　　else

　　chkpost=true

　　End if

　　End function

　　session.Timeout=20

　　if ChkPost=false then

　　'emsg="请不要从其它站点提交表"

　　response.Redirect("login.asp?emsg=请不要从其它站点提交表")

　　Response.End()

　　End if

　　dim aname,apass,FoundErr,ErrMsg

　　FoundErr=False

　　aname=replace(trim(request("name")),"'","")

　　apass=replace(trim(request("pass")),"'","")

　　safecode=replace(trim(Request("safecode")),"'","")

　　if len(aname)>20 or len(aname)<3 then

　　FoundErr=True

　　ErrMsg=ErrMsg&"用户名不对！nn"

　　End if

　　if len(apass)>20 or len(apass)<6 then

　　FoundErr=True

　　ErrMsg=ErrMsg&"用户密码不对！nn"

　　End if

　　if Safecode="" then

　　FoundErr=True

　　ErrMsg=ErrMsg & "验证码不能为空！nn"

　　end if

　　if Session("Admin_GetCode")="" then

　　FoundErr=True

　　ErrMsg=ErrMsg & "你登录时间过长，请重新返回登录页面进行登录。nn"

　　end if

　　if Safecode<>CStr(Session("Admin_GetCode")) then

　　FoundErr=True

　　ErrMsg=ErrMsg & "您输入的确认码和系统产生的不一致，请重新输入。nn"

　　end if

　　if FoundErr=True then

　　Call LoginError(ErrMsg)

　　Conn.close

　　Set Conn=Nothing

　　else

　　apass=md5(apass)

　　dim sql,rs

　　sql="select a_name,a_pass,a_flag from admin where a_name='"&aname&"' and a_pass='"&apass&"'"

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

　　rs.open sql,conn,1,1

　　if rs.BOF and rs.EOF then

　　ErrMsg="用户名或是密码错误！"

　　Call LoginError(ErrMsg)

　　rs.close

　　set rs=Nothing

　　conn.close

　　set conn=Nothing

　　response.End

　　elseif Not(rs.BOF or rs.EOF) then

　　session("aname")=rs("a_name")

　　session("admin_flag")="into"

　　session("admin_sys")=rs("a_flag")

　　response.Redirect("useradmin.asp")

　　rs.close

　　set rs=Nothing

　　conn.close

　　set conn=Nothing

　　response.End

　　End if

　　end if

　　Sub LoginError(EMsg)

　　response.write "<script language='javascript'>" & chr(13)

　　response.write "alert('"&EMsg&"');" & Chr(13)

　　response.write "window.document.location.href='login.asp';"&Chr(13)

　　response.write "</script>" & Chr(13)

　　Response.End

　　End Sub

（免责声明：文章内容如涉及作品内容、版权和其它问题，请及时与我们联系，我们将在第一时间删除内容，文章内容仅供参考）

上一篇:asp多表联合查询语句 asp中用sql语句联合查询多个表

下一篇:asp获取用户真实IP地址的方法 ASP如何获取客户端真实IP地址

知识阅读

软件推荐

更多 >

游戏推荐

更多 >

精选栏目

手机游戏

手机软件

电脑软件

猜你喜欢

即时棋牌理财射击舞蹈小说剧情手机美化 3D 铃声传奇影音彩票抖音系统个人借贷三国财经摄像投注关卡西游沙盒回合医疗 WIFI 宫斗摄影低息联机腾讯教育养成分期系统软件运动学习竞速经营儿童休闲 RPG 健康战国导航赛车闯关办公母婴借钱

最简单的asp登陆界面代码 asp登陆界面源代码详细介绍

知识阅读

软件推荐

游戏推荐

精选栏目

ASP编程

PHP编程

C语言编程

批处理

CSS教程

HTML教程

热门推荐

手机游戏

手机软件

电脑软件

猜你喜欢