为什么运行不起来亚

[kingzd]

下面是代码,服务器已经支持写入


<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<%
dim sql,rs
dim id,title,thisdate,writer,text
dim begin
begin=request.QueryString("begin")

if begin="" then
sql="select * from a where"
else
sql="select * from a where id>="&begin
end if

set rs = server.CreateObject("adodb.recordset")

rs.open sql,conn,1,1

id=rs("id")&".xml"
title=rs("title")
text=rs("text")
thisdate=rs("thisdate")
writer=rs("writer")

Dim xfso,xts,outxml

Set xfso = Server.CreateObject("Scripting.FileSystemObject")
do not while rs.eof
xfso.CreateTextFile(id)
set xts=xfso.OpenTextFile(id)

outxml="<?xml version='1.0' encoding='gb2312'?>"&vbnewline
outxml=outxml&"<?xml-stylesheet type='text/xsl' href='a.htm'?>"&vbnewline
outxml=outxml&"<root>"&vbnewline
outxml=outxml&"<title>"&title&"</title>"&vbnewline
outxml=outxml&"<text>"&text&"</text>"&vbnewline
outxml=outxml&"<thisdate>"&thisdate&"</thisdate>"&vbnewline
outxml=outxml&"<writer>"&writer&"</writer>"&vbnewline
outxml=outxml&"</root>"

xts.write(outxml)
loop
xts.close

set xts=nothing
set xfso=nothing
set conn=nothing
%>

[mustapha]

if begin="" then
sql="select * from a where"
else
当中一句应该没有where吧

[kingzd]

不行亚

[空闲独处]

不知道什么叫运行不起来?是不能运行呢,还是有错误?

[qihboy]

第一句SQL查询语句干什么要加个WHERE啊?

[kingzd]

那个我已经改过来啦,请问一下FSO得写入那一块怎么用,可以给以个例子么?我用.write命令不行

[qihboy]

dim fso,f
set fso= Server.CreateObject("scripting.filesystemobject")
set f=fso.opentextfile(server.MapPath("文件名.xml"),2,true)
f.write body

body=你写入那个文件的内容