当前位置:首页文章首页 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