cncco-CSDN博客

原创关于asp动态生成word文档并下载

看过网上很多创建word文件的办法，大都会要求客户段浏览器设置安全性，有很大的局限性。经过本人摸索，找到一条目前本人认为最简易的办法，不敢独享，请朋友们点评。1 利用word生成相应的word文件，如固定格式的表格等，然后用“另存为”功能存成htm格式。2 使用记事本等打开，可看见html源码。3 将代码开始处的以下内容：

2012-07-02 12:30:51 2231 1

转载 SQL语法精讲（包括建库、建表、建视图、查询、增加、删除、修改）

SQL分类：　　DDL—数据定义语言(CREATE，ALTER，DROP，DECLARE) 　　DML—数据操纵语言(SELECT，DELETE，UPDATE，INSERT) 　　DCL—数据控制语言(GRANT，REVOKE，COMMIT，ROLLBACK)　　首先,简要介绍基础语句：　　1、说明：创建数据库CREATE DATABASE database-name

2012-04-06 12:06:27 1469

转载数据库导出xml、htm、csv、sql代码

数据库导出xml、htm、csv、sql代码用法：ExportDB.asp?sql=select语句&table=表名(可选)&filetype=导出格式(xml,htm,csv,sql)&pid=自动编号字段名(仅当导出sql类型时有用)2004-8-11 更新'数据库导出记录代码'用法：'ExportDB.asp?sql=select语句&tablename=

2011-12-30 01:39:19 765

转载 VB 读取HTML代码及网页文字

'得到当前browser的页面文字内容Public Function getWebContent(browser As WebBrowser) As String Dim doc As Object Dim i As Object Dim strHtml As String Set doc = browser.Document Fo

2011-11-21 01:56:02 5378

原创 ASP读取ACCESS数据出现乱码，药到病除方

如果是中文可以加以下代码如果在英文的IIS(老外的服务器)上显示中文可能会出现乱码的问题,那就得使用utf-8编码.936变成了65001,还有就是第五行的gb2312变成了utf-8,但这样更改只能保证在英文的IIS上正常显示静态中文,但是显示动态内容却还是不行.那就再加一句.我就是因为忘记添加那要命的才导致下拉列表中的内容是乱码的,不过我使用的并不是英文的服务器

2011-11-12 21:49:43 1372

原创 IE与FF的innerHTML兼容

var foo = function() { var $ = function() { return document.getElementById(arguments[0]); } $("d2").innerHTML = $("d1").innerHTML; } //]]> 改动两个文本框里的值，把这个容器的innerHTML赋值给d2 foo()

2011-11-10 10:54:43 1388

原创让加载慢的网页内容飞一会再显示

最近在给一个论坛加上了天气预报代码（http://m.weather.com.cn/m/pn7/weather.htm?id=101120901T " width="300" height="20" marginwidth="0" marginheight="0" hspace=

2011-08-28 17:55:42 1353

Public Function HtmlStr$(URL$) '提取网页源码函数 Dim XmlHttp Set XmlHttp = CreateObject("Microsoft.XMLHTTP") XmlHttp.Open "GET", URL, False XmlHttp.Send If XmlHttp.ReadyState = 4 Then HtmlStr = StrConv(XmlHttp.Responseb

2011-05-25 12:49:00 8752

转载 SQL语句添加、修改、删除字段及一些表与字段的基本操作

用SQL语句添加删除修改字段 1.增加字段 alter table docdsp add dspcode char(200) 2.删除字段 ALTER TABLE table_NAME DROP COLUMN column_NAME 3.修改字段类型 ALTER TABLE table_name ALTER COLUMN column_name new_data_type 4.sp_r

2011-05-22 18:37:00 770

转载如何实现VB与EXCEL的无缝连接

VB是常用的应用软件开发工具之一，由于VB的报表功能有限，而且一但报表格式发生变化，就得相应修改程序，给应用软件的维护工作带来极大的不便。因此有很多程序员现在已经充分利用EXECL的强大报表功来实现报表功能。但由于VB与EXCEL由于分别属于不同的应用系统，如何把它们有机地结合在一起，是一个值得我们研究的课题。 一、 VB读写EXCEL表： 　　VB本身提自动化功能可以读写EXCEL表，其方法如下： 　　1、在工程中引用Micro

2011-04-07 21:42:00 763

原创 VB备份与还原SQL数据库代码

Private Sub mnuDBBackUp_Click() '------------------备份数据库Dim cnbak As New ADODB.ConnectionIf cnbak.State <> 0 Then cnbak.Closecnbak.Open "provider=sqloledb;server=" & strSQLServer & ";user id=" & strSQLUser & ";password=" & strSQLPWDim backupS

2011-01-15 23:19:00 2426

原创利用递归轻松实现TreeView控件中子节点的全选操作[VB]

实现以下功能：当用户单击节点选择框时，程序自动将该节点的所有子节点的Check设置成该节点的状态. Private Sub TreeView1_NodeCheck(ByVal Node As MSComctlLib.Node) If UCase(TypeName(Node)) <> "INODE" Then Exit Sub Dim bC As Boolean bC = Node.Checked Dim nodeNext As MSComctlL

2010-10-20 00:59:00 2117

原创 VB PB Delphi VC Java开发工具比较

VB PB C++ VC JAVA 跨平台特性 1 3 3 1 4 组件技术支持 3 3 5 3 4 数据库支持级别 1 4 3 2 2 系统底层开发支持 1 1 5 5 1 多媒体及图形图像开发

2010-07-28 15:15:00 1042

原创 access和SQL的语法区别

1，对于日期字段字段 access表示为：#1981-28-12# SQLSERVER2000表示为：‘‘1981-02-12‘‘ 2,SQL语句区别，select ,update 在对单表操作时都差不多，但多表操作时update语句的区别ACCESS与SQLSERVER中的UPDATE语句对比: SQLSERVER中更新多表的UPDATE语句: UPDATE Tab1 SET a.Name = b.Name FROM Tab1 a,Tab2 b WHERE a.I

2010-07-24 23:03:00 559

原创 VB 一个函数传回多个值

'●用Function当成子程序的一个好处，就是Function本身可以传回一个值到上一层呼叫的子程序里，但问题来了，若为了工作上的需要，想一次传回一个以上的值，那该怎么办？ Private Sub Command1_Click() MyReturn 5, 6 End Sub Private Function MyReturn(X, Y) As Long A = X + Y B = X - Y C = X * Y D

2010-06-23 11:32:00 3792

原创 VB6.0 VB.Net 区别对照表

VB6.0和VB.Net的对照表VB6.0VB.NETAddItem Object名.AddItemObject名.Items.AddListBox1.Items.AddComboBox1.Items.AddAbs 函数System.Math.Abs 方法API 函数关系Microsoft Win32和Microsoft .NET Framework API的对应App.Path等 1. System.Reflection.Assembly.GetExecutingAssembly.Locatio

2010-06-15 18:36:00 1547

原创 VB+MODEM 实现来电显示功能

VB+MODEM 实现来电显示功能

2010-06-05 01:18:00 1244

原创 VB-MSHFlexGrid常用的功能代码

1. 直接将查询数据填入MSHFLEXGRIDSub QueryFromSybasebyCon(Condition)With QEvent ‘ QEvent为Form名称 Con.Open strConnRemote rs.CursorLocation = adUseClient rs.CursorType = adOpenKeyset

2010-05-07 12:08:00 2474 1

原创 Gb2312及Gb2312转Utf-8编码的UrlEncode编码解码（全）

为了一个gb2312下post中文参数到utf-8页面的程序，随闷的难受，查了一下午资料，大部分是讲Gb2312传到Gb2312页面的UrlEncode，没有提供到Utf-8页面的UrlEncode，后来找到Unicode转Utf-8码的资料，参考之下，终于写出了Utf-8的UrlEncode，这里整理下各种UrlEncode方法，供有需要的朋友参考。详细Utf-8编码规则请百度一下。Un

2010-04-03 00:11:00 3325 1

原创 VB MSHFLEXGRID MSHFLEXGRID 绑定 CHECKBOX 另一法，推荐

Private Sub HFlexgrid_MouseDown(Button As Integer, Shift As Integer, X As Single, y As Single) 单击选择或不选择 With HFlexgrid If .rows If .Row .rows - 1 Then Exit Sub If .TextMa

2010-03-20 18:02:00 1181

原创 VB MSHFLEXGRID MSHFLEXGRID 绑定 CHECKBOX

Private Sub MSHFlexGrid1_Click()If MSHFlexGrid1.Col = 0 Then MSHFlexGrid1.Text = Chr(124 - Asc(MSHFlexGrid1.Text))End SubPrivate Sub Form_Load() Dim i As LongWith MSHFlexGrid1.FixedCols = 0.Cols = 4

2010-03-20 17:26:00 2498

原创 SQLDMO在VB中的应用

　　SQLDMO（SQL Distributed Management Objects，SQL分布式管理对象）封装 Microsoft SQL Server 2000 数据库中的对象。SQL-DMO 允许用支持自动化或 COM 的语言编写应用程序，以管理 SQL Server 安装的所有部分。 SQL-DMO 是 SQL Server 2000 中的 SQL Server 企业管理器所使用的应用程

2010-03-09 19:17:00 1484

原创 VB 取得指定exe文件版本号

【函数】 GetFileVersionInfo 【操作系统】 Win9X:Yes WinNT:Yes 【声明】 GetFileVersionInfo Lib "version.dll" Alias "GetFileVersionInfoA" (ByVal lptstrFilename As Stri

2010-01-29 10:29:00 2321 2

原创日期函数精解示例

日期函数精解示例先看一个小例子 Dim d1 As Date, d2 As Date d1 = DateAdd("m", 1, Date) 下个月今天 d2 = CDate(Year(d1) & "-" & Month(d1)) 下一个月第一天 d3 = DateAdd("d", -1, d2) 本月最后一天 Print d1

2010-01-21 21:58:00 949

原创 VB MSHFLEXGRID MSHFLEXGRID 同时选中不连续的多行

在工程中添加一个类模块，名为 Selection 然后加入以下代码： Dim colRows As Collection Dim ControlKey As Boolean Public WithEvents flx As MSFlexGrid Public Sub ToggleSele

2009-12-22 22:54:00 1923

原创 ICON图标资源集结号

★　4个ICON图标搜索引擎a.SearchIcon：这个比较健全的一个搜索引擎，可以搜索到教为丰富的icon，本是国外的，如今有了中文版的！他的图片管理器功能非常不错，在里面可以找到各种文件类型的图标，这样就也可以为你的电脑更换更酷的图标吧！b.IconFinder：这个目前不支持中文，只能用英文搜索！在TAG Cloud（云标签）里找到热门的icon！c.Iconlet：这个也是不错的，但是只

2009-12-20 02:50:00 1217

原创使用VB编写纯ASP程序

　　前几天大哥对我说，使用asp真麻烦，编译环境实在是差劲，他总是在vb里面写好调试好代码然后在把代码粘贴到asp程序中，为此，我在这提出一个解决之道。使用VB接替ASP所有的对象，在VB中编写纯粹的ASP程序。　　大家应该都知道，其实asp中的好多组件都是使用VB编写出来的，但是让大家感到很不方便的是如何使用asp固有的几个组件，例如Response,Request,Applica

2009-12-13 15:22:00 661

原创用ADO管理SQL SERVER ！

在软件开发中，常常需要为程序建立Sql Server数据库的运行环境。完成如在SQL Server数据库中建立设备，建立数据库，建立表格，分配权限等功能，如何方便的建立应用程序所需Sql Server环境的数据库环境，而不用启动SQL Enterprise Manager呢？下面来看：　　启动VB6.0，新建一个工程,在菜单-工程-引用里选"Microsoft A

2009-11-09 11:57:00 1035 1

原创 ADO错误码,ASP错误代码,jscript错误代码,vbscript错误代码对应

大部分的ADO的错误码对应的含义除了在 Error 对象和 Errors 集合中说明的提供者错误之外，ADO 本身也将错误返回到运行时环境的异常处理机制之中。使用编程语言的错误捕获机制（如 Microsoft& Visual Basic& 中的 On Error 语句）可捕获及处理下列错误。下表将同时显示十进制和十六进制错误代码值。常量名称编号说明 adErrInvalidArgumen

2009-11-09 00:49:00 4104 1

原创 VB打开文本文件的各种方法

打开文本文件是不少程序必须处理的问题。如何更有效地打开文本文件应该是一个值得研究的课题。为此，笔者将自己搜集到的几种方法无私地奉献出来(-_-)，供各位参考。下面所举的例子均假设F盘下有一个名为d.txt的文本文件，若需要尝试这些例子请作相应的改动。方法一: 用定长的String变量获取文本内容。由于定长String变量支持的下界为65400,所以在打开超过32K字节的文件时超出部分的字节将无

2009-11-05 00:13:00 3924

原创 VB中第三方控件(OCX)脱壳的方法

　　在用VB编程中合理的使用第三方控件，往往能够事半功倍。但是使用第三方控件也有不好的地方，那就是为了保证程序正常运行，必须使程序能够在系统目录或程序目录下找到所用的第三方控件。要做到这一点通常有两种办法：一是把控件和程序制成一个压缩包发行，这样的缺点是有可能导致在程序传播过程中丢失控件文件。二是制作安装程序，缺点是制作过程烦琐。而且上面两种办法也不符合绿色软件的要求。所谓的绿色软件是指软件只有

2009-10-28 17:06:00 1512

转载 VB调用系统的"打印机设置"和"页面设置".

VB调用系统的"打印机设置"和"页面设置". Option Explicit Const FW_NORMAL = 400 Const DEFAULT_CHARSET = 1 Const OUT_DEFAULT_PRECIS = 0 Const CLIP_DEFAULT_PRECIS = 0 Const DEFAULT_QUALITY = 0 Const D

2009-10-15 16:21:00 5827

转载两个MSFlexGrid的函数点击表头排序函数以及依据内容自动调整列宽为最合适的宽度

MSHFLEXGRID也可以用的哦~Public Const STR_SORT_ASC = "△"Public Const STR_SORT_DESC = "▽"//排序函数Public Sub Sort(sgrd As MSHFlexGrid, y As Single) With sgrd If y >= .RowPos(0) And y < .RowPos(1)

2009-10-13 23:28:00 1217 1

原创在VB中创建和使用动态数组控件的方法总结

在VB中,MSHFEXGRID不支持文本框,为了解决这个问题,一般的方法就是通过一个文本框的显示和隐藏,并获得表格单元的坐标,来实现向MSHFLEXGRID中录入数据的,具体方法我记得在本博中有,就不说了,自己搜一下今天要说的是在MSFLEXGRID中动态添加多个控件的问题: 先看一个动态添加的例子:Option ExplicitPrivate WithEvents

2009-10-13 19:26:00 5820

原创在ADO下修改ACCESS字段名的方法与思路

字段名可以在ACCESS的窗口化操作界面或SQL语句来进行修改,但在ADO环境下,则不能修改,下面是变通的办法: DB.Execute "alter table [表] add [cz_temp] text(50)" 新建临时中转字段cz_temp DB.Execute "update [表] Set cz_temp=[A]" 把A字段数据复制到临时中转字

2009-10-04 20:23:00 2186

原创 VB选项卡SSTAB属性及参数

(自定义)打开属性页BackColor背景颜色。可从弹出的调色板选择。Caption获得或设置活动选项卡中显示的文本CauseValidation该控件获得焦点时，失去焦点的控件的Validate事件是否发生。取值为：True 发生False 不发生DragIcon该对象在拖动过程中鼠标的图标DragMod

2009-09-30 14:07:00 7863 1

原创 SQL2005自动备份数据库，备份计划

SqlServer自动作业备份1、打开SQL Server Management Studio2、启动SQL Server代理3、点击作业->新建作业4、"常规"中输入作业的名称5、新建步骤，类型选T-SQL，在下面的命令中输入下面语句DECLARE @strPath NVARCHAR(200)set @strPath = convert(NVARCHAR(19),getd

2009-09-30 10:50:00 856

原创 VB备份ACCESS数据库的方法，代码

VB备份ACCESS数据库的方法，代码这个代码其实也适用于其它类型文件的复制，要修改一下其中的语句哦~Private Sub bak_Click()Dim TargetFileName As String 目标文件名On Error Resume NextWith cdlog1 .DialogTitle = "数据备份" .InitDir =

2009-09-27 20:49:00 2933 1

转载从VB到VB.NET——VB6程序员如何转向.NET

《开发高手》（发表于《CSDN开发高手》2003年9月号）作者 Mahesh Chand翻译韩磊 Visual Basic .NET是Microsoft Visual Studio .NET套件中主要组成部分之一。.NET版本的Visual Basic增加了更多特性，而且演化为完全面向对象（就像C++）的编程语言。本文将介绍VB.NET的新特性，并比较V

2009-08-22 21:43:00 3620

原创用VB判断文件、隐藏文件、文件夹是否存在

在VB中编程中，经常需要判断一个文件是否存在，以便执行相应的操作，这可用下列语句进行判断 Dir([pathname],[Attributes as VbFileAttribute=vbNormal]) As String 解释： pathname:文件的绝对路径； Attributes：文件的属性。 “[]”内为可选项。dir(file)=""表示文件不

2009-08-16 17:58:00 1943