📄 dbinitpx.asp
字号:
<% @language=VBScript %>
<%
option explicit
dim cnn,strcnn
set cnn=server.createobject("ADODB.Connection")
strcnn="Provider = Microsoft.Jet.OLEDB.4.0; Data Source = c:\Inetpub\wwwroot\xjdb.mdb"
cnn.open strcnn
dim Fhxrpscount,Fhxrps
set Fhxrpscount=cnn.execute("select count(*) from hxrps")
if Fhxrpscount(0)>0 then
set Fhxrps=cnn.execute("select hxr_name from hxr")
do while not Fhxrps.eof
cnn.execute "update hxrps set hxr_ps=0 where hxr_name='"&Fhxrps(0)&"'"
Fhxrps.movenext
loop
set Fhxrps=nothing
end if
set Fhxrpscount=nothing
cnn.execute "delete from fhxrps"
dim Ffhxrcount,Ffhxr
set Ffhxrcount=cnn.execute("select count(*) from fhxr")
if Ffhxrcount(0)>0 then
set Ffhxr=cnn.execute("select fhxr_name from fhxr")
do while not Ffhxr.eof
cnn.execute "alter table changpiao drop column "&Ffhxr(0)
Ffhxr.movenext
loop
end if
set Ffhxrcount=nothing
cnn.execute "delete from fhxr"
cnn.execute "delete from changpiao"
cnn.execute "update serialnumber set serial=1 where idkey='numkey'"
cnn.execute "update tongji set totalnum=0 where id='tongji'"
cnn.execute "update tongji set usenum=0 where id='tongji'"
cnn.execute "update tongji set nousenum=0 where id='tongji'"
cnn.execute "update tongji set nonum=0 where id='tongji'"
cnn.execute "update xqs set xqrs=0 where id='xqkey'"
response.write "<html><head><title></title><body>"
response.write vbLf
response.write "<script language="""&"VBScript"&""""&">"
response.write vbLf
response.write vbLf
response.write "alert("""&"票箱数据已经清空"&""")"
response.write vbLf
response.write "</script></body></html>"
cnn.close
set cnn=nothing
response.write "<script language='javascript'>"
response.write vbLf
response.write vbLf
response.write "window.opener=null;"
response.write vbLf
response.write "window.close();"
response.write vbLf
response.write "</script>"
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -