| <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Session.CodePage = "65001"%>
<%response.charset="utf-8" %>
<%'以下是2013-6-29增加的鼠標(biāo)放上去有提示的代碼 %>
<%'以上是2013-6-29增加的鼠標(biāo)放上去有提示的代碼 %>
越南計(jì)算
<%
a=MakedownName()
set rst1=conn.execute("select max(id) from info")
sz1=rst1(0)+1
rst1.close
set rst1=nothing
%>
<%
function MakedownName()
dim fname
fname = now()
fname = replace(fname,"-","")
fname = replace(fname," ","")
fname = replace(fname,":","")
fname = replace(fname,"PM","")
fname = replace(fname,"AM","")
fname = replace(fname,"上午","")
fname = replace(fname,"下午","")
fname = replace(fname,"/","")
fname = int(fname) + int((10-1+1)*Rnd + 1)
MakedownName=fname
end function
dim act
act=request("act")
if act="add" then
set rst=conn.execute("select type_ from member where username='"&session("admini")&"'")
if rst.eof then
ts("非法參數(shù),請(qǐng)重新操作!")
end if
jb=rst("type_")
rst.close
set rst=nothing
a1=request.Form("a1")
a3=request.Form("a3")
a4=request.Form("a4")
a5=request.Form("a5")
a6=request.Form("a6")
a7=request.Form("a7")
a8=request.Form("a8")
a9=request.Form("a9")
a10=request.Form("a10")
a11=request.Form("a11")
a12=request.Form("a12")
a13=request.Form("a13")
a14=request.Form("a14")
a15=request.Form("a15")
a16=request.Form("a16")
a17=request.Form("a17")
a18=request.Form("a18")
a19=request.Form("a19")
a20=request.Form("a20")
a21=request.Form("a21")
a22=request.Form("a22")
a23=request.Form("a23")
a24=request.Form("a24")
a25=request.Form("a25")
a26=request.Form("a26")
a27=request.Form("a27")
a28=request.Form("a28")
a29=request.Form("a29")
a30=request.Form("a30")
a31=request.Form("a31")
a32=request.Form("a32")
a33=request.Form("a33")
a34=request.Form("a34")
a35=request.Form("a35")
a42=request.Form("a42")
b1=request.Form("b1")
b2=request.Form("b2")
b3=request.Form("b3")
b4=request.Form("b4")
b5=request.Form("b5")
b6=request.Form("b6")
b7=request.Form("b7")
b8=request.Form("b8")
b17=request.Form("b17")
b18=request.Form("b18")
b19=request.Form("b19")
b20=request.Form("b20")
b21=request.Form("b21")
b22=request.Form("b22")
b23=request.Form("b23")
b24=request.Form("b24")
b25=request.Form("b25")
b26=request.Form("b26")
b27=request.Form("b27")
b28=request.Form("b28")
b29=request.Form("b29")
b30=request.Form("b30")
b31=request.Form("b31")
b32=request.Form("b32")
b33=request.Form("b33")
b34=request.Form("b34")
b35=request.Form("b35")
b36=request.Form("b36")
b37=request.Form("b37")
b38=request.Form("b38")
b39=request.Form("b39")
b40=request.Form("b40")
b41=request.Form("b41")
b43=request.Form("b43")
b44=request.Form("b44")
b45=request.Form("b45")
b46=request.Form("b46")
b47=request.Form("b47")
b48=request.Form("b48")
b49=request.Form("b49")
b50=request.Form("b50")
b51=request.Form("b51")
b52=request.Form("b52")
b53=request.Form("b53")
b54=request.Form("b54")
b55=request.Form("b55")
b56=request.Form("b56")
b57=request.Form("b57")
b58=request.Form("b58")
b59=request.Form("b59")
b60=request.Form("b60")
b61=request.Form("b61")
b62=request.Form("b62")
b63=request.Form("b63")
b64=request.Form("b64")
b65=request.Form("b65")
b66=request.Form("b66")
b67=request.Form("b67")
b68=request.Form("b68")
b69=request.Form("b69")
b70=request.Form("b70")
b71=request.Form("b71")
b72=request.Form("b72")
b73=request.Form("b73")
b74=request.Form("b74")
b75=request.Form("b75")
b76=request.Form("b76")
b77=request.Form("b77")
b78=request.Form("b78")
b79=request.Form("b79")
b80=request.Form("b80")
b81=request.Form("b81")
b82=request.Form("b82")
b83=request.Form("b83")
b84=request.Form("b84")
b85=request.Form("b85")
b86=request.Form("b86")
b87=request.Form("b87")
b88=request.Form("b88")
b89=request.Form("b89")
b90=request.Form("b90")
b91=request.Form("b91")
b92=request.Form("b92")
b93=request.Form("b93")
b94=request.Form("b94")
b95=request.Form("b95")
b96=request.Form("b96")
b97=request.Form("b97")
b98=request.Form("b98")
b99=request.Form("b99")
b100=request.Form("b100")
b101=request.Form("b101")
b102=request.Form("b102")
b103=request.Form("b103")
b104=request.Form("b104")
b105=request.Form("b105")
b106=request.Form("b106")
b107=request.Form("b107")
b108=request.Form("b108")
b109=request.Form("b109")
b110=request.Form("b110")
b111=request.Form("b111")
b112=request.Form("b112")
b113=request.Form("b113")
b114=request.Form("b114")
b115=request.Form("b115")
b116=request.Form("b116")
b117=request.Form("b117")
b118=request.Form("b118")
b119=request.Form("b119")
b120=request.Form("b120")
b121=request.Form("b121")
b122=request.Form("b122")
b123=request.Form("b123")
b124=request.Form("b124")
b125=request.Form("b125")
b126=request.Form("b126")
b127=request.Form("b127")
b128=request.Form("b128")
b129=request.Form("b129")
b130=request.Form("b130")
b131=request.Form("b131")
b132=request.Form("b132")
b133=request.Form("b133")
b134=request.Form("b134")
b135=request.Form("b135")
b136=request.Form("b136")
b137=request.Form("b137")
b138=request.Form("b138")
b139=request.Form("b139")
b140=request.Form("b140")
b141=request.Form("b141")
b142=request.Form("b142")
b143=request.Form("b143")
b144=request.Form("b144")
b145=request.Form("b145")
b146=request.Form("b146")
b147=request.Form("b147")
b148=request.Form("b148")
b149=request.Form("b149")
b150=request.Form("b150")
b151=request.Form("b151")
b152=request.Form("b152")
b153=request.Form("b153")
b154=request.Form("b154")
b155=request.Form("b155")
b156=request.Form("b156")
b157=request.Form("b157")
b158=request.Form("b158")
b159=request.Form("b159")
b160=request.Form("b160")
b161=request.Form("b161")
b162=request.Form("b162")
b163=request.Form("b163")
b164=request.Form("b164")
b165=request.Form("b165")
b166=request.Form("b166")
b167=request.Form("b167")
b168=request.Form("b168")
b169=request.Form("b169")
b170=request.Form("b170")
city=request.Form("city")
city1=request.Form("city1")
newlocation=request.Form("newlocation")
newlocation1=request.Form("newlocation1")
newlocation3=request.Form("newlocation3")
if a1="" or newlocation="" or newlocation3="" or a8="" or a9="" then
response.Write("")
response.end()
end if
set rs=server.CreateObject("adodb.recordset")
rs.open"select * from info where a1='"&a1&"'",conn,1,3
if not rs.eof then
response.Write("")
response.end()
else
rs.addnew
rs("username")=session("admini")
rs("cname")=session("cname")
rs("sz")=sz1
rs("cw53")=city
rs("cw56")=newlocation
rs("cw55")=city
rs("a2")=newlocation3
rs("a1")=a1
rs("a3")=a3
rs("a4")=a4
rs("a5")=a5
rs("a6")=a6
rs("a7")=a7
rs("a8")=a8
rs("a9")=a9
rs("a10")=a10
rs("a11")=a11
rs("a12")=a12
rs("a13")=a13
rs("a14")=a14
rs("a15")=a15
rs("a16")=a16
rs("a17")=a17
ccc18=split(a18,",")
rs("a18")=ccc18(0)
rs("CW37")=ccc18(2)
rs("CW38")=ccc18(3)
rs("a19")=a19
rs("a20")=a20
rs("a21")=a21
rs("a22")=a22
rs("a23")=a23
rs("a24")=a24
rs("a25")=a25
rs("a26")=a26
rs("a27")=a27
rs("a28")=a28
rs("a29")=a29
rs("a30")=a30
rs("a31")=a31
rs("a32")=a32
rs("a33")=a33
rs("a34")=a34
rs("a35")=a35
rs("a42")=a42
rs("b1")=b1
rs("b2")=b2
rs("b3")=b3
rs("b4")=b4
rs("b5")=b5
rs("b6")=b6
rs("b7")=b7
rs("b8")=b8
rs("b17")=b17
rs("b18")=b18
rs("b19")=b19
rs("b20")=b20
rs("b21")=b21
rs("b22")=b22
rs("b23")=b23
rs("b24")=b24
rs("b25")=b25
rs("b26")=b26
rs("b27")=b27
rs("b28")=b28
rs("b29")=b29
rs("b30")=b30
rs("b31")=b31
rs("b32")=b32
rs("b33")=b33
rs("b34")=b34
rs("b35")=b35
rs("b36")=b36
rs("b37")=b37
rs("b38")=b38
rs("b39")=b39
rs("b40")=b40
rs("b41")=b41
rs("b43")=b43
rs("b44")=b44
rs("b45")=b45
rs("b46")=b46
rs("b47")=b47
rs("b48")=b48
rs("b49")=b49
rs("b50")=b50
rs("b51")=b51
rs("b52")=b52
rs("b53")=b53
rs("b54")=b54
rs("b55")=b55
rs("b56")=b56
rs("b57")=b57
rs("b58")=b58
rs("b59")=b59
rs("b60")=b60
rs("b61")=b61
rs("b62")=b62
rs("b63")=b63
rs("b64")=b64
rs("b65")=b65
rs("b66")=b66
rs("b67")=b67
rs("b68")=b68
rs("b69")=b69
rs("b70")=b70
rs("b71")=b71
rs("b72")=b72
rs("b73")=b73
rs("b74")=b74
rs("b75")=b75
rs("b76")=b76
rs("b77")=b77
rs("b78")=b78
rs("b79")=b79
rs("b80")=b80
rs("b81")=b81
rs("b82")=b82
rs("b83")=b83
rs("b84")=b84
rs("b85")=b85
rs("b86")=b86
rs("b87")=b87
rs("b88")=b88
rs("b89")=b89
rs("b90")=b90
rs("b91")=b91
rs("b92")=b92
rs("b93")=b93
rs("b94")=b94
rs("b95")=b95
rs("b96")=b96
rs("b97")=b97
rs("b98")=b98
rs("b99")=b99
rs("b100")=b100
rs("b101")=b101
rs("b102")=b102
rs("b103")=b103
rs("b104")=b104
rs("b105")=b105
rs("b106")=b106
rs("b107")=b107
rs("b108")=b108
rs("b109")=b109
rs("b110")=b110
rs("b111")=b111
rs("b112")=b112
rs("b113")=b113
rs("b114")=b114
rs("b115")=b115
rs("b116")=b116
rs("b117")=b117
rs("b118")=b118
rs("b119")=b119
rs("b120")=b120
rs("b121")=b121
rs("b122")=b122
rs("b123")=b123
rs("b124")=b124
rs("b125")=b125
rs("b126")=b126
rs("b127")=b127
rs("b128")=b128
rs("b129")=b129
rs("b130")=b130
rs("b131")=b131
rs("b132")=b132
rs("b133")=b133
rs("b134")=b134
rs("b135")=b135
rs("b136")=b136
rs("b137")=b137
rs("b138")=b138
rs("b139")=b139
rs("b140")=b140
rs("b141")=b141
rs("b142")=b142
rs("b143")=b143
rs("b144")=b144
rs("b145")=b145
rs("b146")=b146
rs("b147")=b147
rs("b148")=b148
rs("b149")=b149
rs("b150")=b150
rs("b151")=b151
rs("b152")=b152
rs("b153")=b153
rs("b154")=b154
rs("b155")=b155
rs("b156")=b156
rs("b157")=b157
rs("b158")=b158
rs("b159")=b159
rs("b160")=b160
rs("b161")=b161
rs("b162")=b162
rs("b163")=b163
rs("b164")=b164
rs("b165")=b165
rs("b166")=b166
rs("b167")=b167
rs("b168")=b168
rs("b169")=b169
rs("b170")=b170
rs("a103")=year(a3)&month(a3)
rs("addtime")=now()
rs.update
end if
rs.close
set rs=nothing
set rs=conn.execute("select top 1 id from info order by id desc")
if not rs.eof then
id=rs("id")
end if
send(id)
response.Write("")
end if
%>
|
