2025年excel进销存添加网页模块，可手机开单

科技前沿 • 2025-01-14 09:31 • 阅读 44

大家好，我是讯享网，很高兴认识大家。

库管易EXCEL进销存一款优秀的VBA编程,使用的用户很多,我想实现手机开单,在网上找到类似功能
在这里插入图片描述
讯享网

<%
dim conn,rs,sysConfig,db
Set conn =Server.CreateObject(“ADODB.Connection”)
StrConn=“Provider=Microsoft.Jet.OLEDB.4.0;Data Source=”&Server.MapPath(“book1.xls”)&";Extended Properties="“Excel 8.0;HDR=YES;IMEX=0"”"
conn.Open StrConn

action=Request(“action”)
if action=“yes” Then
id=Request(“id”)
n=Request(“dh”)
‘Response.write “"
'Response.Write(action&id&Request(“xx0”)&"–"&Request(“hh”))

set rs=server.createobject(“adodb.recordset”)
if id="" then
set rsCheck = conn.execute(“select * from [Data$] where 凭证单号=’”&trim(Request(“dh”))&"’")
if not (rsCheck.bof and rsCheck.eof) then
response.write “”
response.end
end if
set rsCheck=nothing

sql=“select * from [Data $] " r s . o p e n s q l, c o n n, 3, 3 r s . a d d n e w e l s e s q l = " s e l e c t * f r o m [D a t a$ ] where 凭证单号=”&id
rs.open sql,conn,1,2
end If
for iii=0 to 15
rs(iii)=Request(“x”&iii)
Next

rs.update
rs.close
set rs=nothing
Response.Redirect “?action=”
end if
%>

自适应表单

function check()
{
if (document.add.id.value=="")
{
alert(“请填写信息！”)
document.add.id.focus()
document.add.id.select()
return
}

 document.add.submit()

讯享网

}

function addsave(){
document.add.id.value=""
document.add.submit()
}

2025年excel进销存添加网页模块，可手机开单

相关推荐