getcity.asp

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

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

strIDValue=request("strIDValue")
strIdName=request("strIdName")
strFIdName=request("strFIdName")
strTable=request("strTable")
strShowName=request("strShowName")
strcon=""
if strIDValue<>"" and strIdName<>"" and strTable<>"" and strShowName<>"" then
	strsql="select " & strIdName & "," & strShowName & " from " & strTable & " where " & strFIdName & "=" & strIDValue 
	Set objRs = Server.CreateObject("adodb.recordset")
        objRs.Open strsql,objConn,1,1
        i=0
        if not objrs.eof then
        	'strcon=strcon & "<script>" & chr(10) & chr(13)
        	'strcon=strcon & "subcat = new Array();" & chr(10) & chr(13)
        	do while not objrs.eof
        		strcon=strcon & "subcat[" & i & "] = new Array(""" & objrs.fields(strShowName) & """,""" & objrs.fields(strIdName) & """);" & chr(10) & chr(13)
        	objrs.movenext
        	i=i+1
        	loop
        	'strcon=strcon & "</script>"
        end if
end if

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

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

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

Set objSch = Nothing
Set objResult = Nothing
%>