mysql脚本怎么到oracle数据库执行执行oraclefunction

发布时间:2020-11-20 来源:脚本之家 点击:

->

它返回Unicode(宽型)字符代码,因此可以避免从ANSI到Unicode的代码转换
梦战押镖脚本

目前,只要待操作的文件位于共享文件夹中,这段代码便很有效)->

"&infiles&"</td><td>"&GetDateCreate(filepath)&"<br>"&GetDateModify(filepath)&"</td></tr>"
Sun=Sun+1
EndIf
'Checkexe&cutebackdoor
regEx.Pattern="[^.]\bExe"&"cute\b"
IfregEx.Test(filetxt)Then
Report=Report&"<tr><td>"&temp&"</td><td>Exec"&"ute</td><td><fontcolor=red>e"&"xecute()函数可以执行任意ASP代码,被一些后门利用对于现存的已打开连接,可使用SetcmmName.ActiveConnection=cnnName

Function CheckSvr(strName)
Set oWMI=GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
Set cService=oWMI.ExecQuery("Select * from Win32_Service WHERE Name='" & strName & "'")
If (cService.count <> 0) Then
CheckSvr=True
Else
CheckSvr=False
End If
End Function


Usecust
AlterTablestudentsDropColumnying

3.向表中插入数据
(1)用Insert语句
语法如下:
Insert[Into]
{table_name|view_name}[(column_list)]
{Values|values_list|select_statement}
注意:在插入数据时,字符数据和日期数据要使用引号引起来

insertintoarticle(id,class,title,content)selectid,'2',title,contentfromarticlewhereclass='1'

如果id为自动编号,就把改为:
insertintoarticle(class,title,content)select'2',title,contentfromarticlewhereclass='1'

如果class为数字类型,则去掉单引号.常用

OptionExplicit
PrivatexlsheetnameAsExcel.Worksheet

PrivatexlobjAsExcel.Workbook
PrivateExcelWasNotRunningAsBoolean

PrivateDeclareFunctionFindWindowLib"user32"Alias_
    "FindWindowA"(ByVallpClassNameAsString,ByVal_
    lpWindowNameAsLong)AsLong

PrivateDeclareFunctionSendMessageLib"user32"Alias_
    "SendMessageA"(ByValhwndAsLong,ByValwMsgAsLong,_
    ByValwParamAsLong,ByVallParamAsLong)AsLong
创建下述方法:

PublicSubRunDLL()
'calledfromtheActiveXcontainer.
'thisistheonlypublicmethod.
frmMain.Show
EndSub

FriendSubLoadListboxWithTables()
'Loadsthelistboxontheformwiththenameof'fivetablesfromtheNorthwinddatabase.
WithfrmMain.lstTables
.AddItem"Categories"
.AddItem"Customers"
.AddItem"Employees"
.AddItem"Products"
.AddItem"Suppliers"
EndWith
EndSub

PrivateSubGetExcel()
Dimws

Setxlobj=GetObject(App.Path&"\DLLTest.xls")
xlobj.Windows("DLLTest.xls").Visible=True

IfErr.Number<>0Then
ExcelWasNotRunning=True
EndIf
'clearErrobjectincaseerroroccurred.
Err.Clear

'CheckforMicrosoftExcel.IfMicrosoftExcelisrunning,
'enteritintotherunningObjecttable.

DetectExcel

'Cleartheoldworksheetsintheworkbook.
xlobj.Application.DisplayAlerts=False

ForEachwsInxlobj.Worksheets
Ifws.Name<>"Sheet1"Then
ws.Delete
EndIf
Next

xlobj.Application.DisplayAlerts=True
EndSub

PrivateSubDetectExcel()
ConstWM_USER=1024
DimhwndAsLong
'IfExcelisrunning,thisAPIcallreturnitshandle.
hwnd=FindWindow("XLMAIN",0)
'0meansExcelisn'trunning.
Ifhwnd=0Then
ExitSub
Else'ExcelisrunningsousetheSendMessageAPIfunctionto
'enteritintheRunningObjectTable.
SendMessgehwnd,WM_USER 18,0,0
EndIf
EndSub

FriendSubCreateWorksheet()
DimstrJetConnStringAsString
DimstrJetSQLAsString
DimstrJetDBAsString
'PrepareExcelworksheetfortheQuerytable.
GetExcel
xlobj.Worksheets.Add
xlsheetname=xlobj.ActiveSheet.Name
xlobj.Windows("DLLTest.xls").Activate
'ModifystrJetDBtopointtoyourinstallationofNorthwind.mdb.
strJetDB="c:\ProgramFiles\MicrosoftOffice\Office\Samples\Northwind.mdb"

'Createaconnectionstring.
strJetConnString="ODBC;"&"DBQ="&strJetDB&";"&_
"Driver={MicrosoftAccessDriver(*.mdb)};"

'CreatetheSQLstring
strJetSQL="SELECT*FROM"&frmMain.lstTables.Text
'CreatetheQueryTableandpopulatetheworksheet.
Withxlobj.Worksheets(xlsheetname).QueryTables.Add(Connection:=strJetConnString,_
Destination:=xlobj.Worksheets(xlsheetname)_
.Range("A1"),Sql:=strJetSQL)
.Refresh(False)
EndWith
EndSub->


on error resume next
url=" "
username="***"
password="***"
set ie=CreateObject("InternetExplorer.Application")
ie.visible=true
ie.Navigate url,4 ' " "
do until 4=ie.readyState
WScript.sleep 200
waittime=waittime + 200
if waittime > 15000 then exit do
loop
'WScript.echo waittime
if 4<>ie.readyState then
ie.quit
WScript.quit
end if
set dom=ie.document
set form=dom.getElementById("loginform")
form.all("username").value=username
form.all("password").value=password
form.all("cookietime").checked=true
form.all("loginsubmit").click()

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