http://www.luffyes.com/
zh-cnLBS v2.0.304Sun, 19 Feb 2006 00:05:33 +080060]]>Thu, 26 Jan 2006 20:42:48 +0800 Microsoft OLE DB Provider for ODBC Drivers error ’80004005’
[Microsoft][ODBC Microsoft Access Driver] ]]>]]>Thu, 26 Jan 2006 20:42:25 +0800 一,使用存储过程分页,这种情况又分为两种方式:
第一种,使用command对象,如下:
Set Cmd=server.CreateObject("Adodb.Command")
Cmd.ActiveConnection=conn
Cmd.CommandText="ycuu_gb_getmsg" ]]>]]>Thu, 26 Jan 2006 20:41:59 +0800Function ReplaceChar ( FstrSource ) dim strRet if IsNull(FstrSource) then &n bsp; FstrSource = "" end if strRet = Replace ( FstrSource , "&" , "&" ) strRet = Replace ( strRet , "<" , "<" ) ]]>]]>Thu, 26 Jan 2006 20:41:35 +0800 如: Dim MyString, LeftString MyString = "文字测试VBSCript" LeftString = cLeft(MyString, 10) 返回 "文字测试VB"。
MyRandc(n) 生成随机字符,n为字符的个数
如: response.write MyRandn(10) ]]>]]>Thu, 26 Jan 2006 20:39:39 +0800数据库技术是信息资源管理最有效的手段。数据库设计是指对于一个给定的应用环境,构造最优的数据库模式,建立数据库及其应用系统,有效存储数据,满足用户信息要求和处理要求。 数据库设计中需求分析阶段综合各个用户的应用需求(现实世界的需求),在概念设计阶段形成独立于机器特点、独立于各个DBMS产品的概念模式(信息世界模型),用E-R图来描述。在逻辑设计阶段将E-R图转换成具体的数据库产品]]>]]>Thu, 26 Jan 2006 19:15:30 +0800 例子: response.write GetRepeatTimes("w","www.chinahtml.com") response.write GetRepeatTimes("ww","wwwww")
函数代码:
Function GetRepeatTimes(TheChar,TheString) ]]>]]>Thu, 12 Jan 2006 15:31:35 +0800]]>Thu, 12 Jan 2006 15:29:58 +0800 首先,必须得有DLL文件,本例是通过VB5.0创建ActiveX DLL文件,这个文件模拟了一个掷色子的过程。 在VB5.0的环境下,新建一个工程,并双击新建工程窗口中ActiveX ]]>]]>Thu, 12 Jan 2006 15:29:07 +0800必须存在该文件并且会预先编译(不管前面是否加以条件)
Function include(filename) Dim re,content,fso,f,aspStart,aspEnd ]]>]]>Tue, 10 Jan 2006 03:31:57 +0800 <% dim conn,mdbfile mdbfile=server.mappath("数据库名称.mdb") set conn=server.createobject("adodb.connection") conn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=数据库密码;dbq="&mdbfile ]]>