感触life

asp增删改查+登录注册

asp好像在2009年就停止更新了

落后的asp,百度也找不到什么教程,教程都是老掉牙,搬呀搬,没什么原创的

所以把自己项目中的重点share给大家

有一定编程基础的人,比如php,一看就懂,下面是些关键代码。
access数据库像mysql图形界面那样建就行了

后面附一个几百k的asp服务器环境,放在网站根目录运行即可。

代码如下

<%
'检查是否登录'
username=session("username")
if username="" then
response.write"<script>location.href='login.asp'</script>"
response.end
end if

'连接数据库开始
dim conn,rs,sql
on error resume next
dbpath=server.mappath("database.mdb")'数据库access文件'
set conn=server.createobject("adodb.connection")
conn.open "PROVIDER=Microsoft.jet.OLEDB.4.0;data source="&dbpath
'创建记录对象
set rs=server.createobject("adodb.recordset")
username=Request.Form("username")'接收用户名和密码'
password=Request.Form("password")
sqlc="select * from [userinfo] where [Username]='"&username&"' and [Password]='"&password&"'"
rs.open sqlc,conn,1,1'执行sql查询'
if not (rs.eof and rs.eof) then
	session("username")=username
    session.Timeout=3000 
 	if request.form("password")= "" then
		response.write"<script>history.back();</script>"'等于php的echo'
		response.end
	  end if 	 
	rs.close
	set rs=nothing 
%>

<!DOCTYPE html>
<html lang="en">
<head>
	<meta charset="UTF-8">
	<title>asp教程</title>
</head>
<body>	<!-- 登录界面 login.asp-->
		登录后用户名为:<% response.write(session("username")) %>
		<form name="login" method="post" action="login.asp">
			USERNAME <input type="text" name="username"><br>
			PASSWORD <input type="password" name="password" class="password"><br>
			<input type="submit"  value="LOGIN">
		</form>

		<!-- 增加&修改信息 -->
		<% Set rs1=Server.CreateObject("ADODB.RecordSet") 
			sql1="select * from user"   
	    	rs1.open sql1,conn,3,3
	    	rs1.addnew
      		rs1("user")="admin"'更新也可以这样更新'
      		rs1("password")="123456"
      		rs4.update
      		rs4.close
    		set rs4=nothing
		%>
		<!-- 删除信息 -->
		<%  sid=request("Sid")
			if sid<>"" then
		      sql="DELETE * FROM [user] WHERE Sid=" & sid & ""
		      conn.execute sql'另一种执行sql的方法'
		      conn.close
		      set conn=nothing
		      response.redirect"index.asp"'跳转主页'
		      response.end
		    end if
		%>

		<!-- 查询某用户用户名跟密码 -->
		<%	set rs2 = server.createobject("adodb.recordset")
				sql2="select * from [user] where username='"&username&"'" 
				rs2.open sql2,conn,1,1	
		%>
			<% =rs2("username") %>
			<% =rs2("password") %>

			<!-- 判断字段是否为空 -->
			<%
				password=rs2("password")
				if not isnull(password) then 
				response.write "not null" 
				end if 
			%>
			<!-- 循环输出 -->
			<% if not rs.eof then
		  		while not rs.eof		
			%>
			<!-- 循环内容在下面 -->
			<% =rs2("id") %>
			<!-- 结束循环 -->
			<%  
				Rs.MoveNext
				wend
				end if	
			%>
			<!-- 注册语句 -->
		<% conn.execute("insert into user([username],[password]) values('"&username&"','"&password&"')") '%>
</body>
</html>

asp服务器环境

NetBox2

码字很辛苦,转载请注明来自感触life-博客《asp增删改查+登录注册》

评论