繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 用ASP技术编制隐藏用户密码程序
- ASP
- 简单ASP论坛DIY
- 如何防止页面中的敏感信息被提取
- asp创建对象及中文显示解决技巧
- 基础开发入门级：JSP与ASP的比较
- 数据库受到限制怎么办？
- ASP初学者常犯的几个错误
- Asp定时执行操作、Asp定时读取数据库(网页定时操作详解)
- ASP优化：非常实用的ASP提速技巧五则
- ASP教程：解决ASP脚本运行超时的方法
- ASP安全：简单学习ASP连接数据库方法
- 简单一招用ASP实现对IE地址栏参数的判断
- asp控制xml数据库的6段非常的经典代码
- ASP进阶：验证身份证号是否正确的代码
- ASP教程：使用ASP生成图片彩色校验码
- ASP进阶：用ASP判断文件地址是否有效
- ASP进阶：用asp做的简单搜索引擎代码
- ASP实例 挂QQ的网页源代码ASP/PHP
- ASP答疑 解决ASP脚本运行超时的方法
- 轻轻松松破解开别人ASP木马密码的方法
- 用ASP操作Access数据库 ADOX的使用
用ASP技术编制隐藏用户密码程序
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 51 ::
收藏到网摘: n/a
ASP是Microsoft公司处理动态网络数据库的最新技术之一，它可由Windows NT 平台上的Web Server IIS4.0(Microsoft Internet Information Server4.0)解释并发布信息，用活动数据对象ADO（ActiveX Data Object）组件并通过ODBC（Open Database Connectivity）访问多种数据库（后台）。本文中用到的数据库为ORACLE8，下边这段ASP程序(名字为DEFAULT.ASP)所实现的功能是对数据库的查询操作，仅取其隐藏用户名和密码的一部分进行说明。
<% WEB_USER =Request("WEB_USER") 'WEB用户名 %>
<% WEB_USER_PASSWD =Request("WEB_USER_PASSWD") 'WEB用户的密码 %>
<% '将WEB用户名和密码加密，方法是，将变量值从左至右每个字符的ASCII码加32，生成新的字符串，当执行到此时，地址行上显示出的，是“加密”以后的用户名和密码，而不是真正的用户名和密码，达到保密目的% >
<% TEMP1="" % >
<% For i=1 To Len(WEB_USER) %>
<% TEMP2=Mid(WEB_USER,i,1) %>
<% TEMP2=Chr(Asc(TEMP2)+32) %>
<% TEMP1=TEMP1&TEMP2 %>
<% Next %>
<% WEB_USER=TEMP1 %>
<% TEMP1="" %>
<% For i=1 To Len(WEB_USER_PASSWD) %>
<% TEMP2=Mid(WEB_USER_PASSWD,i,1) %>
<% TEMP2=Chr(Asc(TEMP2)+32) %>
<% TEMP1=TEMP1&TEMP2 %>
<% Next %>
<% WEB_USER_PASSWD=TEMP1 %>
<%'建立和数据库的连接,定义ODBC名字（odbcname）、ORACLE用户名（orauser）及口令（orauser_passwd）%>
<%Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "odbcname","orauser","orauser_passwd"
%>
<% '建立查询语句-SQL语句%>
<%
var_sql="SELECT * FROM verifytab,dw_tab where verifytab.user_pd='"&WEB_USER_PASSWD&"'"
Set RS = Conn.Execute(var_sql) ’符合条件的记录生成于RS之中%>
<%'将用户名和口令翻译成正确的 ，但此时地址栏里显示不出来，达到了保密要求%>
<% TEMP1="" %>
<% For i=1 To Len(WEB_USER) %>
<% TEMP2=Mid(WEB_USER,i,1) %>
<% TEMP2=Chr(Asc(TEMP2)-32) %>
<% TEMP1=TEMP1&TEMP2 %>
<% Next %>
<% WEB_USER=TEMP1 %>
<% TEMP1="" %>
<% For i=1 To Len(WEB_USER_PASSWD) %>
<% TEMP2=Mid(WEB_USER_PASSWD,i,1) %>
<% TEMP2=Chr(Asc(TEMP2)-32) %>
<% TEMP1=TEMP1&TEMP2 %>
<% Next %>
<% WEB_USER_PASSWD=TEMP1 %>
<% '验证输入的WEB用户名和口令是否正确，若是，往下进行，否则，返回到default.htm调用，它是IIS默认的调用文件%>〈〉
<%If WEB_USER="superuser" and WEB_USER_PASSWD="superuserpd" Then
else
If RS.EOF Then
Response.Redirect("default.htm")
End If
End If
%>
<%'下边是用FRONTPAGE 98 设计的FORM界面，内容省略%>
<html>
<head>
……
大家不妨试一下，浏览器端无任何不安全信息，保密效果很好。
评论 (0) All
