<![CDATA[刚子博客]]> http://www.gangzi.net/ zh-cn PBlog2 v2.4 刚子博客 http://www.gangzi.net/images/logos.gif http://www.gangzi.net/ 刚子博客 http://www.gangzi.net/article/501.htm <![CDATA[用正则替换两个字符之间的内容]]> go786@qq.com(刚子) Wed,01 Feb 2012 15:52:48 +0800 http://www.gangzi.net/default.asp?id=501 查找里面写： ,<b>(.+)</b>
替换里面写： ,
]]> http://www.gangzi.net/article/500.htm <![CDATA[博客更换gangzi.net为主域名]]> go786@qq.com(刚子) Mon,30 Jan 2012 15:23:27 +0800 http://www.gangzi.net/default.asp?id=500 2012年1月30日]]> http://www.gangzi.net/article/499.htm <![CDATA[纯真IP库转为ACCESS数据库的方法（附查询代码）]]> go786@qq.com(刚子) Sat,10 Dec 2011 03:42:33 +0800 http://www.gangzi.net/default.asp?id=499
1.首先打开www.cz88.net下载最新版本的IP库。
2.下载最新版本的“iplook”软件，将DAT文件转为TXT格式。注意：“输出格式”必须选择“IP以无符号整数表示”。
3.下载“纯真、珊瑚虫文本IP数据库 To Access 转换器”将上一步得到的TXT文件转换为ACCESS数据库。

因为上面提到的三个软件经常更新，所以不提供地址，使用时请直接搜索查找最新版使用。

下面附上ACCESS ip库查询代码：

程序代码 程序代码
<%'IP
Public Function address(sip)
If IsNumeric(Left(sip,2)) Then
If sip="127.0.0.1" Then sip="192.168.0.1"

str1=Left(sip,InStr(sip,".")-1)
sip=mid(sip,instr(sip,".")+1)
str2=Left(sip,instr(sip,".")-1)
sip=Mid(sip,InStr(sip,".")+1)
str3=Left(sip,instr(sip,".")-1)
str4=Mid(sip,instr(sip,".")+1)
If isNumeric(str1)=0 or isNumeric(str2)=0 or isNumeric(str3)=0 or isNumeric(str4)=0 Then
Else
num=CLng(str1)*16777216+CLng(str2)*65536+CLng(str3)*256+CLng(str4)-1
adb = "ip.mdb"
connStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(adb)
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connStr

sql="select * from ip where startip <="&num&" and endip >="&num&""
Set rs=conn.execute(sql)
If rs.EOF And rs.bof Then
local="尚未收录"
Else
local=rs("country")&rs("local")
End If
Set rs=Nothing
Set conn = Nothing
SqlQueryNum = SqlQueryNum+1
End If
address=local
Else
address="未知"
End If
End Function

userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip = "" Then
userip = Request.ServerVariables("REMOTE_ADDR")
End If
%><%=address(userip)%>
]]> http://www.gangzi.net/article/498.htm <![CDATA[ASP中文和算术验证码]]> go786@qq.com(刚子) Thu,03 Nov 2011 17:12:11 +0800 http://www.gangzi.net/default.asp?id=498 ASP数字验证码，使用简单，不过很容易被破解，下面推荐一个中文和算术的验证码。


下载文件 点击下载此文件

调用页：
程序代码 程序代码
<img src="code.asp" alt="请点击刷新验证码" style="cursor : pointer;" onClick="this.src='/code.asp?t='+(new Date().getTime());">

验证页：
程序代码 程序代码
<%    
If Trim(Request.Form("checkimg"))=Empty or Trim(Session("psn"))<>Trim(Request.Form("checkimg")) Then        
response.write("请注意正确输入验证码")        
response.end        
end if      
%>
]]> http://www.gangzi.net/article/497.htm <![CDATA[JS随机显示广告代码]]> go786@qq.com(刚子) Sat,22 Oct 2011 21:30:35 +0800 http://www.gangzi.net/default.asp?id=497
HTML代码


[Ctrl+A 全部选择 提示：你可先修改部分代码，再按运行]
]]> http://www.gangzi.net/article/496.htm <![CDATA[显示文件夹大小的软件 Quick View Folder Size 完整版 （WIN7 / XP）]]> go786@qq.com(刚子) Wed,31 Aug 2011 19:58:44 +0800 http://www.gangzi.net/default.asp?id=496
我这里提供的是完整版，有注册码，无任何使用限制，并非其他地方的试用版。

具体如何使用以及功能看下我的截图就懂了。



下载文件 点击下载此文件
]]> http://www.gangzi.net/article/495.htm <![CDATA[asp压缩access数据库]]> go786@qq.com(刚子) Mon,22 Aug 2011 03:04:47 +0800 http://www.gangzi.net/default.asp?id=495
需要注意的是：
1.压缩数据库之前一定要保证数据库连接已经关闭。
2.如果希望把某表全部数据清空后再压缩可以使用conn.execute "delete * from gangzi"
程序代码 程序代码
<%
dbPath = "#.mdb"
strdbPath = left(Server.MapPath(dbPath),instrrev(Server.MapPath(dbPath),"\"))
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(Server.MapPath(dbPath)) Then
fso.CopyFile Server.MapPath(dbPath),strdbPath & dbPath
Set Engine = CreateObject("JRO.JetEngine")
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strdbPath & dbPath, _  
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strdbPath & "temp1.mdb"
fso.CopyFile strdbPath & "temp1.mdb",Server.MapPath(dbPath)
fso.DeleteFile(strdbPath & "temp1.mdb")
Set fso = nothing
Set Engine = nothing
response.write "数据库压缩成功！" & vbCrLf
Else
response.write "数据库名称或路径不正确. 请重试!" & vbCrLf
End If
%>
]]> http://www.gangzi.net/article/494.htm <![CDATA[VBS发送邮件]]> go786@qq.com(刚子) Mon,22 Aug 2011 01:28:29 +0800 http://www.gangzi.net/default.asp?id=494
程序代码 程序代码
function Send_mail(You_Account,You_Password,Send_Email,Send_Email2,Send_Topic,Send_Body,Send_Attachment)
'VBS发送邮件参数说明
'You_Account：你的邮件帐号
'You_Password:你的邮件密码
'Send_Email: 主要邮件地址
'Send_Email2: 备用邮件地址
'Send_Topic: 邮件主题
'Send_Body:邮件内容
'Send_Attachment:邮件附件

You_ID=Split(You_Account, "@", -1, vbTextCompare)
'帐号和服务器分离
MS_Space = "http://schemas.microsoft.com/cdo/configuration/"
'这个是必须要的，不过可以放心的事，不会通过微软发送邮件
Set Email = CreateObject("CDO.Message")
Email.From = You_Account
'这个一定要和发送邮件的帐号一样
Email.To = Send_Email         '主要邮件地址
If Send_Email2 <> "" Then
Email.CC = Send_Email2        '备用邮件地址
End If
Email.Subject = Send_Topic        '邮件主题
Email.Textbody = Send_Body        '邮件内容
If Send_Attachment <> "" Then
Email.AddAttachment Send_Attachment     '邮件附件
End If
With Email.Configuration.Fields
.Item(MS_Space&"sendusing") = 2       '发信端口
.Item(MS_Space&"smtpserver") = "smtp."&You_ID(1) 'SMTP服务器地址
.Item(MS_Space&"smtpserverport") = 25     'SMTP服务器端口
.Item(MS_Space&"smtpauthenticate") = 1     'cdobasec
.Item(MS_Space&"sendusername") = You_ID(0)    '你的邮件帐号
.Item(MS_Space&"sendpassword") = You_Password   '你的邮件密码
.Update
End With
Email.Send
'发送邮件
Set Email=Nothing
'关闭组件
Send_Mail=True
'如果没有任何错误信息，则表示发送成功,否则发送失败
If Err Then
Err.Clear
Send_Mail=False
End If
End Function

'以下是利用上面的函数发送带附件的邮件例子
If Send_Mail("you@163.com","password","send@163.com","","邮件主题","邮件内容","d:\test.exe")=True Then
Wscript.Echo "发送成功"
Else
Wscript.Echo "发送失败"
End If
]]> http://www.gangzi.net/article/493.htm <![CDATA[wmi损坏修复]]> go786@qq.com(刚子) Sat,20 Aug 2011 02:43:51 +0800 http://www.gangzi.net/default.asp?id=493
程序代码 程序代码
@echo on
cd /d c:\temp
if not exist %windir%\system32\wbem goto TryInstall
cd /d %windir%\system32\wbem
net stop winmgmt
winmgmt /kill
if exist Rep_bak rd Rep_bak /s /q
rename Repository Rep_bak
for %%i in (*.dll) do RegSvr32 -s %%i
for %%i in (*.exe) do call :FixSrv %%i
for %%i in (*.mof,*.mfl) do Mofcomp %%i
net start winmgmt
goto End

:FixSrv
if /I (%1) == (wbemcntl.exe) goto SkipSrv
if /I (%1) == (wbemtest.exe) goto SkipSrv
if /I (%1) == (mofcomp.exe) goto SkipSrv
%1 /RegServer

:SkipSrv
goto End

:TryInstall
if not exist wmicore.exe goto End
wmicore /s
net start winmgmt
:End
]]> http://www.gangzi.net/article/492.htm <![CDATA[ASP验证码]]> go786@qq.com(刚子) Sat,20 Aug 2011 02:42:56 +0800 http://www.gangzi.net/default.asp?id=492
程序代码 程序代码
<%
Call Com_CreatValidCode("ValidCode")

Sub Com_CreatValidCode(pSN)

    Response.Expires = -9999
    Response.AddHeader "Pragma","no-cache"
    Response.AddHeader "cache-ctrol","no-cache"
    Response.ContentType = "Image/BMP"

    Randomize

    Dim i, ii, iii

    Const cOdds = 8 ' 杂点出现的机率
    Const cAmount = 36 ' 文字数量
    Const cCode = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"

    ' 颜色的数据(字符，背景)
    Dim vColorData(1)
    vColorData(0) = ChrB(0) & ChrB(0) & ChrB(0) ' 蓝0，绿0，红0（黑色）
    vColorData(1) = ChrB(250) & ChrB(236) & ChrB(211) ' 蓝250，绿236，红211（浅蓝色）

    ' 随机产生字符
    Dim vCode(4), vCodes
    For i = 0 To 3
        vCode(i) = Int(Rnd * cAmount)
        vCodes = vCodes & Mid(cCode, vCode(i) + 1, 1)
    Next

    Session(pSN) = vCodes '记录入Session

    ' 字符的数据
    Dim vNumberData(35)
    vNumberData(0) = "1110000111110111101111011110111101001011110100101111010010111101001011110111101111011110111110000111"
    vNumberData(1) = "1111011111110001111111110111111111011111111101111111110111111111011111111101111111110111111100000111"
    vNumberData(2) = "1110000111110111101111011110111111111011111111011111111011111111011111111011111111011110111100000011"
    vNumberData(3) = "1110000111110111101111011110111111110111111100111111111101111111111011110111101111011110111110000111"
    vNumberData(4) = "1111101111111110111111110011111110101111110110111111011011111100000011111110111111111011111111000011"
    vNumberData(5) = "1100000011110111111111011111111101000111110011101111111110111111111011110111101111011110111110000111"
    vNumberData(6) = "1111000111111011101111011111111101111111110100011111001110111101111011110111101111011110111110000111"
    vNumberData(7) = "1100000011110111011111011101111111101111111110111111110111111111011111111101111111110111111111011111"
    vNumberData(8) = "1110000111110111101111011110111101111011111000011111101101111101111011110111101111011110111110000111"
    vNumberData(9) = "1110001111110111011111011110111101111011110111001111100010111111111011111111101111011101111110001111"
    vNumberData(10) = "1111011111111101111111101011111110101111111010111111101011111100000111110111011111011101111000100011"
    vNumberData(11) = "1000000111110111101111011110111101110111110000111111011101111101111011110111101111011110111000000111"
    vNumberData(12) = "1110000011110111101110111110111011111111101111111110111111111011111111101111101111011101111110001111"
    vNumberData(13) = "1000001111110111011111011110111101111011110111101111011110111101111011110111101111011101111000001111"
    vNumberData(14) = "1000000111110111101111011011111101101111110000111111011011111101101111110111111111011110111000000111"
    vNumberData(15) = "1000000111110111101111011011111101101111110000111111011011111101101111110111111111011111111000111111"
    vNumberData(16) = "1110000111110111011110111101111011111111101111111110111111111011100011101111011111011101111110001111"
    vNumberData(17) = "1000100011110111011111011101111101110111110000011111011101111101110111110111011111011101111000100011"
    vNumberData(18) = "1100000111111101111111110111111111011111111101111111110111111111011111111101111111110111111100000111"
    vNumberData(19) = "1110000011111110111111111011111111101111111110111111111011111111101111111110111110111011111000011111"
    vNumberData(20) = "1000100011110111011111011011111101011111110001111111010111111101101111110110111111011101111000100011"
    vNumberData(21) = "1000111111110111111111011111111101111111110111111111011111111101111111110111111111011110111000000011"
    vNumberData(22) = "1000100011110010011111001001111100100111110101011111010101111101010111110101011111010101111001010011"
    vNumberData(23) = "1000100011110011011111001101111101010111110101011111010101111101100111110110011111011001111000110111"
    vNumberData(24) = "1110001111110111011110111110111011111011101111101110111110111011111011101111101111011101111110001111"
    vNumberData(25) = "1000000111110111101111011110111101111011110000011111011111111101111111110111111111011111111000111111"
    vNumberData(26) = "1110001111110111011110111110111011111011101111101110111110111011111011101001101111011001111110001011"
    vNumberData(27) = "1000001111110111011111011101111101110111110000111111010111111101101111110110111111011101111000110011"
    vNumberData(28) = "1110000011110111101111011110111101111111111001111111111001111111111011110111101111011110111100000111"
    vNumberData(29) = "1000000011101101101111110111111111011111111101111111110111111111011111111101111111110111111110001111"
    vNumberData(30) = "1000100011110111011111011101111101110111110111011111011101111101110111110111011111011101111110001111"
    vNumberData(31) = "1000100011110111011111011101111101110111111010111111101011111110101111111010111111110111111111011111"
    vNumberData(32) = "1001010011110101011111010101111101010111110101011111001001111110101111111010111111101011111110101111"
    vNumberData(33) = "1000100011110111011111101011111110101111111101111111110111111110101111111010111111011101111000100011"
    vNumberData(34) = "1000100011110111011111011101111110101111111010111111110111111111011111111101111111110111111110001111"
    vNumberData(35) = "1100000011110111011111111101111111101111111110111111110111111111011111111011111111101110111100000011"

    ' 输出图像文件头
    Response.BinaryWrite ChrB(66) & ChrB(77) & ChrB(230) & ChrB(4) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) &_
        ChrB(0) & ChrB(0) & ChrB(54) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(40) & ChrB(0) &_
        ChrB(0) & ChrB(0) & ChrB(40) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(10) & ChrB(0) &_
        ChrB(0) & ChrB(0) & ChrB(1) & ChrB(0)

    ' 输出图像信息头
    Response.BinaryWrite ChrB(24) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(176) & ChrB(4) &_
        ChrB(0) & ChrB(0) & ChrB(18) & ChrB(11) & ChrB(0) & ChrB(0) & ChrB(18) & ChrB(11) &_
        ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) &_
        ChrB(0) & ChrB(0)

    For i = 9 To 0 Step -1 ' 历经所有行
        For ii = 0 To 3 ' 历经所有字
            For iii = 1 To 10 ' 历经所有像素
            ' 逐行、逐字、逐像素地输出图像数据
                If Rnd * 99 + 1 < cOdds Then ' 随机生成杂点
                    Response.BinaryWrite vColorData(0)
                Else
                    Response.BinaryWrite vColorData(Mid(vNumberData(vCode(ii)), i * 10 + iii, 1))
                End If
            Next
        Next
    Next
End Sub
%>

表单调用页：
程序代码 程序代码
<img src="code.asp" alt="请点击刷新验证码" style="cursor : pointer;" onClick="this.src='/code.asp?t='+(new Date().getTime());">

验证页：
程序代码 程序代码
<%
if lcase(request.form("validcode"))=lcase(session("validcode")) then
else
Response.Write "验证码错误，<a href=""login.asp"">返回</a>"
    Response.Write "<script language=""JavaScript"">alert('验证码错误。');window.location.replace('login.asp');</script>"
    Response.End
end if
%>
]]>