关于时间运算的代码

来源:百度知道 编辑:UC知道 时间:2024/05/29 04:44:30
看了介绍DateDiff的用法,我在代码里面添加上了,但是这个功能一直不显示,输出"ErrStr"的时候,一直是"ErrStr="<font color=#009900>此订单在保障期内,您可以继续登记!</font>"这句有效,无论是"if TheDay<15 then"还是"if TheDay<15 then",结果都是一样,那么我就觉得可能是这儿出了问题,请高手指点一下,代码哪儿不对了.分不多了,前几次也都没有得到正确答案,希望这次能有真正高手指点,正确的另加分.

<%if request.QueryString("ONum")<>"" then
Dim OrderNumber
Dim ErrStr
Dim TotalPrice
Dim InputStr
Dim TheDay
Dim TheDate
OrderNumber=ld_check(request.QueryString("ONum"),20,1,"订单号")
ErrStr=""
TotalPrice=0
set Frs=lodo_Execute("select addUser,Sentdate,addUserID,TotalPrice from lodo_OrderForm where MeansOayment<>7 and Ordernumber='"&OrderNumber&"'")
if not(Frs.eof or Frs.bof) then
if trim(Frs("addUser"))=Trim(FUserName) and trim(Frs("addUserID"))=Trim(FUserID) then
TotalPrice=Frs("TotalPrice")

你这个没有任何技术问题,没有学过程序的都知道你的问题在哪里,看看你的语句:

if TheDate="" then
ErrStr="<font color=#ff0000>此订单没有登记发货,您不能登记!</font>"
end if
ErrStr="<font color=#009900>此订单在保障期内,您可以继续登记!</font>"
else '这个else和哪个if配对????前面的if都end if了的
ErrStr="<font color=#ff0000>对不起,此订单号不是你的,你无法登记!</font>"
end if

建议你把if语句写得规范一点,end if和else都对齐,例如:

if TheDate="" then
ErrStr="<font color=#ff0000>此订单没有登记发货,您不能登记!</font>"
end if
if 判断订单是否他的
ErrStr="<font color=#009900>此订单在保障期内,您可以继续登记!</font>"
else
ErrStr="<font color=#ff0000>对不起,此订单号不是你的,你无法登记!</font>"
end if