12,162
社区成员
发帖
与我相关
我的任务
分享
<%
'response.Write ("456")
'Response.End ()
title=trim(request.form("title"))'标题
content=trim(request.form("U_content"))'内容
rankName=trim(request.form("rankName"))'部门
checktype=trim(request.form("checktype"))'类型
id=trim(request.form("id"))'修改id
addtime=trim(request.form("addtime"))'修改id
url = "http://localhost:50432/phone/webservice/sender.asmx/addNews"
SoapRequest="title="&title&"&content="&content&"&rankName="&rankName&"&type="&checktype&"&id="&id&"&addtime="&addtime
Set xmlhttp = server.CreateObject("Msxml2.XMLHTTP")
xmlhttp.Open "POST",url,false
xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xmlhttp.setRequestHeader "HOST","XXX"
xmlhttp.setRequestHeader "Content-Length",LEN(SoapRequest)
xmlhttp.Send(SoapRequest)
If xmlhttp.Status = 200 Then
Set xmlDOC = server.CreateObject("MSXML.DOMDocument")
xmlDOC.load(xmlhttp.responseXML)
xmlStr = xmlDOC.xml
xmlStr = Replace(xmlStr,"<","<",1,-1,1)
xmlStr = Replace(xmlStr,">",">",1,-1,1)
if checktype="add" then
If xmlDOC.documentElement.childNodes(0).text = "ok" Then
response.Write "<script language=javascript>alert('添加成功!');document.location.href='NewsList.asp?type="&rankName&"'</script> "
Response.End ()
else
response.Write "<script language=javascript>alert('"&xmlDOC.documentElement.childNodes(0).text&"');document.location.href='NewsList.asp?type="&rankName&"'</script> "
Response.End ()
End if
end if
if checktype="edit" then
If xmlDOC.documentElement.childNodes(0).text = "ok" Then
response.Write "<script language=javascript>alert('修改成功!');document.location.href='NewsList.asp?type="&rankName&"'</script> "
Response.End ()
else
response.Write "<script language=javascript>alert('"&xmlDOC.documentElement.childNodes(0).text&"');document.location.href='NewsList.asp?type="&rankName&"'</script> "
Response.End ()
End if
end if
End if
%>