asp登陆代码下载（asp登录注册页面代码）

本篇文章给大家谈谈asp登陆代码下载，以及asp登录注册页面代码对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

本文目录一览：

• 1、asp登录界面源代码
• 2、ASP登陆代码
• 3、asp网站源代码是如何下载的？

asp登录界面源代码

default

html

head

meta http-equiv="Content-Language" content="zh-cn"

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个人注册/title

script language=vbscript

sub b1_onclick()

if len(trim(form1.t1.value))=0 then

msgbox"请输入你的帐号！",0+48,"提示"

form1.t1.focus

elseif len(trim(form1.t2.value))=0 then

msgbox"请输入你的密码！",0+48,"提示"

form1.t2.focus

else

if isnumeric(form1.t1.value)=true then

msgbox"请输入汉字！",0+48,"重输"

form1.t1.focus

elseif len(trim(form1.t2.value))3 or len(trim(form1.t2.value))8 then

msgbox"密码在3至8位之间！",0+48,"重输"

form1.t2.focus

else

window.open"1.asp","new","toolbar=no,width=280,height=150,menubar=no,scrollbar=no,resizable=0"

form1.submit

end if

end if

end sub

/script

/head

body

pyw9sky天地/p

form method="POST" action="1.asp" name="form1" target="new"

p align="center"font size="6" color="#FF0000" face="隶书"个人注册/font/p

p align="center"font size="4"姓名：/fontinput type="text" name="t1" size="20"/p

p align="center"font size="4"密码：/fontinput type="password" name="t2" size="20"/p

p align="center"input type="button" value="注册" name="B1"input type="reset" value="重写" name="B2"/p

/form

/body

/html

1.asp

%@ language=vbscript %

%

dim x,y,num

num=0

x=request.form("t1")

y=request.form("t2")

response.cookies("user")("name")=x

response.cookies("user")("num")=num

response.cookies("user")("password")=y

response.cookies("user").expires=date()+365

%

html

head

title信息确认/title

/head

body

pyw9sky天地/p

table border="0" width="100%" id="table1" align=center cellspacing=1 bgcolor=#333399

tr bgcolor=#ffffff align=center

td colspan="2" width="100%"信息确认/td

/tr

tr bgcolor=#ffffff align=center

td width="31%"姓名：/td

td width="69%"% = x %/td

/tr

tr bgcolor=#ffffff align=center

td width="31%"密码：/td

td width="69%"% = y %/td

/tr

tr bgcolor=#ffffff align=center

td colspan="2" width="100%" align="center"a target="_blank" href="2.asp"登录/a

font onclick="window.close()" style="cursor:hand"关闭/font/td

/tr

/table

/body

/html

%@ language=vbscript %

html

head

title个人登录/title

script language=vbscript

sub b1_onclick()

if len(trim(form1.t1.value))=0 then

msgbox"请输入你的姓名！",0+48,"提示"

form1.t1.focus

elseif len(trim(form1.t2.value))=0 then

msgbox"请输入你的密码！",0+48,"提示"

form1.t2.focus

else

if isnumeric(form1.t1.value)=true then

msgbox"请输入汉字！",0+48,"重输"

form1.t1.focus

elseif len(trim(form1.t2.value))3 or len(trim(form1.t2.value))8 then

msgbox"密码在3至8位之间！",0+48,"重输"

form1.t2.focus

else

form1.submit

end if

end if

end sub

/script

/head

body

form method="POST" action="3.asp" name="form1" target="_blank"

p align="center"font size="6" color="#FF0000" face="隶书"个人登录/font/p

p align="center"font size="4"姓名；/fontinput type="text" name="t1" size="20"/p

p align="center"font size="4"密码：/fontinput type="password" name="t2" size="20"/p

p align="center"input type="button" value="开始登录" name="B1"input type="reset" value="重新输入" name="B2"/p

/form

/body

/html

3.asp

% @ language=vbscript %

%

dim x,y,nm,pw

x=request.form("t1")

y=request.form("t2")

nm=requset.cookies("user")("name")

pw=requset.cookies("user")("password")

if nmx or pwy then

response.redirect"default.htm"

end if

%

%

dim num

num=request.cookies('user")("num")

if num=0 then

num=1

else

num=num+1

end if

response.cookies("user")("num")=num

%

html

head

title欢迎来访yw9sky/title

/head

body

欢迎% =nm %第% =num %次登录

/body

/html

ASP登陆代码

1、判断部分

script language="javascript"

!--

function isok(theform)

{

if (theform.user_name.value.length2 || theform.user_name.value.length10)

{

alert("学生姓名请填写真实姓名！");

theform.user_name.focus();

return (false);

}

if (theform.password.value.length3 || theform.password.value.length10)

{

alert("密码最少要3位，最多10位！ ！");

theform.password.focus();

return (false);

}

if (theform.password_two.value=="")

{

alert("你还有确认密码没填呢！");

theform.password_two.focus();

return (false);

}

if (theform.password_two.value!=theform.password.value)

{

alert("两次密码怎么不一样！");

theform.password_two.focus();

return (false);

}

if (theform.userclass.value=="")

{

alert("你所在的专业班级还没填呢！");

theform.userclass.focus();

return (false);

}

if (theform.num.value=="")

{

alert("你的学生证号还没填呢！");

theform.num.focus();

return (false);

}

return (true);

}

--

/script

2、接受数据的表单部分

form name="form1" method="post" action="userregcheck.asp" onSubmit="return isok(this)"

input name="user_name" type="text" id="user_name" title="请输入您的姓名" size="15"

/label/td

/tr

tr

tddiv align="center"登陆密码：/div/td

tdinput name="password" type="password" id="password" title="请输入您的密码" size="15"/td

/tr

tr

tddiv align="center"重输密码：/div/td

tdinput name="password_two" type="password" id="password_two" size="15"/td

/tr

tr

tddiv align="center"专业班级：/div/td

tdlabel

input name="userclass" type="text" id="userclass" size="15"

/label/td

/tr

tr

tddiv align="center"学生证号：/div/td

tdlabel

input name="num" type="text" id="num" size="15"

/label/td

/tr

/table

center

pbr /

input type="submit" name="submit" value="确认提交" /

input type="reset" name="reset" value="重新输入" /

input type="button" name="button" value="返回首页" onClick=" history.back()" /

/p

/center

/form

3、数据验证保存到数据库部分

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

%

user_name =left(request("user_name"),15)

password =left(request("password"),15)

userclass =left(request("userclass"),15)

num =left(request("num"),15)

if password="" then

response.write "数据有错！"

response.end

end if

Set rs = Server.CreateObject("adodb.recordset")

sql="select * from user where username like '" user_name "'"

rs.open sql,conn,1,3

if rs.eof and rs.bof then

rs.addnew

rs("username")=user_name

rs("userpwd")=password

rs("userclass")=userclass

rs("usernum")=num

rs.update

rs.movelast

session("user_id")=rs("userid")

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

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

sql="select* from user where username='" session("name") "' "

rs2.open sql,conn,1,3

rs2("onlinetime")=now

rs2("userip")=Request.serverVariables("REMOTE_ADDR")

rs2.update

session("userip") = rs2("userip")

rs.close

response.redirect "index1.asp"

response.end

else

%

a href="userreg.asp"[重新注册]/a

%end if%

有问题可以直接联系我啊

asp网站源代码是如何下载的？

这些代码是作者写出来放到网上的，不是从一个用这个系统的网站上下载的，asp的源代码在一般情况下是没有办法下载的。

关于asp登陆代码下载和asp登录注册页面代码的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。