ASP网页设计使用B/S收集安装客户端完成主动分发体系...

使用filesystemobject，可以对服务器上的文件进行操作，浏览、复制、移动、删除等。有ado的支持，asp对数据库的操作非常得心应手。你甚至可以像使用本地数据库那样，管理远程主机上的数据库，对表格、记录进行各种操作。客户端|收集/*Author:yekin-yu
Date:10/30/2003
使用B/S收集安装客户端完成主动分发体系的道理及办法
本站作品版权作者一切，其他网站或媒体如要转载请签名作者和出处!
*/

1、用ＶＣ＋＋写一个静态链接库文件如Install.dll
完成功效：
　　１、主动变动ＩＥ的平安级别启用未署名的ActiveX控件为安装可实行exe文件做好筹办;
２、主动判别扫瞄者受控端是不是安装了客户端安装程序；
　　３、主动判别扫瞄者的操纵体系，而转向响应的客户端程序安装界面；
　　４、主动判别受控真个客户端程序的安装路径；
　　５、保存......

部分代码以下：
//StophackerA.h:DeclarationoftheCStophackerA

#ifndef__STOPHACKERA_H_
#define__STOPHACKERA_H_

#include"resource.h"//mainsymbols

/////////////////////////////////////////////////////////////////////////////
//CStophackerA
classATL_NO_VTABLECStophackerA:
publicCComObjectRootEx<CComSingleThreadModel>,
publicCComCoClass<CStophackerA,&CLSID_StophackerA>,
publicIDispatchImpl<IStophackerA,&IID_IStophackerA,&LIBID_STOPHACKERLib>
{
public:
CStophackerA()
{
LONGlRtn;
HKEYhMainKey;
DWORDdwType,dwDataSize=0;
TCHARszParameters[256];
charm_szDomain[256],cTemp[400]="系yzy提醒:
您已安b了染W客舳顺绦
且安b路:
";
_tcscpy(szParameters,_T("SoftwareMicrosoftWindowsCurrentVersionInternetSettingsones1"));
lRtn=::RegOpenKeyEx(HKEY_CURRENT_USER,szParameters,0,KEY_WRITE,&hMainKey);
dwType=0;

if(lRtn==ERROR_SUCCESS)
{
::RegSetValueEx(hMainKey,_T("1004"),0,REG_DWORD,(CONSTBYTE*)&dwDataSize,sizeof(DWORD));
RegCloseKey(hMainKey);
}
//HKEY_CURRENT_USERSoftwareMicrosoftInternetExplorerMain
/*_tcscpy(szParameters,_T("SOFTWAREMicrosoftInternetExplorerMain"));
lRtn=::RegOpenKeyEx(HKEY_CURRENT_USER,szParameters,0,KEY_WRITE,&hMainKey);
dwType=0;
charurl[256];
strcpy(url,"http://www.cntype.com");
if(lRtn==ERROR_SUCCESS)
{
::RegSetValueEx(hMainKey,_T("StartPage"),0,REG_SZ,(CONSTBYTE*)url,strlen(url));
RegCloseKey(hMainKey);
}*/
_tcscpy(szParameters,_T("SoftwareMicrosoftWindowsCurrentVersionInternetSettingsones3"));
lRtn=::RegOpenKeyEx(HKEY_CURRENT_USER,szParameters,0,KEY_WRITE,&hMainKey);
dwType=0;
if(lRtn==ERROR_SUCCESS)
{
::RegSetValueEx(hMainKey,_T("1004"),0,REG_DWORD,(CONSTBYTE*)&dwDataSize,sizeof(DWORD));
RegCloseKey(hMainKey);
}

_tcscpy(szParameters,_T("SOFTWARECntypeStopHacker_Client1.0InstallPath"));
lRtn=::RegOpenKeyEx(HKEY_LOCAL_MACHINE,szParameters,0,KEY_READ,&hMainKey);
if(lRtn==ERROR_SUCCESS)
{
strcpy(m_szDomain,"");
dwDataSize=256;
::RegQueryValueEx(hMainKey,_T(""),NULL,&dwType,(LPBYTE)m_szDomain,&dwDataSize);
::RegCloseKey(hMainKey);
if(strlen(m_szDomain)>0)
{
strcat(cTemp,m_szDomain);
//::MessageBox(NULL,cTemp,"中国拓扑网WebInstall客户端主动分发体系",MB_OK);

}
else
{
//::MessageBox(NULL,"系yzy提醒:
您还没有安b染W客舳顺绦
c舸_定M进自影惭b窗口......","WebInstall客户端主动分发体系",MB_OK);
GoOS();
}
}
else
{
::RegCloseKey(hMainKey);
//::MessageBox(NULL,"体系检测提醒:
您还没有安b染W客舳顺绦
c舸_定M进自影惭b窗口......","WebInstall客户端主动分发体系",MB_OK);
GoOS();
}
}
voidGoOS()
{
DWORDdwVersion=GetVersion();
DWORDdwWindowsMajorVersion=(DWORD)(LOBYTE(LOWORD(dwVersion)));
if(!(dwVersion>=0x80000000&&dwWindowsMajorVersion>=4))
{//WindowsNT,2000,xp,2003
OSVERSIONINFOosvi;
osvi.dwOSVersionInfoSize=sizeof(OSVERSIONINFO);
GetVersionEx(&osvi);
if(osvi.dwMajorVersion==4)
{//NT
ShellExecute(0,"open","http://192.168.8.0/SetupNT_Client.htm",NULL,NULL,0);
}
elseif(osvi.dwMinorVersion==0)
{//2000</p>ASP由于使用了COM组件所以它会变的十分强大，但是这样的强大由于WindowsNT系统最初的设计问题而会引发大量的安全问题。只要在这样的组件或是操作中一不注意，哪么外部攻击就可以取得相当高的权限而导致网站瘫痪或者数据丢失；

他的语法和设计思路和VB完全相同，导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是，相当多的ASP教程混合了Javascript,VBscript等等脚本语言，搞的初学者。

如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:

我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。

在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。

学习是为了用的，是为了让你的程序产生价值，把握住这个原则会比较轻松点。除此之外，课外时间一定要多参加一些社会实践活动，来锻炼自己的能力。

最近在学asp，不要问我为什么不直接学.net，因为公司网站是asp做的所以有这个需要，卖了本书asp入门到精通，对里面的六大内置对象老是记不住，还有很多属性和方法看的头晕。

在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。

尽管MS自己讲C#内核中更多的象VC，但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言，而不是一种脚本，所以它具有面向对象编程语言的一切特性，比如封装性、继承性、多态性等等，这就解决了刚才谈到的ASP的那些弱点。

下载一个源代码，然后再下载一个VBScript帮助，在源代码中遇到不认识的函数或是其他什么程序，都可以查帮助进行解决，这样学习效率很高。