[原创]网络excel 让excel成为网络版(免配置绿色IIS）

xibeiakang · 发表于 2008-7-15 08:47

jdanpher@163.com

很需要哟

shipengzhu · 发表于 2008-7-15 10:55

dba@tom.com

谢谢！

wflqj123 · 发表于 2008-7-15 11:44

我想学习一下,不知能给一份否? wfadlqj@126.com

eagleyzw · 发表于 2008-7-15 13:22

请楼主共享一份谢谢！！

eagleyzw@gmail.com

chenxting · 发表于 2008-7-15 16:13

楼主，本人在公安部门，很需要这款小软件，学习应用，请发个给我chenx_ting@163.com。谢谢！

zhj1978 · 发表于 2008-7-15 16:35

请楼主共享一份谢谢！！

zhanghuajie1978@yahoo.com.cn

YMJWJC · 发表于 2008-7-15 20:15

谢谢这么多朋友关心,为了大家共同研究,现贴出主要代码:

WebSpread2.ASP

<html>
<Title>Excel Spreadsheet Component</Title>
<body>

</div>
<object classid="clsid:0002E551-0000-0000-C000-000000000046"
id="Spread1" style="width:100%;height:95%;">

</object>

</body>
</html>

Sub exceon_OnClick()

Spread1.worksheets("Sheet1").Range("a1:h10").value = 22223
End Sub

</SCRIPT>

}

function findzc()
{
   Spread1.ActiveSheet.Cells.Clear();
    var oBao = new ActiveXObject("Microsoft.XMLHTTP");
    var userInfo1= "dwbm=" + document.all.danwei.value+"|"+document.all.excelid.value;
    oBao.open("POST","server4.asp",false);
    oBao.setRequestHeader("Content-Type","application/x-www-form-urlencoded");
    oBao.send(userInfo1);

    var strResult = unescape(oBao.responseText);

    var arrResult = strResult.split("###");


     iii=arrResult.length
    for( i=0;i<iii;i++)
    {
        arrTmp = arrResult.split("@@@");
for( x=0;x<=arrTmp.length;x++)
{
        var num1 = arrTmp[0];
        var num2 = arrTmp[1];
        var num3 = arrTmp[2];
   Spread1.worksheets("Sheet1").cells(i+1,x+1).value=arrTmp[x];

}
}
}

</script>

YMJWJC · 发表于 2008-7-15 20:17

server.asp

<% @Language="javascript" %>
<%
function OpenDB(sdbname)
{
   var connstr = "Driver={Microsoft Excel Driver (*.xls)};DBQ=" + Server.MapPath(sdbname);
    var connn = Server.CreateObject("ADODB.Connection");
    connn.Open(connstr);
    return connn;
}
var dwbm = unescape(Request.Form("dwbm"));
var arrResult1 = dwbm.split("|");
var dw=arrResult1[0];
var bm=arrResult1[1];
var sResult = new Array();
var sResult1 = new Array();
var dwbmpath= dw+"/"+bm;
var oConn = OpenDB(dwbmpath);
var sql ="select * from [sheet1$]";
var rs = oConn.Execute(sql);

for( i=0;i<rs.Fields.count;i++){
sResult1= rs.Fields(i).name;
}
sResult[sResult.length]=sResult1.join("@@@");
while(!rs.EOF)
{
for( i=0;i<rs.Fields.count;i++){
sResult1= rs.Fields(i).Value;
}
sResult[sResult.length]=sResult1.join("@@@");
rs.MoveNext();
}

rs.close;
rs = null;
Response.Write(escape(sResult.join("###")));

%>

xq1234 · 发表于 2008-7-15 23:16

做个记号，还没明白是怎么回事呢！

xq1234 · 发表于 2008-7-15 23:23

楼主你好，给我也来一份吧：x_q4860@163.com

谢谢！！！

		自动登录	找回密码
密码			免费注册

[原创] [原创]网络excel 让excel成为网络版(免配置绿色IIS）

[分享]向你致敬