-
微信小程序
操作简洁 功能强大
专业团队 资深背景
微信搜索：cn163ns
- 微信平台特色
-
主要功能是针对微信商家公众号提供与众不同的、有针对性的营销推广服务。通过微信平台，用户可以轻松管理自己的微信各类信息，对微信公众账号进行维护、开展智能机器人、在线发优惠劵、抽奖、刮奖、派发会员卡、打造微官网、开启微团购等多种活动，对微信营销实现有效监控，极大扩展潜在客户群和实现企业的运营目标。无使用时间和功能限制
asp 创建文件与文件夹代码
asp 创建文件与文件夹
'==============================
'函 数 名：CreateFolder
'作 用：创建文件夹
'参 数：文件夹相对路径FolderPath
'==============================
Function CreateFolder(FolderPath)
' On Error Resume Next
Set Fso=Server.CreateObject("Scri"&"pting.File"&"Sys"&"temObject")
Set F=Fso.CreateFolder(Server.MapPath(FolderPath))
CreateFolder=F.Path
Set F=Nothing
Set Fso=Nothing
' Select Case Err
' Case 424 Response.Write("方卡错误提示：创建"&FolderPath&"文件夹时，路径未找到或者该目录没有写入权限！")
' End Select
End Function
'==============================
'函 数 名：CreateFile
'作 用：创建文件
'参 数：文件相对路径FilePath，文件内容FileContent
'==============================
Function CreateFile(FilePath,FileContent)
' On Error Resume Next
Dim Temps
Temps=""
TempArr=Split(FilePath,"/")
For i=0 to UBound(TempArr)-1
If Temps="" Then
Temps=TempArr(i)
Else
Temps=Temps&"/"&TempArr(i)
End If
If IsFolder(Temps)=False Then
Call CreateFolder(Temps)
End If
Next
Set objAdoStream = Server.CreateObject("A"&"dod"&"b.St"&"r"&"eam")
objAdoStream.Type = 2
objAdoStream.Charset = "UTF-8"
objAdoStream.Open
objAdoStream.WriteText = FileContent
objAdoStream.SaveToFile Server.MapPath(FilePath),2
objAdoStream.Close()
Set objAdoStream = Nothing
' Select Case Err
' Case 424 Response.Write("方卡错误提示：创建"&FilePath&"文件时，路径未找到或者该目录没有写入权限！")
' End Select
End Function
