gusucode.com > CRM源码带手机版ASP源码程序 > Skin/Default/Js/Check.asp

    <!--#include file="../../../data/mssql.asp"-->
<% 
Dim conn,MDBPath
Accsql=""&Accsql&""
set rs=server.CreateObject("adodb.recordset")
Set conn = Server.CreateObject("ADODB.Connection")
MDBPath = Server.MapPath(""&Data_MDBPath&"")
if Accsql="0" then
	conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & MDBPath
elseif Accsql="1" then
	Conn.open "Provider=SQLOLEDB;Data Source="&Data_Source&";User ID="&Data_User&";Password="&Data_Password&";Initial Catalog="&Data_Catalog&""
end if

 Response.ContentType="text/xml"
 item= Replace(Trim(request("item")),"'","") 
 if item<>"" then 
 sql="select top 10 cCompany from [client] where cCompany like '%"&item&"%' order by cid desc"
 rs.open sql,conn,1,1  
 str="<?xml version=""1.0"" encoding=""gb2312""?>"&vbnewline
  str=str&"<root>"&vbnewline
  If rs.RecordCount = 0 Then
   str=str&"<message id=""1"">"&vbnewline  
   str=str&"  <text>允许录入</text>"&vbnewline
   str=str&"</message>"&vbnewline
  else
   str=str&"<message id=""1"">"&vbnewline  
   str=str&"  <text>关闭</text>"&vbnewline
   str=str&"</message>"&vbnewline
  end if
 If rs.eof Then  
 Else
  i=1
  Do While Not rs.eof
   str=str&"<message id="""&i&""">"&vbnewline  
   str=str&"  <text>"&rs(0)&"</text>"&vbnewline
   str=str&"</message>"&vbnewline
  i=i+1
  rs.movenext
  loop
  End If  
  str=str&"</root>"
  rs.close
  response.write str
  end if
%>