接口文件格式说明(asp+xmlhttp)

 

接口xml文件格式

 

<info>

<rec>

       <depID>所属栏目</depID>

       <smallClassID>所属信息单位</smallClassID>

       <type>信息发布形式</type>

<keyWord>关键字</keyWord>

<title>新闻标题</title>

<author>作者</author>

<original>原出处</original>

<content>新闻内容</content>

</rec>

<rec>

       <depID>所属栏目</depID>

       <smallClassID>所属信息单位</smallClassID>

       <type>信息发布形式</type>

<keyWord>关键字</keyWord>

<title>新闻标题</title>

<author>作者</author>

<original>原出处</original>

<content>新闻内容</content>

</rec>

</info>

 

注：接口类型和数据注意事项。

 

字段名

名称

类型

数据取值说明

上传数据说明

depID

所属栏目

Int(4)

 

代码（不能为空）

smallClassID

所属信息单位

Nvarchar(25)

 

代码（不能为空）

type

信息发布形式

Nvarchar(7)

重要信息＝１

弹出信息＝２

热点信息＝３

可复选多个，以“，”分隔

如：１，２，３

代码（多个用逗号分隔）

keyWord

关键字

Nvarchar(50)

多个以“，”分隔

如：keyword1,keyowrd2

文字（多个用逗号分隔）

title

新闻标题

Nvarchar(50)

文字

文字（不能为空）

author

作者

Nvarchar(20)

文字

文字

original

原出处

Nvarchar(20)

文字

文字

content

新闻内容

varChar (4000)

文字

文字（不能为空）

 

 

 

举例：

<info>

<rec>

       <depID>1</depID>

       <smallClassID>20040212200856429814</smallClassID>

       <type>1,3</type>

<keyWord>关键字1, 关键字2</keyWord> 

<title>新闻标题</title>

<author>作者</author>

<original>原出处</original>

<content>新闻内容</content>

</rec>

</info>

 

 

上传方法说明：

 

将上述产生的字符串发送到http://服务器ＩＰ:端口/receiveInfo.asp(必须用POST方式传送)

 

经测试通过代码如下：

 

发送端：sendInfo.asp

 

<%

set xmlhttp=Server.CreateObject("MSXML2.ServerXMLHTTP")

 

xmlstr="<info><rec><depID>1</depID><smallClassID>20040212200856429814</smallClassID><type>1,3</type><keyWord>关键字1, 关键字2</keyWord><title>新闻标题</title><author>作者</author><original>原出处</original><content>新闻内容</content></rec></info>"

 

URL="http://192.168.1.5:9020/receiveInfo.asp"

xmlhttp.open "POST",URL, False

xmlhttp.send  xmlstr

if  err.number=0 then

       if xmlhttp.status <>"200" then

              Response.Write "<font style='font-size:12px;color:red'>状态:"&xmlhttp.status&" ;描述:"&xmlHttp.ResponseText&"</font>"

       else

              Response.Write "<font style='font-size:12px;color:red'>  "&xmlHttp.ResponseText&"</font>"

       end if

else

       Response.Write "<font style='font-size:12px;color:red'>状态:"&xmlhttp.status&" ;描述:"&xmlHttp.ResponseText&"</font>"

end if

%>

 

 

 

接收端：receiveInfo.asp

 

 

<%@codepage=936%>

<%

Server.ScriptTimeOut=99999

Response.Buffer =false

Response.CharSet="gb2312"

set xmldoc=Server.CreateObject("MSXML2.DOMDocument")

 

xmldoc.load Request

 

set root = xmldoc.DocumentElement

 

for i=1 to xmldoc.documentelement.childNodes.length

 

Set recnote = xmldoc.documentelement.childNodes(i-1)

 

Set depIDnote = recnote.selectSingleNode("depID")

Set smallClassIDnote = recnote.selectSingleNode("smallClassID")

Set typenote = recnote.selectSingleNode("type")

Set keyWordnote = recnote.selectSingleNode("keyWord")

Set titlenote = recnote.selectSingleNode("title")

Set authornote = recnote.selectSingleNode("author")

Set originalnote = recnote.selectSingleNode("original")

Set contentnote = recnote.selectSingleNode("content")

 

response.Write depIDnote.text&"||"

response.Write smallClassIDnote.text&"||"

response.Write typenote.text&"||"

response.Write keyWordnote.text&"||"

response.Write titlenote.text&"||"

response.Write authornote.text&"||"

response.Write originalnote.text&"||"

response.Write contentnote.text&"||"

 

 

next

 

response.Write("0")

 

%>