<!--#include file="../Inc/Conn.asp" -->
<!--#include file="../Inc/SK.Session.asp" -->
<!--#include file="../Inc/SK.Funtion.asp" -->
<%if Not (Getconfig("SK_Client")="0" AND (Session("Manager")="1" OR (JudgePopedomTF(Session("UserName"),"SK200000000") AND JudgePopedomTF(Session("UserName"),"SK200000101")))) then Call ReturnError()%>
<% 
Response.ContentType="text/xml"
search=F("search")
set rs=server.createobject("adodb.recordset")
sql="select top 10 * from SK_Client where [SK_Wname] like '"&search&"%' OR [SK_Jname] like '"&search&"%' order by [ClientID]"
rs.open sql,conn,1,1
str="<?xml version=""1.0"" encoding=""GB2312""?>"&vbnewline
str=str&"<root>"&vbnewline
If rs.eof Then
Else
i=1
Do While Not rs.eof
str=str&"<message id="""&i&""">"&vbnewline
str=str&"<text>"&rs("SK_Wname")&"</text>"&vbnewline
str=str&"</message>"&vbnewline
i=i+1
rs.movenext
loop
End If
str=str&"</root>"
response.write str
Call CloseDB()
%>