马卡龙色装修:如何实现ASP登录到指定页面?

来源:百度文库 编辑:高校问答 时间:2024/04/29 20:11:42
比如我有一个ACCESS库,里面是

用户名(也就是登录名) 姓名 年龄

假如我登录以后就在页面上显示

姓名和年龄

该如何实现?请指点?

去那做参考?

<%
dim action
if action = "login" then
Dim loginname
loginname = Request.Form("loginname")
Dim conn,rs
Dim connstr,sqlstr
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
connstr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("data/db.mdb")
sqlstr = "select * from 表 where 姓名='" + loginname + "'"
conn.Open connstr
rs.open sqlstr,conn,1,1
Response.Write rs("姓名")
Response.Write rs("年龄")
rs.close
conn.close
Set rs = Nothing
Set conn = Nothing
else
%>
<form method="POST" action="index.asp?action=login"><p align="center">请输入用户名:<input type="text" name="loginname" size="20"><input type="submit" value="提交" name="B1"><input type="reset" value="全部重写" name="B2"></form>
<%end if%>