仓酷云

标题: ASP网站制作之用ASP完成上岸页面把持的源代码 [打印本页]

作者: 山那边是海    时间: 2015-1-16 22:11
标题: ASP网站制作之用ASP完成上岸页面把持的源代码
ASP最大的缺点在于网络的安全性和可靠性,企业将经营数据放在开放的平台上,最大的担忧就是如何保证这些数据不被其他人破坏。把持|页面|源代码  我们在制造网站时一般想设置用户上岸体系,也就是说当用户上岸以后能够看到响应的内容,这类办法被常常利用了,详细的完成的流程图:



  详细ASP源代码以下:(包含3个文件)

  login.asp
<%@Language="vbscript"%>
<%OptionExplicit%>
<%Response.Buffer=True%>
<!--#includefile="dbConn.asp"-->
<%
================================================
Wastheformsubmitted?
Ifso,letschecktheUsernameandPassword
================================================
IfRequest.Form("Submitted")="login"Then
Declareourvariables
DimobjConn,objRS,strSQL

CreateConnectionObject
SetobjConn=Server.CreateObject("ADODB.Connection")
objConn.OpenstrConnect

BuildSQLString
strSQL="SELECT*FROMMemberInfoWHEREUsername="&Request.Form("Username")&""

CreateRecordsetObject
SetobjRS=Server.CreateObject("ADODB.Recordset")
objRS.OpenstrSQL,objConn

IfobjRS.EOFThen
================================================
DoestheUsernameexist?
Ifnot,setstrFailedanddestroyallobjects.
Wellthendisplaytheloginformagain.
================================================
strFailed="InvalidUsername"
objRS.Close
SetobjRS=Nothing
objConn.Close
SetobjConn=Nothing
Else
================================================
Usernameexists-isthepasswordcorrect?
Ifnot,setstrFailedanddestroyallobjects.
Wellthendisplaytheloginformagain.
================================================
IfobjRS.Fields("Password")Request.Form("Password")Then
strFailed="InvalidPassword"
objRs.Close
SetobjRS=Nothing
objConn.Close
SetobjConn=Nothing
Else
================================================
Usernameandpasswordarevalid.
Setsessionvariable.
Destroyallobjects.
Redirecttosecretpage
================================================
Session("ValidUser")="true"
objRS.Close
SetobjRS=Nothing
objConn.Close
SetobjConn=Nothing
Response.Redirect"secret-page.asp"
EndIf
EndIf
EndIf
%>
<!DOCTYPEHTMLPUBLIC"-//W3C//DTDHTML4.01//EN"
"http://www.w3.org/TR/html4/strict.dtd">
<htmllang="en">
<head>
<title>会员上岸体系</title>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
</head>
<body>
<h1>LoginArea</h1><%
IfstrFailed""Then
Response.Write"<p>"&strFailed&"</p>"&vbCrLf
EndIf
%><formmethod="post"action="login.asp">
<p>
<labelfor="username">用户名:</label>>
<inputtype="text"id="usernamename="username">
</p>
<p>
<labelfor="password">暗码:</label>
<inputtype="password"id="password"name="password">
</p>
<p>
<inputtype="submit"name="Submitted"value="login">
</p>
</form>
</body>
</html>
  dbConn.asp
<%
Declareourvariables
DimstrDBVirtualPath,strDBLocation,strConnect
strDBVirtualPath="memberDB/LoginInfo.mdb"
strDBLocation=Server.MapPath(strDBVirtualPath)
strConnect="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&strDBLocation
Response.WriteChr(13)
%>
  secret-page.asp
<%@Language="vbscript"%>
<%OptionExplicit%>
<%Response.Buffer=True%>
<%
=====================================
IstheSessionvariable"ValidUser"
setto"true"?-Ifnot,redirectto
login.asp
=====================================
IfSession("ValidUser")"true"Then
Response.Redirect"login.asp"
EndIf
%>
<!DOCTYPEHTMLPUBLIC"-//W3C//DTDHTML4.01//EN"
"http://www.w3.org/TR/html4/strict.dtd">
<htmllang="en">
<head>
<title>SecretArea</title>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
</head>
<body>
<h1>SecretArea</h1>
<p>
Welcometothissecretarea.
</p>
</body>
</html>
减少客户内IT专业人才缺乏带来的影响。ASP的客户员工利用浏览器进入相关的应用软件,简单易用,无需专业技术支持。
作者: 冷月葬花魂    时间: 2015-1-18 21:47
先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习
作者: 若相依    时间: 2015-1-26 14:53
我们必须明确一个大方向,不要只是停留在因为学而去学,我们应有方向应有目标.
作者: 飘飘悠悠    时间: 2015-2-4 19:30
多看多学多思。多看一些关于ASP的书籍,一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人,向同学老师多多学习,不论知识的大小;多思则是要将学到的知识灵活运用。
作者: 分手快乐    时间: 2015-2-10 06:09
掌握asp的特性而且一定要知道为什么。
作者: 小妖女    时间: 2015-3-10 10:48
没有坚实的理论做基础,那么我们连踏入社会第一步的资本都没有,特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP,从平时的学习过程中。
作者: 透明    时间: 2015-3-17 06:45
那么,ASP.Net有哪些改进呢?
作者: 变相怪杰    时间: 2015-3-24 00:52
学习ASP其实应该上升到如何学习程序设计这种境界,其实学习程序设计又是接受一种编程思想。比如ASP如何学习,你也许在以前的学习中碰到过。以下我仔细给你说几点:




欢迎光临 仓酷云 (http://ckuyun.com/) Powered by Discuz! X3.2