在ASP中设置密码可以通过以下步骤实现：
1. 创建一个用于存储密码的数据库表，可以包含用户名和密码字段。
2. 在ASP页面中，获取用户输入的用户名和密码。
3. 对用户输入的密码进行加密处理，常见的加密方式包括MD5、SHA1等。
4. 将加密后的密码与数据库中存储的密码进行比较，如果匹配则认为密码正确。
5. 根据密码验证的结果，可以执行相应的操作，例如允许用户登录或拒绝访问。
以下是一个示例代码，演示了如何在ASP中设置密码：
```
<%
Dim username, password
username = Request.Form("username")
password = Request.Form("password")
' 进行密码加密处理，这里使用的是MD5加密方式
Dim md5
Set md5 = Server.CreateObject("MD5CryptoServiceProvider")
md5.Initialize
Dim encryptedPassword
encryptedPassword = md5.ComputeHash_2((password))
' 假设数据库表名为users，包含username和password字段
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\path\to\database.mdb;"
Dim sql
sql = "SELECT * FROM users WHERE username='" & username & "' AND password='" & encryptedPassword & "'"
Dim rs
Set rs = conn.Execute(sql)
If Not rs.EOF Then
' 密码匹配，执行登录操作
' ...
Else
' 密码不匹配，拒绝访问
' ...
End If
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>
```
上述代码中使用了MD5加密方式，但请注意，MD5加密并不是最安全的加密方式，建议根据实际需求选择更安全的加密算法。
