您所在位置：主题：为什么程序实现不了按照ID排序功能？（附程序）
xfwu31
[专家分：0] 发布于 2007-03-29 18:31:00
请问一下各位大侠，我以下程序中为什么实现不了按照ID排序的功能呢？
<!--#INCLUDE FILE="odbc_connection.asp"-->
<html>
<head>
<title>添加雷达性能参数</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="25175com_221.css" rel="stylesheet" type="text/css">
</head>
<body>
<h5 align="center">添加雷达性能参数</h5>
<center>
<form method="post" action="" name="form1" onSubmit="javascript: return check_Null();">
<table border="0" width="50%" >
<tr>
<td>ID:</td><td><input type="text" name="ID" size="20"></td>
</tr>
<tr>
<td>日期：</td><td><input type="text" name="日期" size="20"></td>
</tr>
<tr>
<td>时间：</td><td><input type="text" name="时间" size="20"></td>
</tr>
<tr>
<td>噪声温度：</td><td><input type="text" name="噪声温度" size="20"></td>
</tr>
<tr>
<td>发射机功率：</td><td><input type="text" name="发射机功率" size="20"></td>
</tr>
<tr>
<td>天线功率：</td><td><input type="text" name="天线功率" size="20"></td>
</tr>
<tr>
<td>I/Q幅度：</td><td><input type="text" name="IQ幅度" size="20"></td>
</tr>
<tr>
<td>I/Q相位：</td><td><input type="text" name="IQ相位" size="20"></td>
</tr>
<tr>
<td>雷达常数：</td><td><input type="text" name="雷达常数" size="20"></td>
</tr>
<tr>
<td>地物对消：</td><td><input type="text" name="地物对消" size="20"></td>
</tr>
<tr>
<td>发射机温度：</td><td><input type="text" name="发射机温度" size="20"></td>
</tr>
<tr>
<td>机房温度：</td><td><input type="text" name="机房温度" size="20"></td>
</tr>
<tr>
<td>机房湿度：</td><td><input type="text" name="机房湿度" size="20"></td>
</tr>
</table>
<p align="center"><input type="submit" value=" 添 加 ">
(注:I D必须填写，并依次序填写)
</form>
</center>
<%
If Request.Form("ID")<>"" Then
'下面定义变量，用来获取表单中的值
Dim ID,datee,timee,yawp,TRpower,ANTpower,IQrange,IQph,constant,diwu,TRtemp,Roomtemp,humidity
ID=Request.Form("ID")
datee=Request.Form("日期")
timee=request.Form("时间")
yawp=request.Form("噪声温度")
TRpower=Request.Form("发射机功率")
ANTpower=Request.Form("天线功率")
IQrange=request.Form("IQ幅度")
IQph=request.Form("IQ相位")
constant=Request.Form("雷达常数")
diwu=Request.Form("地物对消")
TRtemp=request.Form("发射机温度")
Roomtemp=request.Form("机房温度")
humidity=Request.Form("机房湿度")
sqlb="Select * From parameter Order By ID"
db.Execute sqlb
Dim sqla
sqla = "insert into parameter(ID,日期,时间,噪声温度,发射机功率,天线功率,[I/Q幅度],[I/Q相位],雷达常数,地物对消,发射机温度,机房温度,机房湿度) Values('"&ID&"','"&datee&"','"&timee&"','"&yawp&"','"&TRpower&"','"&ANTpower&"','"&IQrange&"','"&IQph&"','"&constant&"','"&diwu&"','"&TRtemp&"','"&Roomtemp&"','"&humidity&"')"
db.Execute sqla
dim sqlb
sqlb="Select * From parameter Order By ID"
db.Execute sqlb
Response.redirect "parameteradd.asp"
End If
%>
</body>
</html>
<!--#INCLUDE FILE="odbc_connection.asp"-->
<html>
<head>
<title>添加雷达性能参数</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="25175com_221.css" rel="stylesheet" type="text/css">
</head>
<body>
<h5 align="center">添加雷达性能参数</h5>
<center>
<form method="post" action="" name="form1" onSubmit="javascript: return check_Null();">
<table border="0" width="50%" >
<tr>
<td>ID:</td><td><input type="text" name="ID" size="20"></td>
</tr>
<tr>
<td>日期：</td><td><input type="text" name="日期" size="20"></td>
</tr>
<tr>
<td>时间：</td><td><input type="text" name="时间" size="20"></td>
</tr>
<tr>
<td>噪声温度：</td><td><input type="text" name="噪声温度" size="20"></td>
</tr>
<tr>
<td>发射机功率：</td><td><input type="text" name="发射机功率" size="20"></td>
</tr>
<tr>
<td>天线功率：</td><td><input type="text" name="天线功率" size="20"></td>
</tr>
<tr>
<td>I/Q幅度：</td><td><input type="text" name="IQ幅度" size="20"></td>
</tr>
<tr>
<td>I/Q相位：</td><td><input type="text" name="IQ相位" size="20"></td>
</tr>
<tr>
<td>雷达常数：</td><td><input type="text" name="雷达常数" size="20"></td>
</tr>
<tr>
<td>地物对消：</td><td><input type="text" name="地物对消" size="20"></td>
</tr>
<tr>
<td>发射机温度：</td><td><input type="text" name="发射机温度" size="20"></td>
</tr>
<tr>
<td>机房温度：</td><td><input type="text" name="机房温度" size="20"></td>
</tr>
<tr>
<td>机房湿度：</td><td><input type="text" name="机房湿度" size="20"></td>
</tr>
</table>
<p align="center"><input type="submit" value=" 添 加 ">
(注:I D必须填写，并依次序填写)
</form>
</center>
<%
If Request.Form("ID")<>"" Then
'下面定义变量，用来获取表单中的值
Dim ID,datee,timee,yawp,TRpower,ANTpower,IQrange,IQph,constant,diwu,TRtemp,Roomtemp,humidity
ID=Request.Form("ID")
datee=Request.Form("日期")
timee=request.Form("时间")
yawp=request.Form("噪声温度")
TRpower=Request.Form("发射机功率")
ANTpower=Request.Form("天线功率")
IQrange=request.Form("IQ幅度")
IQph=request.Form("IQ相位")
constant=Request.Form("雷达常数")
diwu=Request.Form("地物对消")
TRtemp=request.Form("发射机温度")
Roomtemp=request.Form("机房温度")
humidity=Request.Form("机房湿度")
sqlb="Select * From parameter Order By ID"
db.Execute sqlb
Dim sqla
sqla = "insert into parameter(ID,日期,时间,噪声温度,发射机功率,天线功率,[I/Q幅度],[I/Q相位],雷达常数,地物对消,发射机温度,机房温度,机房湿度) Values('"&ID&"','"&datee&"','"&timee&"','"&yawp&"','"&TRpower&"','"&ANTpower&"','"&IQrange&"','"&IQph&"','"&constant&"','"&diwu&"','"&TRtemp&"','"&Roomtemp&"','"&humidity&"')"
db.Execute sqla
dim sqlb
sqlb="Select * From parameter Order By ID"
db.Execute sqlb
Response.redirect "parameteradd.asp"
End If
%>
</body>
</html>
