getinfo.asp

本系统是基于B/S结构的客户关系管理系统. 测试管理员和密码是super 用户名super 密码super 前台和后台是一次性同时登陆的 系统工能介绍: 客户管理---------- 添

<!--#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
%>