📄 extratax_add.asp
字号:
<!--#include file="include/conn.asp"-->
<!--#include file="include/function.asp"-->
<script language='Javascript' src='include/inland.js'></script>
<%
flyCode=request("flyCode")
myActionStr="添加"
if flyCode<>"" then
dim szSQL
set oRst=Server.CreateObject("AdoDb.recordset")
szSQL="select * from Taprice where [航段]='"&flyCode&"'"
oRst.Open szSQL,conn,1,1
if not(oRst.eof or oRst.bof) then
flyCode=oRst("航段")
FcityCode=left(flyCode,3)
Fcity=Recity(FcityCode)
ScityCode=right(flyCode,3)
Scity=Recity(ScityCode)
price=oRst("ConstracteTax")
updatetime=oRst("updatetime")
end if
myActionStr="更新"
oRst.close
set oRst=nothing
end if
%>
<HTML>
<HEAD>
<TITLE>添加燃油附加费</TITLE>
<link href="include/css.css" rel="stylesheet" type="text/css">
<!-- powered By ZhouXiaolong -->
<SCRIPT language=javascript>
function checkinput()
{
if (form1.price.value=="")
{
alert("燃油附加费价格不能为空!");
form1.price.focus();
return false;
}
if (form1.FCity.value==form1.SCity.value)
{
alert("城市1和城市2不能相同，请重新添加！");
form1.FCity.focus();
return false;
}
}
</SCRIPT>
</head>
<body leftmargin="0" topmargin="0">
<table width="770" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<form action="extraTax_add.asp" method="post" name="form1" onsubmit="return checkinput();">
<tr valign="bottom">
<td height="70" colspan="2" bgcolor="#EEEEEF">
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#999999"><table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr bgcolor="#C3E7F9">
<td width="24%" height="30"><div align="center">城市1</div></td>
<td width="33%"><div align="center">城市2</div></td>
<td width="21%"><div align="center">燃油附加费</div></td>
<td width="22%" align="center">更新时间</td>
<!--<td width="20%" bgcolor="#FFFFFF"> <div align="center">机场建设费</div></td>-->
</tr>
<tr>
<td height="30" bgcolor="#FFFFFF"><div align="center">
<SELECT id=FCity name=FCity size=1 style="width:80;height:19">
<%if flyCode<>"" then%>
<option value="<%=FcityCode%>"><%=Fcity%></option>
<%end if%>
<script> document.write(citystr);</script>
</select>
</div></td>
<td height="30" bgcolor="#FFFFFF"><div align="center">
<SELECT id=SCity name=SCity size=1 style="width:80;height:19">
<%if flyCode<>"" then%>
<option value="<%=ScityCode%>"><%=Scity%></option>
<%end if%>
<script> document.write(citystr);</script>
</select>
</div></td>
<td height="30" bgcolor="#FFFFFF"><div align="center">
<input type="text" style="width:80px" name="price" value="<%=price%>">
</div></td>
<td height="30" align="center" bgcolor="#FFFFFF">
<%if LineCode<>"" then
Updatetime=Updatetime
else
Updatetime=date()
end if
response.write Updatetime
%>
<input name="Updatetime" type="hidden" value="<%=Updatetime%>" size="10">
</td>
<!--<td height="30" bgcolor="#FFFFFF">
<div align="center">
<input type="text" style="width:80px" name="price" value="<%'=price%>">
</div></td>-->
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td height="30" align="right" bgcolor="#EEEEEF">
<input type="hidden" value="<%=flyCode%>" name="flyCode">
<input type="submit" value="确认" name="addRow">
<input type="button" value="返回" name="CancelRow" onClick="javascript:window.location.href='manageExtraTax.asp';">
</td>
<!--<td width="12" bgcolor="#EEEEEF"> </td>-->
</tr>
</form>
</table></td>
</tr>
</table>
</BODY>
</HTML>
<%
if Request.ServerVariables("REQUEST_METHOD")="POST" then
FcityCode=trim(testdb(request.form("FCity")))
ScityCode=trim(testdb(request.form("SCity")))
if FcityCode=ScityCode then
response.write "<script language='Javascript'>alert('"&Recity(FcityCode)&"和"&Recity(ScityCode)&"相同!\n不能添加相同城市之间的燃油附加费记录，此次添加失败！');window.history.back(-1);</script>"
response.end
end if
price=testdb(request.form("price"))
updatetime=testdb(request.form("updatetime"))
set qrs=server.CreateObject("adodb.recordset")
qsql="select * from Taprice where ([航段]='"&Ucase(FcityCode&ScityCode)&"' or [航段]='"&Ucase(ScityCode&FcityCode)&"') and ConstracteTax="&price
'response.write qsql
'response.end
qrs.open qsql,conn,1,3
if not (qrs.eof or qrs.bof) then
response.write "<script language='Javascript'>alert('"&Recity(FcityCode)&"和"&Recity(ScityCode)&"之间燃油附加费已经存在!\n不能添加重复记录，此次添加失败！');window.history.back(-1);</script>"
response.end
end if
if testdb(request.form("MyAction"))<>"AddNew" then
qsql="select * from Taprice"
qrs.close
qrs.open qsql,conn,1,3
end if
if flyCode="" then
qrs.addnew
end if
'qrs("ID")=Clng(trim(request.form("AtxtID")))
qrs("航段")=Ucase(FcityCode&ScityCode)
' qrs("ScityCode")=ScityCode
qrs("ConstracteTax")=price
qrs("distance")=distance'里程
qrs("updatetime")=updatetime
qrs.update
response.write "<script language=javascript>alert('记录已经"&myActionStr&"成功!\n');window.location.href='manageExtraTax.asp';</script>"
qrs.close
set qrs=nothing
end if
function ReCity(TempCity)
set Temprs=server.CreateObject("adodb.recordset")
sql="select CityName from city where CityCode='"&TempCity&"'"
Temprs.open sql,conn,3,1
if not (Temprs.eof or Temprs.bof) then
ReCity=Temprs("CityName")
else
Recity="未知"
end if
Temprs.close
end function
function ReCitycode(TempCity)
set Temprs=server.CreateObject("adodb.recordset")
sql="select CityCode form city1 where CityName='"&TempCity&"'"
Temprs.open sql,conn,3,1
if not (Temprs.eof or Temprs.bof) then
ReCitycode=Temprs("CityCode")
else
ReCitycode="未知"
end if
Temprs.close
end function
closeDataBase
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -