哪位朋友帮忙看下这个是什么问题呀.郁闷死了.
我的目地是这样.
我从一个页面 post提交信息过来
想把这个提交过来的信息保存到 Service 表里面 而要保存这条信息的前提是 提交过来的.ordercode=RemoveHTML(trim(request.form("ordercode"))) 必须要在 OrderList 表的 ordercode 字段里有和 ordercode=RemoveHTML(trim(request.form("ordercode")))接收到的参数相同的记记才开始保存.用户提交的.信息.
问题:
当我点提交后 程序就停在这if types="Service" and vsorder(ordercode,"OrderList",id)=ordercode then这一句好像不向下走了
直显示出.我提交过来的信息.也就是说.ordercode=RemoveHTML(trim(request.form("ordercode")))提交过来的信息和 OrderList 表的 ordercode 字段里 存在.与提交过来的参数相等的记录
我想要的是在
if types="Service" and vsorder(ordercode,"OrderList",id)=ordercode then 继续判断一下.可是程序直接显示.我提交的记录.程序就停在这里不走了.也不报错.
不知道是怎么回事呀
我从一个页面 post提交信息过来
想把这个提交过来的信息保存到 Service 表里面 而要保存这条信息的前提是 提交过来的.ordercode=RemoveHTML(trim(request.form("ordercode"))) 必须要在 OrderList 表的 ordercode 字段里有和 ordercode=RemoveHTML(trim(request.form("ordercode")))接收到的参数相同的记记才开始保存.用户提交的.信息.
问题:
当我点提交后 程序就停在这if types="Service" and vsorder(ordercode,"OrderList",id)=ordercode then这一句好像不向下走了
直显示出.我提交过来的信息.也就是说.ordercode=RemoveHTML(trim(request.form("ordercode")))提交过来的信息和 OrderList 表的 ordercode 字段里 存在.与提交过来的参数相等的记录
我想要的是在
if types="Service" and vsorder(ordercode,"OrderList",id)=ordercode then 继续判断一下.可是程序直接显示.我提交的记录.程序就停在这里不走了.也不报错.
不知道是怎么回事呀
types=RemoveHTML(trim(request.QueryString("type")))
id=RemoveHTML(trim(request.form("id")))
useredorder=RemoveHTML(trim(request.form("useredorder")))
ServiceQuantity=RemoveHTML(trim(request.form("ServiceQuantity")))
ordercode=RemoveHTML(trim(request.form("ordercode")))
if types="Service" and vsorder(ordercode,"OrderList",id)=ordercode then
ordercodes=ordercodes
set rs = server.createobject("adodb.recordset")
sql="select * from Service"
rs.open sql,conn,1,3
rs("ordercode")=vsorder(ordercode,"OrderList",id)
rs("ServiceQuantity")=ServiceQuantity
rs("ServiceAddtime")=now()
rs.update
rs.close
Set rs=Nothing
response.write " <script language=JavaScript> " & chr(13) & "alert( '操作成功! '); "& "window.location.href = 'orderlist.asp ' "& " </script> "
response.End
end if
'================================保修保存=====================================================
Function vsorder(vsdh,vstable,vsid)
dim rsa,sql
set rsa = server.createobject("adodb.recordset")
sql="select * from "&vstable&" where id="&vsid&" and ordercode='"&vsdh&"'"
'Response.Write sql
'Response.End()
rsa.open sql,conn,1,1
if not (rsa.eof or rsa.bof) then
if rsa("ordercode")=vsdh then
Response.Write rsa("ordercode")
else
Response.Write ""
end if
else
Response.Write ""
end if
rsa.close
Set rsa=Nothing
End Function
...全文
相关推荐
远程工具影子3.0客户端
最好用的远程工具,影子3.0客户端,一定要我写20个字,郁闷死了
电子专利申请环境VMware10镜像XP-CPC 1/4
普通人搞定这个环境会郁闷死,专利局人的耳朵天天都会发烫。比12306烂的不是一个层次。我把系统都配置好了
电子专利申请环境VMware10镜像XP-CPC 2/4
普通人搞定这个环境会郁闷死,专利局人的耳朵天天都会发烫。比12306烂的不是一个层次。我把系统都配置好了,大家启动虚拟机
电子专利申请环境VMware10镜像XP-CPC 3/4
普通人搞定这个环境会郁闷死,专利局人的耳朵天天都会发烫。比12306烂的不是一个层次。我把系统都配置好了,大家启动虚拟机
pdg文件阅读器-BXViewer
找了好几个PDG文件阅读器,都是人人网打包的min PDGreader,不光是广告,还有病毒,郁闷死。终于找到box view和PdgThumbViewer,共享一下,让大家不要再郁闷了!box vi


