关于用户名及密码修改的代码!
我刚接触这方面的知识 目前只学习了简单的HTML+简单的asp+Dearmwaver 8 做的页面和数据库!
数据库挺简单就是 学号 姓名 年龄。。这几个数据! 之后我们有做了一个页面登陆 但是现在有一个
修改用户和密码的任务! 请问代码该怎么写啊! 可以运用下简单的JS语句! 我们也接触了点SQL命令
------解决方案--------------------
初学asp 简单增删改查小例子
2011-05-31 17:15
一、创建conn.asp
<%
set conn=server.CreateObject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.MapPath("db1.mdb")
%>
二、先做一个添加吧
1、首先做个添加页面addUser.asp
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<form name="form1" method="post" action="addUser_pass.asp">
<center>
姓名:<input name="sname" type="text"></input><br/>
年龄:<input name="sage" type="text"></input><br/>
地址:<input name="saddress" type="text"></input><br/>
<input type="submit" value=" 增加" />
</center>
</form>
</body>
</html>
2、addUser_pass.asp页面
<!--#include file="conn.asp"-->
<%
'接收表单传递过来的参数
sname=request.Form("sname")
sage=request.Form("sage")
saddress=request.Form("saddress")
'可以使用指针操作去实现
'set rs=server.CreateObject("adodb.recordset")
'sql="select * from stuinfo"
'rs.open sql,conn,1,3
'rs.addnew
'rs("sname")=sname
'rs("sage")=sage
'rs("saddress")=saddress
'rs.update
'rs.close
'也可以用sql语句去实现
sql="insert into stuinfo(sname,sage,saddress) values('"+sname+"',"+sage+",'"+saddress+"')"
conn.execute sql
conn.close
set conn=nothing
response.Redirect("UserList.asp")
%>
三、现在把添加的数据查出来
1、UserList.asp页面用来显示信息,同时我们把删除和修改按钮加上
<!--#include file="conn.asp" -->
<%
sql="select * from stuinfo"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>用户信息显示</title>
</head>
<body>
<table width="98%" border="1" cellspacing="0" cellpadding="0">
<tr>
<td>姓名</td>
<td>年龄</td>
<td>地址</td>
<td>操作</td>
</tr>
<%do while not rs.eof%>
<tr>
<td><%=rs("sname")%></td>
<td><%=rs("sage")%></td>
<td><%=rs("saddress")%></td>
<td>
<a href="delUser_pass.asp?id=<%=rs("id")%>">删除</a>
<a href="editUser.asp?id=<%=rs("id")%>">修改</a>
</td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
co