最近在学习asp方面的知识，现在总结下学习asp制作网页的常用代码

显示信息

（ 1）确定脚本语言：<%@LANGUAGE="VBSCRIPT"%>
（ 2）连接数据库：
<%
Set conn=Server.CreateObject("ADODB.Connection")
Conn.ConnectionString="Provider=Microsoft.jet.oledb.4.0;data source="&server.mappath(" 数据库路径 ]和名称 ")
conn.open()
%>
（ 3）创建记录集  ： <% set rs= Server.CreateObject("adodb.recordset") %>
（ 4）书写SQL语句：<% sql="select * from 表名 where 条件   %>
（ 5）执行SQL语句：<% rs.open sql,conn,1,1 %>
（ 6）显示信息：<%= rs("字段名  ") %>
（ 7）关闭记录集：<% rs.Close
set rs = nothing %>
 
登录模块的实现
 
登陆界面————》 验证页面————》管理页面
                                    返回
 
1. 页面设计
登陆界面 index.asp
2.代码设计
验证页面 check.asp
 
（ 1）确定脚本语言：<%@LANGUAGE="VBSCRIPT"%>
（ 2）获取数据：用Request对象
（ 3）有效性验证：
<%
if 条件 then
Response.Write("")
Response.Write("")
Response.end
End If
%>
（ 4）连接数据库：
<% Set conn=Server.CreateObject("ADODB.Connection")
Conn.ConnectionString="Provider=Microsoft.jet.oledb.4.0;data source="&server.mappath(" 数据库路径")
conn.open()%>
（ 5）创建记录集：<% set rs= Server.CreateObject("adodb.recordset") %>
（ 6）书写SQL语句：
<% sql="select * from teacher where tid='"&userid&"' and tpwd='"&password&"'" %>
（ 7）执行SQL语句：<% rs.open sql,conn,1,1 %>
(8) 判断用户名和密码是否存在
<%
if rs.recordcount<1 then
Response.Write("")
Response.Write("")
Response.end
End If
%>
（ 9）关闭记录集：<% rs.Close
set rs = nothing %>
(10) <% response.redirect ("manage.asp") %>'转向到manage.asp，进入管理页
Session对象
在登陆成功的时候记录信息：
Session(“对象名”)=值