📄 khdd.asp

📁 一个很好的在线购物系统
💻 ASP
📖 第 1 页 / 共 3 页
字号:
12 3 下一页

<!--#include file="../../include/Pubconn.asp"-->
<html>
<head>
<%'pubconn=openconn()
'bz=request("bz")




for i=1 to 10
if request("aim"&i)<>"" then
aim=trim(request("aim"&i))
oyear=trim(request("oyear"&i))
yi=trim(request("yi"&i))
er=trim(request("er"&i))
san=trim(request("san"&i))
si=trim(request("si"&i))
wu=trim(request("wu"&i))
liu=trim(request("liu"&i))
qi=trim(request("qi"&i))
ba=trim(request("ba"&i))
jiu=trim(request("jiu"&i))
shi=trim(request("shi"&i))
syi=trim(request("syi"&i))
ser=trim(request("ser"&i))

end if
next

dyear=request("dyear")

'response.write aim
'response.end
%>

<SCRIPT language=JavaScript>
<!--
function win() {
var bz
var OptionIndex1=document.myform.dyear.selectedIndex;
dyear=document.myform.dyear.options[OptionIndex1].value;
parent.main1.location="xslb.asp?dyear="+dyear+"&bz="+1
}
//-->
</SCRIPT>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>客户定单</title><link href="../../cread.css" rel="stylesheet" type="text/css">
<script LANGUAGE="VBSCRIPT">
sub datacheck()
   
if myform.xsbm.value="" then
     MsgBox "公司名称不能为空！", 64, "Oh no!"
     focusto(1)
     Exit Sub
end if

if myform.dyear.value="" then
     MsgBox "年份不能为空！", 64, "Oh no!"
     focusto(2)
     Exit Sub
end if
   
if myform.aim.value="" then
     MsgBox "目标项目不能为空！", 64, "Oh no!"
     focusto(5)
     Exit Sub
end if

if myform.oyear.value="0" then
     MsgBox "年目标必须有值！", 64, "Oh no!"
     focusto(7)
     Exit Sub
end if

if myform.aim.value="订单金额" or myform.aim.value="销售回款" then
yi=cdbl(document.myform.yi.value)
er=cdbl(document.myform.er.value)
san=cdbl(document.myform.san.value)
si=cdbl(document.myform.si.value)
wu=cdbl(document.myform.wu.value)
liu=cdbl(document.myform.liu.value)
qi=cdbl(document.myform.qi.value)
ba=cdbl(document.myform.ba.value)
jiu=cdbl(document.myform.jiu.value)
shi=cdbl(document.myform.shi.value)
syi=cdbl(document.myform.syi.value)
ser=cdbl(document.myform.ser.value)
a=a+yi+er+san+si+wu+liu+qi+ba+jiu+shi+syi+ser
if a<>cdbl(myform.oyear.value) then
  msgbox "你的年目标与月份目标之和不符"  
  exit sub
   end if
   end if
 myform.submit
end sub


Sub focusto(x)
    '将游标定位于表单(Form)的某个栏位
    document.myform.elements(x).focus()
End Sub

   sub checknum(my)
if isnumeric(my.value)=false then
msgbox "请输入数字,OK!"
my.value="0"
end if

end sub
 
  </script> 

<base target="main1">

</head>
12 3 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -