-- 作者：suzaku
-- 发布时间：11/5/2008 9:05:00 AM
-- [求助]关于XML+ASP产生的问题
我通过一个write.asp的文件,内容如下:
<%
dim gsname,gstitle,gscontent
dim cn
dim connstr
dim db gsname=Request("sname")
gstitle=Request("stitle")
gscontent=Request("scontent")
currenttime = Date()
db="data/data.mdb"
Set cn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
cn.Open connstr
set rs=server.createobject("adodb.recordset")
rs.open "select * from guestbook ",cn,1,3
rs.AddNew Array("name","title", "content","time"), _
Array(gsname,gstitle,gscontent,currenttime)
rs.Update
rs.close
set rs=nothing
cn.close
set cn = nothing
response.Redirect("guestbook.asp")
%> 将获得的信息传给另一文件guestbook.asp,内容如下: <%
dim cn
dim connstr
dim db
i=1
db="data/data.mdb"
Set cn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
cn.Open connstr
set rs=server.createobject("adodb.recordset")
rs.open "select * from guestbook ORDER BY time DESC",cn,1,1
xmlfile=server.mappath("guestbook.xml")
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile(xmlfile,True,True)
do while not rs.eof
totalName = rs("name")
totalTime = rs("time")
title = rs("title")
content = rs("content")
MyFile.WriteLine("<guestbook>")
MyFile.WriteLine("<info name="""&totalName&""" time=""" &totalTime&""" title=""" &title&""">")
MyFile.WriteLine("<content>"&content&"</content>")
MyFile.WriteLine("</info>")
MyFile.WriteLine("</guestbook>")
MyFile.Close
rs.movenext
i=i+1
loop
rs.close
cn.close
set rs=nothing
set cn=nothing
%> 出现的问题是,ASP编译一直出现对象变量未设置的提示,请问这是怎么回事?
|