`
happmaoo
  • 浏览: 4492539 次
  • 性别: Icon_minigender_1
  • 来自: 杭州
社区版块
存档分类
最新评论

自己整理的ASP连接SQL数据库函数及其相关用法

阅读更多

<%
'//==========================================
' = Name: [ Quick Connection ]
' = Author: []
' = StartTime: []
' = LastModify: []
'
' Content
' 1 con_str ' config connection string
' 2 oCon() ' open connection
' 3 oRd(sql_str) ' open RecordSet
' 4 cRd(rdset) ' close RecordSet
'
' =========================================//

'//-------get con_str ---------//
con_str=open_con_str("localhost","sa","sa","db")


'//------- con_str maker ---------//
function open_con_str(ConServe,ConUser,ConPassWord,ConDatabase)
open_con_str = "Driver={SQL Server};Server=" & ConServe & ";UID=" & ConUser & ";PWD=" & ConPassWord & ";Database=" & ConDatabase & ""
end function

'//-------open connection ---------//
function oConn()

set oConn=server.CreateObject("ADODB.connection")
oConn.ConnectionString=con_str
oConn.CursorLocation=3
oConn.Open

end function

'//-------open RecordSet LockType 1---------//
Function oRd(sql_str)

Set oRd = Server.CreateObject("ADODB.Recordset")
oRd.ActiveConnection = con_str
oRd.Source = sql_str
oRd.CursorType = 0
oRd.CursorLocation = 2
oRd.LockType = 3
oRd.Open()
oRd_numRows = 0

End Function

'//-------open RecordSet LockType 3---------//(可返回多条记录集,用于判断记录集的大小)
Function oRd3(sql_str)

Set oRd3 = Server.CreateObject("ADODB.Recordset")
oRd3.ActiveConnection = con_str
oRd3.Source = sql_str
oRd3.CursorType = 3
oRd3.CursorLocation = 2
oRd3.LockType = 3
oRd3.Open()
oRd3_numRows = 0

End Function

'//-------close RecordSet ---------//
function cRd(rdset)

rdset.close
set rdset=nothing

end function

'//-------open Command ---------//
function oCmd(sql_str)
set CmdConn=oConn()
Set oCmd=Server.CreateObject("ADODB.Command")

Set oCmd.ActiveConnection = CmdConn
oCmd.commandText=sql_str
end function

'//-------open Command to Rs---------//
function oCmdRd(sql_str)
set CmdConn=oConn()
Set oCommand=Server.CreateObject("ADODB.Command")

Set oCommand.ActiveConnection = CmdConn
oCommand.commandText=sql_str
Set oCmdRd=oCommand.Execute()
set CmdConn=nothing
end function

'//-------add Command Para---------//
function addCmdPara(Pcmd,pNmae,pType,pIO,pLength,pValue)
set CommandPara1=Pcmd.CreateParameter(pNmae,pType,pIO,pLength)
Pcmd.Parameters.Append CommandPara1
Pcmd(pNmae)=pValue
end function

%>

'//----------------------以上代码可以写在一个文件里,比如qCon.asp中;在需要用到的页面文件中include就可以了,比如(<!--#include file="./qCon.asp"-->)------------------//


用法:
1:建立记录集
tb_str="select * from tb"
set tb=oRd(tb_str)
set tb3=oRd3(tb_str)
2: 修改记录
set oCon=oConn()
添加:insert_str="insert into tb (a1,b1) values ("a1","b2")"
oCon.execute(insert_str)
oCon.close
修改:update_str="update tb set a1='a1',b1='b1' where ...."
oCon.execute(update_str)
oCon.close
删除:del_str="delete tb where ...."
oCon.execute(del_str)
oCon.close

分享到:
评论

相关推荐

    中式汉堡市场调研报告:2023年市场规模约为1890亿元

    汉堡市场调研报告:2023年市场规模约为1890亿元 在快节奏的现代生活中,汉堡以其便捷、快速且标准化的特点,成为了大众日常饮食的重要选择。然而,随着消费者对健康、口味和文化认同感的追求日益提升,传统西式汉堡已难以满足所有消费者的需求。在此背景下,中式汉堡应运而生,以其独特的口味和文化内涵,迅速赢得了市场的青睐。那么,中式汉堡市场究竟蕴含着怎样的增长潜力?又该如何把握这一市场机遇呢? 市场概况: 近年来,中国西式快餐市场规模持续扩大,2023年已达到约3687.8亿元。其中,汉堡作为西式快餐的代表之一,市场规模约为1890亿元,占据了西式快餐最大的市场份额。值得注意的是,中式汉堡品牌异军突起,凭借其独特的口味和文化内涵,迅速在市场上站稳脚跟。截至2024年11月,全国中式汉堡门店数已近2万家,展现出强劲的增长势头。 技术创新与趋势: 中式汉堡的成功,离不开技术创新和趋势把握。一方面,中式汉堡品牌通过结合中式烹饪方式,推出了更符合中国消费者口味的产品,如加入秘制酱料、使用传统烹饪技艺等,使汉堡更加美味可口。另一方面,中式汉堡品牌还注重数智化转型,通过运用大数据、人工智能等先进技术,实现精

    基于MATLAB的导航科学计算库

    * GPS IMU经典15维ESKF松组合 * VRU/AHRS姿态融合算法 * 捷联惯导速度位置姿态解算例子 * UWB IMU紧组合融合 * 每个例子自带数据集

    Docker以及Docker-Compose的安装与卸载

    Docker以及Docker-Compose的安装与卸载 适合开发下运维人员学习

    尚硅谷宋红康C语言精讲.zip

    尚硅谷宋红康C语言精讲.zip

    matlab实现基于多源信息融合的水果虫灾智能检测系统研究-虫灾检测-智能检测系统-matlab-机器学习

    内容概要:本文提出了一种结合生物信息学、遥感技术和物联网技术的水果虫灾智能检测系统。通过收集和分析生物标志物、遥感影像和传感器数据,利用机器学习算法实现对虫灾的自动识别与预警,提高检测的准确性和时效性,为水果种植业的可持续发展提供支持。 适合人群:农业科学家、农艺师、农业技术开发人员。 使用场景及目标:适用于水果种植园的虫害监控,帮助农民及时发现和控制虫灾,减少农业生产损失。 其他说明:该系统不仅提高了虫灾检测的效率,还在一定程度上解决了传统方法耗时费力、准确性低的问题。系统未来将优化数据处理方法、提取更多有效特征,并尝试应用到其他农业领域。

    南平市2005-2024年近20年历史气象数据下载

    南平市2005-2024年近20年的历史气象数据,每3小时更新一次数据,参数包含气温、气压、降水量、云层、能见度、风向、湿度等,几万条数据

    数据结构上机实验大作业-线性表选题.zip

    数据结构上机实验大作业-线性表选题.zip

    弱电人需要的网络基础知识汇总.docx

    弱电人需要的网络基础知识汇总.docx

    生菜生长记录数据集(3K+ 记录,7特征) CSV

    本数据集记录了不同环境条件下植物生长数据信息。分析这些数据可以了解到,随着时间的推移,不同的温度、湿度、pH值和总溶解固体(TDS)等因素如何影响植物的生长发展。 数据说明: Plant_ID 每株植物的标识符 Date 观测日期 Temperature (°C) 温度,以摄氏度为单位 Humidity (%) 湿度水平,以百分比表示 TDS Value (ppm) 总溶解固体值,以百万分之一(ppm)为单位 pH Level 环境的pH值 Growth Days 植物从开始生长到完全长成所需的天数

    字幕网页文字检测20-YOLO(v5至v11)、COCO、CreateML、Paligemma、TFRecord、VOC数据集合集.rar

    字幕网页文字检测20-YOLO(v5至v11)、COCO、CreateML、Paligemma、TFRecord、VOC数据集合集.rarLLCMTVRC-V2 2024-05-04 11:24 PM ============================= *与您的团队在计算机视觉项目上合作 *收集和组织图像 *了解和搜索非结构化图像数据 *注释,创建数据集 *导出,训练和部署计算机视觉模型 *使用主动学习随着时间的推移改善数据集 对于最先进的计算机视觉培训笔记本,您可以与此数据集一起使用 该数据集包括161张图像。 随机文本以可可格式注释。 将以下预处理应用于每个图像: *像素数据的自动取向(带有Exif-Arientation剥离) *调整大小为640x640(拉伸) 应用以下扩展来创建每个源图像的3个版本: *随机裁剪图像的0%至30% * -16至+16度之间的随机旋转 将以下转换应用于每个图像的边界框: *水平的-3°至 +3°之间的随机剪切和-4°至 +4°垂直剪切

    冒泡排序算法解析及优化.md

    冒泡排序

    KeyboardInterrupt.md

    KeyboardInterrupt

    (2147634)经典C程序100例 很经典的例子

    C语言是一种强大的、通用的编程语言,被广泛用于系统编程、应用编程、嵌入式系统以及游戏开发等领域。它的简洁性和高效性使得它成为初学者和专业人士的首选语言。"经典C程序100例"这个资源是学习C语言的一个宝贵资料库,包含了多种常见问题的解决方案和编程技巧。 C语言的基础知识包括变量、数据类型、运算符、流程控制(如if语句、switch语句、循环结构for、while、do-while)以及函数的使用。这些基础知识在每个C程序中都不可或缺。例如,通过学习不同的数据类型(如int、char、float、double等),我们可以理解如何存储和处理不同类型的数据。而流程控制则帮助我们根据条件执行不同的代码段,实现逻辑判断和重复执行。 在C语言中,函数是代码组织的基本单元,可以实现代码复用和模块化。通过阅读和分析100个经典实例,我们可以看到如何定义和调用函数,以及如何传递参数和返回值。此外,指针是C语言的一大特色,它允许我们直接操作内存,提高程序的灵活性和效率。学习如何声明、初始化和使用指针是掌握C语言的关键。 结构体和联合体是C语言中复合数据类型,它们能将多个不同类型的数据组合成一个整体。在经

    时变动态分位数CoVaR、delta-CoVaR,分位数回归 △CoVaR测度 溢出效应 动态 Adrian2016基于分位数回归方法计算动态条件在险价值 R语言代码,代码更数据就能用,需要修改的

    时变动态分位数CoVaR、delta-CoVaR,分位数回归 △CoVaR测度 溢出效应 动态 Adrian2016基于分位数回归方法计算动态条件在险价值。 R语言代码,代码更数据就能用,需要修改的地方都已标明,并且举例怎么修改 每一行代码都有注释,一次可以计算出所有结果,不需要像Eviews一样两两重复计算。 例子为31家金融机构11-22年数据,包含4个宏观状态变量,计算结果见下图。

    基于Bmob校园签到系统全部资料+详细文档+高分项目.zip

    【资源说明】 基于Bmob校园签到系统全部资料+详细文档+高分项目.zip 【备注】 1、该项目是个人高分项目源码,已获导师指导认可通过,答辩评审分达到95分 2、该资源内项目代码都经过测试运行成功,功能ok的情况下才上传的,请放心下载使用! 3、本项目适合计算机相关专业(人工智能、通信工程、自动化、电子信息、物联网等)的在校学生、老师或者企业员工下载使用,也可作为毕业设计、课程设计、作业、项目初期立项演示等,当然也适合小白学习进阶。 4、如果基础还行,可以在此代码基础上进行修改,以实现其他功能,也可直接用于毕设、课设、作业等。 欢迎下载,沟通交流,互相学习,共同进步!

    python编译器Anaconda安装包下载(含各种版本)

    python编译器Anaconda安装包下载(含各种版本)

    冒泡排序算法详解及Java与Python实现

    内容概要:本文详细介绍了冒泡排序的基本原理及其实现方式,并提供了Java和Python两种语言的代码样例。首先解释了冒泡排序的工作机制,即通过重复遍历数组、比较相邻元素并在必要时进行交换来逐步将最大值移动到数组末尾,直至整个数组有序。文中给出的具体实现包括了标记法,可以在当前遍历过程中没有发生任何交换时提前终止排序过程,提高效率。此外,文中还提供了测试用的数据集及打印排序后的结果。 适合人群:适合计算机科学专业的初学者或者对基本排序算法有兴趣的技术人员。 使用场景及目标:可用于教学目的,帮助学生理解和掌握冒泡排序算法的原理及具体编程实现方法;同时,对于有经验的开发者来说,也是一个很好的复习材料。 阅读建议:建议读者跟随文章内容尝试动手实现相应的冒泡排序算法,并理解每一步操作的目的,以加深理解。

    计算机接口实验报告.zip

    计算机接口实验报告,环境:PC 机一台,TD-PITE 实验装置一套。报告内容有,实验目的、实验设备、实验内容、实验步骤、实验程序(汇编)、实验结果、实验总结,一步到位!!!!!! 一步到位!!!!!!

    15 unit 11.mp3

    15 unit 11.mp3

    智慧校园数字孪生,三维可视化

    智慧校园数字孪生,三维可视化

Global site tag (gtag.js) - Google Analytics