fso实例

fso

<!--#include file="config.asp"-->
<!--#include file="inc/articlechar.inc"-->
<%
function changechr(str)
changechr=replace(replace(replace(replace(changechr,"[pic]","<img src="),"","<b>"),"[red]","<font color=CC0000>"),"[big]","<font size=7>")
changechr=replace(replace(replace(replace(changechr,"[/pic]","></img>"),"
","</b>"),"[/red]","</font>"),"[/big]","</font>")
changechr=replace(replace(replace(replace(str,"<","<"),">",">"),chr(13),"<br>")," "," ")
end function
%>

<%
if request.cookies("newsadminok")="" then
response.redirect "login.asp"
end if
if request.form("txttitle")="" then
response.write "错误提示:请输入新闻标题!"
response.end
end if
if request.form("txtcontent")="" then
response.write "错误提示:请未输入新闻内容!"
response.end
end if
dim title
dim content
dim sql
dim rs
dim articleid
dim classid,Nclassid
dim from

title=htmlencode2(request.form("txttitle"))
from=request.form("Nfrom")
zznews=request.form("zznews")
typeid=request.form("typeid")
about=request.form("about")
headline=request.form("headline")
ftitle=htmlencode2(request.form("ftitle"))

dim sql1
dim rs1
dim typename
sql1="select * from type where typeid=" & typeid
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,1,1
typename=rs1("type")

if request.form("checkbox1")="1" then
tjnews=1
else
tjnews=2
end if

if request.form("yheadline")="1" then
yheadline=1
else
yheadline=0
end if

content=htmlencode(request.form("txtcontent"))

set rs = server.CreateObject("ADODB.RecordSet")
StrSql = "select E_Memo from Example"
set rs = conn.Execute (StrSql)

fname = makefilename(now())

dddd = year(now()) & "年" & month(now()) & "月" & day(now()) & "日" & hour(now())&":"&minute(now())
pencat=rs("E_Memo")
pencat=replace(pencat,"lx",typename)
pencat=replace(pencat,"Date",dddd)
if from="" then
pencat=replace(pencat,"From","")
else
pencat=replace(pencat,"From","摘自:" & from)
end if
if zznews="" then
pencat=replace(pencat,"Fname",Editor)
zznews=Editor
else
pencat=replace(pencat,"Fname",zznews)
end if
pencat=replace(pencat,"H_Title",title)
pencat=replace(pencat,"H_Memo",content)
pencat=replace(pencat,"labout",about)
pencat=replace(pencat,"ftitle",ftitle)

newsdate = year(now()) & "." & month(now()) & "." & day(now())
TimePath = year(Now()) & "-" & month(now()) & "-" & day(Now())
FolderPath = Server.MapPath(".")& "\" & TimePath

rs.close
'将新闻保存入数据库

sql="select * from article where (newsid is null)"

rs.open sql,conn,1,3
rs.addnew
rs("title")=title
rs("content")=content
rs("Nfrom")=from
rs("typeid")=typeid
rs("path")=TimePath
rs("typename")=typename
rs("tjnews")=tjnews
rs("N_Fname")=fname
rs("zznews")=zznews
rs("about")=about
rs("newsdate")=newsdate
rs("yheadline")=yheadline
rs("headline")=headline
if ftitle <> "" then rs("ftitle")=ftitle
rs.update

pencat=replace(pencat,"h_id",rs("newsid"))

Set fso = Server.CreateObject("Scripting.FileSystemObject")
If CheckDir(FolderPath) = True Then
Set fout = fso.CreateTextFile(FolderPath & "\" & fname)
Else
MakeNewsDir TimePath
Set fout = fso.CreateTextFile(FolderPath & "\" & fname)
End if
fout.WriteLine pencat
fout.close

articleid=rs("newsid")
UpdateJs(news)
rs1.close
set rs1=nothing
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect "addnews.asp"
%>

时间: 2024-10-31 08:48:48

fso实例的相关文章

asp读取写文件fso实例代码

 '==============================  '函 数 名:FsoLineWrite  '作    用:按行写入文件  '参    数:文件相对路径FilePath,写入行号LineNum,写入内容LineContent  '==============================  Function FsoLineWrite(FilePath,LineNum,LineContent)   If LineNum<1 Then Exit Function   Set Fs

fso实例_FSO专题

<!--#include file="config.asp"--> <!--#include file="inc/articlechar.inc"--> <% function changechr(str) changechr=replace(replace(replace(replace(changechr,"[pic]","<img src="),"[b]",&quo

qtp:vbs基础教程

◎Vbs脚本编程简明教程之一-为什么要使用Vbs? 在Windows中,学习计算机操作也许很简单,但是很多计算机工作是重复性劳动,例如你每周也许需要对一些计算机文件进行复制.粘贴.改名.删除,也许你每天启动计算机第一件事情就是打开WORD,切换到你喜爱的输入法进行文本编辑,同时还要播放优美的音乐给工作创造一个舒心的环境,当然也有可能你经常需要对文本中的某些数据进行整理,把各式各样的数据按照某种规则排列起来--.这些事情重复.琐碎,使人容易疲劳. 第三方软件也许可以强化计算机的某些功能,但是解决这

小工具:计算当前文件夹中,有多少行JS代码和ASP代码,并且还可统计代码有多少字节

js|统计 计算当前文件夹中,有多少行JS代码和ASP代码,并且还可统计代码有多少字节 有示例代码 <%'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'\\'\\    from codeproject.com'\\    calculate code'\\    bluedestiny'\\    mail:bluedestiny at 126.com'\\'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ opt

Vbs脚本经典教材(最全的资料还是MSDN)_vbs

  -为什么要使用Vbs? 在Windows中,学习计算机操作也许很简单,但是很多计算机工作是重复性劳动,例如你每周也许需要对一些计算机文件进行复制.粘贴.改名.删除,也许你每天启动计算机第一件事情就是打开WORD,切换到你喜爱的输入法进行文本编辑,同时还要播放优美的音乐给工作创造一个舒心的环境,当然也有可能你经常需要对文本中的某些数据进行整理,把各式各样的数据按照某种规则排列起来--.这些事情重复.琐碎,使人容易疲劳. 第三方软件也许可以强化计算机的某些功能,但是解决这些重复劳动往往事倍功半,

FSO使用教程9 -- 终结FSO应用实例篇

fso|教程|应用实例 终结FSO应用实例篇-FSO使用教程8 通过前面8个相关FSO详细教程,下面我们结合学过的东西,制做一个简单的生成HTML文文章系统,包含有文件标题和内容,并带有修改文章功能. 包含文件: AddArticle.html '文章内容录入表单文件ModiArticle.asp '修改文件内容文件SaveArticle.asp '保存新增内容文件为了方便教程演示,我们在源码中统一生成的HTML文件名为"FsoToHtml.Html" 'AddArticle.html

实例说明FSO用法

实例说明FSO用法BuildPath(路径,文件名) //这个方法会对给定的路径加上文件,并自动加上分界符 <SCRIPT LANGUAGE="JavaScript"> <!-- var fso = new ActiveXObject("Scripting.FileSystemObject"); var newpath = fso.BuildPath("c:\\tmp", "51js.txt"); //生成

asp fso:创建文件 CreateTextFile 实例教程

asp fso:创建文件 CreateTextFile 实例教程 CreateTextFile方法创建一个新的文本文件在当前文件夹中,并传回TextStream物件,可以用来读取或写入档案. 语法 FileSystemObject.CreateTextFile(filename[,overwrite[,unicode]]) FolderObject.CreateTextFile(filename[,overwrite[,unicode]]) Parameter Description filen

ASP fso Files 实例教程

ASP fso Files 实例教程 档案收集返回一个收集的所有文件中指定的文件夹. 语法 FolderObject.Files 例如 <% dim fs,fo,x set fs=Server.CreateObject("Scripting.FileSystemObject") set fo=fs.GetFolder("c:test") for each x in fo.files 'Print the name of all files in the tes