ASP外观专利图像检索平台的设计与实现
外观专利图像检索平台作为一个新兴的产业近年来取得了迅速的发展，旅行社如雨后春笋遍布全国各省市、目前外观专利图像检索平台行业普遍存在着企业规模小，管理不规范等弱点。外观专利图像检索平台可以把各种外观专利图像检索平台分类存储管理通过网络实现共享，不仅方便快捷，而且不会因为人员流动影响企业的经营，是旅行社在激烈的市场竞争中的坚强后盾。
因此，本文就详细的设计了一个外观专利图像检索平台，把外观专利图像检索平台中的一些相关的详细信息囊括其中，尽量使整个管理系统层次鲜明，概括清楚。在阅读完本文后你将能够清楚的了解到一个外观专利图像检索平台管理系统的具体设计和实现过程。
Active Server Pages简介
Microsoft Active Server Pages (ASP) 是服务器端的脚本编写环境，通过这种环境用户可用它来创建动态 Web 页或生成功能强大的 Web 应用程序。ASP 页是包括 HTML 标记、文本和脚本命令的文件。ASP 页可调用 ActiveX 组件来执行任务，例如连接到数据库或进行商务计算。通过 ASP，可为用户的 Web 页添加交互内容或用 HTML 页构成整个 Web 应用程序，这些应用程序使用 HTML 页作为用户的客户的界面。
- 对于HTML 编写人员： 如果用户是位 HTML 编写人员，用户将发现 ASP 脚本提供了创建交互页的简便方法。如果用户曾想从 HTML 表格中收集数据，或用顾客的姓名个人化 HTML 文件，或根据浏览器的不同使用不同的特性，用户会发现 ASP 提供了一个出色的解决方案。以前，要想从 HTML 表格中收集数据，就不得不学习一门编程语言来创建一个 CGI 应用程序。现在，用户只要将一些简单的指令嵌入到用户的 HTML 文件中，就可以从表格中收集数据并进行分析。用户再不必学习完整的编程语言或者单独编译程序来创建交互页。随着不断掌握使用 ASP 和脚本语言的技巧，用户可以创建更复杂的脚本。对于 ASP，用户可以便捷地使用 ActiveX 组件来执行复杂的任务，比如连接数据库以存储和检索信息。
- 对于有经验的脚本编写人员： 如果用户已经掌握一门脚本语言，如 VBScript、JavaScript 或 PERL，而且用户已经了解使用 ASP 的方法。只要安装了符合 ActiveX 脚本标准的相应脚本引擎，就可以在 ASP 页中使用任何一种脚本语言。ASP 带有 Microsoft Visual Basic Scripting Edition （VBScript）和 Microsoft JScript 的脚本引擎，这样用户可以立即开始编辑脚本。PERL、REXX 和 Python 的 ActiveX 脚本引擎可以从第三方开发人员处获得。
- 对于Web 开发人员： 如果用户已经掌握了一门编程语言，如 Visual Basic，用户将发现 ASP 是快速创建 Web 应用程序的一个非常灵活的方法。通过向 HTML 中添加脚本命令，用户能够创建应用程序的 HTML 接口。通过创建自己的 ActiveX 组件，可以将应用程序中的商业逻辑封装到能够从脚本、其他组件或从其他程序中调用的模块。使用 ASP 进行计算的 Web 可转化为有形的利益，它使 Web 供应商能够提供交互的商业应用而不仅仅是发布内容。例如，旅行社能够比公布航空时刻表做得更多；用 ASP 脚本可以让客户察看现有的航班、比较费用并预定座位。包含在 Windows NT Option pack 中的 Microsoft Transaction Server（MTS）可以降低在服务器上构造程序的复杂性和费用。MTS 可以解决开发那些保密性强的、可分级的以及可靠的 Web 应用程序的复杂性问题。
- Active Server Pages 模型： 浏览器从 Web 服务器上请求 .asp 文件时，ASP 脚本开始运行。然后 Web 服务器调用 ASP，ASP 全面读取请求的文件，执行所有脚本命令，并将 Web 页传送给浏览器。由于脚本在服务器上而不是在客户端运行，传送到浏览器上的 Web 页是在 Web 服务器上生成的。所以不必担心浏览器能否处理脚本：Web 服务器已经完成了所有脚本的处理，并将标准的 HTML 传输到浏览器。由于只有脚本的结果返回到浏览器，所以服务器端脚本不易复制。用户看不到创建他们正在浏览的页的脚本命令。
1.2 ASP 的新功能
Active Server Pages 在功能方面有所增强，更易于开发应用程序。
- Microsoft 脚本调试程序。 用户可以使用脚本调试程序调试 .asp 文件。
- 事务性脚本。 ASP 页和页中使用的对象可以运行于事务环境之下。在页上的全部工作只有两种结果：提交或终止。事务可以保护应用程序免于因失败而导致数据丢失。
- 管理工具。 许多应用程序设置可在 Internet 服务管理器上进行，这是 Internet Information Server 和 Personal Web Server（在 Windows NT Workstation 上）的管理工具。
- 文件上载。 浏览器可以通过 Posting Acceptor 应用程序将文件上载到 Web 服务器。可以编写 ASP 脚本来发送带有从 Posting Acceptor 传来的信息的 email，如每一个上载文件的位置和名称。
- 新的 ASP 组件。 ASP 提供了新的基础组件。
- 应用程序根目录的改变。 ASP 应用程序的根目录在用户的 Web 站点上可以是物理目录。以前，根目录必须映射为虚拟目录。现在可以用 Internet 服务管理器指示 ASP 应用程序的根目录。必须将 .asp 文件置于应用程序树中，Web 服务器才能检测文件的改变并且自动重装它们。
- 支持 HTTP 1.1 协议。 Internet Information Server 和 Personal Web Server 支持 HTTP 1.1 协议。在响应支持 HTTP 1.1 的浏览器（例如 Internet Explorer 4.0）时，这一支持可使 ASP 利用新协议的高效率。例如，当向浏览器返回页的时候，ASP 使用大块转换编码以提高网络效率。
1.3 ASP页面的结构
ASP的程序代码简单、通用，文件名由.asp结尾，ASP文件通常由四部分构成：
- 标准的HTML标记：所有的HTML标记均可使用。
- ASP语法命令：位于＜％ ％＞标签内的ASP代码。
- 服务器端的include语句：可用#include语句调入其他ASP代码，增强了编成的灵活性。
- 脚本语言：ASP自带JaverScript和VBScript两种脚本语言，增加了ASP的编程功能，用户也可安装其他脚本语言，如 Perl、Rexx等。
1.4 ASP的运行环境
目前ASP可运行在四种环境下：
WINDOWS NT server，运行IIS(Internet Information Service) 4.0以上。
WINDOWS NT workstation运行 PWS（Personal Web Server） 4.0以上。
WINDOWS 95/98/Me 运行PWS 4.0以上。
WINDOWS 2000/XP 运行IIS 5.0/5.1（支持最新的ASP 3.0）
1.5 ASP 内建对象
Active Server Pages 提供内建对象，这些对象使用户更容易收集通过浏览器请求发送的信息、响应浏览器以及存储用户信息（如用户首选项）。
Application 对象： 可以使用 Application 对象使给定应用程序的所有用户共享信息。
Request 对象： 可以使用 Request 对象访问任何用 HTTP 请求传递的信息，包括从 HTML 表格用 POST 方法或 GET 方法传递的参数、cookie 和用户认证。Request 对象使您能够访问发送给服务器的二进制数据，如上载的文件。
Response 对象： 可以使用 Response 对象控制发送给用户的信息。包括直接发送信息给浏览器、重定向浏览器到另一个 URL 或设置 cookie 的值。
Server 对象： Server 对象提供对服务器上的方法和属性进行的访问。最常用的方法是创建 ActiveX 组件的实例 (Server.CreateObject)。其他方法用于将 URL 或 HTML 编码成字符串，将虚拟路径映射到物理路径以及设置脚本的超时期限。
Session 对象： 可以使用 Session 对象存储特定的用户会话所需的信息。当用户在应用程序的页之间跳转时，存储在 Session 对象中的变量不会清除；而用户在应用程序中访问页时，这些变量始终存在。也可以使用 Session 方法显式地结束一个会话和设置空闲会话的超时期限。
ObjectConection 对象： 可以使用 ObjectConection 对象提交或撤消由 ASP 脚本初始化的事务。
1.6 ASP的主要内置组件
Ad Rotator组件：可用来安指定计划在同一页上自动轮换显示广告，用于WWW上日益重要的广告服务。
Browser Capabilities组件：确定访问WEB站点的用户浏览器的功能数据，包括类型、性能、版本等。
Database Access组件：提供ADO（ActiveX Data Objects）来访问支持ODBC的数据库。
File Access组件：提供对服务器端文件的读写功能。
Content Linking组件：生成WEB页内容列表，并将各页顺序连接，用于制作导航条。
此外，还可安装Myinfo、Counters、Content Rotator、Page Count等组件，用户也可自行编制Active组件，以提高系统的实用性。
1.7 Database Access组件ADO
WWW上很重要的应用是访问WEB数据库，用ASP访问WEB数据库时，必须使用ADO组件，ADO是ASP内置的ActiveX服务器组件（ActiveX Server Component）,通过在WEB服务器上设置 ODBC和OLEDB可连接多种数据库：如 SYBASE、ORACLE、INFORMIX、SQL SERVER、ACCESS、VFP等，是对目前微软所支持的数据库进行操作的最有效和最简单直接的方法。
ADO组件主要提供了以下七个对象和四个集合来访问数据库。
Connection对象：建立与后台数据库的连接。
Command对象：执行SQL指令，访问数据库。
Parameters对象和Parameters集合：为Command对象提供数据和参数。
RecordSet对象：存放访问数据库后的数据信息，是最经常使用的对象。
Field对象和Field集合：提供对RecordSet中当前纪录的各个字段进行访问的功能。
Property对象和Properties集合：提供有关信息，供Connection、Command、RecordSet、Field对象使用。
Error对象和Errors集合：提供访问数据库时的错误信息。
1.8 ASP的脚本语言
脚本语言是一种介于HTML和VB、JAVA等高级语言之间的一种语言，它可以和HTML语言混在一起使用，可以用来在浏览器客户端进行程序编制，从而控制浏览器等对象操作。ASP本身不是一种脚本语言，但他却为嵌入HTML的脚本语言提供了运行环境。ASP中常用的脚本语言有VBScript和JavaScript，系统默认语言是VBScript，在系统中，两种脚本语言都有使用。
1．9ASP能干什么？
用 HTML, CSS 已经能够编写非常漂亮的静态网页，但是这些网页缺乏和用户的互动性。
比如，你需要为你的网站增加用户注册和登录的功能；你可能还需要做一些网上调查，了解用户对于某个事件或者产品的反馈；你还可能需要一个电子商务网站，及时发布产品信息和满足用户在线订购的需要......
编写 ASP 动态网页能够帮助你实现这些和用户互动的功能。
1.10 HTML 和 ASP 的区别
HTML是编写网页的最简单的语言。HTML 只能用于编写静态的网页。
当一个用户浏览器(下图所示：Web Client) 从 Web 服务器 (下图所示：Web Server) 要求一个 HTML 网页时，Web 服务器就将这个网页直接发送给用户浏览器，不经过计算处理。然后用户浏览器会处理该网页的 HTML 代码，然后将结果显示出来。
见下图所示：（2.1）
而 ASP 的处理过程则更复杂些。当一个用户浏览器(下图所示：Web Client) 从 Web 服务器 (下图所示：Web Server) 要求一个 ASP 网页时，Web 服务器会将这个 ASP 文件发送给 Web 服务器的 ASP 引擎 (下图所示：ASP Engine)，ASP 引擎则将该 ASP 网页中所有的服务器端脚本(下图所示：<%和%>之间的代码) 转换成 HTML 代码，然后将所有 HTML 代码发送给用户浏览器。
见下图所示：
(2.2)
从下图就可以看出来静态网页和动态网页的不同之处，所以说动态网页并不是有能动的图片和动画的网页。
系统详细功能分析
- 系统的上层部分，即B/S机构的网站系统。采用WINDOWS+ASP.NET+SQL SERVER来构建。
- 对系统数据库分为SQL数据库和图象特征数据库。
SQL数据库结构采用国际外观专利分类，每一类储存下一类数据库的名称和ID号。在最小类的数据库储存16字段（ID号，申请专利号，分类号，名称，摘要，申请日，公开日，公开号，主分类号，申请人，发明人，地址，国际公布，代理人，代理机构，颁证日，优先权，各图片的字段）。每个专利目录下有关的图片涉及外观专利产品的6个方向的视图。
图象特征数据库，其中存储着外观专利产品的外观设计图提取出的特征参数，以备对比之用。
ASP+SQL
ID号，申请专利号，分类号，名称，摘要，申请日，公开日，公开号，主分类号，申请人，发明人，地址，国际公布，代理人，代理机构，颁证日，优先权，各图片的字段
一个是用户登陆
一个是外观专利文本检索页面
后台管理
数据库设计
首页: 相关专利新闻 专利公告 用户登陆
用户后台: 申请专利 专利查询
管理员后台 专利审核 用户管理
.2、数据库设计与实现
数据库名:tu
User username password type
Zuanli zlhao fenleihao mincen zaiyao senqinri gongkairi gonkaihao zflhao senqinren faminren dizi guojigb dailiren dljigou banzr youxq tupian
申请专利号，分类号，名称，摘要，申请日，公开日，公开号，主分类号，申请人，发明人，地址，国际公布，代理人，代理机构，颁证日，优先权，各图片的字段
第四章 外观专利图像检索平台管理系统的实现
4.1、数据库的连接<%
session.timeout=30
dim conn
dim connstr
on error resume next
connstr="driver={SQL SERVER};server=127.0.0.1;database=yulin;uid=sa;pwd=123456"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
%>
4.2、登录界面设计
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
' *** Validate request to log in to this site.
MM_LoginAction = Request.ServerVariables("URL")
If Request.QueryString <> "" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString)
MM_valUsername = CStr(Request.Form("user_name"))
If MM_valUsername <> "" Then
Dim MM_fldUserAuthorization
Dim MM_redirectLoginSuccess
Dim MM_redirectLoginFailed
Dim MM_loginSQL
Dim MM_rsUser
Dim MM_rsUser_cmd
MM_fldUserAuthorization = ""
MM_redirectLoginSuccess = "user.asp"
MM_redirectLoginFailed = "index.asp"
MM_loginSQL = "SELECT username, password"
If MM_fldUserAuthorization <> "" Then MM_loginSQL = MM_loginSQL & "," & MM_fldUserAuthorization
MM_loginSQL = MM_loginSQL & " FROM dbo.[user] WHERE username = ? AND password = ?"
Set MM_rsUser_cmd = Server.CreateObject ("ADODB.Command")
MM_rsUser_cmd.ActiveConnection = MM_conn_STRING
MM_rsUser_cmd.CommandText = MM_loginSQL
MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param1", 200, 1, 255, MM_valUsername) ' adVarChar
MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param2", 200, 1, 255, Request.Form("password")) ' adVarChar
MM_rsUser_cmd.Prepared = true
Set MM_rsUser = MM_rsUser_cmd.Execute
If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then
' username and password match - this is a valid user
Session("MM_Username") = MM_valUsername
If (MM_fldUserAuthorization <> "") Then
Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)
Else
Session("MM_UserAuthorization") = ""
End If
if CStr(Request.QueryString("accessdenied")) <> "" And false Then
MM_redirectLoginSuccess = Request.QueryString("accessdenied")
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginSuccess)
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginFailed)
End If
%>
|
外观专利图像检索平台介绍 |
|||||||||||
 |
外观专利图像检索平台利用图像处理和模式识别的方法，运用计算机网络和通信的先进手段，根据外观专利的国际分类标准，对外观设计图像的三要素一一形状、图案、色彩进行逐级分类，确立设计实例间关于"创新性"、"新颖性"、"相似性"的客观评判规则，为公平、科学、客观的判断设计内容是否相似、是否侵权提供理论依据，是当前普遍采用的基于文字的专利检索系统的重要补充。 |
|||||||||||
专利公告 |
相关专利新闻 | |||||||||||
|
|
|
|
||||||||||
4.4、申请专利模块包括
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Dim MM_editAction
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If
' boolean to abort record edit
Dim MM_abortEdit
MM_abortEdit = false
%>
<%
If (CStr(Request("MM_insert")) = "form_name") Then
If (Not MM_abortEdit) Then
' execute the insert
Dim MM_editCmd
Set MM_editCmd = Server.CreateObject ("ADODB.Command")
MM_editCmd.ActiveConnection = MM_conn_STRING
MM_editCmd.CommandText = "INSERT INTO dbo.zuanli (zlhao, fenleihao, mincen, zaiyao, senqinri, gongkairi, gonkaihao, zflhao, senqinren, faminren, dizi, guojigb, dailiren, dljigou, banzr, youxq, tupian) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)"
MM_editCmd.Prepared = true
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 201, 1, 50, Request.Form("zlhao")) ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 201, 1, 50, Request.Form("fenleihao")) ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 201, 1, 50, Request.Form("mincen")) ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 201, 1, 50, Request.Form("zaiyao")) ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 201, 1, 50, Request.Form("senqinri")) ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 201, 1, 50, Request.Form("gongkairi")) ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 201, 1, 50, Request.Form("gonkaihao")) ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param8", 201, 1, 50, Request.Form("zflhao")) ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param9", 201, 1, 50, Request.Form("senqinren")) ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param10", 201, 1, 50, Request.Form("faminren")) ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param11", 201, 1, 50, Request.Form("dizi")) ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param12", 201, 1, 50, Request.Form("guojigb")) ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param13", 201, 1, 50, Request.Form("dailiren")) ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param14", 201, 1, 50, Request.Form("dljigou")) ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param15", 201, 1, 50, Request.Form("banzr")) ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param16", 201, 1, 50, Request.Form("youxq")) ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param17", 201, 1, 50, Request.Form("cn_content")) ' adLongVarChar
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
' append the query string to the redirect URL
Dim MM_editRedirectUrl
MM_editRedirectUrl = "cg.htm"
If (Request.QueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If
Response.Redirect(MM_editRedirectUrl)
End If
End If
%>
|
|
未完待续。。。。