最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线

如何更好地保護(hù)我的網(wǎng)頁?

 更新時(shí)間:2006年11月16日 00:00:00   作者:  

main.htm

<html>

<body>

<form action="login.asp" method="Post">

<input type="text" name="username" size="20"> 賬號(hào)<br>

<input type="password" name="password" size="20"> 密碼<br>

<input type="submit" value="進(jìn)入">

</form>

</body></html>

 

login.asp

<%@Language=VBScript%>

<%Response.Buffer = True%>

<html>

<body>

<%

UserName = Request.Form("username")

Password = Request.Form("password")

Set MyConn=Server.CreateObject("ADODB.Connection")

MyConn.Open "Provider={Microsoft Access Driver (*.mdb)};

DBQ=D:\suifengqiwu\databases\test.mdb"

SQL = "Select * From tblLogin"

Set RS = MyConn.Execute(SQL)

 

If UserName = RS("UserName") And Password = RS("Password") Then

  Session("allow") = True

< !-----連接保護(hù)的頁面------->

Else

  Response.Redirect "main.asp"

  RS.Close

  MyConn.Close

  Set RS = Nothing

  Set MyConn = Nothing

End If

%>

</body></html>

    做好了上面兩個(gè)程序,再完善一下外圍:把global.asa中的Session_Onstart加上 Session("allow") = False 語句,再在要保護(hù)的網(wǎng)頁中加入下面的語句:

<% @Language=VBScript %>

<% Response.Buffer = True %>

<% If session("allow") = False Then Response.Redirect "main.asp" %>

[1]

相關(guān)文章

最新評(píng)論

武平县| 中西区| 建德市| 喀什市| 开远市| 高州市| 米林县| 鲜城| 和林格尔县| 沽源县| 安化县| 屯昌县| 叶城县| 仁化县| 神农架林区| 莲花县| 孙吴县| 耿马| 元朗区| 铜川市| 琼海市| 平武县| 成武县| 林口县| 石嘴山市| 清镇市| 涡阳县| 额敏县| 驻马店市| 庆安县| 社旗县| 门源| 延吉市| 加查县| 林甸县| 新泰市| 马尔康县| 滨海县| 天门市| 那坡县| 湘西|