仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 428|回复: 9
打印 上一主题 下一主题

[学习教程] ASP网页设计ASP随机发生用户暗码的实例

[复制链接]
金色的骷髅 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 23:47:35 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
帮助用户快速实现各种应用服务,ASP商有整合各方面资源的能力,可在短期内为用户提供所需的解决方案。例如,典型的ERP安装,如果要在客户端安装的话需要半年到二年的时间,但是美国的一些ASP商如USI和CORIO能在90—120天内提供ERP应用方案。随机|随机申明:经由过程随机发生暗码,然后将暗码EMail给注册用户,你能够确认用户的EMail填写是不是准确。主动发生的暗码常常平安性更高,同时,你能够过滤那些有效的用户。

  把上面的代码保留为random.asp文件:

<%
SubStrRandomize(strSeed)
  Dimi,nSeed
  nSeed=CLng(0)
  Fori=1ToLen(strSeed)
    nSeed=nSeedXor((256*((i-1)Mod4)*AscB(Mid(strSeed,i,1))))
  Next

  RandomizenSeed
EndSub

FunctionGeneratePassword(nLength)
  Dimi,bMadeConsonant,c,nRnd

  ConststrDoubleConsonants="bdfglmnpst"
  ConststrConsonants="bcdfghklmnpqrstv"
  ConststrVocal="aeiou"

  GeneratePassword=""
  bMadeConsonant=False

  Fori=0TonLength
    nRnd=Rnd
    IfGeneratePassword""AND(bMadeConsonantTrue)AND(nRnd<0.15)Then
      c=Mid(strDoubleConsonants,Int(Len(strDoubleConsonants)*Rnd+1),1)
      c=c&c
  i=i+1
      bMadeConsonant=True
    Else
      If(bMadeConsonantTrue)And(nRnd<0.95)Then
        c=Mid(strConsonants,Int(Len(strConsonants)*Rnd+1),1)
        bMadeConsonant=True
      Else
        c=Mid(strVocal,Int(Len(strVocal)*Rnd+1),1)
        bMadeConsonant=False
      EndIf
    EndIf
    GeneratePassword=GeneratePassword&c
  Next

  IfLen(GeneratePassword)>nLengthThen
    GeneratePassword=Left(GeneratePassword,nLength)
  EndIf
EndFunction
%>

  然后在你的方针程序中如许挪用下面的代码,就能够完成暗码的主动天生:(仅仅是一个例子,你能够把他们粘贴到一个Test.asp的文件中,然后运转Test.asp)

<!--includefile="random.asp"-->

<%
发生一个六位的暗码

StrRandomizeCStr(Now)&CStr(Rnd)
response.writeGeneratePassword(6)

%>
<br><br>

<%

发生一个8位的暗码
StrRandomizeCStr(Now)&CStr(Rnd)
response.writeGeneratePassword(8)

%>
<br><br>
<%
发生一个10位的暗码
StrRandomizeCStr(Now)&CStr(Rnd)
response.writeGeneratePassword(10)
%>
<br><br>

<%

发生1000个暗码

dimt,t2
  fort=1to500
  Fort2=1to661
  StrRandomizeCStr(Now)&CStr(Rnd)
  next
  StrRandomizeCStr(Now)&CStr(Rnd)
  response.writeGeneratePassword(6)
  response.write"<br>"
next

%></p>asp,jsp,php是web开发的三大技术,asp简单易用且有microsoft做靠山,jsp功能强大是因为有java支持,php则开源跨平台.在国内,asp应用范围最广,jsp发展势头最猛,php则处于劣势.这可能与公司的支持以及技术的培训有关.
灵魂腐蚀 该用户已被删除
沙发
发表于 2015-1-20 11:49:25 | 只看该作者
完全不知道到底自己学的是什么。最后,除了教程里面说的几个例子,还是什么都不会。
板凳
发表于 2015-1-26 17:18:09 | 只看该作者
Server:这个表示的服务器,操作服务器的一些东西使用这个,如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件
谁可相欹 该用户已被删除
地板
发表于 2015-2-4 17:28:56 | 只看该作者
ASP.Net和ASP的最大区别在于编程思维的转换,而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程,而那些脚本语言属于弱类型、面向结构的编程语言,而非面向对象,这就明显产生以下几个问题:
admin 该用户已被删除
5#
发表于 2015-2-10 04:34:47 | 只看该作者
在平时的学习过程中要注意现学现用,注重运用,在掌握了一定的基础知识后,我们可以尝试做一些网页,也许在开始的时候我们可能会遇到很多问题,比如说如何很好的构建基本框架。
蒙在股里 该用户已被删除
6#
发表于 2015-2-28 19:47:04 | 只看该作者
ASP.Net和ASP的最大区别在于编程思维的转换,而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程,而那些脚本语言属于弱类型、面向结构的编程语言,而非面向对象,这就明显产生以下几个问题:
海妖 该用户已被删除
7#
发表于 2015-3-10 07:33:24 | 只看该作者
ASP(ActiveServerPages)是Microsfot公司1996年11月推出的WEB应用程序开发技术,它既不是一种程序语言,也不是一种开发工具,而是一种技术框架,不须使用微软的产品就能编写它的代码,能产生和执行动态、交互式、高效率的站占服务器的应用程序。
再见西城 该用户已被删除
8#
发表于 2015-3-17 05:10:10 | 只看该作者
Application:这个存储服务端的数据,如果不清除,会直到web应用程序结束才清除(例如重启站点)
再现理想 该用户已被删除
9#
发表于 2015-3-17 05:10:12 | 只看该作者
兴趣爱好,那么你无须学编程,申请一个域名和空间,在网上下载一些免费开源的CMS系统,你不用改代码,只须熟悉它们的后台操作,像office一样简单方便,很快就能建一个站点,很多站长都是这样做的
兰色精灵 该用户已被删除
10#
发表于 2015-3-23 21:15:25 | 只看该作者
尽管MS自己讲C#内核中更多的象VC,但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言,而不是一种脚本,所以它具有面向对象编程语言的一切特性,比如封装性、继承性、多态性等等,这就解决了刚才谈到的ASP的那些弱点。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-12-24 03:35

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表