asp登陆页面问题

我想加密几个htm页面.需要密码进入.以下是参考
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Function Check( ID, Pwd )
strcon="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+Server.MapPath("lastcoco.mdb")
sql = "Select * From user Where ID='" & ID & "' And Pwd = '" & Pwd &"'"
Set rs = conn.Execute( sql )
If rs.EOF Then
Check= False
Else
Check= True
End If
End Function
%>
<%
If IsEmpty(Session("Passed")) Then Session("Passed") = False
Head = "请输入用户名和密码"
ID = Request("ID")
Pwd = Request("Pwd")
If ID = "" Or Pwd = "" Then
Head = "请输入用户名和密码"
Else If Not Check( ID, Pwd ) Then
Head = "用户名称或密码有错"
Else
Session("Passed") = True
End If
If Not Session("Passed") Then
%>
&l

asp登陆页面问题 ASP登陆页面问题！ asp-管理登陆页面问题 ASP用户登陆页面的问题 ASP页面登陆加密 asp登陆页面 asp.et vb 登陆页面 asp登陆问题，从后台登陆后，打开链接时又回到登陆页面 asp问题 提交页面 ASP-页面刷新问题