ser.asp

很好的财务系统

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
connstr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("data.mdb")
set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
info=Request("info")
sql="select * from users where userid like '%"&info&"%' or username like '%"&info&"%' order by id desc"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.eof and not rs.eof then
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set Writes=fso.CreateTextFile(server.mappath("SerXml.xml"),true,false)
Writes.WriteLine("<?xml version=""1.0"" encoding=""gb2312""?>")
Writes.WriteLine("<root>")
while not rs.eof
Writes.WriteLine ("<users>")
Writes.WriteLine("<userid>"+rs("userid")+"</userid>")
Writes.WriteLine("<username>"+rs("username")+"</username>")
Writes.WriteLine ("</users>")
rs.MoveNext()
wend
rs.Close
set rs=nothing
conn.Close
set conn=nothing
Writes.WriteLine("</root>")
Writes.Close
set fso=nothing
else
msg="没有找到相关数据!"
response.write(escape(msg))
end if
%>