在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加密并不是最安全的加密方式，建議根據實際需求選擇更安全的加密算法。