ASP程序和JS腳本代碼分享
這篇文章主要提供了幾組實(shí)用的ASP程序和JS腳本代碼給大家分享，希望能夠幫助到大家。
ASP與Access數(shù)據(jù)庫連接：
<%@ language=VBscript%>
<%
dim conn,mdbfile
mdbfile=server.mappath("數(shù)據(jù)庫名稱.mdb")
set conn=server.createobject("adodb.connection")
conn.open "driver={ microsoft access driver (*.mdb) };uid=admin;pwd=數(shù)據(jù)庫密碼;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
%>
簡(jiǎn)單的ASP程序密碼鎖，即瀏覽需身份驗(yàn)證的頁面：
使用ASP程序來給網(wǎng)頁進(jìn)行加密，一般來說利用程序來進(jìn)行密碼驗(yàn)證的方法比較通用，現(xiàn)在大多數(shù)網(wǎng)站都使用ASP程序，它對(duì)Web服務(wù)器沒有具體要求，而其加密就是借助數(shù)據(jù)庫及ASP程序進(jìn)行設(shè)計(jì)，來實(shí)現(xiàn)一種通用網(wǎng)頁加密。
1. 打開 Microsoft Access，建立一個(gè)"用戶名及密碼"的數(shù)據(jù)表，假設(shè)將這個(gè)表取名為User，數(shù)據(jù)庫名為db.mdb
數(shù)據(jù)表的結(jié)構(gòu)如下：
字段說明 字段名稱 數(shù)據(jù)類型 數(shù)據(jù)長(zhǎng)度
用戶名稱 ID 文本 15
用戶密碼 PWD 文本 15
2. 編輯一個(gè) Pass.asp 的驗(yàn)證文件，源代碼如下：
<%
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 = "請(qǐng)輸入用戶名和密碼"
ID = Request("ID")
Pwd = Request("Pwd")
If ID = "" Or Pwd = "" Then
Head = "請(qǐng)輸入用戶名和密碼"
Else If Not Check( ID, Pwd ) Then
Head = "用戶名稱或密碼有錯(cuò)"
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. 在需要加密網(wǎng)頁的HTML代碼最前面加上 <! --＃i nclude file="pass.asp"--> 就可以了。由于這個(gè)驗(yàn)證合法性的頁面具有通用性，所以非常方便使用。
禁止復(fù)制和右鍵菜單的腳本及代碼：
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()'>
