asp+|xml
介面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")
%>
