如何通过ASP管理NT帐号

如何在网页中用asp做登录和注册？希望给出代码。~

第一建数据库 ：db.mdb
建数据表 user
添加如下字段：
字段 id 自动编号
username 用户名
password 用户密码
第二建立数据库链接页面 conn.asp
代码如下：
StrSQL="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.mappath("db.mdb")
set conn=server.createobject("ADODB.Connection")
conn.open StrSQL
第三建立添加用户页面 user_add.asp代码如下：








<%

if request.Form("act")="add" then
name=request.form("name")
password=request.form("password")
if name="" and password="" then
Response.write(" alert('用户名和密码不能为空');location.href='admin_user_add.asp' ")
Response.End
end if


set rs=server.CreateObject("ADODB.RecordSet")
set rst=server.CreateObject("ADODB.RecordSet")
sql1="select * from user"
rst.open sql1,conn,1,1
if name=rst("username") then
Response.write(" alert('该用户已存在，请重新填写');location.href='user_add.asp' ")
response.End()
end if
rst.close
sql="user"
rs.open sql,conn,1,3
rs.addnew
rs("username")=name
rs("password")=password
rs.update
rs.close
set rs=nothing
set myerrors=conn.errors
if myerrors.count=0 then

Response.write(" alert('注册成功');location.href='user_add.asp' ")
else
msgboxu "注册失败！原因："
Response.write(" alert('注册失败！原因：" &myerrors.item(0).description & "');location.href='user_add.asp' ")
end if
end if
rs.close
set rs=nothing
conn.close
set conn=nothing


%>



第四登录页面：login.asp

登陆名称:
登录密码：




<%
if request.querystring("act")="dengl" then
if (request("name")="" and request("password")="" ) then
response.write("请输入用户名和密码!")
else
set rs=server.CreateObject("ADODB.RecordSet")
rs.open "select * from user where name='" & request("name") & "' and password='"&request("password")&"'",conn,1
if rs.eof and rs.bof then
response.write"alert('用户名或密码不正确！');"
response.write"javascript:history.go(-1)"
response.end
else

session("name")=rs("name")
session("password")=rs("password")

end if


rs.close
set rs=nothing
conn.close
set conn=nothing

%>


所有页面 文件都放在同一个目录下面即可运行了。。。。

第一步：把'NT AUTHORITY\NETWORK SERVICE' 添加到Administrator组中
我的电脑-->右键-->管理-->本地用户和组
选择“组”-->双击Administrators-->单击“添加”-->单击“高级”-->单击“立即查找”-->在下面的列表中选择Network Service用户-->两次单击“确定”-->加入。

第二步 在企业管理器中加入NetWord Service用户
打开Sql Server企业管理器-->选择数据库实例-->打开“安全性”节点-->选择“登录”-->在右边的列表中单击右键-->选择“新建登录”-->在“常规”选项卡中单击“名称”旁边的按钮“...”-->选择“Administrators”组-->单击下面的“成员”按钮-->选择“Network Service”-->单击“添加”按钮-->单击“确定”，返回“新建登录”对话框-->保证身份验证类型为“windows验证”和“允许访问”-->单击“确定”-->关闭“企业管理器”

第三步
重新运行asp.net程序，数据库连接字符串选择windows验证即可。

'填加用户
'函数用法：AddUser(Computer,UserName,PassWord,FullName,Info)
'参数：计算机名,帐号名称,帐号密码,帐号全名,帐号说明
'例：AddUser "127.0.0.1","Test","Test","测试管理员帐号","本帐号通过ASP填加"
'修改指定用户基本信息
'函数用法：EditUser(Computer,UserName,OldPassWord,PassWord,FullName,Info)
'参数：计算机名,帐号名称,帐号密码,帐号全名,帐号说明
'例：EditUser "127.0.0.1","Test","Test2","测试管理员帐号修改","本帐号通过ASP修改过"
'删除指定用户
'函数用法：DelUser(Computer,UserName)
'参数：计算机名,用户名'
'例：DelUser "127.0.0.1","Test"
=============================================================
Function AddUser(Computer,UserName,PassWord,FullName,Info)
'执行创建帐号命令
Set ComputerObj = GetObject("WinNT://"&Computer)
Set NewUser = ComputerObj.Create( "User" , UserName )
NewUser.SetInfo
'进行帐号设置
NewUser.SetPassword ( PassWord ) '帐号密码
NewUser.FullName = FullName '帐号全名
NewUser.Description = Info '帐号说明
NewUser.UserFlags = &H10000 '&H20000(使用者下次登入时须变更密码) &H0040(使用者不得变更密码) &H10000(密码永久正确) &H0002(帐户暂时停用)
NewUser.SetInfo
response.write "帐号"&UserName&"创建成功！"
Set ComputerObj=nothing
End Function
Function EditUser(Computer,UserName,OldPassWord,PassWord,FullName,Info)
'读取用户信息
Set ChangeUserObj = GetObject("WinNT://"&Computer&"/"&UserName&",User")
'修改帐号密码
if PassWord<>"" then
ChangeUserObj.SetPassword PassWord
response.write "帐号密码修改成功！<br>"
end if
'修改帐号全名
if FullName<>"" then
UserFullName = ChangeUserObj.get("FullName")
ChangeUserObj.FullName = FullName
ChangeUserObj.SetInfo
response.write "帐号全名修改成功！<br>"
end if
'修改帐号说明
if Info<>"" then
UserFullName = ChangeUserObj.get("Description")
ChangeUserObj.Description = Info
ChangeUserObj.SetInfo
response.write "帐号说明修改成功！<br>"
end if
Set ChangeUserObj=nothing
End Function
Function DelUser(Computer,UserName)
Set DelUserObj = GetObject("WinNT://"&Computer&"/"&UserName)
If Err = &H800401E4 Then
Response.Write "用户"&UserName&"不存在"
Response.End
End If
Set DelObj = GetObject(DelUserObj.Parent)
DelObj.Delete "User", DelUserObj.Name
Set DelUserObj = Nothing
Set DelObj = Nothing
Response.Write "删除成功"
End Function

---

海城区18246688431： 什么是ASP - ？
王季立安： 从字面上说,ASP包含三方面含义: 1、Active:ASP使用了Microsoft的ActiveX技术.ActiveX(COM)技术是现在Microsoft软件的重要基础.它采用封装对象,程序调用对象的技术,简化编程,加强程序间合作.ASP本身封装了一些基本组件和常...

海城区18246688431： 怎么用ASP.NET写用户及管理员登录 - ？
王季立安： 楼主,你说的是权限管理吧?它包括用户、角色、权限,如过想让他们有联系,那就得在用户和角色中间建立一个用户角色表,想让用户拥有不同的权限时,你还 得在角色和用户之间创建一个角色权色表.最后还要有一个权限类别表,这样才会...

海城区18246688431： ASP.NET如何制作后台权限管理 - ？
王季立安： 你是想自己写后管理系统,还是就为有一个后台权限呀? 如果是后台管理系统,你就按照登录那样做就可以,在里面可以再加限制访问页面 如果登录成功,则可以进入后台系统如果不登录或登录失败,都让它跳转到一个指定的页面,进行错误的报告,然后让登录的人从新登录

海城区18246688431： 编写asp组件注册后运行,提示没有权限,网上查了,必须要相应的设置NT的匿名帐号有权限执行这个dll - ？
王季立安： 把你的组件的相应目录右键--属性--安全 然后给目录添加上一个EVERYONE用户,给这个用户所有权限.包括读取,写入等.这个是NTFS格式的常见问题.

海城区18246688431： 如何在 ASP 中实现 Windows 身份验证和授权.NET - ？
王季立安： 首先关闭UAC,在用-控制面板里面-户帐户里面-选择“打开或关闭用户帐户控制” 1、使用安装时创建的帐号登陆Vista 2、开始菜单,找到“所有程序 > 附件” 3、右击“命令提示符” ,选择“以管理员身份运行” 4、在UAC提示对...

海城区18246688431： 如何写asp.net权限管理和根据权限访问页面和功能 - ？
王季立安： 数据库中添加一列是否是管理员的列,然后在用户登陆时将这个值写入session中.在需要的页面就判断session中这个值是否为管理员,是就显示特定内容,否就隐藏指定内容,没有值就返回登陆页重新登陆.

海城区18246688431： 什么是ASP?？
王季立安： 一种程序,我们日常所登陆的使用的网站程序,asp是在dw软件里编辑的,是微软的产品.

海城区18246688431： xp下ASP.NET帐户怎么登录 - ？
王季立安： 在登陆界面的时候按 + 按两次del 这时候就可以输入用户名和密码了 就算隐藏的那种也可以登陆了 在＂出现登陆界面,选用户名填密码的那个＂这里按才可以的 按住ctrl+alt不动 连续按del两次即可

海城区18246688431： 怎样用ASP.NET做记住用户名. - ？
王季立安： protected void Button1_Click(object sender, EventArgs e) { if (this.CheckBox1.Checked)//记住密码 { Session[＂username＂] = ＂＂; } } 还有一种下次不需要在登陆就要写在Cookie里

海城区18246688431： 用ASP程序修改管理员账号和密码(在线,急) - ？
王季立安： 以下是在线写的,没有调试,应该可以实现你要的功能,希望能给你帮助 system.asp flag = request(＂flag＂) if flag = 1 then admin = request(＂admin＂) adminpassword = request(＂adminpassword＂) sqlupdate = ＂update admin set admin='&...