getcode.asp

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

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