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

　　推荐阅读

　　用ASP实现对MP3曲目信息的操作

先简单说一下MP3的ID3 标记，因为主要是操作这个玩意 MP3最开始的时候没有我们今天看到的那样，有歌手、年代，专集等等信息 只有一些简单的参数如yes/no来表示是不是privated或者copyrighted等信息，这样对MP3的相>>>详细阅读

本文标题：fso实例

地址：http://www.17bianji.com/kaifa2/ASP/32999.html

 1/2    1