广告管理

广告管理----广告管理首页
首页 ┆ 广告列表 ┆添加广告 ┆

您现在的位置：广告设置 >> 广告设置

广告设置
如果您的空间不支持FSO，请直接编辑该文件！ <% dim id,objFSO,objCountFile,fdata,Rs id=request("id") Set objFSO = Server.CreateObject("Scripting.FileSystemObject") if request("save")="" then Set objCountFile = objFSO.OpenTextFile(Server.MapPath(ACTCMS.ACTSYS&"plus/gg/"&id),1,True) If Not objCountFile.AtEndOfStream Then fdata = objCountFile.ReadAll else fdata=request("fdata") Set objCountFile=objFSO.CreateTextFile(Server.MapPath(ACTCMS.ACTSYS&"plus/gg/"&id),True) objCountFile.Write fdata response.write" " end if objCountFile.Close Set objCountFile=Nothing Set objFSO = Nothing %> <%=fdata%>

<%set rs=nothing%>