asp 通用数据库连接过程函数

<%
'******************************
'函数:ConnectionMssql(ConnStr)
'参数:ConnStr,数据库连接代码
'作者:阿里西西
'日期:2007/7/13
'描述:通用数据库连接过程
'示例:<%=ConnectionMssql("Provider = Microsoft.Jet.OLEDB.4.0;Data Source = test.mdb")%>
'******************************
Sub ConnectionMssql(ConnStr)
On Error Resume Next
Set objConn = Server.Createobject("ADODB.Connection")
objConn.ConnectionTimeout = 12
objConn.ConnectionString = Trim(ConnStr)
objConn.Open
    If objConn.Errors.Count = 0 Then
 Else
  Response.Write "ConnectionMssql","数据连接失败,请检查配置文件!"
  Response.End
 End If
End Sub
%>

时间: 2007-08-07

asp连接SQL和Access数据代码(asp里的随机函数)

asp连接sql 第一种写法: 复制代码 代码如下: MM_conn_STRING = "Driver={SQL Server};server=(local);uid=sa;pwd=;database=infs;" Set conn = Server.Createobject("ADODB.Connection") conn.open MM_conn_STRING SET RS=SERVER.CreateObject("ADOBD.recordset&qu

ASP连接SQL2005数据库连接代码

说明: a.以下字符中数据库名forum,数据库服务器名WWW-2443D34E558\SQL2005(或者127.0.0.1) b.查看sql数据库服务器名称:对象资源管理器->数据库->右键点击自己建的数据库->属性->权限 c.Provider=sqlncli也可以,UID与"="之间不可以有空格,如果换用user id就可以有 空格,Initial Catalog可以换用database,pwd可以换用password,data source可以换用se

asp数据库连接函数

复制代码 代码如下: ' ******************************************** ' 以下为数据库相关函数 ' ******************************************** ' ============================================ ' 初始化数据库连接对象 ' 使用原则:最迟调用,最早释放 ' ============================================ Sub DBCo

asp 数据库连接函数代码

以下是SQL连接代码: 复制代码 代码如下: Function Open_conn() dim Conn,Strconn set Conn=server.createobject("adodb.connection") Strconn = "Provider = Sqloledb; User ID = 数据库登录帐号; Password = 数据库登录密码; Initial Catalog = 数据库名称; Data Source = (local);" Conn.

做了CDN获取用户真实IP的函数代码(PHP与Asp设置方式)

asp函数代码: 复制代码 代码如下: function checkip(checkstring)'用正则判断IP是否合法dim re1set re1=new RegExpre1.pattern="^[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}$"re1.global=falsere1.Ignorecase=falsecheckip=re1.test(checkstring)set re1=nothingend function functio

asp获取当前完整路径(url)的函数代码

有时候我么您需要获取网址,端口.路径文件名.参数等,这里就为大家分享一下这个函数代码,需要的朋友可以参考下 函数1 <% function GetUrl() on Error Resume Next Dim strTemp if LCase(request.ServerVariables("HTTPS")) = "off" Then strTemp = "http://" Else strTemp = "https://"

ASP数据库连接方式大全

<%  '#######以下是一个类文件,下面的注解是调用类的方法################################################  '# 注意:如果系统不支持建立Scripting.FileSystemObject对象,那么数据库压缩功能将无法使用  '# Access 数据库类  '# CreateDbFile 建立一个Access 数据库文件  '# CompactDatabase 压缩一个Access 数据库文件  '# 建立对象方法:  '# Set a

ASP.NET常用代码

1. 打开新的窗口并传送参数: 传送参数:response.write("<script>window.open('*.aspx?id="+this.DropDownList1.SelectIndex+"&id1="+...+"')</script>") 接收参数:string a = Request.QueryString("id");string b = Request.QueryStrin

js实现ASP分页函数 HTML分页函数

复制代码 代码如下: <!-- //ASP分页函数 function ShowListPage(page,Pcount,TopicNum,maxperpage,strLink,ListName){     var alertcolor = '#FF0000';     maxperpage=Math.floor(maxperpage);     TopicNum=Math.floor(TopicNum);     page=Math.floor(page);     var n,p;     i

用asp实现的代码批量修改程序,fso相关

用asp实现的代码批量修改程序,fso相关 是因工作需要做的一个批量修改代码的小东西,拿出来与大家分享 目前可以处理的文件类型:.asp .inc .htm .html 具体类型可自行修改添加 程序实现的功能:将源目录下的文件批量修改后存到目的目录下 用它稍做修改可以实现很多东西噢! 别的不说了,代码里面都写的很清楚了 <% '// +---------------------------------------------------------------------------+ '//

完美的ASP分页脚本代码

直接写成函数的形式,如果输出生成好的页码,然后又程序输出或保存到文件中. 前十页为一批,第十页显示1,2,3-10:第十一页页码就变成了11,12-20 这种模式很多CMS都用到,比如5UCMS.函数名留点版权信息吧,cs=CatSeven <% function csPage(id,all,url1,url2) if id<>1 then tmp="<a href=""" rel="external nofollow"

Python中enumerate函数代码解析

enumerate函数用于遍历序列中的元素以及它们的下标. enumerate函数说明: 函数原型:enumerate(sequence, [start=0]) 功能:将可循环序列sequence以start开始分别列出序列数据和数据下标 即对一个可遍历的数据对象(如列表.元组或字符串),enumerate会将该数据对象组合为一个索引序列,同时列出数据和数据下标. 举例说明: 存在一个sequence,对其使用enumerate将会得到如下结果: start        sequence[0]