getinfo.asp

来自「客户管理crm xitong ,希望能给你带来帮助」· ASP 代码 · 共 31 行

<!--#include file="../function/connect.asp"-->
<%
Set objResult = Server.CreateObject("MSXML2.DOMDocument")
objResult.loadXML ("<objXML></objXML>")
'**************************************************************

StrValue=request("ID")
if StrValue<>"" then
	for i=1 to len(StrValue)
		strsql="select PY_CODE from Dict_Pinyin where CHINESE='" & mid(StrValue,i,1) & "'"
		Set objRs = Server.CreateObject("adodb.recordset")
	        objRs.Open strsql,objConn,1,1
	        if not objrs.eof then
	        	strcon=strcon & objrs.fields("PY_CODE")
	        end if
	next
end if

'**************************************************************

objResult.selectSingleNode("objXML").text = strcon

Response.ContentType = "text/xml"
objResult.save (Response)
Response.End

Set objSch = Nothing
Set objResult = Nothing
%>