html中插入asp菜鸟学ASP

学习目的：安装调试ASP的环境，并且调试第一个大略的程序。

　　由于我们学ASP的目的便是想建立一个网站，那么一样平常习气是建立的网站内所有文件该当同时放到一个文件夹中(当然这个文件夹中还可以按须要设置子文件夹！
)，以是在这里我在E盘建立一个myweb的文件夹。

　　首先来安装Windows 2000/XP自带的IIS作为做事器。
在这里由于我的机器是XP以是所有截图都是XP下完成的。

（图片来自网络侵删）

　　掌握面板-->>添加或删除程序。

　然后是添加删除windows组件－选中IIS组件前面的勾，之后等待安装，这里可以不雅观看本站以前给大家做的视频教程，完成安装后。

之后在掌握面板中双击“管理工具”。

　然后双击“internet信息做事”，这便是IIS。

选择“默认网站”，然后右键属性或者直接按快捷键

　在属性页面内只有三个页面须要修正，先是网站，如果用户有固定IP，可以分配一个IP

接下来在注主目录中选择一个自己硬盘上面的文件夹存放网站(这个目录便是我们上面说的在e盘建立的目录)，选中读取、写入

　在文档中添加默认的页面，比如打http://www.liexiaow.com猎校网调用了一个默认文档即是你添加的页面。

接下来也是最关键的：

　　1、在刚才你定义的一个文件夹里面新建一个文件，可以用记事本建立一个文本文件然后把下面的内容复制到记事本中：

<%response.write "hello world!"%>

　　保存为1.asp文件(把稳：.asp不能省略啊，如果省略了你就保存了一个文本文件了)。

　　末了打开IE，在地址栏内输入：http://127.0.0.1/1.asp(或者http://localhost/1.asp)回车后就可以看到效果了。

末了阐明一下代码的含义。

　　response.write便是显示的意思，前后的 <% 和 %> 是asp的标记符号，在这里面的信息都由做事器处理。
127.0.0.1是地址，1.asp是文件名。
第一天就结束了！

表单元素要放在一个表单域里面，建立一个表单域。
然后修正动作里面的文件为要接管这个表单变量的ASP文件。
方法有两种，一种是POST，这个方法传送的变量不会在浏览器的地址栏里面显示，可以大批量传送数据；GET则是会在浏览器地址栏里面显示的，等一会举例子。

　　下面我们看一个表单元素。

　　文本域，这个是最基本的，传送的是文本信息，一样平常用户名，密码都要用这个传送，不过假如密码的话要在类型里面选择密码，这样就会以代替显示出来的字符，文本域的名字很主要，往后会用到这个名字以是一样平常不用默认的名字。

　　现在举一个例子：如果文本域的名字是name的话，用来传送网上用户登记的名字，在表单域里面，传送到reg.asp，用POST方法，那么在reg.asp里面这样得到变量<%name=request.form("name")%>如果要显示变量再家加一句，response.write name，这样就形成了一个从客户端到浏览器再回到客户真个过程。
如果方法用的是GET的话，那么就改为name=request.querystring("name")实际上两者可以统一为name=request("name")。
下面看看按钮，按钮里面无非两种，一种是提交表单的按钮，一种是重新输入的按钮。
单选按钮，一个按钮有一个值。
在列表里面同样，添加列表选项和值。
下面举一个例子，实际上各种表单元素都是差不多的。

　　下面是详细的代码： (注：把下面代码保存为一个.htm的文件就可以了．我保存的1.htm)

<form name="form1" method="post" action="reg.asp"> 姓名： <input type="text" name="name"> //文本域，名字叫name <br> 密码： <input type="password" name="psw"> //文本域，用来输入密码，名字叫psw <br> <br> 性别： <input type="radio" name="sex" value="男"> //单选，名字叫sex，数值是"男" 男 <input type="radio" name="sex" value="女"> //单选，名字叫sex，数值是"女" 女 <br> <br> 城市： <select name="city"> <option value="上海" selected>上海</option> //复选，大家自己剖析一下 <option value="北京">北京</option> </select> <br> <input type="submit" name="Submit" value="提交"> //提交按钮 <input type="reset" name="Submit2" value="重置"> </form>　　下面是reg.asp的代码，用来显示出刚才受到的信息：<% name=request.form("name") psw=request.form("psw") sex=request.form("sex") city=request.form("city") response.write name response.write psw response.write sex response.write city %>

　　打开浏览器在地址栏内输入：http://localhost/1.htm如下图：（呵呵，由于是练习，我没有美化页面啊！
）

下面我们要开始学数据库了！
只要把表单和数据库相应的字段连接上就可以了。

学会ACCEES数据库的利用。

　　首先，要安装OFFICE里面的ACCEES（我的演示是OFFICE 2003版本），安装过程这里就不说了，安装好往后会，打开Access．按空数据库，新建一个数据库，文件名字可以叫guestbook.mdb。
（提示：为了安全期间，文件名繁芜一点好，由于ACCESS数据库可以被下载的！
！
）

利用设计器创建新的表，一个数据库MDB文件里面可以建立多个表。
双击“利用设计器创建表”

　填写字段名字然后选择字段类型，一条记录可以有很多字段，可以有很多字段类型，字段大小的意思便是这个字段最多可以容纳的字符数，当这个字段没有任何信息是，ACCEES会用默认值代替（没有任何信息不是空的意思），一样平常必填字段和许可空字符串分别设置为否、是，以防止出错

按照上图分别建立几个字段，在韶光中默认值为=now()便是这个字段不须要填写，系统直接以当前韶光代替。

以是的字段都建立往后，关闭这个窗口，按提示保存表，输入表的名字guest，末了涌现下图的提示，选择是，主键是记录的标识，为了往后大略，大家可以把编号改为ID，还有在ACCEES里面只管即便不要用中文表示字段名字

末了，双击打开这个表，不雅观看表里面的记录

握ACCESS数据库的连接和读取记录

　　首先还打开我们上一节课建立的数据库中的表，随便输入几条记录，如下图：

这节课学习的内容有一点呆板，但是很主要。
在这里不须要知道命令详细的运行情形，表面的很多书本之以是不适宜入门便是由于先容了太多的理论知识，让初学者一头雾水。

　　下面开门见山，看两行代码：

<% set conn=server.createobject("adodb.connection") conn.open "driver={microsoft access driver (.mdb)};dbq="&server.mappath("data/guestbook.mdb") %>　　第一行定义了一个adodb数据库连接组件，第二行连接了数据库，大家只要修正后面的数据库名字就可以了。是不是很大略？　　下面再看三行：<% exec="select from guest" set rs=server.createobject("adodb.recordset") rs.open exec,conn,1,1 %>　　这三行加在前面两行的后面，第一句：设置查询数据库的命令，select后面加的是字段，如果都要查询的话就用，from后面再加上表的名字，我们前面建立的是不是一个gust表阿？第二句：定义一个记录集组件，所有搜索到的记录都放在这里面，第三句是打开这个记录集，exec便是前面定义的查询命令，conn便是前面定义的数据库连接组件，后面参数“1，1”，这是读取，后面讲到修正记录就把参数设置为1，3，好了接下来我们读取记录。 <table width="100%" border="0" cellspacing="0" cellpadding="0"> <%do while not rs.eof%><tr> <td><%=rs("name")%></td> <td><%=rs("tel")%></td> <td><%=rs("message")%></td> <td><%=rs("time")%></td> </tr><% rs.movenext loop %> </table>//下面的三条语句是用于关闭数据库 rs.closeset rs=nothingconn.closeset conn=nothing

　　在一个表格中，我们用4列分别显示了上次建立的表里面的四个字段，用do循环，not rs.eof的意思是条件为没有读到记录集的末了，rs.movenext的意思是显示完一条转到下面一条记录，<%=%>就即是<%response.write%>用于在html代码里面插入asp代码，紧张用于显示变量。

　　把上面三段代码依次复制粘贴到剪贴板中，一定要按顺序复制粘贴啊！
，然后保存为duqu.asp就可以了！
打开浏览器，在地址栏内输入：http://localhost/duqu.asp.

　　下面是我机器上面的结果图片。

学会数据库的基本操作--写入记录

　　数据库的基本操作无非是：查询记录，写入记录，删除记录，修正记录。

　　本日我们先学习写入记录。
先建立一个表单：(把下面文章保存为5.htm)

<form name="form1" method="post" action="exa5.asp">name <input type="text" name="name"><br>tel <input type="text" name="tel"><br>message <input type="text" name="message" value=""><br><input type="submit" name="Submit" value="提交"><input type="reset" name="Submit2" value="重置"></form>

　　表单提交到exa5.asp，下面是exa5.asp的代码： (把下面代码保存为5.asp)

<%set conn=server.createobject("adodb.connection")conn.open "driver={microsoft access driver (.mdb)};dbq="&server.mappath("data/guestbook.mdb")name=request.form("name")tel=request.form("tel")message=request.form("message") exec="insert into guest(name,tel,message)values('"+name+"',"+tel+",'"+message+"')"conn.execute execconn.closeset conn=nothingresponse.write "记录添加成功!"%>

　　在这里前面两句我不说了，后面三句我也不说了，前面说过exec里面的是实行的命令，添加记录的比较繁，大家要仔细看。

　　insert into后面加的是表的名字，后面的括号里面是须要添加的字段，不用添加的或者字段的内容便是默认值的可以省略。
把稳，这里的变量一定要和ACCESS里面的字段名对应，否则就会出错。
values后面加的是传送过来的变量。
exec是一个字符串，"insert into guest(name,tel,message)values('"是第一段，在ASP里面不能嵌双引号，以是可以用'代替双引号，放在双引号里面，连接两个变量用+或者&以是"',"又是一段，中间夹了一个name便是表单传来的变量，这样就可以在这个变量表面加两个''，表示是字符串了，后面的tel是数字型变量以是不须要表面包围''，大家逐步剖析这句话，如果用表单传来的数据代替变量名字的话这句话为（假设name="aaa",tel=111,message="bbb"）："insert into guest(name,tel,message)values('aaa',111,'bbb')"。

　　接下来的conn.execute 便是实行这个exec命令，末了别忘却把打开的数据库关闭，把定义的组件设置为空，这样可以返回资源。

　　下面几条语句用于关闭数据库的代码：

rs.closeset rs=nothingconn.closeset conn=nothing

　　记住，次序不可以颠倒！
可以到数据库里面去看一看，或者用duqu.asp读取看看是不是多了记录阿？下面是我利用上一节的文件读取数据库的图：

学会数据库的基本操作－－查询记录

　　在第四天中我们用到下面这样一个程序：

<% set conn=server.createobject("adodb.connection") conn.open "driver={microsoft access driver (.mdb)};dbq="&server.mappath("data/guestbook.mdb") exec="select from guest" set rs=server.createobject("adodb.recordset") rs.open exec,conn,1,1 %>　　我们查询的是所有的记录，但是我们要修正、删除记录的时候不可能是所有记录，所有我们要学习检索得当的记录。先看一条语句：a="aaa"b=1111110exec="select from guestbook where name='"+a+"'and tel="+b　　where后面加上的是条件，与是and，或是or，我想=，<=，>=，<，>的含义大家都知道吧。这句话的意思便是搜索name是“aaa”的，并且电话是“1111110”的记录。还有一点便是如果要搜索一个字段里面是不是包含一个字符串就可以这么写：where instr(name,a)也便是搜索name里面有a（aaa）这个字符串的人。　　我这里的a,b,是常量，大家可以让a,b是表单提交过来的变量，这样就可以做一个搜索了。　　下面大家看看这个代码，理解一下：(把下面代码存为6.htm文件)<form name="form1" method="post" action="exam6.asp">搜索：<br>name =<input type="text" name="name">and tel= <input type="text" name="tel"><br><input type="submit" name="Submit" value="提交"><input type="reset" name="Submit2" value="重置"></form>　　exam6.asp(把下面代码存为exam6.asp)<%name=request.form("name")tel=request.form("tel")set conn=server.createobject("adodb.connection")conn.open "driver={microsoft access driver (.mdb)};dbq="&server.mappath("data/guestbook.mdb")exec="select from guest where name='"+name+"' and tel="+telset rs=server.createobject("adodb.recordset")rs.open exec,conn,1,1%><html><head><title>无标题文档</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head> <body bgcolor="#FFFFFF" text="#000000"> <table width="100%" border="0" cellspacing="0" cellpadding="0"><%do while not rs.eof%><tr><td><%=rs("name")%></td><td><%=rs("tel")%></td><td><%=rs("message")%></td><td><%=rs("time")%></td></tr><%rs.movenextloop%></table></body></html>

　　首先在浏览器中输入http://localhost/6.htm如下图所示：

学会数据库的基本操作--删除记录

　　开门见山，大家直接见地式。

exec="delete from guest where id="&request.form("id")

　　上面这句话完成了删除记录的操作，不过锁定记录用了记录唯一的表示id，我们前面建立数据库的时候用的是系统给我们的主键，名字是编号，由于是中文的名字不是很方便，大家可以修正为id，我已经修正了啊！

　　不修正的话便是用下面的代码了：

exec="delete from guestbook where 编号="&request.form("id")

　　下面我们看完全的代码：一个表单传给ASP文件一个ID，然后这个ASP文件就删除了这个ID。

　　7.htm：

<form name="form1" method="post" action="exam7.asp">请输入删除的ID号: <input type="text" name="id"><input type="submit" name="Submit" value="提交"></form>

　　exam7.asp：(可以先运行这个文件看一下所有记录的ID和想删除记录的ID，删除记录往后也可以通过这个文件复查。 )<%set conn=server.createobject("adodb.connection")conn.open "driver={microsoft access driver (.mdb)};dbq="&server.mappath("data/guestbook.mdb")exec="select from guest"set rs=server.createobject("adodb.recordset")rs.open exec,conn,1,1 %><html><head><title>无标题文档</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head><body bgcolor="#FFFFFF" text="#000000"><table width="100%" border="0" cellspacing="0" cellpadding="0"><%do while not rs.eof%><tr><td><%=rs("id")%></td><td><%=rs("name")%></td><td><%=rs("tel")%></td><td><%=rs("message")%></td><td><%=rs("time")%></td></tr><%rs.movenextloop%></table></body></html>

学会数据库的基本操作－－修正记录

　　先来看代码：(存为exam8.asp就可以了)

<%set conn=server.createobject("adodb.connection")conn.open "driver={microsoft access driver (.mdb)};dbq="&server.mappath("data/guestbook.mdb")exec="select from guest where id="&request.form("id")set rs=server.createobject("adodb.recordset")rs.open exec,conn%><form name="form1" method="post" action="modifysave.asp"><table width="748" border="0" cellspacing="0" cellpadding="0"><tr> <td>name</td><td>tel</td><td>message</td></tr><tr> <td><input type="text" name="name" value="<%=rs("name")%>"></td><td><input type="text" name="tel" value="<%=rs("tel")%>"></td><td><input type="text" name="message" value="<%=rs("message")%>"><input type="submit" name="Submit" value="提交"><input type="hidden" name="id" value="<%=request.form("id")%>"></td></tr></table></form><%rs.closeset rs=nothingconn.closeset conn=nothing%>　　到现在该当剖析这个代码没有什么问题了吧，这个代码的浸染是接管前面一个页面的ID然后显示这条记录，文本框即是输入的地方也是显示的地方，如果须要修正的话修正往后按提交；如果不须要修正就可以直接按提交按钮。　　在这里由于本教程适宜初学的，以是也把提交的表单内容给出来，把下面代码存为8.htm文件<form name="form1" method="post" action="exam8.asp">请输入要修正的记录的ID： <input type="text" name="id"><br><input type="submit" name="submit" value="提交"></form>这里还有一个东西以前没有说，那便是隐蔽的表单元素：hidden元素，里面的value是不用用户输入的，会随着表单一起提交，用于通报变量。　　下面是modifysave.asp的代码：<%set conn=server.createobject("adodb.connection")conn.open "driver={microsoft access driver (.mdb)};dbq="&server.mappath("data/guestbook.mdb")exec="select from guest where id="&request.form("id")set rs=server.createobject("adodb.recordset")rs.open exec,conn,1,3rs("name")=request.form("name")rs("tel")=request.form("tel")rs("message")=request.form("message")rs.updaters.closeset rs=nothingconn.closeset conn=nothing%>

　　在这里，rs.open exec,conn,1,3后面的参数是1，3，这我以条件过，修正记录就要用1，3。
实际上修正记录很随意马虎看懂，记录集是rs，rs("aa")便是当前记录aa字段的东西，让它即是新的数据request.form("aa")当然就修正了，不过末了别忘却保存，那便是rs.update！

　　说到这里，记录的搜索，读取，修正，插入都说了，通过这最基本的东西就可以作出繁芜的东西了，表面的大型数据库：新闻系统，留言簿便是字段多一点罢了。
本日的示例中的代码是结合以前的数据库的，往后回去调试剖析一下。

　　大家测试的流程：首先运行8.htm文件

基本的SESSION组件，总结response，request组件。

　　首先，有会员系统的任何程序都会用到检测是不是用户已经上岸这个步骤。
这就用到了SESSION组件，下面我们看一个代码来解释。

<%session("login")="yes"%>

　　这句话的意思便是在session里面定义一个login字符串变量，值为"yes"，直接可以赋值，不须要声明。
是不是很大略？

　　如果我们做管理员上岸系统的话，首先是一段检测是不是管理员：

if 是 then session("isadmin")=yes"else session("isadmin")="no"end if

　　在每一个须要管理员才能看的页面最前面加上：

<%if not session("isaadmin")="yes" thenresponse.redirect "login.htm"%>

　　这样一样平常用户就无法打开这个页面。
阐明一下response.redirect，它是转向的意思，后面的"login.htm"便是转向的文件。
这样没有上岸的管理员是无法看到后面的内容的。

　　response组件基本便是用到response.write()，response.redirect() 分别是写字符串和转向的浸染。

　　request基本便是request.form()，request.querystring() 分别是接管post,get方法传来的信息。

　　末了我们一起来制作一个大略的后台上岸管理界面，首先在myweb目录下建立一个admin文件夹，然后我们建立一个数据库名字为admin.mdb，然后我们再建立一个表，表中设置两个字段name,password，类型都是文本型的！
最退却撤退出时设置主键，保存为表名check。
然后可以输入一条记任命户名：admin，密码：admin。
详细建立数据库的方法请看《菜鸟十天学会ASP教程之第三天：数据库的建立》

　　下面我们开始编写ASP程序，首先建立一个index.asp(管理主界面)程序，代码如下：

<%@language=vbscript%><%if not session("checked")="yes" then response.Redirect "login.asp" else%><html><head><title>管理界面</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head><frameset cols="167," frameborder="YES" border="1" framespacing="1" rows="" bordercolor="#666666"> <frame name="leftFrame" scrolling="auto" noresize src="left.asp"> <frame name="mainFrame" src="right.asp"></frameset><noframes> <body bgcolor="#FFFFFF" text="#000000"></body></noframes> </html><%end if%>　　在上面的代码中，大家可以看到用到login.asp，left.asp，right.asp程序　　login.asp：//上岸系统程序<html><head><title>管理员入口</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><style type="text/css"></style></head><body text="#000000" topmargin="0" bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="0" cellspacing="0" align="center" height="100%"> <tr> <td height="129" valign="top" colspan="3"> </td> </tr> <tr> <td width="230" height="170" valign="top"> </td> <td valign="top" width="277"> <table width="100%" border="0" cellspacing="1" cellpadding="0" height="100%" bgcolor="#000000" align="center"> <tr> <td align="center" valign="middle" height="167"> <form name="form1" method="post" action="check.asp"> <table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%"> <tr bgcolor="#62892C"> <td height="31" class="topic" colspan="2"> <div align="center">管理员入口<br> </div> </td> </tr> <tr> <td bgcolor="#87bc3c" colspan="2" class="table"> <div align="center"> <span class="font"> 管理员：</span> <input type="text" name="name" class="text" size="20" onMouseOver="this.focus()"> <br> <span class="font">密码：</span> <input type="password" name="password" class="text" size="20" onMouseOver="this.focus()"><%if session("check")="wrong" then response.Write "<br><span class='font'><font color=red>验证缺点!</font></span>" end if%> </div> </td> </tr> <tr> <td bgcolor="#87bc3c" width="52%"> <div align="center" class="font"> <input type="reset" name="Submit2" value="重置" class="text"> </div> </td> <td bgcolor="#87bc3c" width="48%"> <div align="center" class="font"> <input type="submit" name="Submit22" value="提交" class="text"> </div> </td> </tr> </table> </form> </td> </tr> </table> </td> <td width="241" valign="top"> </td> </tr> <tr> <td height="123" valign="top" colspan="3"> </td> </tr></table></body></html>　　在上面的程序中用到一个检讨用户和密码是否精确的程序check.asp：//核对输入的用户和密码是否精确<%dim name,passwordname=request.form("name")password=request.form("password")dim exec,conn,rsexec="select from check where(name='"&name&"' and password='"&password&"')"set conn=server.createobject("adodb.connection")conn.open "driver={microsoft access driver (.mdb)};dbq="&server.mappath("admin.mdb")set rs=server.createobject("adodb.recordset")rs.open exec,connif not rs.eof thenrs.Closeconn.Closesession("checked")="yes"session("check")="right"response.Redirect "index.asp"elsesession("checked")="no"session("check")="wrong"response.Redirect "login.asp"end if%>　　left.asp：//管理导航<%@language=vbscript%><%if not session("checked")="yes" then response.Redirect "login.asp" else%><html><head><title>管理界面</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head><body text="#000000" topmargin="0" bgcolor="#ffffff" leftmargin="10"><div align="center"><a href="index.asp" target="_parent"><br> <br> 管理界面首页</a> <a href="exit.asp" target="_parent">退出</a><br> <br></div></body></html><%end if%>　　exit.asp：//退出系统<%@language=vbscript%><%session("check")=""session("checked")=""response.redirect "login.asp"%>　　right.asp：//详细管理的内容<%@language=vbscript%><%if not session("checked")="yes" then response.Redirect "login.asp" else%><html><title>管理界面</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head><body bgcolor="#ffffff" text="#000000" topmargin="20" class="title">这里是网页传授教化网的管理系统示例！请大家多研究利用！ </body></html> <%end if%>

　　运行时首先运行index.asp程序，运行效果部分截图如下：

分页技能

　　本日末了一天我们学习一下ASP里面轻微难一点地分页技能，毕竟当我们有N条记录的时候我们不可能把所有记录显示在一个页面里面吧。

<%exec="select from test"set rs=server.createobject("adodb.recordset")rs.open exec,conn,1,1rs.PageSize=3pagecount=rs.PageCount page=int(request.QueryString ("page"))if page<=0 then page=1if request.QueryString("page")="" then page=1rs.AbsolutePage=page %>

　　rs.pagesize设置一个页面里面显示的记录数，pagecount是我们自己定义的一个变量，rs.pagecount是记录的个数，page也是我们自己定义的一个变量，我们下一页的链接可以设置为list.asp?page=<%=page+1%>，下一页的链接可以设置为list.asp?page=<%=page-1%>，这样当按下链接的时候调用页面自己，page这个变量就+1或者-1了，末了我们让rs.absolutepage（当前页面）为第page页就可以了。

　　if request.QueryString("page")="" then page=1，这句话的浸染便是我们打开list.asp的时候没有跟随page变量，自动设置为page=1，防止出错，还有当我们if....then...放在一行的时候end if可以省略。
是不是分页也不难？

　　下面说一种分外情形：

if page=1 and not page=pagecount，这个时候没有上一页，但是有下一页

elseif page=pagecount and not page=1，这个时候没有下一页，但是有上一页

elseif page<1，这个时候没有任何记录

elseif page>pagecount then，这个时候没有任何记录

elseif page=1 and page=pagecount，这个时候没有上一页，没有下一页

　　下面看一段显示1到n页，且每一个数字点击往后就涌现这个数在代表的页面的代码，很常见哦。

<%for i=1 to pagecount%><a href="list.asp?page=<%=i%>"><%=i%></a><%next%>

　　for....next是循环从i=1开始，循环一次加1到pagecount为止。

　　末了我的实例里面包含了一个最大略的ASP程序，但是功能样样有，是ASP的精髓，每一个ASP大型程序都包含了它。

add.htm增加记录页面