📄 point_select.asp

📁 采用arcims结合asp开发的一个webgis系统,针对地下水,实现了曲线时时绘制的功能.

💻 ASP

字号:

<META HTTP-EQUIV="Pragma" CONTENT="no-cache">
<meta http-equiv="Content-Type" content="text/html; charset=GB2312">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%	
Dim conn,connstr,rs,rsstr ,stcdno
stcdno=Request.QueryString(1)
'----------建立数据库链接对象
Set conn = Server.CreateObject("ADODB.Connection")
connstr ="Driver={SQL Server};server=(local);uid=sa;pwd=;database=master;"
conn.open connstr

Set rs = server.CreateObject("adodb.recordset")

rsstr = "select * from GW_Z_H where STCD="+stcdno+" order by YMDHM "

rs.open rsstr,conn,1,1
If rs.eof Or rs.bof Then 
	showmessage "数据库中不存在你所查测站信息"
	'response.redirect "blank.htm"
Else
	rs.movelast
	go
	Set rs=Nothing
	conn.close
	Set conn=Nothing
End If 
'rs.movelast 

%>

<% Sub go()%>
<body bgcolor="D7E8FA" LEFTMARGIN=0 TOPMARGIN=0>
<form name="queryform1" method="get" action="showchart.asp" target="_blank">
<input type="hidden" name="pointNo" value=<%=rs("STCD")%>>
<table width="212"  cellspacing="0" cellpadding="0">
	<tr>
		<td width="100%" align="center"><font color="black" style="font-size=11pt" face="宋体" ><b>数据库信息</b></font></td>
	</tr>
	<tr>
		<td height="15"></td>
	</tr>
	<tr>
		<td>
		<TABLE>
		<TR>
			<td width="100" align="left"><font style="font-size=9pt">&nbsp;测站编码：</font></td>
			<td width="50" align="left"><font style="font-size=9pt"><%=rs("STCD")%></font></td>
		</TR>
		</TABLE>
		</td>
	</tr>
	<tr>
		<td>
		<TABLE>
		<TR>
			<td width="100" align="left"><font style="font-size=9pt">&nbsp;最近水位：</font></td>
			<td width="50" align="left"><font style="font-size=9pt"><%=rs("Z")%></font></td>
		</TR>
		</TABLE>
		</td>
	</tr>	
	<tr>
		<td>
		<TABLE>
		<TR>
			<td width="100" align="left"><font style="font-size=9pt">&nbsp;最近埋深：</font></td>
			<td width="50" align="left"><font style="font-size=9pt"><%=rs("ZBD")%></font></td>
		</TR>
		</TABLE>
		</td>
	</tr>
	<tr>
		<td>
		<TABLE>
		<TR>
			<td width="100" align="left"><font style="font-size=9pt">&nbsp;最近水位时间：</font></td>
			<td width="120" align="left"><font style="font-size=9pt"><%=rs("YMDHM")%></font></td>
		</TR>
		</TABLE>
		</td>
	</tr>
	<tr>
		<td height="15"></td>
	</tr>
	<tr>
		<td width="165" align="center"> <input type="submit" name="查询历史水位埋深" value="查询历史水位埋深" ></td>
	</tr>
</table>

</form>
</body>
<% Response.End%>
<% End sub%>

<% Sub showmessage(msg)%>
<body bgcolor="D7E8FA">
<br>
<br>
<br>
<center>
<h4><%=msg%></h4>
</center>
<!-- <form>
<p align="center">
<input type="button" value="返回重新填写" onclick="history.back()">
</p>
</form> -->
</body>
<% Response.End%>
<% End Sub %>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -