asp登录界面模板

发布时间:2016-12-16 来源: 模板 点击:

篇一:asp注册登陆系统源代码

往链点点通共享资源,了解更多请登录

1,(index.asp 用户登陆页面)

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

<!-- blog.soowooo.cn 悠悠长假期 -->

<html>

<head>

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

<title>会员</title>

<style type="text/css">

<!--

body,td,th {

font-family: 宋体;

font-size: 14px;

}

-->

</style>

</head>

<body>

<center>

<p>会员注册系统</p>

<form name="form1" method="post" action="login.asp">

<table width="34%" border="0">

<tr>

<td width="33%" height="30">用户名:</td>

<td width="67%" height="30"><input name="username" type="text" id="username" size="15"></td>

</tr>

<tr>

<td height="30">密 码:</td>

<td height="30"><input name="password" type="password" id="password" size="15"></td> </tr>

<tr>

<td colspan="2" align="center"><input type="submit" name="Submit" value="确定"> <input type="reset" name="Submit" value="重置"></td>

</tr>

<tr>

<td colspan="2"><a href="reg.asp" target="_self">注册</a></td>

</tr>

</table>

</form> </center>

</body>

</html>

2,(login.asp 用户数据处理文件)

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

<%

'打开数据库判断用户是否存在,info为表名,username为字段名

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

sqlc="select * from info where username='"&request.Form("username")&"' and password='"&request.Form("password")&"'"

rsc.open sqlc,conn,1,1

session("username")=rsc("username")

session("password")=rsc("password")

session.Timeout=30

set rsc=nothing

response.Redirect("change.asp")

'如果用户不存在,session("username")为空

%>

3,(change.asp 用户信息修改页面)

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

<html>

<head>

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

<title>修改</title>

<style type="text/css">

<!--

body,td,th {

font-size: 14px;

}

-->

</style></head>

<center>

<body>

<br>

<%

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

sqlc="select * from info where username='"&session("username")&"' password='"&session("password")&"'"

rsc.open sqlc,conn,1,1

=rsc("password")

username=rsc("username")

password=rsc("password")

sex=rsc("sex")

qq=rsc("qq") and

mail=rsc("mail")

add=rsc("add")

personalinfo=rsc("personalinfo")

vv=rsc("ntime")

set rsc=nothing

if ="" then

response.Redirect("index.asp")

end if

if strcomp(,request.Form("password"))=0 then

response.Write("欢迎你!"&request.Form("username"))

response.Write("你是在"&vv&"注册的")

session("username")=request.Form("username")

end if

if session("username")="" then

response.Redirect("index.asp")

end if

%>

<form name="form1" method="post" action="change.asp?ac=ch">

<table width="39%" height="105" border="0" >

<tr>

<td width="27%" height="30">用户名:</td>

<td width="73%" height="30"><input name="username" type="text" id="username" value="<%=username%>">

*</td>

</tr>

<tr>

<td height="30">密&nbsp; 码:</td>

<td height="30"><input name="password" type="text" id="password" value="<%=password%>">

*</td>

</tr>

<tr>

<td height="30">性&nbsp; 别:</td>

<td height="30"><input name="sex" type="text" id="sex" value="<%=sex%>"></td> </tr>

<tr>

<td height="30">QQ:</td>

<td height="30"><input name="qq" type="text" id="qq" value="<%=qq%>"></td>

</tr>

<tr>

<td height="30">Mail:</td>

<td height="30"><input name="mail" type="text" id="mail" value="<%=mail%>"></td> </tr>

<tr>

<td height="30">地&nbsp; 址:</td>

<td height="30"><input name="add" type="text" id="add" value="<%=add%>"></td> </tr>

<tr>

<td>介绍</td>

<td><textarea name="personalinfo" cols="30" rows="6" id="personalinfo"><%=personalinfo%></textarea></td>

</tr>

<tr>

<td> </td>

<td><input type="submit" name="Submit" value="修改">

<a href="change.asp?se=y" target="_self">退出系统</a></td>

&nbsp; <% if strcomp(request.QueryString("se"),"y")=0 then

&nbsp; session("username")=""

&nbsp; response.Redirect("index.asp")

&nbsp; end if

&nbsp; %>

</tr>

</table>

</form>

<%

if strcomp(request.QueryString("ac"),"ch")=0 then

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

sql="select * from info where username='"&session("username")&"'"

rs.open sql,conn,1,3

rs("username")=request.Form("username")

rs("password")=request.Form("password")

rs("mail")=request.Form("mail")

rs("sex")=request.Form("sex")

rs("qq")=request.Form("qq")

rs("add")=request.Form("add")

rs("personalinfo")=request.Form("personalinfo")

rs.update

set rs=nothing

response.Write("修改完成!")

end if

%>

</body>

</center>

</html>

4,(reg.asp 新用户注册页面)

<html>

<head>

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

<title>用户注册</title>

<style type="text/css">

<!--

body,td,th {

font-family: 宋体;

font-size: 14px;

}

-->

</style>

</head>

<body>

<center>

用户注册<br>

<%

=request.QueryString("msg")

%>

<form name="form1" method="post" action="addnewdata.asp?ac=adduser"> <table width="39%" height="105" border="0" >

<tr>

<td width="27%" height="30">用户名:</td>

<td width="73%" height="30"><input name="username" type="text" id="username"> *</td>

</tr>

<tr>

<td height="30">密码:</td>

<td height="30"><input name="password" type="password" id="password"> *</td>

</tr>

<tr>

<td height="30">确定密码:</td>

<td height="30"><input name="password2" type="password" id="password2"> *</td>

</tr>

<tr>

<td height="30">性别:</td>

<td height="30"><input name="sex" type="text" id="sex"></td>

</tr>

<tr>

<td height="30">QQ:</td>

<td height="30"><input name="qq" type="text" id="qq"></td>

</tr>

<tr>

<td height="30">Mail:</td>

<td height="30"><input name="mail" type="text" id="mail"></td>

篇二:ASP实验模板

管理工程学院ASP.NET课程实验报告

课程名称:ASP.NET

实验名称:应用C#完成会员管理系统WEB应用

实验日期:2016-05-16---2016-05-17 (8学时)

学号:20130760135 班级: 电子商务一班 姓名:邢小宇

一、实验目的:

通过实验,使学生对ASP.NET的运行环境有一个清晰的认识,能够独立准备ASP.net的运行环境,为进一步学习奠定一定的基础。通过本次实验完成一个简单的WEB应用系统,初步掌握WEB应用系统开发。

二、实验环境:

计算机一台,VS2012

三、实验内容:

1. VS2012安装

该实验要求配置ASP.NET的运行环境,软、硬件环境均已配置完成。为了获得更优质的用户体验,这里选择安装Visual Studio 2012作为开发C#的工具。VS2012提供功能强大的IDE,支持建立.NET组件及应用程序,并提供可视化网页设计器、智能型的代码编辑器、编译与调试能力等。下面介绍本次VS2102的安装过程。

(1)VS2012安装文件的下载。从郑州大学官方网站下载VS2012安装文件,下载的文件是镜像文件,需要使用虚拟光驱打开。计算机上已安装DAEMON Tools Lite虚拟光驱,打开软件后将VS2012镜像文件载入,然后打开相应的驱动器,运行vs_ultimate.exe。

(2)进入安装界面,设置安装路径,可以选择自定义安装路径,安全可选的选项,一般选择“全选”,点击下一步。进入功能选择界面,要安装的可选功能可依据自己的需要选择,不过一般全部勾选。最后进入启动安装的界面。

(3)VS2012的使用。成功安装VS2012后,打开该软件,新建项目,选择Visual C#模板ASP.NET Web窗体应用程序,设置存储路径并命名member,可成功建立。App_Data文件夹中选择添加新项,选择SQL Server数据库,命名为demo.mdf,成功添加后打开该数据库,选择表文件右击添加数据表。发现不能添加数据表,没有该项功能。经过网上信息查询后,导致这个现象的原因是安装VS2012时没有安装SQL Server 2012数据库。

(4)MicrosoftSQL Server 2012的安装。登录微软官方网站,下载并运行Microsoft SQL Server Data Tools 2012,进入QL Server 2012下载安装界面。成功安装数据库后继续测试环节,可成功添加数据表Users。

至此,VS2012已成功安装并可以正常运行。

2. 会员管理系统实现

该会员管理系统共设计9个页面,分别为Login.aspx、Default.aspx、Register.aspx、Person.aspx、、Edit.aspx 、Step1.aspx、Step2.aspx、Step3.aspx和Email.aspx,各页面功能说明如下:

系统文件结构图:

会员管理系统同时设置了数据库demo,数据库中有数据表User,用户的注册信息都保留在数据表User中。用户登陆页面时通过调用数据库中的信息,如果用户输入的信息和数据库中的信息是一致的将实现页面的跳转。User数据

表结构如图 1 。

图 1

该会员管理系统设置首页为Login.aspx,该页可实现用户注册,寻回密码,用户登陆等功能,图 2所示。运行后进入登陆页面,输入合法用户名和密码后,点击“登陆”按钮进入主页面Default.aspx,该页面有“插卡个人资料”和“修改个人资料”两个链接,分别链接至Person.aspx和Edit.aspx页面。

图 2 登陆页面

用户未注册的单击“注册”链接,则进入注册页面Register.aspx,设置个人相关信息,如图3所示。

图 3 用户注册页面

用户已注册,但忘记密码的,可单击“忘记密码”链接转到取回密码页面,该页面包括Step1.aspx、Step2.aspx、Step3.aspx和Email.aspx,可实现页面密码重置功能和邮件寻回密码功能。

篇三:asp调用模板生成html要怎么做

asp调用模板生成html要怎么做?

此篇文章也算不得我的原创,百度大神那里类似的文章一搜一大堆,咱也不争这个原创盗版,只是说一下我的思路,代码是什么不重要,重要的是解决问题的方法.

分析问题:asp生成html,为什么生成html,用什么方法生成,要怎么做.

先说为什么要生成html,其实这个真不用多讲,能看到这篇文章的人,都知道在几年前,人人追求的是动态网页,因为html文件是教定存在的,它不像xx.asp?id=xx这样是通过传值来达到获取数据库数据然后通过服务端发送给客户端浏览,换句话说,就是服务器没有数据库支持,html文件该显示什么还显示什么,这样看起来很好,在前些年,人们费尽心思想要的就是减轻客户机的压力,html文件的劣势就显示出来了,那些大型网站动辄就是成千上万个页面,如果全用html来做,那占用的空间岂不是太大.虽然减轻了服务器的负载,但是同样的,占用的体积那么大,资金花费也不小.但是现在,为了做好搜索引擎的收录,就是为了降低服务器的负载,就是要用到生成静态页.比如同一篇文章数据,一万个人同时请求,如果是html文件,简单,服务器:你请求了是吧,发给你好了.但是如果是动态页呢,它要先查询数据库记录,然后记录缓冲给浏览器,再显示给你,好了,你的解决了,剩下九千九百九十九人还要继续做一次这样的查询和输出,这样服务器的负载就太大了吧.这就是生成静态页的好处,现在谷歌,百度等搜索引擎早就无人不知无人不晓了,连小孩子都知道"内事不决问百度,外事不决问勾勾(谷歌)".而搜索引擎对于动态网页的收录效果很差,我们改变不了搜索引擎,就改变自己的网页吧...

要用什么方法生成:既然想到了要生成html,那就要想要用什么方法生成,使用VBScript的程序员就立刻想到了fso对象,我们可以通过fso来创建和写入html文件.用JavaScript的程序员基本上也是立刻就想到XMLHTTP,很明显我还是喜欢用fso来做demo.无他,唯手熟尔.

发现很多人只知道看此文,不去看代码,得,我在这把代码贴出.. <!--#include file="conn.asp"-->

<!--这个是引入数据库文件,不解释--> <% if request("style")="Make" then

'判断是否是生成html '----------------------------------------------------

'打开文件过程函数 Function Openfile(url) Dim fileurl,mfile,content,fso fileurl = Server.MapPath(url)

Set Fso = Server.CreateObject("Scripting.Filesystemobject") '定义FSO

Set mfile = Fso.Opentextfile(fileurl,1) '以读的方式打开文件 If Not mfile.Atendofstream Then

content = mfile.readall() '读取全部内容 End If mfile.Close openfile = content End Function '----------------------------------------------------

'传说中的rs....不解释 Set rs=Server.CreateObject("ADODB.RecordSet")

sql="select * from Table_News order by sys_id desc" '这是我的数据库内的表名,请自行更改 rs.Open sql,conn,1,1

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

'做个判断,本实例只是为了达到效果,请自行增加安全检测

rsnum = rs.recordcount '只为了做到能正常显示,读取数据库的所有数据总和

page=cint(request.form("page")) '取表单内的欲生成页面数

folder=trim(request.form("folder")) '表单内欲创建文件夹选项,注意,此处没做检测,具有安全隐患 '----------------------------------------------------

'简单判断下用户输入 if isnumeric(page) = false then

response.Write page&"非数字.请重新输入!" response.End() else if page > rsnum then page = rsnum end if end if if page = "" then page = rsnum end if '----------------------------------------------------

'简单判断是否用默认文件夹 if folder = "" then folder = "news" end if '---------------------------------------------------- for i=1 to page

'这里开始处理变量,得到结果 '----------------------------------------------------

'下面的几个赋值变量我就不解释了吧? keyword = rs("News_Keyword") title = rs("News_Topic") body = rs("News_Content") bottom = rs("News_Time")

'删掉不用 start

'当时为了做上一篇 下一篇的演示,做了 $left和$right,可以不用 '----------------------------------------------------------

num = i '下面的几个验证是我无聊写上去的,可以删掉不用.

'分页验证 if i = page then

lefti = "没有了" else leftnu

asp登录界面模板

m = num + 1

lefti="<a href='news-"&leftnum&".html' target='_Self'>第"&leftnum&"页</a>" end if if i <= 1 then

righti = "没有了"

else rightnum = num - 1

righti="<a href='news-"&rightnum&".html' target='_Self'>第"&rightnum&"页</a>" end if '----------------------------------------------------------

'删掉不用 end

folder = Replace(folder,,"\/"&folder&"\/") '这里是要生成的文件存放的文件夹

Path = "news-"&id&".html" '欲生成文件的名称,本应当用ID来做显示,这里为了做demo,就用i了. content = Openfile("temp.html") '模板的路径 'Openfile为自定义函数

'开始将模板的标签替换成变量 '----------------------------------------------------

'读出模板数据,替换内容,可无限替换. content = Replace(content,"$keyword",keyword) content = Replace(content,"$title",title) content = Replace(content,"$body",body) content = Replace(content,"$bottom",bottom)

content = Replace(content,"$left",lefti) '可删掉不用

content = Replace(content,"$right",righti) '可删掉不用,此处只是为了做上一篇下一篇的显示

'......无限替换 方法同 标签、变量,可以自定义 '----------------------------------------------------

'Fso操作开始 '---------------------------------------------------- Set Fso = Server.createObject("Scripting.FileSystemObject") if not fso.folderexists(folder) then fso.createfolder folder else Set Fout = FSO.CreateTextFile(Server.MapPath(folder&"/"&Path)) Fout.Write content Fout.Close end if Set Fout = Nothing '----------------------------------------------------

'这里做一下显示生成的页面

Response.Write("生成静态页成功 详情请<a href="&folder&"/"&Path&">点击查看</a> 这是第"&i&"页<br />") '----------------------------------------------------

'rs指针移动下一条.如果数据不够自动结束循环. rs.movenext if rs.eof then exit for next Response.End() '---------------------------------------------------- end if

%>

<title>模拟生成html</title> <link rel="stylesheet" href="abc.css" type="text/css"> <script>

function aa(){ var oStyleSheet=document.styleSheets[0]; var oRule=oStyleSheet.rules[0]; if(oRule.style.visibility=="visible"){ oRule.style.visibility="hidden"; }else { oRule.style.visibility="visible"; } } </script> <form action="?Style=Make" method="post" onkeypress="this.submit"> <p style="text-align:center"> <select name="sec" onchange="aa();">

<option selected="selected">默认不选</option>

<option>根据ID生成</option> </select> </p>

<p id="shows">只生成: <input name="page" type="text" size="5" maxlength="10" />

个html

更换文件夹<input name="folder" type="text" size="10" maxlength="10" /> &nbsp; <input type="submit" value="生成"> </p> <p style="text-align:center" id="ss">

<input type="submit" value="一键生成全部" > </p> </form>

相应的注释已经添加,如果还看不懂....我实在没话说.

相关热词搜索:界面 模板 登录 asp 好看的登录界面背景 vs登录界面设计 window在asp中无法用

版权所有 小龙文挡网 www.xltkwj.com