说明：代码如下: ”’ ”’ 将数据转换为Double数字 ”’ ”’ ”’ ”’ Public Shared Function todbl(ByVal Obj As Object) As Double If Obj Is DBNull.Value Then Return 0 ElseIf IsNumeric(Obj) = False Then Return 0 Else Return Obj End If End Funct <weixin_38595850> 上传 | 大小：22kb
说明：比较简单直接的sql语句
Recordset1.Source = SELECT * FROM 表 WHERE 字段 LIKE '% + Replace(Recordset1__MMColParam, ', '') + %' or 字段2 like '% + Replace(Recordset1__MMColParam, ', '') + %' ORDER BY id DESC
Recordset1.Source = SELECT * FROM 表 WHERE 字段 LIKE '% + Repl <weixin_38590309> 上传 | 大小：50kb
说明：将asp函数的参数通过chrw编码加密后，如何解码chrw内容。下面的解码函数，原来很简单，用正则提取内容中的chrw串，然后eval动态执行获取的chrw串得到内容，再执行替换即可。注意事项参考源代码里面的注释，注意将源代码保存为vbs格式的文件后执行，如果是asp文件，需要将createobject修改为server.createobject。
function readfile(fn)'读取编码文件的内容
set fso=createobject(scr ipting.filesyst <weixin_38574132> 上传 | 大小：32kb
