查人人中国名人网mini字幕滚动器注册机:如何制作登陆程序?
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/28 14:25:08
用Dreamwaver MX 2004 可以制作,首先用access软件建立一个数据库表，然后表中插入两条记录，一条是用户名记录，一条是密码记录。然后在Dreamwaver MX 2004 建立后缀为.asp 的动态网页（采用asp vbscript技术），在这个动态网页添加基本的登陆界面（可参考其他登陆系统），然后进行保存。保存后把此动态页面和数据库表连接起来。然后在服务器行为面版设置登陆，注册等操作。至此登陆程序制作完毕。
Option Explicit
Dim Conn As ADODB.Connection
Dim Rs As ADODB.Recordset
Private Sub cmdOK_Click()
Rs.Open "select * from Users where Name='" & txtName.Text & "'", Conn, adOpenKeyset, adLockPessimistic
If Rs.RecordCount <= 0 Then
MsgBox "用户不存在"
Rs.Close
Exit Sub
End If
Rs.Close
Rs.Open "select * from Users where Name='" & txtName.Text & "' and Pass='" & txtPass.Text & "'", Conn, adOpenKeyset, adLockPessimistic
If Rs.RecordCount <= 0 Then
MsgBox "用户名和密码不正确"
Rs.Close
Exit Sub
End If
MsgBox "用户名和密码正确,可以登录"
Rs.Close
End Sub
Private Sub Form_Load()
Set Conn = New ADODB.Connection
Set Rs = New ADODB.Recordset
Conn.ConnectionString = "Provider=SQLOLEDB.1;Password=nndk;Persist Security Info=True;User ID=nndk;;Initial Catalog=pubsData Source=SERVER"
Conn.Open
End Sub
你说的是私服登陆器吗？
Option Explicit
Dim Conn As ADODB.Connection
Dim Rs As ADODB.Recordset
Private Sub cmdOK_Click()
Rs.Open "select * from Users where Name='" & txtName.Text & "'", Conn, adOpenKeyset, adLockPessimistic
If Rs.RecordCount <= 0 Then
MsgBox "用户不存在"
Rs.Close
Exit Sub
End If
Rs.Close
Rs.Open "select * from Users where Name='" & txtName.Text & "' and Pass='" & txtPass.Text & "'", Conn, adOpenKeyset, adLockPessimistic
If Rs.RecordCount <= 0 Then
MsgBox "用户名和密码不正确"
Rs.Close
Exit Sub
End If
MsgBox "用户名和密码正确,可以登录"
Rs.Close
End Sub
Private Sub Form_Load()
Set Conn = New ADODB.Connection
Set Rs = New ADODB.Recordset
Conn.ConnectionString = "Provider=SQLOLEDB.1;Password=nndk;Persist Security Info=True;User ID=nndk;;Initial Catalog=pubsData Source=SERVER"
Conn.Open
End Sub
用Dreamwaver MX 2004 可以制作,首先用access软件建立一个数据库表，然后表中插入两条记录，一条是用户名记录，一条是密码记录。然后在Dreamwaver MX 2004 建立后缀为.asp 的动态网页（采用asp vbscript技术），在这个动态网页添加基本的登陆界面（可参考其他登陆系统），然后进行保存。保存后把此动态页面和数据库表连接起来。然后在服务器行为面版设置登陆，注册等操作。至此登陆程序制作完毕。