h_search.asp

手机入网登记管理

<%
Response.charSet   ="gb2312"
Response.ContentType = "text/xml"
response.write"<?xml version='1.0' encoding='gb2312'?>"
response.write"<content>"
	xh=request("xh")
	if(xh="") then xh=1
	set rs=server.createobject("adodb.recordset")
conn = "DBQ=" + server.mappath("class_cj.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
if request("xh")<>"" then
	sql="select * from bbs1 where xh like '" & xh & "%'"
else
	sql="select top 1 * from bbs1"
end if
rs.Open sql,conn,1,1
totalput=rs.RecordCount
if rs.EOF and  rs.BOF then
%>
		<list>
			<xh>0</xh>
			<id>error</id>
			<bj>0</bj>
			<user>0</user>
			<kc>0</kc>
			<cj>0</cj>
			<xq>0</xq>
			<lx>0</lx>
		</list>
<%
else
	do while not rs.eof
%>		<list>
			<xh><%=rs("xh")%></xh>
			<id><%=rs("id")%></id>
			<bj><%=rs("bj")%></bj>
			<user><%=rs("user")%></user>
			<kc><%=rs("kc")%></kc>
			<cj><%=rs("cj")%></cj>
			<xq><%=rs("xq")%></xq>
			<lx><%=rs("lx")%></lx>
		</list>
<%
	rs.movenext
	loop
end if
rs.Close 
set rs=nothing
set conn=nothing
response.write"</content>"
%>