📄 showpoint.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,daytime
stcdno=Request.QueryString(1)
daytime=Request.QueryString(2)
'----------建立数据库链接对象
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
rs.open rsstr,conn,1,1
reDim listTime(rs.recordcount)
For i=1 To rs.recordcount
listTime(i-1)=rs("YMDHM")
rs.movenext
Next
For i=0 To rs.recordcount-1
tm=month(listTime(i))
if len(tm)=1 then tm="0" & tm
td=day(listTime(i))
if len(td)=1 then td="0" & td
str=year(listTime(i)) & tm & td
listTime(i)=str
Next
rs.movefirst
Dim k
k=0
For i=0 To rs.recordcount-1
If listTime(i)=daytime Then
k=k+1
showdata()
End If
rs.movenext
Next
If k=0 then
showmessage("该测站点在该时间无数据")
End if
'rs.movelast
Set rs=Nothing
conn.close
Set conn=Nothing
%>
<% Sub showdata()%>
<body bgcolor="D7E8FA" LEFTMARGIN=0 TOPMARGIN=0>
<table align="center" 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"> 测站编码：</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"> 最近水位：</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"> 最近埋深：</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"> 时间：</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>
</table>
<p align="center">
<a href="javascript:window.close()" >关闭</a>
</p>
</body>
<% Response.End%>
<% End Sub %>
<% Sub showmessage(msg)%>
<body bgcolor="D7E8FA">
<br>
<br>
<br>
<center>
<h4><%=msg%></h4>
</center>
<form>
<p align="center">
<a href="javascript:window.close()" >关闭</a>
</p>
</form>
</body>
<% Response.End%>
<% End Sub %>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -