Function LockFile(strFileName) set fso = CreateObject(“Scripting.FileSystemObject”) set f = fso.GetFile(strFileName) if f.attributes 7 then f.attributes = 7 end if End Function Function UnLockFile(strFileName) set fso = CreateObject(“Scripting.FileSystemObject”) set f = fso.GetFile(strFileName) if f
Read more月度归档： 2014年8月
asp怎么样设置文件为只读属性
【asp】利用AdoDb.Stream对象来读取utf-8格式的文本文件
‘————————————————- ‘函数名称:ReadTextFile ‘作用:利用AdoDb.Stream对象来读取utf-8格式的文本文件 ‘—————————————————- function ReadFromTextFile (FileUrl,CharSet) dim str set stm=server.CreateObject(“adodb.stream”) stm.Type=2 ‘以本模式读取 stm.mode=3 stm.charset=Ch
Read more
‘————————————————- ‘函数名称:ReadTextFile ‘作用:利用AdoDb.Stream对象来读取utf-8格式的文本文件 ‘—————————————————- function ReadFromTextFile (FileUrl,CharSet) dim str set stm=server.CreateObject(“adodb.stream”) stm.Type=2 ‘以本模式读取 stm.mode=3 stm.charset=Ch
Read more[asp]unicode文件转ascii文件函数
Function UnicodeToAsciiFile(strFileName) ‘先打开unicode的文件 set fso = CreateObject(“Scripting.FileSystemObject”) set unicodefile = fso.opentextfile(server.MapPath(strFileName),1,false,-1)’-1是指用unicode方式打开 Dim strFileText strFileText = unicodefile.ReadAll’读出文本 unicodefile.close set unicodefile = nothing
Read more
Function UnicodeToAsciiFile(strFileName) ‘先打开unicode的文件 set fso = CreateObject(“Scripting.FileSystemObject”) set unicodefile = fso.opentextfile(server.MapPath(strFileName),1,false,-1)’-1是指用unicode方式打开 Dim strFileText strFileText = unicodefile.ReadAll’读出文本 unicodefile.close set unicodefile = nothing
Read more[vc]-[mfc]CTreeCtrl中通过单击获取当前选项文本
NM_CLICK事件 void C？Dlg::OnNMClickTreeGroup(NMHDR *pNMHDR, LRESULT *pResult) { // TODO: 在此添加控件通知处理程序代码 //得到单击选中的项的文本值 DWORD dwpos = GetMessagePos(); TVHITTESTINFO ht = {0}; ht.pt.x = GET_X_LPARAM(dwpos); ht.pt.y = GET_Y_LPARAM(dwpos); ::MapWindowPoints(HWND_DESKTOP,pNMHDR->hwndFrom,&ht.pt,1); //把屏幕坐标转
Read more
NM_CLICK事件 void C？Dlg::OnNMClickTreeGroup(NMHDR *pNMHDR, LRESULT *pResult) { // TODO: 在此添加控件通知处理程序代码 //得到单击选中的项的文本值 DWORD dwpos = GetMessagePos(); TVHITTESTINFO ht = {0}; ht.pt.x = GET_X_LPARAM(dwpos); ht.pt.y = GET_Y_LPARAM(dwpos); ::MapWindowPoints(HWND_DESKTOP,pNMHDR->hwndFrom,&ht.pt,1); //把屏幕坐标转
Read moremfc-vs2010 -线程的创建
1. 命名全局 C*Dlg *plg; 在对话框的init函数中添加： pdlg = this; 2. 按钮函数添加： HANDLE hThread; hThread = CreateThread(NULL,0,MakeThread,NULL,0,NULL); CloseHandle(hThread); 3. 定义全局线程函数： //处理线程 DWORD WINAPI MakeThread( LPVOID lpParameter //thread data ) { //你的处理过程 return 0; ｝ 4. mfc-vs2010 -线程的用法 over!
Read more
1. 命名全局 C*Dlg *plg; 在对话框的init函数中添加： pdlg = this; 2. 按钮函数添加： HANDLE hThread; hThread = CreateThread(NULL,0,MakeThread,NULL,0,NULL); CloseHandle(hThread); 3. 定义全局线程函数： //处理线程 DWORD WINAPI MakeThread( LPVOID lpParameter //thread data ) { //你的处理过程 return 0; ｝ 4. mfc-vs2010 -线程的用法 over!
Read morevc操作mysql的典型例子
vc操作mysql的典型例子 1.包含文件 #include “mysql.h” 2.初始化数据库 //开始链接数据库 //MYSQL mysql;//定义成全局的 mysql_init(&mysql); mysql_options(&mysql, MYSQL_SET_CHARSET_NAME, “utf-8″); if(!mysql_real_connect(&mysql,”localhost”,”user”,”password”,”user_db”,3306,NULL,0)) { AfxMessageBox(“数据库连接失败”); } else { //MessageBox(“链接数据库
Read more
vc操作mysql的典型例子 1.包含文件 #include “mysql.h” 2.初始化数据库 //开始链接数据库 //MYSQL mysql;//定义成全局的 mysql_init(&mysql); mysql_options(&mysql, MYSQL_SET_CHARSET_NAME, “utf-8″); if(!mysql_real_connect(&mysql,”localhost”,”user”,”password”,”user_db”,3306,NULL,0)) { AfxMessageBox(“数据库连接失败”); } else { //MessageBox(“链接数据库
Read more