ASP程序和JS腳本代碼分享

作者：來源：發布時間：2011-6-17 15:08:45 點擊：

這篇文章主要提供了幾組實用的ASP程序和JS腳本代碼給大家分享，希望能夠幫助到大家。

ASP與Access數據庫連接：

<%@ language=VBscript%>
<%
dim conn,mdbfile
mdbfile=server.mappath("數據庫名稱.mdb")
set conn=server.createobject("adodb.connection")
conn.open "driver={ microsoft access driver (*.mdb) };uid=admin;pwd=數據庫密碼;dbq="&mdbfile
%>

基本的分頁代碼：

<%
Response.write "<b>>> 全部 - "
Response.write "共</font> " & "<font color=#FF0000>" & Cstr(Rs.RecordCount) & "</font>" & " 條信息</b>          "
Response.write "<b>第 " & "<font color=#FF0000>" & Cstr(CurrentPage) & "</font>" & "/" & Cstr(rs.pagecount) & "</b>    "
If currentpage > 1 Then
response.write "<b><a href='?&page="+cstr(1)+"'>首頁</a></b>  "
Response.write "<b><a href="/?page="+Cstr(currentpage-1)+"'>上一頁</a></b>  "
Else
Response.write "<b>上一頁</b>  "
End if
If currentpage < Rs.PageCount Then
Response.write "<b><a href="/?page="+Cstr(currentPage+1)+"'>下一頁</a>  "
Response.write "<a href="/?page="+Cstr(Rs.PageCount)+"'>尾頁</a></b>  "
Else
Response.write ""
Response.write "<b>下一頁</b>  "
End if
%>

簡單的ASP程序密碼鎖，即瀏覽需身份驗證的頁面：

使用ASP程序來給網頁進行加密，一般來說利用程序來進行密碼驗證的方法比較通用，現在大多數網站都使用ASP程序，它對Web服務器沒有具體要求，而其加密就是借助數據庫及ASP程序進行設計，來實現一種通用網頁加密。

1. 打開 Microsoft Access，建立一個"用戶名及密碼"的數據表，假設將這個表取名為User，數據庫名為db.mdb

數據表的結構如下：

字段說明字段名稱數據類型數據長度

用戶名稱　　 ID　　　文本　　 15

用戶密碼　　 PWD　　文本　　 15

2. 編輯一個 Pass.asp 的驗證文件，源代碼如下：

　　<%
　　Function Check( ID, Pwd )
　　Dim conn, par, rs
　　Set conn = Server.createObject("ADODB.Connection")
　　par = "driver={ Microsoft Access Driver (*.mdb) } "
　　conn.Open par && ";dbq=" && Server.MapPath("db.mdb ")
　　sql = "select ? From users 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
　　%>
　　<html>
　　<head>
<title></title>
</head>
　　<body BGCOLOR="#FFFFFF">
　　<h2 ALIGN="CENTER"><%=Head%></h2>
　　<hr WIDTH="100%">
　　<form Action="<%=Request.ServerVariables("PATH_INFO")%>" Method="POST">
　　<table BORDER="1" CELLSPACING="0">
　　<tr>
　　<td ALIGN="RIGHT">用戶名稱:</td>
　　<td><input Type="Text" Name="ID" Size="12" Value="<%=ID%>"></td>
　　</tr>
　　<tr> <td ALIGN="RIGHT">密碼：</td>
　　<td><input Type="Password" Name="Pwd" Size="12" Value="<%=Pwd%>"></td></tr>
　　</table>
　　<p><input Type="Submit" Value="確定"></p></form>
　　<hr WIDTH="100%" align="center">
　　</body>
</html>
　　<%Response.End
　　End If %>

3. 在需要加密網頁的HTML代碼最前面加上 <! --＃i nclude file="pass.asp"--> 就可以了。由于這個驗證合法性的頁面具有通用性，所以非常方便使用。

禁止復制和右鍵菜單的腳本及代碼：

1、<body oncontextmenu='return false' ondragstart='return false' onselectstart ='return false' onselect='document.selection.empty()' oncopy='document.selection.empty()' onbeforecopy='return false' onmouseup='document.selection.empty()'>