不能生成文件 - ASP技术论坛

问题点数：0 回复次数：1

不能生成文件

<% function changechr(str) '将字符转换成网页能识别的字符 changechr=replace(replace(replace(replace(str,"<","<"),">",">"),chr(13)," ")," "," ") changechr=replace(replace(replace(replace(changechr,"[image]","<img width=516 height=389 src="),"",""),"[red]",""),"[big]","") changechr=replace(replace(replace(replace(changechr,"[/image]","></img>"),"",""),"[/red]",""),"[/big]","") end function

function makefilename(fname) '生成文件名函数 fname = now() fname = replace(fname,"-","") fname = replace(fname," ","") fname = replace(fname,":","") fname = replace(fname,"PM","") fname = replace(fname,"AM","") fname = replace(fname,"上午","") fname = replace(fname,"下午","") makefilename=fname & ".asp" end function %> dim title dim content dim sql dim rs dim articleid dim classid,Nclassid dim from

title=request("txttitle")'获取文章标题 from=request("Nfrom")'获取文章的来源 zznews=request("zznews")'获取作者信息 typeid=request("typeid")'获取栏目编号 about=request("about")'获取相关信息关键字

dim sql1 dim rs1 dim typename1 '查询此栏目编号的信息 sql1="select * from type where typeid="&typeid set rs1=server.createobject("adodb.recordset") rs1.open sql1,conn,1,1 typename1=rs1("type") filepath=rs1("typename")

'判断是否为推荐新闻 if request("checkbox1")="1" then tjnews=1 else tjnews=2 end if

'判断文章里时候包含图片 if request("checkbox3")="1" then selectpic=1 else selectpic=0 end if

'根据登陆时的不同级别，赋予shenhe不同的值 if Session("KEY")="input" then shenghe=2 else if request("checkbox2")="1" then shenghe=2 else shenghe=1 end if end if '将输入框中的文章内容转换成网页格式的内容 content=changechr(request("txtcontent")) %> <% '查询模板表，将选择的模板调出来 set rs = server.CreateObject("ADODB.RecordSet") StrSql = "select E_Memo from Example where id="+request("Example") set rs = conn.Execute (StrSql) '生成新闻文件名 fname = makefilename(now()) dddd = year(now()) & "-" & month(now()) & "-" & day(now()) '将模板内容赋给pencat pencat=rs("E_Memo") '将模板中lx替换为类型名称typename1 pencat=replace(pencat,"lx",typename1) '将模板中Data替换为实际日期dddd pencat=replace(pencat,"Date",dddd) if from="" then pencat=replace(pencat,"From","我们的实验室") '若来源为空，则将模板中的From替换为我们的实验室 else pencat=replace(pencat,"From",from)'若不为空，则将输入的文章来源替换模板中的From end if

if zznews="" then pencat=replace(pencat,"Fname","网站管理员") '若作者为空，则将模板中的Fname替换为网站管理员 else pencat=replace(pencat,"Fname",zznews)'若不为空，则将输入的作者名替换模板中的Fname end if '将模板中H_Title替换为实际文章标题 pencat=replace(pencat,"H_Title",title) '将模板中H_Memo替换为实际文章内容 pencat=replace(pencat,"H_Memo",content) '将模板中labout替换为实际关键字 pencat=replace(pencat,"labout",about) %> <% '将替换好的模板写进文件中 Set fso = CreateObject("Scripting.FileSystemObject") gg=server.mappath(filepath) Set MyFile = fso.CreateTextFile(gg&"\"&fname, True)

MyFile.WriteLine(pencat) MyFile.Close response.Write(gg&"\"&fname) %>

<% '在数据库中增加一条文章记录 set rs=server.createobject("adodb.recordset") sql="select * from article where (newsid is null)" rs.open sql,conn,1,3 rs.addnew rs("title")=title rs("path")=filepath rs("content")=content rs("Nfrom")=from rs("selectpic")=selectpic rs("typeid")=typeid rs("typename")=typename1 rs("tjnews")=tjnews rs("shenghe")=shenghe rs("N_Fname")=fname rs("zznews")=zznews rs("about")=about rs.update

articleid=rs("newsid") rs1.close set rs1=nothing rs.close set rs=nothing conn.close set conn=nothing response.Write("ok") %><head> </head> 内容少的时候可以生成，内容很多的时候，按添加一点作用也没有。

[此贴子已经被作者于2005-7-11 18:23:42编辑过]

搜索更多相关主题的帖子: 文件　