lioil's

ac 数据库中使用宏替换 BR 成回车符

2008-08-11T18:14:35+08:00

程序代码

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, "
", vbNewLine)
f.Value = val
End If

rs.MoveNext
Loop
rs.Close

End Sub

简单生成文件夹目录列表的dos命令

2008-08-04T08:07:34+08:00

程序代码

dir c:\*.* /s > List.Txt

How To Shop For Designer Shoes

2008-08-01T11:04:41+08:00

How To Shop For Designer Shoes

asp 获取文件相关参数

2008-07-30T11:19:57+08:00

程序代码

  读取一个文件相关信息的范例


  <%
      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&"
"
            Response.Write   "文件的路径："&objFile.Path&"
"
            Response.Write   "文件的建立日期："&objFile.DateCreated&"
"
            Response.Write   "文件的最后浏览日期："&objFile.LastAccessed&"
"
            Response.Write   "文件的最后修改日期："&objFile.LassModified&"
"
            Response.Write   "文件的大小："&objFile.Size&"
"
            Response.Write   "文件的类型："&objFile.Type&"
"
        Else
            Response.Write   Server.MapPath("newfile.asp")&"不存在，无法读取相关信息"
        End   If
      Set   objFile   =   Nothing
      Set   objFSO   =   Nothing             '释放   FileSystemObject   对象实例内存空间
  %>

FCK 返回上传参数

2008-07-24T18:46:21+08:00

以image为例：
fc_image.js 下面的 function ok() 中添加
window.parent.parent.document.myform.DefaultPicUrl.value = GetE('txtUrl').value;

即可将上传图片路径返回至表单的DefaultPicUrl输入框内。

adele

2008-07-21T18:22:43+08:00

版本my.ini 引起的问题 [php]

2008-07-13T22:12:05+08:00

Out of range value adjusted for column 'ID' at row 1 问题解决方法:

修改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。

暗黑3巫医吸魂技能

2008-07-10T11:06:12+08:00

暗黑3巫医混乱技能

2008-07-10T10:54:57+08:00

暗黑3巫医蝗虫蜂群技能

2008-07-10T10:52:19+08:00

lioil's

ac 数据库中使用宏 替换 BR 成回车符

简单生成文件夹目录列表的dos命令

How To Shop For Designer Shoes

asp 获取文件相关参数

FCK 返回上传参数

adele

版本my.ini 引起的问题 [php]

暗黑3巫医吸魂技能

暗黑3巫医混乱技能

暗黑3巫医蝗虫蜂群技能

ac 数据库中使用宏替换 BR 成回车符