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

库管易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$]"rs.opensql,conn,3,3rs.addnewelsesql="select\ast from[Data$] 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()
}

<%if action=“edit” or action="" then
set rs=server.createobject(“adodb.recordset”)
if Request(“n”)<>"" then
n=int(Request(“n”))
sql=“select * from [Data$]"rs.opensql,conn,1,1rs.Move(n)elsesql="select\ast from[Data$]”
rs.open sql,conn,1,1
rs.Move(0)
end if

if not rs.eof Then
%>

  <table width="355" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#aec3de">
    <form name="add" id="add" method="post" action="../index.asp">
    <tr align="center" bgcolor="#F2FDFF">
	  <td>
	  <input type="radio" name="CRK" value="入库" checked="checked"><a style="color:blue;">入库</a>
	   <input type="radio" name="CRK" value="出库"><a style="color:red;">出库</a>
	   </td>
      <td class="optiontitle">更新数据</td>
	  
    </tr>
	
		<tr align="center" bgcolor="#ebf0f7">
	    <td width="40%" align="center">编号</td>
		
		<td align="left"><input name="xx0" type="text" id="xx0" size="18" value="<%=rs(0)%>"><a style="font-size:12px;color:red;">&nbsp; <%=n+1%></a></td>
	    </tr>
		<tr align="center" bgcolor="#ebf0f7">
	    <td width="40%" align="center">货物名称</td>
		
		<td align="left"><input name="xx1" type="text" id="xx1" value="<%=rs(1)%>"  size="20"></td>
	    </tr>
			
		<tr align="center" bgcolor="#ebf0f7">
	    <td width="40%" align="center">规格型号</td>
		
		<td align="left"><input name="xx2" type="text" id="xx2" value="<%=rs(2)%>" size="20"></td>
	    </tr>
				
		<tr align="center" bgcolor="#ebf0f7">
	    <td width="40%" align="center">单位</td>
		
		<td align="left"><input name="xx3" type="text" id="xx3" value="<%=rs(3)%>" size="20"></td>
	    </tr>
			
		<tr align="center" bgcolor="#ebf0f7">
	    <td width="40%" align="center">单价</td>
		
		<td align="left"><input name="xx4" type="text" id="xx4" value="<%=rs(4)%>" size="20"></td>
	    </tr>
			
		<tr align="center" bgcolor="#ebf0f7">
	    <td width="40%" align="center">数量</td>
		
		<td align="left"><input name="xx5" type="text" id="xx5" value="<%=rs(5)%>" size="20"></td>
	    </tr>
			
		<tr align="center" bgcolor="#ebf0f7">
	    <td width="40%" align="center">金额</td>
		
		<td align="left"><input name="xx6" type="text" id="xx6" value="<%=rs(6)%>" size="20"></td>
	    </tr>
		
		<tr align="center" bgcolor="#ebf0f7">
	    <td width="40%" align="center">分类</td>
		
		<td align="left"><input name="xx7" type="text" id="xx7"  value="<%=rs(7)%>" size="20"></td>
	    </tr>
			
		<tr align="center" bgcolor="#ebf0f7">
	    <td width="40%" align="center">出入类别</td>
		
		<td align="left"><input name="xx8" type="text" id="xx8" size="20" value="<%=rs(8)%>" ></td>
	    </tr>
		
		
	
		<tr align="center" bgcolor="#ebf0f7">
	    <td width="40%" align="center">单据类型</td>
		
		<td align="left"><input name="xx9" type="text" id="xx9" value="<%=rs(9)%>" size="20"></td>
	    </tr>
		
		
	
		<tr align="center" bgcolor="#ebf0f7">
	    <td width="40%" align="center">进出日期</td>
		
		<td align="left"><input name="xx10" type="text" id="xx10" size="20" value="<%=rs(10)%>" ></td>
	    </tr>
		
		
	
		<tr align="center" bgcolor="#ebf0f7">
	    <td width="40%" align="center">供领单位</td>
		
		<td align="left"><input name="xx11" type="text" id="xx11" size="20"  value="<%=rs(11)%>" ></td>
	    </tr>
		
		
	
		<tr align="center" bgcolor="#ebf0f7">
	    <td width="40%" align="center">供领人</td>
		
		<td align="left"><input name="xx12" type="text" id="xx12" size="20" value="<%=rs(12)%>" ></td>
	    </tr>
		
		
	
		<tr align="center" bgcolor="#ebf0f7">
	    <td width="40%" align="center">经办人</td>
		
		<td align="left"><input name="xx13" type="text" id="xx13" size="20" value="<%=rs(13)%>" ></td>
	    </tr>
		
		
	
		<tr align="center" bgcolor="#ebf0f7">
	    <td width="40%" align="center">凭证单号</td>
		
		<td align="left"><input name="xx14" type="text" id="xx14" size="20" value="<%=rs(14)%>" ></td>
	    </tr>
		
		
	
		<tr align="center" bgcolor="#ebf0f7">
	    <td width="40%" align="center">备注</td>
		
		<td align="left"><input name="xx15" type="text" id="xx15" size="20" value="<%=rs(15)%>"></td>
	    </tr>
		
		
	
	
	
	
    <tr align="center" bgcolor="#ebf0f7">
	 <td>
	  <a href="?action=edit&n=<%if n>=1 then Response.Write(n-1) else Response.Write(n)  end if%>" style="color:blue;"><u>上一行</u></a>&nbsp;&nbsp;
	  <a href="?action=edit&n=<%if n<rs.recordcount-1 then Response.Write(n+1) else Response.Write(n)  end if%>" style="color:red;" ><u>下一行</u></a>
	 </td>
      <td>
        <input type="button" name="Submit" value="修改" onclick="check()">
		<input type="button" name="Submit" value="新增" onclick="addsave()">
      	<input type="button" name="Submit2" value="返回" onclick="history.back(-1)">
		<input type="hidden" name="action" value="yes">
		<input name="id" type="hidden" id="id" value="<%=rs(14)%>"></td>
		<input name="dh" type="hidden" id="dh" value="<%=rs(14)%>"></td>
	</td>
    </tr>
	

          </form></table> 

<%
rs.close
set rs=nothing
end if
end if
%>

</td>

资料下载： https://download.csdn.net/download/ymjwjc/30471098