1月15
1、服务器安全设置之--硬盘权限篇
这里着重谈需要的权限,也就是最终文件夹或硬盘需要的权限,可以防御各种木马入侵,提权攻击,跨站攻击等。本实例经过多次试验,安全性能很好,服务器基本没有被木马威胁的担忧了。
这里着重谈需要的权限,也就是最终文件夹或硬盘需要的权限,可以防御各种木马入侵,提权攻击,跨站攻击等。本实例经过多次试验,安全性能很好,服务器基本没有被木马威胁的担忧了。
1月15
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
----------------------------------------------------------------------------------------
************************* 随机图片显示 ****************************
使用实例:img.asp?list=图片存放目录
使用注意:图片目录放于本文件同目录下!需要FSO支持!
说明:只要将变化图片放于一个目录下,修改下面程序的(需要修改的地方)成你的目录名称!
上传本程序和图片文件夹到同一目录下,在发帖时候使用UBB代码形如:即可!
----------------------------------------------------------------------------------------
[separator]
Function AllPath()
Dim Domain,GFilePath
Domain = Request.ServerVariables("SERVER_NAME")
GFilePath = Request.ServerVariables("PATH_INFO")
GFilePath = lcase(left(GFilePath,instrRev(GFilePath,"/")))
AllPath = "http://"&amp;Domain&amp;GFilePath
End Function
Function ShowFileList(folderspec)
Dim Path,objFSO,objFolder,count,objFile,nume,S
Path = Server.MapPath(folderspec)
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If objFSO.FolderExists(Path) Then
Set objFolder = objFSO.GetFolder(Path)
count = 0
For Each objFile in objFolder.Files
count = count+1
Next
randomize
nume = Int((count*rnd)+1)
S = 0
ShowFileList = ""
For Each objFile in objFolder.Files
S = S + 1
If S = nume Then
ShowFileList = objFile.Name
Exit For
End If
Next
Set objFolder = Nothing
Else
ShowFileList = "NO"
End If
Set objFSO = Nothing
End Function
Dim list,filename,address,str
list = trim(Request.QueryString("list"))
if list = "" then
Response.write "本页需要正确参数引入,您缺少相关的参数!正确格式如下:"&amp;AllPath&amp;"img.asp?list=(需要修改的地方)"
Response.End()
end if
filename = ShowFileList("./"&amp;list&amp;"/")
if filename = "NO" then
Response.write "您指定的目录<b>"&amp;list&amp;"</b>不存在,请重新指定!"
Response.End()
end if
if filename = "" then
Response.write "您指定的目录<b>"&amp;list&amp;"</b>没有相关的图片文件存在,请重新指定!"
Response.End()
end if
str = right(filename,3)
if str<>"jpg" and str<>"gif" then
filename = "erro.gif"
end if
address = AllPath&amp;list&amp;"/"
address = address&amp;filename
%>
<%Response.redirect(address)%>
<%
----------------------------------------------------------------------------------------
************************* 随机图片显示 ****************************
使用实例:img.asp?list=图片存放目录
使用注意:图片目录放于本文件同目录下!需要FSO支持!
说明:只要将变化图片放于一个目录下,修改下面程序的(需要修改的地方)成你的目录名称!
上传本程序和图片文件夹到同一目录下,在发帖时候使用UBB代码形如:即可!
----------------------------------------------------------------------------------------
[separator]
Function AllPath()
Dim Domain,GFilePath
Domain = Request.ServerVariables("SERVER_NAME")
GFilePath = Request.ServerVariables("PATH_INFO")
GFilePath = lcase(left(GFilePath,instrRev(GFilePath,"/")))
AllPath = "http://"&amp;Domain&amp;GFilePath
End Function
Function ShowFileList(folderspec)
Dim Path,objFSO,objFolder,count,objFile,nume,S
Path = Server.MapPath(folderspec)
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If objFSO.FolderExists(Path) Then
Set objFolder = objFSO.GetFolder(Path)
count = 0
For Each objFile in objFolder.Files
count = count+1
Next
randomize
nume = Int((count*rnd)+1)
S = 0
ShowFileList = ""
For Each objFile in objFolder.Files
S = S + 1
If S = nume Then
ShowFileList = objFile.Name
Exit For
End If
Next
Set objFolder = Nothing
Else
ShowFileList = "NO"
End If
Set objFSO = Nothing
End Function
Dim list,filename,address,str
list = trim(Request.QueryString("list"))
if list = "" then
Response.write "本页需要正确参数引入,您缺少相关的参数!正确格式如下:"&amp;AllPath&amp;"img.asp?list=(需要修改的地方)"
Response.End()
end if
filename = ShowFileList("./"&amp;list&amp;"/")
if filename = "NO" then
Response.write "您指定的目录<b>"&amp;list&amp;"</b>不存在,请重新指定!"
Response.End()
end if
if filename = "" then
Response.write "您指定的目录<b>"&amp;list&amp;"</b>没有相关的图片文件存在,请重新指定!"
Response.End()
end if
str = right(filename,3)
if str<>"jpg" and str<>"gif" then
filename = "erro.gif"
end if
address = AllPath&amp;list&amp;"/"
address = address&amp;filename
%>
<%Response.redirect(address)%>
1月15
用SHELL 命令 来启动QQ的 适合小量 QQ登陆
支持珊瑚虫外挂登陆 和QQGAME 登陆 珊瑚虫要和QQ放同一目录
注意保护好AUTOQQConfig.cfg 虽说里面保存的密码是加密过的
但是被别人得到这个文件 别人虽说不知道密码也基本不可能破解的了
但是可以用这个文件 来登陆QQ的 过段时间考虑加入硬盘ID 验证来保护
(密码 是经过MD5 HASH1 BASE64 加密 同QQ服务器密码
基本不可能能破解的 忘了自己找回)
MD5:d27343ce8b0b3a031b8f064dff7ef5c7(压缩包内文件)
更新:
原文件由于检测QQGAME路径 可能造成的没有安装QQGAME
启动本程序提示 没有找到QQ的问题
支持珊瑚虫外挂登陆 和QQGAME 登陆 珊瑚虫要和QQ放同一目录
注意保护好AUTOQQConfig.cfg 虽说里面保存的密码是加密过的
但是被别人得到这个文件 别人虽说不知道密码也基本不可能破解的了
但是可以用这个文件 来登陆QQ的 过段时间考虑加入硬盘ID 验证来保护
(密码 是经过MD5 HASH1 BASE64 加密 同QQ服务器密码
基本不可能能破解的 忘了自己找回)
MD5:d27343ce8b0b3a031b8f064dff7ef5c7(压缩包内文件)
更新:
原文件由于检测QQGAME路径 可能造成的没有安装QQGAME
启动本程序提示 没有找到QQ的问题
1月15
下载文件 Option Explicit
Dim objSWbemServices As SWbemServices
Dim objSWbemObjectSet As SWbemObjectSet
Dim objSWbemObject As SWbemObject
Function WMIDateToString(dtmDate)
WMIDateToString = CDate(Mid(dtmDate, 5, 2) & "/" & _
Mid(dtmDate, 7, 2) & "/" & _
Left(dtmDate, 4) & " " & _
Mid(dtmDate, 9, 2) & ":" & _
Mid(dtmDate, 11, 2) & ":" & _
Mid(dtmDate, 13, 2))
End Function
[separator]
Private Sub Command4_Click()
Set objSWbemObjectSet = objSWbemServices.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where Description='" & Combo1.Text & "'")
For Each objSWbemObject In objSWbemObjectSet
objSWbemObject.RenewDHCPLease
Next
MsgBox "续定IP成功!", 64, "信息"
Call Combo1_Click
End Sub
Private Sub Command5_Click()
Set objSWbemObjectSet = objSWbemServices.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where Description='" & Combo1.Text & "'")
For Each objSWbemObject In objSWbemObjectSet
objSWbemObject.ReleaseDHCPLease
Next
MsgBox "释放IP成功!", 64, "信息"
Call Combo1_Click
End Sub
Private Sub Command6_Click()
Set objSWbemObjectSet = objSWbemServices.ExecQuery("Select * From Win32_NetworkAdapter Where Description='" & Combo1.Text & "'")
For Each objSWbemObject In objSWbemObjectSet
objSWbemObject.EnableNetConnectionID
Next
End Sub
'Text1(0)为IP地址、Text1(1)为子网掩码、Text1(2)为缺省网关、Text1(3)为DNS
Private Sub Form_Load()
Set objSWbemServices = GetObject("winmgmts:")
Set objSWbemObjectSet = objSWbemServices.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")
For Each objSWbemObject In objSWbemObjectSet
Combo1.AddItem objSWbemObject.Description '添加本机上已经安装了TCP/IP协议的网卡
Next
Combo1.Text = Combo1.List(0)
If Combo1 = "" Then
Exit Sub
Else
Combo1.ListIndex = 0
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set objSWbemServices = Nothing
Set objSWbemObjectSet = Nothing
Set objSWbemObject = Nothing
End Sub
'当选择了网卡后,显示当前所选网卡的设置
Private Sub Combo1_Click()
Set objSWbemObjectSet = objSWbemServices.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where Description='" & Combo1.Text & "'")
For Each objSWbemObject In objSWbemObjectSet
Text1(0).Text = objSWbemObject.IPAddress(0)
Text1(1).Text = objSWbemObject.IPSubnet(0)
If IsNull(objSWbemObject.DNSServerSearchOrder) Then
Text1(3).Text = ""
Text1(4).Text = ""
Else
Text1(3).Text = objSWbemObject.DNSServerSearchOrder(0)
Text1(4).Text = objSWbemObject.DNSServerSearchOrder(1)
End If
If IsNull(objSWbemObject.DefaultIPGateway) Then
Text1(2).Text = ""
Else
Text1(2).Text = objSWbemObject.DefaultIPGateway(0)
End If
If IsNull(objSWbemObject.DHCPLeaseObtained) Then
Text1(5).Text = ""
Text1(6).Text = ""
Else
Text1(5).Text = WMIDateToString(objSWbemObject.DHCPLeaseObtained)
Text1(6).Text = WMIDateToString(objSWbemObject.DHCPLeaseExpires)
End If
If IsNull(objSWbemObject.DHCPServer) Then
Text1(7).Text = ""
Else
Text1(7).Text = objSWbemObject.DHCPServer
End If
Text1(8) = objSWbemObject.macAddress
Next
End Sub
'设置网卡的IP地址、子网掩码、缺省网关和DNS
Private Sub Command1_Click()
Set objSWbemObjectSet = objSWbemServices.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where Description='" & Combo1.Text & "'")
For Each objSWbemObject In objSWbemObjectSet
objSWbemObject.EnableStatic Array(Text1(0).Text), Array(Text1(1).Text)
objSWbemObject.SetGateways Array(Text1(2).Text)
objSWbemObject.SetDNSServerSearchOrder Array(Text1(3).Text, Text1(4).Text)
Next
MsgBox "网卡参数设置成功!", 64, "信息"
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Command3_Click()
Set objSWbemObjectSet = objSWbemServices.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where Description='" & Combo1.Text & "'")
For Each objSWbemObject In objSWbemObjectSet
objSWbemObject.EnableDHCP
objSWbemObject.SetDNSServerSearchOrder
Next
MsgBox "恢复自动获取IP成功!", 64, "信息"
End Sub
Dim objSWbemServices As SWbemServices
Dim objSWbemObjectSet As SWbemObjectSet
Dim objSWbemObject As SWbemObject
Function WMIDateToString(dtmDate)
WMIDateToString = CDate(Mid(dtmDate, 5, 2) & "/" & _
Mid(dtmDate, 7, 2) & "/" & _
Left(dtmDate, 4) & " " & _
Mid(dtmDate, 9, 2) & ":" & _
Mid(dtmDate, 11, 2) & ":" & _
Mid(dtmDate, 13, 2))
End Function
[separator]
Private Sub Command4_Click()
Set objSWbemObjectSet = objSWbemServices.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where Description='" & Combo1.Text & "'")
For Each objSWbemObject In objSWbemObjectSet
objSWbemObject.RenewDHCPLease
Next
MsgBox "续定IP成功!", 64, "信息"
Call Combo1_Click
End Sub
Private Sub Command5_Click()
Set objSWbemObjectSet = objSWbemServices.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where Description='" & Combo1.Text & "'")
For Each objSWbemObject In objSWbemObjectSet
objSWbemObject.ReleaseDHCPLease
Next
MsgBox "释放IP成功!", 64, "信息"
Call Combo1_Click
End Sub
Private Sub Command6_Click()
Set objSWbemObjectSet = objSWbemServices.ExecQuery("Select * From Win32_NetworkAdapter Where Description='" & Combo1.Text & "'")
For Each objSWbemObject In objSWbemObjectSet
objSWbemObject.EnableNetConnectionID
Next
End Sub
'Text1(0)为IP地址、Text1(1)为子网掩码、Text1(2)为缺省网关、Text1(3)为DNS
Private Sub Form_Load()
Set objSWbemServices = GetObject("winmgmts:")
Set objSWbemObjectSet = objSWbemServices.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")
For Each objSWbemObject In objSWbemObjectSet
Combo1.AddItem objSWbemObject.Description '添加本机上已经安装了TCP/IP协议的网卡
Next
Combo1.Text = Combo1.List(0)
If Combo1 = "" Then
Exit Sub
Else
Combo1.ListIndex = 0
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set objSWbemServices = Nothing
Set objSWbemObjectSet = Nothing
Set objSWbemObject = Nothing
End Sub
'当选择了网卡后,显示当前所选网卡的设置
Private Sub Combo1_Click()
Set objSWbemObjectSet = objSWbemServices.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where Description='" & Combo1.Text & "'")
For Each objSWbemObject In objSWbemObjectSet
Text1(0).Text = objSWbemObject.IPAddress(0)
Text1(1).Text = objSWbemObject.IPSubnet(0)
If IsNull(objSWbemObject.DNSServerSearchOrder) Then
Text1(3).Text = ""
Text1(4).Text = ""
Else
Text1(3).Text = objSWbemObject.DNSServerSearchOrder(0)
Text1(4).Text = objSWbemObject.DNSServerSearchOrder(1)
End If
If IsNull(objSWbemObject.DefaultIPGateway) Then
Text1(2).Text = ""
Else
Text1(2).Text = objSWbemObject.DefaultIPGateway(0)
End If
If IsNull(objSWbemObject.DHCPLeaseObtained) Then
Text1(5).Text = ""
Text1(6).Text = ""
Else
Text1(5).Text = WMIDateToString(objSWbemObject.DHCPLeaseObtained)
Text1(6).Text = WMIDateToString(objSWbemObject.DHCPLeaseExpires)
End If
If IsNull(objSWbemObject.DHCPServer) Then
Text1(7).Text = ""
Else
Text1(7).Text = objSWbemObject.DHCPServer
End If
Text1(8) = objSWbemObject.macAddress
Next
End Sub
'设置网卡的IP地址、子网掩码、缺省网关和DNS
Private Sub Command1_Click()
Set objSWbemObjectSet = objSWbemServices.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where Description='" & Combo1.Text & "'")
For Each objSWbemObject In objSWbemObjectSet
objSWbemObject.EnableStatic Array(Text1(0).Text), Array(Text1(1).Text)
objSWbemObject.SetGateways Array(Text1(2).Text)
objSWbemObject.SetDNSServerSearchOrder Array(Text1(3).Text, Text1(4).Text)
Next
MsgBox "网卡参数设置成功!", 64, "信息"
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Command3_Click()
Set objSWbemObjectSet = objSWbemServices.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where Description='" & Combo1.Text & "'")
For Each objSWbemObject In objSWbemObjectSet
objSWbemObject.EnableDHCP
objSWbemObject.SetDNSServerSearchOrder
Next
MsgBox "恢复自动获取IP成功!", 64, "信息"
End Sub
1月15
引用FSO.
Private Sub Command1_Click()
Dim fs As New FileSystemObject ' 建立 FileSystemObject
Dim fd As Folder ' 定义 Folder 对象
Dim sfd As Folder
Set fd = fs.GetFolder("c:\")'开始查找的目录
Command1.Enabled = False
Screen.MousePointer = vbHourglass
FindFile fd, Text1.Text 'TEXT1是要查找的文件类型.如*.TXT
Command1.Enabled = True
Screen.MousePointer = vbDefault
End Sub
[separator]
Sub FindFile(fd As Folder, FileName As String)
Dim sfd As Folder, f As File
' Part I查找该文件夹的所有文件
For Each f In fd.Files
If UCase(f.Name) Like UCase(FileName) Then
Debug.Print f.Path
List1.AddItem f.Path
End If
DoEvents
Next
' Part II循环查找所有子文件夹
For Each sfd In fd.SubFolders
FindFile sfd, FileName ' 循环查找
Next
End Sub
Dim fs As New FileSystemObject ' 建立 FileSystemObject
Dim fd As Folder ' 定义 Folder 对象
Dim sfd As Folder
Set fd = fs.GetFolder("c:\")'开始查找的目录
Command1.Enabled = False
Screen.MousePointer = vbHourglass
FindFile fd, Text1.Text 'TEXT1是要查找的文件类型.如*.TXT
Command1.Enabled = True
Screen.MousePointer = vbDefault
End Sub
[separator]
Sub FindFile(fd As Folder, FileName As String)
Dim sfd As Folder, f As File
' Part I查找该文件夹的所有文件
For Each f In fd.Files
If UCase(f.Name) Like UCase(FileName) Then
Debug.Print f.Path
List1.AddItem f.Path
End If
DoEvents
Next
' Part II循环查找所有子文件夹
For Each sfd In fd.SubFolders
FindFile sfd, FileName ' 循环查找
Next
End Sub
1月15
包括连接代码、SQL命令等等,又不曾刻意去记忆它们(我本人是不愿意去记这东东),所以常常在用到的时候又去查书本,翻来翻去。一些比较少用的数据库还不一定能顺利找到,所以现在把它们全归纳到这里,提供大家参考。
<一>数据库的连接方法:
1.Access数据库的DSN-less连接方法:
<一>数据库的连接方法:
1.Access数据库的DSN-less连接方法:
set adocon=Server.Createobject("adodb.connection")
adoconn.Open"Driver={Microsoft Access Driver(*.mdb)};DBQ="& _
Server.MapPath("数据库所在路径")
adoconn.Open"Driver={Microsoft Access Driver(*.mdb)};DBQ="& _
Server.MapPath("数据库所在路径")











