首页>ASP源码>其他类别
下载

#：继续开发 - 继续开发：#

经典ASP助手

(TR) 它是第一个已知的紧凑型经典 ASP 实用程序库（根据我的研究）。它的结构可以缩短您经常执行的操作，以实用性帮助您加快数据库工作和软件开发阶段，让您的开发变得更加轻松。您可以将其与现有库集成、开发和分发。请不要忘记给它一颗星并将其添加到您的观察列表中。

(EN) 第一个经典 ASP 编码助手实用程序

用法

(TR) 首先，将文件从其物理路径包含到项目文件中。 (CN) ... 

 <!--#include file= "/{path}/casphelper.asp" -->

(TR) 如果您想自己启动该库，请将以下代码添加到您的项目中以首先运行 (EN) ... 

 < %
Set Query = New QueryManager
% >

(TR) 现在您只需使用Query变量来执行所有操作。 (CN) ... 

 < %
Dim Query
Set Query = New QueryManager
  Query.Debug          = False
  Query.Host           = "localhost"
  Query.Database       = "my_db_name"
  Query.User           = "my_db_username"
  Query.Password       = "MyS3c3tP4ssw0d"
  Query.Connect()
% >

SQL

插入/更新

如果我们想要 INSERT 或 UPDATE SQL 查询，我们需要保持表单输入名称值与相关表的列名称相同。图书馆在这里做了一些事情。

  • 传入的 FORM/POST 名称参数和目标表列名称是否匹配？如果不匹配，则不会导入字段外的数据。
  • 传入数据是否与目标列数据类型匹配？ （INT、VARCHAR/LONGTEXT、日期/日期时间）
  • 传入的数据是否为空？

结果，从库返回两种类型的响应。

  • 如果INSERT操作成功，则返回ID参数和最后添加的记录号（INT）。
  • 如果 UPDATE 操作成功，则返回 true，如果失败，则返回 false (BOOLEAN)。

- 运行扩展（插入）

(TR) RunExtend 函数是一个简单的返回函数，INSERT 参数返回作为操作结果添加的行的primaryKey (ID) 值(INT)。此结果告知 INSERT 操作是否成功。 (CN) ... 

 Query.RunExtend( "INSERT" , "table_name" , Null)

(TR) 可以使用以下结构作为示例。 (CN) ... 

 < %
If Query.Data( "Cmd" ) = "InsertSample" Then 
    Dim QueryResult
    QueryResult = Query.RunExtend( "INSERT" , "tbl_users" , Null)
    If IsNumeric( QueryResult ) Then
        Response.Write "Başarılı / Success"
        Response.Write "ID: " & QueryResult
    Else 
        Response.Write "Başarısız / Failed"
    End If
End If
% >

(TR) 表单结构应如下所示。 (CN) ... 

 < form action =" /?Cmd=InsertSample " method =" post " >
    < input name =" NAME " value =" Anthony Burak " />
    < input name =" SURNAME " value =" Dursun " />
    < input name =" BIRTHDAY " value =" 24.07.1986 " />
    < button type =" submit " > Insert </ button >
</ form >

(TR) 数据库结构如下 (EN) ...

字段名称类型
ID (INT) 主键
姓名（VARCHAR）
姓（VARCHAR）
生日（日期）

- 运行扩展（更新）

(TR) RunExtend 函数是一个简单的返回函数，UPDATE 参数返回true或false （布尔值）作为操作结果。此结果告知 UPDATE 操作是否成功 (EN)... 

 Query.RunExtend( "UPDATE" , "table_name" , "ID={ID}" )

(TR) 可以使用以下结构作为示例。 (CN) ... 

 < %
If Query.Data( "Cmd" ) = "UpdateSample" Then 
    Dim QueryResult
    QueryResult = Query.RunExtend( "UPDATE" , "tbl_uyeler" , "ID={ID}" )
    If QueryResult = True Then 
        Response.Write "Başarılı / Success"
    Else 
        Response.Write "Başarısız / Failed"
    End If
End If
% >

(TR) 表单结构应如下所示。 (CN) ... 

 < form action =" /?Cmd=UpdateSample&ID=123 " method =" post " >
    < input name =" NAME " value =" Anthony Burak " />
    < input name =" SURNAME " value =" Dursun " />
    < input name =" BIRTHDAY " value =" 24.07.1986 " />
    < button type =" submit " > Update </ button >
</ form >

(TR) 数据库结构如下 (EN) ...

字段名称类型
ID (INT) 主键
姓名（VARCHAR）
姓（VARCHAR）
生日（日期）

-收集表格并运行（弃用）

(TR) 库的第一个版本中 Collector 和 Run 命令的组合如下。 CollectForm 函数收集 FORM Post 方法附​​带的 Request.Form 参数，并将它们组合起来进行 INSERT 或 UPDATE。没有控制机制。参数错误返回错误引发。 (CN) ... 

 < %
If Query.Data( "Cmd" ) = "UpdateSample" Then 
	Query.CollectForm( "INSERT" )
	Query.AppendRows    = "EKSTRA1, EKSTRA2"
	Query.AppendValues  = "'Manuel Eklenecek Veri 1', 'Manuel Eklenecek Veri 2'"
	Query.Run( "INSERT INTO tbl_tableName(" & Query.Rows & ") VALUES(" & Query.Values & ")" )
	Query.Go( "?Msg=Success" )
End If
% >

记录存在(sql)

(TR) 将 SQL 查询的结果返回为true或false 。它在传统方法中用作 EOF 替代品。 (CN) ... 

 < %
Dim QueryResult
QueryResult = Query.RecordExist( "SELECT ID FROM tbl_users WHERE ID = 1" )
If QueryResult = True Then
    Response.Write "Record Exist"
Else
    Response.Write "Record Not Exist"
End If
% >

最大ID

(TR) 允许在任何表和条件中返回最大 ID (PrimaryKey) 值。没有错误检查。 (CN) ... 

 Query.MaxID( "tbl_tableName" )

(TR) 对于有条件的情况 (EN) ... 

 Query.MaxID( "tbl_tableName WHERE EMAIL = '[email protected]'" )

执行 SQL [ conn.Execute(sqlQuery) ]

(TR) 该函数唯一的定制是可以替换通过Request.Querystring接收的数据。如果URL结构为/?Cmd=Update&ID=123，则查询中的{ID}参数将更新为123 。 。它实现了标准 obj.Execute(sql) 参数。 (CN) ... 

 < %
Query.Run( "SELECT ID FROM tbl_tableName WHERE ID = {ID} " )
Query.Run( "SELECT ID FROM tbl_tableName WHERE ID = " & Query.Data( "ID" ) & " " )
Query.Run( "SELECT ID FROM tbl_tableName WHERE ID = 1 " )
% >

请求和响应

- 请求表单/查询字符串

(TR) 如果您想获取表单或查询字符串数据，可以将其作为Query.Data("key")或内联为{key}获取。即使是 404 url​​ 结构，您的软件也会捕获所有参数。可以用来代替 Requet.Form(key) 或 Request.QueryString(key)。 (CN) ... 

 < %
Dim SampleValue
SampleValue = Query.Data( "ID" )
% >

(TR) 如果未发现数据存在（Null、Empty），则结果始终可以以 Empty 返回。 (CN) ... 

 /script.asp?Cmd=Test&Data1=value&Data2=&Data3=value3
/ 404 url/params/?Cmd=Test&Data1=value&Data2=&Data3=value3

< %
Response.Write Query.Data( "Cmd" )    ' return Test (String)
Response.Write Query.Data( "Data1" )  ' return value (String)
Response.Write Query.Data( "Data2" )  ' return 
Response.Write Query.Data( "Data3" )  ' return value3 (String)
% >

- 响应.重定向

(TR) Response.Redirect 是一个命令，您可以在完成事务后使用它来代替“url.asp?some=string”，您可以处理当前的请求数据。参数更新可用于检索表单或查询字符串参数。 (CN) ... 

 < %
Query.Go( "url.asp?some=string" )
Query.Go( "url.asp?some={ID}" )
% >

- 响应.写入

(TR) 可以使用 Query.Echo( "test")，而不是使用标准 Response.Write( "test" ) 。 (CN) ... 

 < %
Query.Echo( "test" )
% >

- 响应.结束

(TR) 可以使用Query.Kill()代替标准Response.End() 。 (CN) ... 

 < %
Query.Kill()
% >

帮手

-存在（）

(TR) 它可以检查任何变量是否存在。执行 IsNull、IsEmpty、Len()>0 检查并返回true或false （布尔）结果 (EN) ... 

 < %
str_value1 = ""
str_value2 = 2
If Query.Exist(str_value1) = True Then
    ' return true
End If

If Query.Exist(str_value2) = False Then
    ' return false
End If
% >

- FindInArray(字符串, 数组)

(TR) 搜索数组组中的任何字符串数据。它执行精确匹配检查并应用自动 Trim()。如果找到结果，则返回索引号。如果没有找到结果，则返回Null结果。 (CN) ... 

 < %
Dim str_array
str_array = Array( "test" , "apple" , "fruit" , "banana" , "mercedes" )

Dim QueryResult
QueryResult = Query.FindInArray( "apple" , str_array)
If IsNull( QueryResult ) Then
    Query.Echo "Not Found"
Else
    Query.Echo "apple found in array index: " & QueryResult
End If
% >

- 允许方法（方法名称）

(TR) 在某些情况下，您可以仅通过某些方法限制对相关交易区域的访问。例如，如果您对表单使用 Method="POST"，则可以在问候语中确认该方法确实是“POST”。 (CN) ... 

 < %
If Query.AllowedMethod( "POST" ) = False Then
    Query.Echo "Only POST Method Allowed"
    Query.Kill
End If
% >
展开
附加信息
相关应用
为您推荐
相关资讯 全部