最近在学习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("<script>alert('错误提示语句!')</script>")
Response.Write("<script>history.go(-1)</script>")
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("<script>alert('错误提示语句!')</script>")
Response.Write("<script>history.go(-1)</script>")
Response.end
End If
%>
(
9)关闭记录集:<% rs.Close
set rs = nothing %>
(10)
<% response.redirect ("manage.asp") %>'转向到manage.asp,进入管理页
Session对象
在登陆成功的时候记录信息:
Session(“对象名”)=值
转载于:https://blog.51cto.com/iduanxuan/326270