复件 gis.asp

GIS系统初期,目前孩子啊处于测试阶段,好奇的朋友可以看看.

<%=rs("other_name")%>
<%rs.movenext
loop
rs.close
set rs = nothing
%></font></b></td>
		</tr>
		<tr>
			<td height="60" align="center"><b><font color="#FF0000"><%
set rs=server.CreateObject("adodb.recordset")
sql="select top 1 * from person_sms Order by id desc"

rs.Open sql,conn,1,1
do while not rs.EOF
%>
<%=rs("other_name")%>
<%rs.movenext
loop
rs.close
set rs = nothing
%></font></b></td>
			<td align="center"><b><font color="#FF0000"><%
set rs=server.CreateObject("adodb.recordset")
sql="select top 1 * from person_sms Order by id desc"

rs.Open sql,conn,1,1
do while not rs.EOF
%>
<%=rs("other_name")%>
<%rs.movenext
loop
rs.close
set rs = nothing
%></font></b></td>
			<td align="center"><b><font color="#FF0000"><%
set rs=server.CreateObject("adodb.recordset")
sql="select top 1 * from person_sms Order by id desc"

rs.Open sql,conn,1,1
do while not rs.EOF
%>
<%=rs("other_name")%>
<%rs.movenext
loop
rs.close
set rs = nothing
%></font></b></td>
			<td align="center"><b><font color="#FF0000"><%
set rs=server.CreateObject("adodb.recordset")
sql="select top 1 * from person_sms Order by id desc"

rs.Open sql,conn,1,1
do while not rs.EOF
%>
<%=rs("other_name")%>
<%rs.movenext
loop
rs.close
set rs = nothing
%></font></b></td>
			<td align="center"><b><font color="#FF0000"><%
set rs=server.CreateObject("adodb.recordset")
sql="select top 1 * from person_sms Order by id desc"

rs.Open sql,conn,1,1
do while not rs.EOF
%>
<%=rs("other_name")%>
<%rs.movenext
loop
rs.close
set rs = nothing
%></font></b></td>
			<td align="center"><b><font color="#FF0000"><%
set rs=server.CreateObject("adodb.recordset")
sql="select top 1 * from person_sms Order by id desc"

rs.Open sql,conn,1,1
do while not rs.EOF
%>
<%=rs("other_name")%>
<%rs.movenext
loop
rs.close
set rs = nothing
%></font></b></td>
			<td align="center"><b><font color="#FF0000"><%
set rs=server.CreateObject("adodb.recordset")
sql="select top 1 * from person_sms Order by id desc"

rs.Open sql,conn,1,1
do while not rs.EOF
%>
<%=rs("other_name")%>
<%rs.movenext
loop
rs.close
set rs = nothing
%></font></b></td>
			<td align="center"><b><font color="#FF0000"><%
set rs=server.CreateObject("adodb.recordset")
sql="select top 1 * from person_sms Order by id desc"

rs.Open sql,conn,1,1
do while not rs.EOF
%>
<%=rs("other_name")%>
<%rs.movenext
loop
rs.close
set rs = nothing
%></font></b></td>
		</tr>
		<tr>
			<td height="60" align="center"><b><font color="#FF0000"><%
set rs=server.CreateObject("adodb.recordset")
sql="select top 1 * from person_sms Order by id desc"

rs.Open sql,conn,1,1
do while not rs.EOF
%>
<%=rs("other_name")%>
<%rs.movenext
loop
rs.close
set rs = nothing
%></font></b></td>
			<td align="center"><b><font color="#FF0000"><%
set rs=server.CreateObject("adodb.recordset")
sql="select top 1 * from person_sms Order by id desc"

rs.Open sql,conn,1,1
do while not rs.EOF
%>
<%=rs("other_name")%>
<%rs.movenext
loop
rs.close
set rs = nothing
%></font></b></td>
			<td align="center"><b><font color="#FF0000"><%
set rs=server.CreateObject("adodb.recordset")
sql="select top 1 * from person_sms Order by id desc"

rs.Open sql,conn,1,1
do while not rs.EOF
%>
<%=rs("other_name")%>
<%rs.movenext
loop
rs.close
set rs = nothing
%></font></b></td>
			<td align="center"><b><font color="#FF0000"><%
set rs=server.CreateObject("adodb.recordset")
sql="select top 1 * from person_sms Order by id desc"

rs.Open sql,conn,1,1
do while not rs.EOF
%>
<%=rs("other_name")%>
<%rs.movenext
loop
rs.close
set rs = nothing
%></font></b></td>
			<td align="center"><b><font color="#FF0000"><%
set rs=server.CreateObject("adodb.recordset")
sql="select top 1 * from person_sms Order by id desc"

rs.Open sql,conn,1,1
do while not rs.EOF
%>
<%=rs("other_name")%>
<%rs.movenext
loop
rs.close
set rs = nothing
%></font></b></td>
			<td align="center"><b><font color="#FF0000"><%
set rs=server.CreateObject("adodb.recordset")
sql="select top 1 * from person_sms Order by id desc"

rs.Open sql,conn,1,1
do while not rs.EOF
%>
<%=rs("other_name")%>
<%rs.movenext
loop
rs.close
set rs = nothing
%></font></b></td>
			<td align="center"><b><font color="#FF0000"><%
set rs=server.CreateObject("adodb.recordset")
sql="select top 1 * from person_sms Order by id desc"

rs.Open sql,conn,1,1
do while not rs.EOF
%>
<%=rs("other_name")%>
<%rs.movenext
loop
rs.close
set rs = nothing
%></font></b></td>
			<td align="center"><b><font color="#FF0000"><%
set rs=server.CreateObject("adodb.recordset")
sql="select top 1 * from person_sms Order by id desc"

rs.Open sql,conn,1,1
do while not rs.EOF
%>
<%=rs("other_name")%>
<%rs.movenext
loop
rs.close
set rs = nothing
%></font></b></td>
		</tr>
		<tr>
			<td height="60" align="center"><b><font color="#FF0000"><%
set rs=server.CreateObject("adodb.recordset")
sql="select top 1 * from person_sms Order by id desc"

rs.Open sql,conn,1,1
do while not rs.EOF
%>
<%=rs("other_name")%>
<%rs.movenext
loop
rs.close
set rs = nothing
%></font></b></td>
			<td align="center"><b><font color="#FF0000"><%
set rs=server.CreateObject("adodb.recordset")
sql="select top 1 * from person_sms Order by id desc"

rs.Open sql,conn,1,1
do while not rs.EOF
%>
<%=rs("other_name")%>
<%rs.movenext
loop
rs.close
set rs = nothing
%></font></b></td>
			<td align="center"><b><font color="#FF0000"><%
set rs=server.CreateObject("adodb.recordset")
sql="select top 1 * from person_sms Order by id desc"

rs.Open sql,conn,1,1
do while not rs.EOF
%>
<%=rs("other_name")%>
<%rs.movenext
loop
rs.close
set rs = nothing
%></font></b></td>
			<td align="center"><b><font color="#FF0000"><%
set rs=server.CreateObject("adodb.recordset")
sql="select top 1 * from person_sms Order by id desc"

rs.Open sql,conn,1,1
do while not rs.EOF
%>
<%=rs("other_name")%>
<%rs.movenext
loop
rs.close
set rs = nothing
%></font></b></td>
			<td align="center"><b><font color="#FF0000"><%
set rs=server.CreateObject("adodb.recordset")
sql="select top 1 * from person_sms Order by id desc"

rs.Open sql,conn,1,1
do while not rs.EOF
%>
<%=rs("other_name")%>
<%rs.movenext
loop
rs.close
set rs = nothing
%></font></b></td>
			<td align="center"><b><font color="#FF0000"><%
set rs=server.CreateObject("adodb.recordset")
sql="select top 1 * from person_sms Order by id desc"

rs.Open sql,conn,1,1
do while not rs.EOF
%>
<%=rs("other_name")%>
<%rs.movenext
loop
rs.close
set rs = nothing
%></font></b></td>
			<td align="center"><b><font color="#FF0000"><%
set rs=server.CreateObject("adodb.recordset")
sql="select top 1 * from person_sms Order by id desc"

rs.Open sql,conn,1,1
do while not rs.EOF
%>
<%=rs("other_name")%>
<%rs.movenext
loop
rs.close
set rs = nothing
%></font></b></td>
			<td align="center"><b><font color="#FF0000"><%
set rs=server.CreateObject("adodb.recordset")
sql="select top 1 * from person_sms Order by id desc"

rs.Open sql,conn,1,1
do while not rs.EOF
%>
<%=rs("other_name")%>
<%rs.movenext
loop
rs.close
set rs = nothing
%></font></b></td>
		</tr>
		<tr>
			<td height="60" align="center"><b><font color="#FF0000"><%
set rs=server.CreateObject("adodb.recordset")
sql="select top 1 * from person_sms Order by id desc"

rs.Open sql,conn,1,1
do while not rs.EOF
%>
<%=rs("other_name")%>
<%rs.movenext
loop
rs.close
set rs = nothing
%></font></b></td>
			<td align="center"><b><font color="#FF0000"><%
set rs=server.CreateObject("adodb.recordset")
sql="select top 1 * from person_sms Order by id desc"

rs.Open sql,conn,1,1
do while not rs.EOF
%>
<%=rs("other_name")%>
<%rs.movenext
loop
rs.close
set rs = nothing
%></font></b></td>
			<td align="center"><b><font color="#FF0000"><%
set rs=server.CreateObject("adodb.recordset")
sql="select top 1 * from person_sms Order by id desc"

rs.Open sql,conn,1,1
do while not rs.EOF
%>
<%=rs("other_name")%>
<%rs.movenext
loop
rs.close
set rs = nothing
%></font></b></td>
			<td align="center"><b><font color="#FF0000"><%
set rs=server.CreateObject("adodb.recordset")
sql="select top 1 * from person_sms Order by id desc"

rs.Open sql,conn,1,1
do while not rs.EOF
%>
<%=rs("other_name")%>
<%rs.movenext
loop
rs.close
set rs = nothing
%></font></b></td>
			<td align="center"><b><font color="#FF0000"><%
set rs=server.CreateObject("adodb.recordset")
sql="select top 1 * from person_sms Order by id desc"

rs.Open sql,conn,1,1
do while not rs.EOF
%>
<%=rs("other_name")%>
<%rs.movenext
loop
rs.close
set rs = nothing
%></font></b></td>
			<td align="center"><b><font color="#FF0000"><%
set rs=server.CreateObject("adodb.recordset")
sql="select top 1 * from person_sms Order by id desc"

rs.Open sql,conn,1,1
do while not rs.EOF
%>
<%=rs("other_name")%>
<%rs.movenext
loop
rs.close
set rs = nothing
%></font></b></td>
			<td align="center"><b><font color="#FF0000"><%
set rs=server.CreateObject("adodb.recordset")
sql="select top 1 * from person_sms Order by id desc"

rs.Open sql,conn,1,1
do while not rs.EOF
%>
<%=rs("other_name")%>
<%rs.movenext
loop
rs.close
set rs = nothing
%></font></b></td>
			<td align="center"><b><font color="#FF0000"><%
set rs=server.CreateObject("adodb.recordset")
sql="select top 1 * from person_sms Order by id desc"

rs.Open sql,conn,1,1
do while not rs.EOF
%>
<%=rs("other_name")%>
<%rs.movenext
loop
rs.close
set rs = nothing
%></font></b></td>
		</tr>
		<tr>
			<td height="60" align="center"><b><font color="#FF0000"><%
set rs=server.CreateObject("adodb.recordset")
sql="select top 1 * from person_sms Order by id desc"

rs.Open sql,conn,1,1
do while not rs.EOF
%>
<%=rs("other_name")%>
<%rs.movenext
loop
rs.close
set rs = nothing
%></font></b></td>
			<td align="center"><b><font color="#FF0000"><%
set rs=server.CreateObject("adodb.recordset")
sql="select top 1 * from person_sms Order by id desc"

rs.Open sql,conn,1,1
do while not rs.EOF
%>
<%=rs("other_name")%>
<%rs.movenext
loop
rs.close
set rs = nothing
%></font></b></td>
			<td align="center"><b><font color="#FF0000"><%
set rs=server.CreateObject("adodb.recordset")
sql="select top 1 * from person_sms Order by id desc"

rs.Open sql,conn,1,1
do while not rs.EOF
%>
<%=rs("other_name")%>
<%rs.movenext
loop
rs.close
set rs = nothing
%></font></b></td>
			<td align="center"><b><font color="#FF0000"><%
set rs=server.CreateObject("adodb.recordset")
sql="select top 1 * from person_sms Order by id desc"

rs.Open sql,conn,1,1
do while not rs.EOF
%>
<%=rs("other_name")%>
<%rs.movenext
loop
rs.close
set rs = nothing
%></font></b></td>
			<td align="center"><b><font color="#FF0000"><%
set rs=server.CreateObject("adodb.recordset")
sql="select top 1 * from person_sms Order by id desc"

rs.Open sql,conn,1,1
do while not rs.EOF
%>
<%=rs("other_name")%>
<%rs.movenext
loop
rs.close
set rs = nothing
%></font></b></td>
			<td align="center"><b><font color="#FF0000"><%
set rs=server.CreateObject("adodb.recordset")
sql="select top 1 * from person_sms Order by id desc"

rs.Open sql,conn,1,1
do while not rs.EOF
%>
<%=rs("other_name")%>
<%rs.movenext
loop
rs.close
set rs = nothing
%></font></b></td>
			<td align="center"><b><font color="#FF0000"><%
set rs=server.CreateObject("adodb.recordset")
sql="select top 1 * from person_sms Order by id desc"

rs.Open sql,conn,1,1
do while not rs.EOF
%>
<%=rs("other_name")%>
<%rs.movenext
loop
rs.close
set rs = nothing
%></font></b></td>
			<td align="center"><b><font color="#FF0000"><%
set rs=server.CreateObject("adodb.recordset")
sql="select top 1 * from person_sms Order by id desc"

rs.Open sql,conn,1,1
do while not rs.EOF
%>
<%=rs("other_name")%>
<%rs.movenext
loop
rs.close
set rs = nothing
%></font></b></td>
		</tr>
		<tr>
			<td height="60" align="center"><b><font color="#FF0000"><%
set rs=server.CreateObject("adodb.recordset")
sql="select top 1 * from person_sms Order by id desc"

rs.Open sql,conn,1,1
do while not rs.EOF
%>
<%=rs("other_name")%>
<%rs.movenext
loop
rs.close
set rs = nothing
%></font></b></td>
			<td align="center"><b><font color="#FF0000"><%
set rs=server.CreateObject("adodb.recordset")
sql="select top 1 * from person_sms Order by id desc"

rs.Open sql,conn,1,1
do while not rs.EOF
%>
<%=rs("other_name")%>
<%rs.movenext
loop
rs.close
set rs = nothing
%></font></b></td>
			<td align="center"><b><font color="#FF0000"><%
set rs=server.CreateObject("adodb.recordset")
sql="select top 1 * from person_sms Order by id desc"

rs.Open sql,conn,1,1
do while not rs.EOF
%>
<%=rs("other_name")%>
<%rs.movenext
loop
rs.close
set rs = nothing
%></font></b></td>
			<td align="center"><b><font color="#FF0000"><%
set rs=server.CreateObject("adodb.recordset")
sql="select top 1 * from person_sms Order by id desc"

rs.Open sql,conn,1,1
do while not rs.EOF
%>
<%=rs("other_name")%>
<%rs.movenext
loop
rs.close
set rs = nothing
%></font></b></td>
			<td align="center"><b><font color="#FF0000"><%
set rs=server.CreateObject("adodb.recordset")
sql="select top 1 * from person_sms Order by id desc"

rs.Open sql,conn,1,1
do while not rs.EOF
%>
<%=rs("other_name")%>
<%rs.movenext
loop
rs.close
set rs = nothing
%></font></b></td>
			<td align="center"><b><font color="#FF0000"><%
set rs=server.CreateObject("adodb.recordset")
sql="select top 1 * from person_sms Order by id desc"

rs.Open sql,conn,1,1
do while not rs.EOF
%>
<%=rs("other_name")%>
<%rs.movenext
loop
rs.close
set rs = nothing
%></font></b></td>
			<td align="center"><b><font color="#FF0000"><%
set rs=server.CreateObject("adodb.recordset")
sql="select top 1 * from person_sms Order by id desc"

rs.Open sql,conn,1,1
do while not rs.EOF
%>
<%=rs("other_name")%>
<%rs.movenext
loop
rs.close
set rs = nothing
%></font></b></td>
			<td align="center"><b><font color="#FF0000"><%
set rs=server.CreateObject("adodb.recordset")
sql="select top 1 * from person_sms Order by id desc"

rs.Open sql,conn,1,1
do while not rs.EOF
%>
<%=rs("other_name")%>
<%rs.movenext
loop
rs.close
set rs = nothing
%></font></b></td>
</tr>
</table>
</div>
</body>
</html>