请教一个判断的ASP例子_CMS教程

如果在aspnet的话，这个将是很简单的事情。

但是asp的话，需要自己编写比较多的代码。

晕………………………………………………

反正是用正则表达式了，首三个数字匹配到139就是移动咯。

慢慢整哈，网上应该找的到资料的……偶米西去了。

Asp的6个内置对象

1 Request：

Request对象用于接收客户信息，它能把客户信息保存在几个集合中，供ASP应用使用，常用的是Form集合。

它常被用来读取来自浏览器的请求信息，可用该对象读取HTML表单的信息。当表单用POST方法时，数据被保存在Form集合中。

Form集合的访问方法为：Requestform("membername")

2 Response：

Response对象用于向客户端浏览器发送数据，用户可以使用该对象将服务器的数据以HTML的格式发送到用户端的浏览器，它与Request组成了一对接收、发送数据的对象，这也是实现动态的基础。

Write方法：向客户输出HTML，可以是任何合法的HTML脚本。

如：ResponseWrite "南京市第九中学"

Redirect方法：使浏览器重新定向到另外一个URL上。

如：ResponseRedirect "indexasp"

End方法：当Active Server遇到该方法时，立即停止处理ASP文件，如果有缓冲，立即发送内容到客户。

如：Responseend

3 Server：

Server 对象提供对服务器上的方法和属性的访问，其中大多数方法和属性是作为实用程序的功能服务的。

CreateObject方法：创建一个对象实例，这恐怕是最重要的一个方法了。

如：set conn=servercreateobject("adodbconnection")→创建一个名为 conn 的 adodbconnection 服务器组件

set rs=servercreateobject("adodbrecordset")→创建一个名为 rs 的 adodbrecordset 服务器组件

MapPath方法：把虚拟路径转化成物理路径

4 Application：

用来存储，读取用户共享的应用程序信息，如：可以用该对象在网站的不同连接者之间传递共用信息

5 Session：

用来存储，读取特定连接者的对话信息，如：可以存储连接者对网站的访问信息

6 ObjectContext：

用于控制ASP的交易(Transaction)，交易由Microsoft Transaction Server(MTS)管理

这个功能，简单，用cookie就可以达到你要的要求！

如果不知道具体的，可咨询我！看下面的代码：

<html>

<head>

<meta >

如果你没有填值,那就是从数据库中读取所有的值这时你下面肯定是显示所有的值了

你填了一个值了,这时,它会从记录中查找跟这个值相类似的记录,

if rseof then 这句就定义了,如果记录中没有你想找的东西,则显示"记录添加中"

如果找到值了,那就显示值这里我没看到你显示值的代码,看是不是你删了

数据库这一块应该不需要解释太多。

我这里新建一个测试数据库Testmdb 里面有一个文章信息表Article，

具体表结构如下：

ID 自动编号

Title 文章标题

Author 文章作者

Content 文章内容

AddTime 添加实践

ComeFrom 转载来源

ComeURL 转载网址

ReadTimes 阅读次数

现在开始设计搜索表单：Searchasp

这个不需要解释吧:)

关键词：<input type="text" id="KeyWord" name="KeyWord">

搜索类型：<input type="radio" id="SearchType" name="SearchType" value="0">模糊搜索 <input type="radio" id="SearchType" name="SearchType" value="1">精确搜索

</form>

接下来就是后台处理页面Resultasp

Dim KWord,SType

KWord=Trim(Requestform("KeyWord"))'接受关键词

SType=Trim(Requestform("SearchType"))'接受搜索类型

'下面连接数据库：

Dim Conn,connstr

Set Conn=ServerCreateObject("Connection")

'Testmdb就是数据库

connstr="provider=MicrosoftJetOLEDB40; Data Source="&ServerMappath("Testmdb")&""

Connopen connstr

'建立数据查询纪录集：

Dim Rs,SQL

Set Rs=ServerCreateObject("adodbrecordset")

if SType=0 then '如果是模糊查询

'在标题和文章内容中查询和关键词匹配的纪录

SQL="select from [Article] where Title like '%"&KWord&"%' or Content like '"&KWord&"' "

else

'精确查询只需要查询标题就可了

SQL="select from [Article] where Title = '%"&KWord&"%'"

end if

Rsopen SQL,conn,1,1

if Rseof or Rsbof then '没有纪录

Responsewrite"没有查询到与"&KWord&"匹配的文章，请更换关键词或查询类型"

else

'下面显示查询结果：

Do while Not(Rseof or Rsbof)

Responsewrite"·<a href='ReadaspID="&RS("id")&"' target='_blank'>"&Replace(Rs("Title"),KWord,"<font color=red>"&KWord&"</font>")&"</a>"

Rsmovenext

Loop

end if

Set Rs=nothing

Connclose

Set conn=nothing

给你一个实例,慢慢研究吧:用户登录验证脚本,Chkpwdasp

以下为引用的内容：

'=======用户登录验证脚本=======

'如果尚未定义Passed对象,则将其定义为false,表示没有通过验证

If IsEmpty(Session("Passed")) Then

Session("Passed")=false

End If

'Session("Passed")=False,表示尚未通过验证,则开始读取从表单传来的验证信息

If Session("Passed")=False Then

UserName=RequestForm("UserName")

UserPwd=RequestForm("UserPwd")

If UserName="" Then

Errmsg="提示:请输入用户名和密码"

Else

'===================连接数据库=====================

Set Conn= ServerCreateObject("ADODBConnection")

ConnConnectionstring= "Driver={SQL Server};Server=19216813;UID=sa;PWD=;Database=zcmrs"

Connopen

'===================从表log中读取用户数据=====================

'定义RecordSet对象

Set rs=ServerCreateObject("ADODBRecordset")

'设置Connection对象的ConnectionString

Set rsActiveConnection=Conn

'设置游标类型

rsCursorType=3

'打开记录集

rsOpen "Select username,password from erpuser Where username='"&UserName&"'"

'===================身份验证======================

If rsEOF Then

Errmsg="提示:用户不存在或密码错误"

Else

If UserPwd<>rsFields("password") Then

Errmsg="提示:登录失败!密码错误？"

Else '登录成功

Errmsg=""

Session("Passed")=True

Session("UserName")=rsFields("username")

'标识用户权限 Session("UserID")=rsFields("UserID")

End If

'经过登录不成功,则画出登录表单

If Not Session("Passed")=True Then

<html>

<head><title>无标题文档</title>

<!--

STYLE1 {font-size: 12px;font-weight:bold;margin-left:120px;outline:double}

-->

</style>

<!--

STYLE2 {font-size: 12px;font-weight:bold;outline:double;color:#FF3333}

-->

</style>

</head>

<div id=denglu style="font-size:12px;font-weight:bold;background-color:#0099FF;text-align:center;height:40px;"><br>ERP系统登录</div>

<form action="<%=requestServerVariables("path_info")%>" method="post" name="MyForm" id="MyForm">

</p>

</p>

<p>　

</p>

</form>

</div>

</body>

</html>

'<p class="STYLE1">验证码:<input name="CheckCode" type="text" id="CheckCode" size="6" maxlength="4">

'<IMG style="MARGIN-RIGHT: 40px" alt="" src="common/getcodeasp"></p>

responseEnd

End If

要访问的页面erpasp

<以下为引用的内容：

<body>

<div style='font-size:12px;font-weight:bold;border:1px solid #001;padding:4px;background:#FFCCFF;margin-top:0;'>欢迎使用ERP查询系统,当前登录用户为:

If Session("Passed")=True Then

ResponseWrite(Session("UserName"))

End If

%><a href="logoutasp">退出系统</a>

</div>

</body>

以上每次打开erpasp的时候,都首先执行Chkpwdasp(),这样可以有效防止未授权用户访问指定网页

logoutasp系统退出

<body>

Session("Passed")=false

Session("UserName")=""

ResponseRedirect("indexasp")

</body>

使用提交表单

以下为引用的内容：

</form>

以上就是关于请教一个判断的ASP例子全部的内容，包括:请教一个判断的ASP例子、asp的6个内置对象，想要详细说明和经典例子！、ASP 中下拉列表框的默认值是上次所选的值,最好有程序例子等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！

欢迎分享，转载请注明来源：内存溢出

原文地址: http://outofmemory.cn/zz/10076558.html

请教一个判断的ASP例子

发表评论

评论列表（0条）