📄 showchart.asp
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> 图表显示 </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
</HEAD>
<BODY>
<script language="javascript">
function fun1(){
window.open ("RecordLineZchart.asp", "newwindow", "height=500, width=700, top=0, left=0,toolbar=no, menubar=no, scrollbars=no, resizable=no, location=no, status=no")
return true;
}
function fun2(){
window.open ("RecordLineZBDchart.asp", "newwindow", "height=500, width=700, top=0, left=0,toolbar=no, menubar=no, scrollbars=no, resizable=no, location=no, status=no")
return true;
}
</script>
<body>
<%
Dim no
no=Request.QueryString(1)
Session("NO")=no
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="+no
rs.open rsstr,conn,1,1
%>
<form id="form1" name="form1" method="post" action="">
<table align="center">
<tr>
<td align="center" class="title"><strong>测站编码<%=no%>信息显示</strong></td>
</tr>
<tr><td align="center" class="title"><strong>选择数据图表:</strong></td></tr>
<tr>
<td align="center">
<input type="button" style="width=100" onclick="fun1();" value="水位图" />
</td></tr><tr>
<td align="center">
<input type="button" onclick="fun2();" style="width=100" value="埋藏深度图" />
</td>
</tr>
</table>
<TABLE align="center" border="1">
<TR>
<TD>时间</TD>
<TD>水位</TD>
<TD>埋藏深度</TD>
</TR>
<% For i=1 To rs.recordcount
%>
<TR>
<TD><%=rs("YMDHM")%></TD>
<TD><%=rs("Z")%></TD>
<TD><%=rs("ZBD")%></TD>
</TR>
<% rs.movenext
next
%>
</TABLE>
</form>
<%
Set rs=Nothing
conn.close
Set conn=Nothing
%>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -