<![CDATA[lioil's]]> http://www.lioil.net/lbs/ zh-cn PBlog2 v2.4 lioil's http://www.lioil.net/lbs/images/logos.gif http://www.lioil.net/lbs/ lioil's http://www.lioil.net/lbs/article.asp?id=460 <![CDATA[ac 数据库中使用宏 替换 BR 成回车符]]> lioil77{@}gmail.com(lioil) Mon,11 Aug 2008 18:14:35 +0800 http://www.lioil.net/lbs/default.asp?id=460
程序代码 程序代码
Sub RemoveCRLF()
Dim conn As ADODB.Connection
Dim rs As New ADODB.Recordset
Dim f As ADODB.Field
Dim val As String

Set conn = CurrentProject.Connection
rs.Open "Select 内容 FROM content", conn, adOpenStatic, adLockOptimistic
Do While Not rs.EOF
Set f = rs.Fields.Item("内容")

If Not IsNull(f.Value) Then
val = f.Value
val = Replace(val, "<br>", vbNewLine)
f.Value = val
End If

rs.MoveNext
Loop
rs.Close

End Sub
]]> http://www.lioil.net/lbs/article.asp?id=459 <![CDATA[简单生成文件夹目录列表的dos命令]]> lioil77{@}gmail.com(lioil) Mon,04 Aug 2008 08:07:34 +0800 http://www.lioil.net/lbs/default.asp?id=459
程序代码 程序代码
dir c:\*.* /s > List.Txt
]]> http://www.lioil.net/lbs/article.asp?id=458 <![CDATA[How To Shop For Designer Shoes]]> lioil77{@}gmail.com(lioil) Fri,01 Aug 2008 11:04:41 +0800 http://www.lioil.net/lbs/default.asp?id=458 ]]> http://www.lioil.net/lbs/article.asp?id=457 <![CDATA[asp 获取文件相关参数]]> lioil77{@}gmail.com(lioil) Wed,30 Jul 2008 11:19:57 +0800 http://www.lioil.net/lbs/default.asp?id=457
程序代码 程序代码
<html>  
  <body>读取一个文件相关信息的范例<br><br>  
  <%  
      Dim   objFSO,objFile         '声明一个名称为   objFSO   的变量以存放对象实例  
      Set   objFSO   =   Server.CreateObject("Scripting.FileSystemObject")  
        If   objFSO.FileExists(Server.MapPath("newfile.asp"))   Then  
            Set   objFile   =   objFSO.GetFile(Server.MapPath("newfile.asp"))  
            Response.Write   "文件的名称："&objFile.Name&"<br>"  
            Response.Write   "文件的路径："&objFile.Path&"<br>"  
            Response.Write   "文件的建立日期："&objFile.DateCreated&"<br>"  
            Response.Write   "文件的最后浏览日期："&objFile.LastAccessed&"<br>"  
            Response.Write   "文件的最后修改日期："&objFile.LassModified&"<br>"  
            Response.Write   "文件的大小："&objFile.Size&"<br>"  
            Response.Write   "文件的类型："&objFile.Type&"<br>"  
        Else  
            Response.Write   Server.MapPath("newfile.asp")&"不存在，无法读取相关信息"  
        End   If  
      Set   objFile   =   Nothing  
      Set   objFSO   =   Nothing             '释放   FileSystemObject   对象实例内存空间  
  %>  
  </body></html>
]]> http://www.lioil.net/lbs/article.asp?id=456 <![CDATA[FCK 返回上传参数]]> lioil77{@}gmail.com(lioil) Thu,24 Jul 2008 18:46:21 +0800 http://www.lioil.net/lbs/default.asp?id=456 fc_image.js   下面的 function ok()   中添加
window.parent.parent.document.myform.DefaultPicUrl.value = GetE('txtUrl').value;

即可将上传图片路径返回至表单的DefaultPicUrl输入框内。]]> http://www.lioil.net/lbs/article.asp?id=455 <![CDATA[adele]]> lioil77{@}gmail.com(lioil) Mon,21 Jul 2008 18:22:43 +0800 http://www.lioil.net/lbs/default.asp?id=455 ]]> http://www.lioil.net/lbs/article.asp?id=454 <![CDATA[版本my.ini 引起的问题 [php]]]> lioil77{@}gmail.com(lioil) Sun,13 Jul 2008 22:12:05 +0800 http://www.lioil.net/lbs/default.asp?id=454
修改mysql文件夹中的 my.ini,将

sql-mode="STRICT_TRANS_TABLES,NO_AUTO_Create_USER,NO_ENGINE_SUBSTITUTION"
改为
sql-mode="NO_AUTO_Create_USER,NO_ENGINE_SUBSTITUTION"。
重新启动MySQL。
]]> http://www.lioil.net/lbs/article.asp?id=453 <![CDATA[暗黑3巫医吸魂技能]]> lioil77{@}gmail.com(lioil) Thu,10 Jul 2008 11:06:12 +0800 http://www.lioil.net/lbs/default.asp?id=453 ]]> http://www.lioil.net/lbs/article.asp?id=452 <![CDATA[暗黑3巫医混乱技能]]> lioil77{@}gmail.com(lioil) Thu,10 Jul 2008 10:54:57 +0800 http://www.lioil.net/lbs/default.asp?id=452 ]]> http://www.lioil.net/lbs/article.asp?id=451 <![CDATA[暗黑3巫医蝗虫蜂群技能]]> lioil77{@}gmail.com(lioil) Thu,10 Jul 2008 10:52:19 +0800 http://www.lioil.net/lbs/default.asp?id=451 ]]>