仓酷云

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

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

　　详细ＡＳＰ源代码以下：（包含３个文件）

login.asp
<%@Language="vbscript"%>
<%OptionExplicit%>
<%Response.Buffer=True%>

<%
================================================
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/)