📄 pipesdb.asp
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>欢迎进入管线点属性数据查询系统</title>
<style type="text/css">
<!--
.style1 {
font-size: 36px;
font-family: "仿宋_GB2312";
color: #6600FF;
}
.style2 {color: #6666FF}
body {
background-color: #D7DCEC;
}
-->
</style>
</head>
<body>
<p align="center"><span class="style1">管线点属性数据查询<br>
</span></p>
<center>
<span class="style2">请输入其中的任意一项来进行查询</span>．
</center>
<form name=search method=post action=pipesdb.asp>
<table width="35%" border="1" align="center" cellpadding="0" cellspacing="6" bordercolor="#937AF5">
<tr>
<td width="39%" align="right">物探点号：</td>
<td width="61%"><input type=text name=wtdh size=16></td>
</tr>
<tr>
<td align="right">本点号：</td>
<td><input type=text name=bdh size=16>
</td></tr>
<tr>
<td align="right">上点号：</td>
<td><input type=text name=sdh size=16></td>
</tr>
</table><center><input type="submit" value="查询"> <input type="hidden" name="action_e" value="search1"><input type=reset name=reset value=重置></center>
</form>
<%
if request.form("action_e")="search1" then call execute()
sub execute()
flag=false
wtdh=request.form("wtdh")
bdh=request.form("bdh")
sdh=request.form("sdh")
set conn=server.createobject("adodb.connection")
dbpath=Server.mappath("data/pipesdb.mdb")
conn.open "driver={microsoft access driver (*.mdb)};dbq="& dbpath
set rs=Server.CreateObject("ADODB.recordset")
sql="select * from 62258375y where "
if not(wtdh="") then
sql=sql&"wtdh='"&wtdh&"'"
flag=true
end if
if not(bdh="") then
if flag then
sql=sql&" and sdh='"&bdh&"'"
else
sql=sql&"sdh='"&bdh&"'"
falg=true
end if
end if
if not(sdh="") then
if flag then
sql=sql&" and sdh='"&sdh&"'"
else
sql=sql&"sdh='"&sdh&"'"
falg=true
end if
end if
rs.open sql,conn,1,3
%>
<center>
<%
response.write "点号为"
response.write rs("wtdh")
response.write "的测量数据信息如下:"
%>
</center>
<br>
<table width="691" border="1" align="center" bordercolor="#07AADA">
<tr>
<td width="98"><div align="center">测量库名</div></td>
<td width="116"><div align="center">物探点号</div></td>
<td width="123"><div align="center">本点号</div></td>
<td width="110"><div align="center">上点号</div></td>
<td width="108"><div align="center">种类</div></td>
<td width="96"><div align="center">特征</div></td>
</tr>
<tr>
<td><center><%=rs("clm")%></center></td>
<td><center><%=rs("wtdh")%></center></td>
<td><center><%=rs("bdh")%></center></td>
<td><center><%=rs("sdh")%></center></td>
<td><center><%=rs("zl")%></center></td>
<td><center>
空
</center></td>
</tr>
<tr>
<td><div align="center">附属物</div></td>
<td><div align="center">点编号</div></td>
<td><div align="center">材质</div></td>
<td><div align="center">管径</div></td>
<td><div align="center">地面高程</div></td>
<td><div align="center">本点埋深</div></td>
</tr>
<tr>
<td><center><%=rs("fsw")%></center></td>
<td><center><%=rs("dbh")%></center></td>
<td><center><%=rs("cz")%></center></td>
<td><center><%=rs("gj")%></center></td>
<td><center><%=rs("dmgc")%></center></td>
<td><center><%=rs("bdms")%></center></td>
</tr>
<tr>
<td><div align="center">上点埋深</div></td>
<td><div align="center">本点管内底</div></td>
<td><div align="center">上点管内底</div></td>
<td><div align="center">x</div></td>
<td><div align="center">y</div></td>
<td><div align="center">所属部门</div></td>
</tr>
<tr>
<td><center><%=rs("sdms")%></center></td>
<td><center><%=rs("bdgnd")%></center></td>
<td><center><%=rs("sdgnd")%></center></td>
<td><center><%=rs("x")%></center></td>
<td><center><%=rs("y")%></center></td>
<td><center>
空
</center></td>
</tr>
<tr>
<td><div align="center">埋设年代</div></td>
<td><div align="center">备注</div></td>
<td><div align="center">图副号</div></td>
<td><center>
空
</center></td>
<td><center>
空
</center></td>
<td><center>
空
</center></td>
</tr>
<tr>
<td><center>
空
</center></td>
<td><center><%=rs("beizu")%></center></td>
<td><center><%=rs("tufuhao")%></center></td>
<td><div align="center">空</div></td>
<td><div align="center">空</div></td>
<td><div align="center">空</div></td>
</tr>
</table>
<%
end sub
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -