Vc++ - simeon的技术专栏 - 51CTO技术博客-领先的IT技术博客

公告

一个从事IT技术的人，行走在字里行间，喜欢网络，喜欢看小说，喜欢给各大杂志投稿，更喜欢交朋友。从今年开始我将奉献更多的原创文章给大家。如果转载请著名原处并跟我联系。本Blog仅做技术研究，如有冒犯之处，请及时联系本人.

simeon2005 的BLOG

博客统计信息

51cto博客之星
用户名：simeon2005
文章数：923
评论数：784
访问量：267419
无忧币：10845
博客积分：10522
博客等级：9
注册日期：2006-05-23

51CTO推荐博客

struggle1=1	lhtwy
IT昆仑	davidchen
beniao	david_yeung
daizhenjun	maddish
北京看看	mk6yeung
刘古权	davjw

网络安全推荐站点

   Lenk技术联盟
   黑客防线杂志
   绿盟科技
   安全焦点
   Metasploit Project
   sqlsecurity
   SecuriTeam
   微软安全公告
   snort
   SABRE Security
   remote-scan
   realvnc
   PGP Corporation
   nessus
   milw0rm最新漏洞
   foundstone
   www.sysinternals.com
   蜜罐工程
   www.safemode.org
   sourceforge
   最新漏洞发布
   Concerning IT
   安诺科技
   encryptpe
   aspack
   瑞星网络安全
   黑客手册

软件下载推荐站点

   新浪软件下载
   华军软件园
   天极网下载
   驱动程序下载

加密与解密友情链接

看雪学院
看雪论坛

友情链接

安天信息安全专业论坛

国家经济与金融安全研究

   草根网
   祖国网
   痛恨走狗和卖国贼
   张宏良的BLOG
   用良知说话-时寒冰

文章

文章列表>>

VC对话框编程总结

2007-05-25 10:14:06

最近开始学习VC，从最简单的学习，为了更好的理解，因此写下一些东东。
对话框编程，我理解应该就是单击一个按钮，亦或从菜单上面单击一个命令，然后显示一个对话框。因此编程中：
（1）添加一个对话框，从对话框属性中去设置对话框名字。
（2）创建对话框类，创建一个新类，名称可以随意，其它使用默认值。
（3）给对话框添加消息函数。
（4）在menu中定义一个对象，用来打开这个对话框。
（5）为菜单定义一个函数，一般情况下是定义Command函数。
然后在其中加入以下代码：
CModeDialog ModeDlg;
ModeDlg.DoModal();
（6）在MainFrm.cpp中加入对话框的头文件。
#include "ModeDialog.h"
编译后，ok！

类别：Vc++ | 阅读全文(870) | 回复(1)

ASP技巧：FSO中的SubFolders 属性

2006-11-18 11:08:15

这是官方对SubFolders的介绍：

返回由指定文件夹中所有子文件夹（包括隐藏文件夹和系统文件夹）组成的 Folders 集合。

object.SubFolders

object 应为 Folder 对象的名称。

说明
以下代码举例说明如何使用 SubFolders 属性：

Function ShowFolderList(folderspec)
Dim fso, f, f1, s, sf
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(server.mappath(folderspec))
Set sf = f.SubFolders
For Each f1 in sf
s = s & f1.name
s = s & "<BR>"
Next
ShowFolderList = s
End Function

　　引用时：response.write ShowFolderList("./")，可以显示站点根中所有文件夹的集合。

类别：Vc++ | 阅读全文(90) | 回复(0)

ASP中自定义文件下载

2006-11-18 11:07:42

可以用流下载(耗内存，少用)或直接转到该文件.
<%
Const USE_STREAM = 0 '0.不用流(Adodb.Stream)下载 1.用流下载
Const ALLOW_FILE_EXT = "rar,zip,chm,doc,xls,swf,mp3,gif,jpg,jpeg,png,bmp" '允许下载的文件的扩展名，防止源代码被下载
Dim sDownFilePath '下载文件路径
sDownFilePath = Trim(Request("FilePath"))
'或者根据传过来的文件ID从数据库中获取文件路径
'如果 sDownFilePath 为绝对路径，一定要将 sDownFilePath 转换为相对本文件的相对路径
'sDownFilePath = "focus.swf"
Call DownloadFile(sDownFilePath)
Function DownloadFile(s_DownFilePath)
    '判断有没传递文件名
    If IsNull(s_DownFilePath) = True Or Trim(s_DownFilePath) = "" Then
        OutputErr "错误：先确定要下载的文件，下载失败"
    End If
    '判断扩展名是否合法
    Dim s_FileExt
    s_FileExt = Mid(s_DownFilePath, InstrRev(s_DownFilePath, ".")+1)
    If InStr("," & ALLOW_FILE_EXT & ",", "," &a..

类别：Vc++ | 阅读全文(112) | 回复(0)

IIS技巧：网站服务器的搭建与配置

2006-11-18 11:07:17

IIS
　　IIS(Internet Information Server)是微软公司推出的Web服务器程序。安装Windows 2000 Server或Windows 2000 Advanced Server时，将自动安装IIS 并建立默认的站点。如果计算机安装Windows 2000 Professional 或安装Windows 2000时没有安装IIS，则需要手工安装IIS。
　　IIS只能运行于基于NT技术的Windows平台，因此不能在Windows 98或Windows Me上安装。
　　如果你的机子里没有IIS，那么可以按下面所介绍的方法安装IIS。
　　1. IIS的安装
　　IIS的安装步骤如下:
　　(1)准备好Windows 2000安装光盘，放置于光盘驱动器中。
　　(2)单击【开始】|【设置】|【控制面板】命令，打开【控制面板】窗口，然后再打开【添加/删除程序】对话框。
　　(3)单击【添加/删除 Windows组件】按钮，弹出【Windows 组件向导】。在这里，可以看到目前系统中已经安装和没有安装的各种Windows组件。前面打勾的项是已经安装的组件，空白的是没有安装的组件，打勾但是颜色发灰的是部分安装的组件。我们将要安装的是“Internet信息服务(IIS)”，如图所示。
　　

　　(4)用鼠标选中“Internet信息服务(IIS)”，然后单击右下角的【详细信息】按钮，将看到如图1-11所示的选择界面�..

类别：Vc++ | 阅读全文(669) | 回复(0)

用ASP+DLL实现WEB方式修改服务器时间

2006-11-18 11:06:35

昨天一个朋友有个需求，是要通过WEB方式，修改IIS服务器上的时间，由于他的系统是ASP 3.0下开发的，所以本例子的代码是ASP的，不是ASP.NET，但是本人写这个文章是想抛砖引玉，毕竟编写程序关键的不是语言，更重要的是一种思想，把程序语言理解为一种工具，把编程思想理解为解决问题的思路和方法，那么编写出来的程序就是：利用“工具”按照解决问题的“思想”去解决一个问题。
　　首先，要感谢网友“小虎”，我是在网上看了他写的一篇关于用VB 6.0编写DLL组件FOR ASP的文章改写的，他的DLL代码只实现了改写小时和分钟，我增加了年、月、日、秒的修改。
首先，在VB 6.0中建立一个ActiveX Dll工程项目，信息如下：
　　工程名称：systimeset
　　类模块名称：timeset
　　VB 6.0的类模块代码如下：
1Option Explicit
2Private SystemTime As SystemTime
3Private Declare Function SetSystemTime()Function SetSystemTime Lib "kernel32" (lpSystemTime As SystemTime) As Long
4Private Type SystemTime
5 wYear As Integer
6 wMonth As I..

类别：Vc++ | 阅读全文(122) | 回复(0)

学习：正则表达式的基本语法

2006-11-18 11:06:01

正则表达式的功能实在太强大了~以下为找到的一个关于正则表达式基本语法的介绍：

首先让我们看两个特殊的符号'^'和'$'。他们的作用是分别指出一个字符串的开始和结束。例子如下：

"^The"：表示所有以"The"开始的字符串（"There"，"The cat"等）；
"of despair$"：表示所以以"of despair"结尾的字符串；
"^abc$"：表示开始和结尾都是"abc"的字符串——呵呵，只有"abc"自己了；
"notice"：表示任何包含"notice"的字符串。

象最后那个例子，如果你不使用两个特殊字符，你就在表示要查找的串在被查找串的任意部分——你并不把它定位在某一个顶端。

其它还有'*'，'+'和'?'这三个符号，表示一个或一序列字符重复出现的次数。它们分别表示“没有或更多”，“一次或更多”还有“没有或一次”。下面是几个例子：

"ab*"：表示一个字符串有一个a后面跟着零个或若干个b。（"a", "ab", "abbb",……）；"ab+"：表示一个字符串有一个a后面跟着至少一个b或者更多；"ab?"：表示一个字符串有一个a后面跟着零个或者一个b；"a?b+$"：表示在字符串的末尾有零个或一个a跟着一个或几个b。

你也可以使用范围，用大括号括起，用以表示重复次数的范围。

"ab{2}"：表示一个字符串有一个a跟着2个..

类别：Vc++ | 阅读全文(384) | 回复(4)

用AspJpeg组件，按宽高比例，真正生成缩略图

2006-11-18 11:04:31

在网站前台产品展示时，一般用缩略图，点击进入然后看到大图。
缩略图带来了两个烦劳：
1.如果后台只传一张大图，显示缩略图时只是将大图固定宽度和高度，这样不但造成缩略图变形，而且使得页面访问速度缓慢。
2.如果后台每次上传时，都上传两张图片，一张大图，一张缩略图。这样的话，没有1中的问题，但是给后台人员造成很大麻烦。因为后台人员并不一定知道处理生成缩略图；即使知道并能快速处理，也浪费掉一些时间。
下面的代码可以帮您用AspJpeg组件，按宽高比例，真正生成缩略图
AspJpeg组件下载：http://www.aspjpeg.com/download.html
AspJpeg组件使用：http://www.mydw.cn/tech/1/766.html
注册码：48958-77556-02411

<%
Dim sOriginalPath
sOriginalPath = "images/1.gif"
'原图片路径一般上传完毕后获取，或者从数据库获取
Dim sReturnInfo, sSmallPath '函数返回信息, 缩略图路径
sReturnInfo = BuildSmallPic(sOriginalPath, "images", 100, 100)
Response.Write "返回信息:" & sReturnInfo & "<br/>"
If InStr(sReturnInfo, "Error_") <= 0 Then
sSmallPath = sReturnI..

类别：Vc++ | 阅读全文(169) | 回复(0)

XMLTextReader和XmlDocument读取XML文件的比较

2006-11-18 11:04:01

看到网上一片文章，自己式了一下，果然 XMLTextReader速度要快！
在.NET框架的System.XML名称空间中包含的XMLTextReader类不需要对系统资源要求很高，就能从XML文件中快速读取数据。使用XMLTextReader类能够从XML文件中读取数据，并且将其转换为HTML格式在浏览器中输出。

　　读本文之前，读者需要了解一些基本知识：XML、HTML、C#编程语言，以及.NET尤其是ASP.NET框架的一些知识。
　　微软公司的.NET框架为开发者提供了许多开发的便利，随着XML的重要性不断增长，开发者们都期待着有一整套功能强大的XML工具被开发出来。.NET框架没有辜负我们的这番期望，在System.XML 名称空间中组织进了以下几个用于XML的类：
　　XMLTextReader------提供以快速、单向、无缓冲的方式存取XML数据。（单向意味着你只能从前往后读取XML文件，而不能逆向读取）
　　XMLValidatingReader------与XMLTextReader类一起使用，提供验证DTD、XDR和XSD架构的能力。
　　XMLDocument------遵循W3C文档对象模型规范的一级和二级标准，实现XML数据随机的、有缓存的存取。一级水平包含了DOM的最基本的部分，而二级水平增加多种改进，包括增加了对名称空间和级连状图表(CSS)的支持。
　..

类别：Vc++ | 阅读全文(285) | 回复(0)

FCKeditor在ASP配置环境中的使用

2006-11-18 11:03:31

说一下我的测试环境:XPSP2，IIS5.1，FCKeditor2.0
　　在IIS上建立一个新的站点，我直接取名为FCKeditor
　　在DW里建立一个相对应的站点，测试服务器为本机，支持VBScript
　　下载FCKeditor2.0，这个东西是开源的，网上能下到的地方很多，自己找去……
　　下载下来的应该是压缩包，解压到FCKeditor站点根目录，什么都不需要更改，直接就可以开始调用了。等你会了的时候，会发现简单得要死去!
　　在站点根目录下，新建一个index.asp页面，段内加如下代码(调用编辑器):

<%
Dim oFCKeditor
Set oFCKeditor = New FCKeditor
oFCKeditor.BasePath = "/FCKeditor/" //设置编辑器的路径，我站点根目录下的一个目录
oFCKeditor.ToolbarSet = "Default"
oFCKeditor.Width = "100%"
oFCKeditor.Height = "600"
oFCKeditor.Value = "" //这个是给编辑器初始值
oFCKeditor.Create "logbody" //以后编辑器里的内容都是由这个logbody取得，命名由你定
%>

　　Dim oFCKeditor
　　Se..

类别：Vc++ | 阅读全文(406) | 回复(0)

ASP技巧：网站的防盗链系统是如何做的？

2006-11-18 11:02:55

网站被盗链，是让许多站长头痛的事情，怎么解决这个问题呢？
　　http标准协议中有专门的字段记录referer
　　一来可以追溯上一个入站地址是什么
　　二来对于资源文件，可以跟踪到包含显示他的网页地址是什么。
　　因此所有防盗链方法都是基于这个Referer字段
　　网上比较多的2种
　　一种是使用apache文件FileMatch限制，在httpd.conf中增加 ( 其实也可以将把下面的语句存成一个.htaccess文件)，并放到你的网站的根目录(就是www/html目录)，这样子别人就没有办法盗连你的东东了~~
　　SetEnvIfNoCase Referer "^http://yahoo.com/" local_ref=1
　　Order Allow,Deny
　　Allow from env=local_ref
　　Allow from 127.0.0.1
　　这种很方便禁止非允许访问URL引用各种资源文件
　　请大家注意，把第一句"^http://yahoo.com/"改为你的网站。
　　第二种是使用rewrite,需要增加apache的mode_rewrite，支持.htaccess文件目录权限限制
　　在虚拟主机根目录增加.htaccess文件，描述从定向，把非本地地址refer的图片文件都从定向到警告图片或者警告网页上。
　　首先要确认你的服务器或空间的服务器解译引擎为Apache2，还有支持.htac..

类别：Vc++ | 阅读全文(254) | 回复(0)

ASP自定义函数：对字符串正则替换

2006-11-18 11:02:24

RegReplace(str,regexStr,RepalceStr) 对str 进行正则替换
如：
htmlstr = "123<img src=""asdf.gif"" border=""0"">45<b>6</b>"
htmlstr2 = RegReplace(htmlstr,"<(.[^><]*)>","")
返回 htmlstr2 为123456
Function RegReplace(Str,PatternStr,RepStr)
Dim NewStr,regEx
NewStr = Str
if isnull(NewStr) then
RegReplace = ""
exit function
end if
Set regEx = New RegExp
regEx.IgnoreCase = True
regEx.Global = True
regEx.Pattern=PatternStr
NewStr = regEx.Replace(NewStr,RepStr)
RegReplace = NewStr
end function

类别：Vc++ | 阅读全文(217) | 回复(0)

IIS服务器Web访问提示输入密码问题

2006-11-18 11:01:54

问：我的IIS服务器组件安装后之后，设置Web服务也没有问题，但是当访问指定好的网站是，却弹出密码提示窗口，要求输入密码。请问这是为什么？

答：访问站点出现密码提示窗，这是一个很常见的问题。您可以试着从下面几个方面入手检查。
访问的网页文件本身加了密。比如“默认Web站点”原主目录“X:\Inetpub\wwwroot”下的首页文件“iisstart.asp”访问时就需要密码。
没有设置允许匿名访问。在“Internet信息服务器”中，查看在该站点的属性配置项下的“目录安全性”中是否设置好下面的允许“匿名访问”这一项，并且其下“编辑”中“匿名用户账号”中“用户名”一项应为“IUSR_computer”（其中“computer”为计算机名）的格式；另外，还需要已勾选中“允许IIS控制密码”一项。
目标目录被限制了访问权限。此项仅当该目录位于NTFS格式分区中时才可能出现。方法：在其上单击右键，选“属性”，再进入“安全”窗口，看列表中是不是默认的允许“Everyone”组完全控制的状态。

类别：Vc++ | 阅读全文(324) | 回复(0)

ASP动态网页生成静态Html网页文件技术

2006-11-18 11:01:27

网页生成静态Html文件有许多好处,比如生成html网页有利于被搜索引擎收录,不仅被收录的快还收录的全.前台脱离了数据访问,减轻对数据库访问的压力,加快网页打开速度. 所以吟清最近对生成html比较感兴趣,看了不少文章,也有一点点收获.
1,下面这个例子直接利用FSO把html代码写入到文件中然后生成.html格式的文件
＜%
filename="test.htm"
if request("body")＜>"" then
set fso = Server.CreateObject("Scripting.FileSystemObject")
set htmlwrite = fso.CreateTextFile(server.mappath(""&filename&""))
htmlwrite.write "＜html>＜head>＜title>" & request.form("title") & "＜/title>＜/head>"
htmlwrite.write "＜body>输出Title内容: " & request.form("title") & "＜br /> 输出Body内容:" & request.form("body")& "＜/body>＜/html>"
htmlwrite.close
set fout=nothing
set fso=nothing
e..

类别：Vc++ | 阅读全文(442) | 回复(0)

收集整理ASP的常用内置函数

2006-11-18 11:00:00

　　函数，就是该语言封装了的一个功能块，以方便用户的调用。比如“now()”在VBScript中就是一个能显示出当前日期和时间的函数。至于具体为什么能显示，则是该语言内核所定的，用户只需明白“now()”就是用来能显示日期时间的。那么，我们当前接触的VBScript还有其他什么功能的函数么?
　　1，日期/时间函数
　　这些函数包括对“年”、“月”、“日”、“时”、“分”、“秒”、“星期”等的显示。
　　(1)Now函数:根据计算机系统设定的日期和时间，返回当前的日期和时间值。使用方法now();
　　(2)Date函数:只返回当前计算机系统设定的日期值。使用方法:date();
　　(3)Time函数:只返回当前计算机系统设定的时间值。使用方法:time();
　　(4)Year函数:返回一个代表某年的整数。使用方法:year(date)，其中date参数是任意的可以代表日期的参数，比如“year(date())”就表示是从“date()”得出的日期中提取其中“年”的整数。
　　另外，还可以这样应用:“year(#5 20,2006#)”表示提取“2006年5月20日”中“年”的整数值。关于“5 20,2006”，也可使用“5-20-2006”、“5/20/2006”等形式表现，即“某月某日”和“某年”的组合。同时注意使用“#”进行包括以表示日期值。
..

类别：Vc++ | 阅读全文(99) | 回复(0)

ASP二进制流方法隐藏图片文件真实地址

2006-11-18 10:55:04

能描述：上传图片文件到指定目录后，在本文件根据URL传入的文件名加上文件所在目录根据文件完整路径。再将该文件二进制数据流写入服务页面，从而达到隐藏图片真实地址防止外部引用图片的效果。
以下是引用片段：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Option Explicit
Const SysUrl="http://www.80Boby.com/uImg/"
Function ReadBinFile(fileName)
Dim objStream,bin
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = 1
objStream.LoadFromFile fileName
bin = objStream.Read
objStream.Close
ReadBinFile = bin
End Function
Function isSelfRefer()
Dim sHttp_Referer, sServer_Name
sServer_Name = CStr(Request.ServerVariables("HTTP_REFERER"))
if instr(sServer_Name,"80boby.com")<>0 or instr(sServer_Name,"freeat63.cn")<>0 then
IsSelfRefer = True
Else
IsSelfRefer = False
End If
End Function
if request.QueryString("Mar..

类别：Vc++ | 阅读全文(240) | 回复(0)

ASP实现可显示和隐藏的树型菜单

2006-11-18 10:54:19