📄 khdd1.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))
'dyear=trim(request("dyear&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")
xsbm=request("xsbm")
 'response.write dyear
 'response.write xsbm
'response.end
%>
<script language="javascript">

</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=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>
 <body bgcolor="#FFFFFF" >
 <center> 
 <table border="0" cellpadding="0" cellspacing="0" width="100%">
  <tr>
    <td width="100%"><b><font size="3"><img border="0" src="../pic/it_22.gif"> 
      </font><font size="2">部门目标</font></b><hr width="40%" size="1" align="left">
12 3 下一页
⌨️ 快捷键说明

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