ASP教程之使用 JSP的头脑来做ASP
使用filesystemobject，可以对服务器上的文件进行操作，浏览、复制、移动、删除等。有ado的支持，asp对数据库的操作非常得心应手。你甚至可以像使用本地数据库那样，管理远程主机上的数据库，对表格、记录进行各种操作。js这几天入手下手打仗JSP内里一些BEAN的写法，然后本人想了想，以为实在在ASP内里也能够接纳这一头脑来做。固然不是很纯，不完全，可是可以把一些逻辑处置分别出来，更合适程序的移植性，进步了开辟周期。我本人写了个类ConnEX包括了一些对数据库的操纵，以为应当能够包含一年夜部分的逻辑处置，可是如许也进步了毛病概率，假如你把SQL语句把持的对照好的话，应当是利年夜于弊的，这里都是一点点鄙见，看人人斧正。程序的功效有了个大致的框架，实在能够本人增加一些功效，好比入手下手的数据库毗连，能够先设置变量然后经由过程INIT()来选择分歧范例的数据库
<%
*******************************************************************************************
*程序:ConnEx.asp
*
*形貌：仿照JAVABEAN写的一个类，专门操纵数据库，供应多种办法操纵，但要制止SQL语法毛病!
*
*旷野Email:Foxty@sina.com
*
*日期：2005.06.0
*******************************************************************************************
OnErrorResumeNext
ClassConnEx
publicConnEx
publicDBpath---------数据库路径
publicDBtype---------数据库范例1(Access)2(SqlServer)3(可扩大)
publicConnMethod--------毗连体例（DSN，非DSN）
publicUser
publicPass
SubClass_initialize
EndSub
SubInit()
ConnStr="Driver={MicrosoftAccessDriver(*.mdb)};dbq="&Server.MapPath("Date.mdb")
SetConnEx=Server.Createobject("ADODB.CONNECTION")
ConnEx.OpenConnStr
CatchError("Class_Terminate")
EndSub
SubCatchError(Str)
IfErrThen
Err.Clear
Class_Terminate()
Response.Write("捕获到毛病,程序停止!在"&Str&"处")
Response.End()
EndIf
EndSub
******************************************
*经由过程SQL语句来查找纪录是不是存在,简单堕落
******************************************
FunctionHasRecordBySql(Sql)
CallCheckSql(Sql,"R")
DimRs,HasR
SetRs=ConnEx.Execute(Sql)
CatchError("HasReordSql")
IfNot(Rs.eofOrRs.bof)Then
HasR=False
Else
HasR=True
EndIf
Rs.Close
SetRs=Nothing
HasRecordBySql=HasR
EndFunction
***************************************
*经由过程ID来查找纪录是不是存在
***************************************
FunctionHasRecordById(StrTableName,IntID)
CheckValue(IntID,1)
DimRs,HasR
Sql="Selecttop1*from"&StrTableName&"WhereId="&IntID
CallCheckSql(Sql,"R")
SetRs=ConnEx.Execute(Sql)
CatchError("HasRecordByID")
IfNot(Rs.eofOrRs.bof)Then
HasR=False
Else
HasR=True
EndIf
Rs.close
SetRs=Nothing
HasRecordById=HasR
EndFunction
**********************************************
*经由过程SQL语句获得纪录集
**********************************************
FunctionGetRsBySql(Sql)
CallCheckSql(Sql,"R")
DimRs
SetRs=Server.CreateObject("Adodb.RecordSet")
Rs.OpenSql,ConnEx,1,1
SetGetRsBySql=Rs
EndFunction
*********************************************
*获得某个字段的值
*********************************************
FunctionGetValueBySql(Sql)
CallCheckSql(Sql,"R")
DimRs,ReturnValue
SetRs=ConnEx.Execute(Sql)
CatchError("GetValueBySql")
IfNot(Rs.EofOrRs.Bof)Then
ReturnValue=Rs(0)
Else
ReturnValue="没有纪录"
EndIf
Rs.Close
SetRs=Nothing
GetValueBySql=ReturnValue
EndFunction
==================================================Update,Insert==================================================================
*********************************************
*使用SQL修正数据
*********************************************
FunctionUpdateBySql(Sql)
CallCheckSql(Sql,"w")
ConnEx.Execute(Sql)
CatchError("UpdateBySql")
UpdateBySql=True
EndFunction
********************************************
*使用SQL语句拔出数据
********************************************
FunctionInsertBySql(Sql)
CallCheckSql(Sql,"w")
ConnEx.Execute(Sql)
CatchError("InsertBySql")
InsertBySql=True
EndFunction
======================================================Delete=============================================================
*******</p>结论：和PHP一样，ASP简单而易于维护，很适合小型网站应用，通过DCOM和MTS技术，ASP甚至还可以完成小规模的企业应用，但ASP的致命缺点就是不支持跨平台的系统，在大型项目开发和维护上非常困难。 从事这个行业，那么你可以学ASP语言，简单快速上手，熟练dreamweav排版，写asp代码，熟练photoshop处理图片，打好基础就行了 完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。 跟学别的语言一样，先掌握变量，流程控制语句(就是ifwhileselect)等，函数/过程，数组 那么，ASP.Net有哪些改进呢？ ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。 因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。 它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。 Session:这个存储跟客户端会话过程的数据，默认20分钟失效
页:
[1]