谢谢

好帖!请问楼主，下面程序为何出错？
<%
Option Explicit
Response.contentType="text/xml"
dim conn,connstr,rs,sql,i，name,company,relation,url,msg,a,b,ab
relation=Request.Form("Relation")
url=Request.Form("Url")
msg=Request.Form("Msg")
a=Cint(Request.Form("a"))
b=Cint(Request.Form("b"))
ab=Cint(Request.Form("ab"))
i=1
connstr="provider=Microsoft.Jet.OLEDB.4.0;data source="&Server.MapPath("Msg.mdb")&";"
set conn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.RecordSet")
conn.open connstr
sql="Insert into data (Name,Company,Relation,Url,Msg) values ('"&name&"','"&company&"','"&relation&"','"&url&"','"&msg&"')"
conn.Execute(sql)
sql="select top 100 [name],[company] from [Msg]  order by id desc"
rs.open sql,conn,1,1
Response.Write("<?xml version='1.0' encoding='utf-8'?><方圆寸苑网站>")
do while not rs.eof
Response.Write("<Result><name>"&rs("name")&"</name><score>"&rs("company"))&"</score></Result>"
rs.movenext
i=i+1
loop
Response.Write("</方圆寸苑网站>")
rs.close
conn.close
set rs=nothing
set conn=nothing
%>

[ 本帖最后由 kjf_x 于 2010-6-3 08:25 编辑 ]

我倒没见过这种写法，不知是否可行：

Response.Write("<Result><name>"&rs("name")&"</name><score>"&rs("company"))&"</score></Result>"

这是输出text/xml，其中括号可能有错：
Response.Write("<Result><name>"&rs("name")&"</name><score>"&rs("company")&"</score></Result>")
第3行：
Response.contentType="text/xml"
在 http://localhost/CheckNet/ 中测试：
第2行错：Option Explicit
第13行错：set conn=Server.CreateObject("ADODB.Connection")
……
是否与编写语言vb、vc有关？




[ 本帖最后由 kjf_x 于 2010-6-3 10:24 编辑 ]

谢谢谢，一定要多一个谢字才能准确表达意思。

楼主很高尚，顶了。收藏了

句句都很常用，不错！

楼主真是个好心人

顶

必须顶起