getcode.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")
strField=request("strField")
strTable=request("strTable")
strShowValue=request("strShowValue")
strcon=""
if strIDValue<>"" and strIdName<>"" and strTable<>"" and strShowValue<>"" and strField<>"" then
	strsql="select " & strShowValue & " from " & strTable & " where " & strIdName & "=" & strIDValue
	Set objRs = Server.CreateObject("adodb.recordset")
        objRs.Open strsql,objConn,1,1
        if not objrs.eof then
        	strcon=strField & ".value='" & objrs.fields(strShowValue) & "';" & chr(10) & chr(13)
        end if
end if

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

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

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

Set objSch = Nothing
Set objResult = Nothing
%>