日韩精品中文字幕一区二区-日韩精品中文字幕一区-日韩精品中文字幕视频-日韩精品在线一区二区三区-第一页在线-第一福利视频

當前位置:首頁文章首頁 IT學院 IT技術

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>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
Response.write "<b>第&nbsp;" & "<font color=#FF0000>" & Cstr(CurrentPage) & "</font>" & "/" & Cstr(rs.pagecount) & "</b>&nbsp;&nbsp;&nbsp;&nbsp;"
If currentpage > 1 Then
response.write "<b><a href='?&page="+cstr(1)+"'>首頁</a></b>&nbsp;&nbsp;"
Response.write "<b><a href="/?page="+Cstr(currentpage-1)+"'>上一頁</a></b>&nbsp;&nbsp;"
Else
Response.write "<b>上一頁</b>&nbsp;&nbsp;"
End if
If currentpage < Rs.PageCount Then
Response.write "<b><a href="/?page="+Cstr(currentPage+1)+"'>下一頁</a>&nbsp;&nbsp;"
Response.write "<a href="/?page="+Cstr(Rs.PageCount)+"'>尾頁</a></b>&nbsp;&nbsp;"
Else
Response.write ""
Response.write "<b>下一頁</b>&nbsp;&nbsp;"
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()'>

相關軟件

相關文章

文章評論

軟件按字母排列: A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
主站蜘蛛池模板: 羞羞的影评| 情况不妙| 应昊茗| 生椰拿铁热量| 白鲸 电影| 李子京| 红日歌词完整版| 青山知可子冲绳草莽英雄1969| 手机图片jpg格式转换器免费| 女人香韩国电影| 海洋天堂电影免费观看高清| department什么意思| 张国强个人简历| 久草在现| cctv16体育台节目表| 土壤动植物的乐园教学反思| 男女视频在线播放| 电视剧热播剧大全| 《保姆妈妈》电视剧| 美女mm| 贾冰又出新的喜剧电影| 山本裕典| 林正英复仇电影| 女生被艹网站| 田中敦子| 川岛丽| 唐瑜苏沐月是哪部短剧| 小猪佩奇最新第十季| ctv5| 赌侠 1990 刘德华| 古装发型| 石田介雄| alexagracehd在线| 九九九九九九九九九九热| 卧虎藏龙演员名单| 王宝强 唐人街探案| 一拜天地双男主| 乔什·哈切森| 李洋个人资料照片| 边摸边操| 富二代|