易截截图软件、单文件、免安装、纯绿色、仅160KB

asp上传excle文件并导入到access数据库

<%
function FSOFileDel(filename)
Dim objFSO,objCountFile,FiletempData
On Error Resume Next
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile =objFSO.DeleteFile(Server.MapPath(filename),true)
objCountFile.Close
Set objCountFile=Nothing
Set objFSO = Nothing
End Function
dim action,files
action=trim(request("action"))
files=trim(request("files"))
select case action
case "add"
call add(files)
case else
call default()
end select        
%>
<%sub default()%>
<form action="?action=add" method="post" id="form1" name="form1">
<table border="0" cellspacing="0" cellpadding="0">
<tr class="title2">
<td colspan="2">批量上传</td>
</tr>
<tr>
<td>1.上传Excle文件&nbsp;</td>
<td><input name="files" type="hidden" id="files" />
<iframe frameborder="0" scrolling="no" height="25" width="400" src="upload.asp?action=add"></iframe>&nbsp;</td>
</tr>
<tr>
<td>2.点击"开始上传"&nbsp;</td>
<td>  <label>
<input type="submit" name="button" id="button" value="开始上传" />
</label>&nbsp;</td>
</tr>
</table>
</form>
<%end sub%>
<%
sub add(files)
dim FileName
if files="" then ClientAlert"请先上传Excle文件","?"
FileName="../upload/file/"&files  '取得文件路径
Dim connEX
set connEX=CreateObject("ADODB.connection")
connEX.Open "Driver={Microsoft Excel Driver (*.xls)};" & _
"DriverId=790;" & _
"Dbq=" & server.mappath(""&FileName&"") & ";" & _
"DefaultDir=G:\"
set rs=createobject("ADODB.recordset")
rs.Open "Select * from [Sheet1$]",connEX, 2, 2
if rs.eof then
response.write "Excel表中无纪录"
else
'  set connDB = Server.CreateObject("ADODB.Connection")
'  DBPath = Server.MapPath("excel.mdb")
'  'RESPONSE.WRITE DBpath
'  connDB.Open "driver=


相关文档:

用ASP.NET/C#连接Access和SQL Server数据库

连接Access
首先看一个例子代码片断:
程序代码:
--------------------------------------------------------------------------------
using System.Data;
using System.Data.OleDb;
......
string strConnection="Provider=Microsoft.Jet.OleDb.4.0;";
strConnection+=@"Data Source=C:\BegASPNET\Northwind.mdb" ......

Access Web 数据库和 Access 展示

Access 项目管理团队的 Clint 在此向 Office 工程博客的读者表示问候。通过与第 9 频道合作,Access 团队即将推出一个名为 Access 展示的新展示。其主要人物包括 Ryan McMinn、我本人以及团队的其他人员。我们将深入探讨 Access 2010 和 Access Services 中的新增功能,并分享来自社区的反馈。
此外,最近在 SharePoint D ......

ASP内置对象及其作用

一、Application对象
Application对象是个应用程序级的对象,用来在所有用户间共享信息,并可以在Web应用程序运行期间持久地保持数据。
Application的属性:
Application对象没有内置的属性,但是我们可以自行创建其属性。
<% Application(”属性名”)=值 %>
大部分Application变量都 存放在Con ......

ASP.NET 如何:创建 ASP.NET 登录页


      可以使用 ASP.NET Login 控件创建登录页。此控件提取用户名和密码,并使用 ASP.NET 成员资格和 Forms 身份验证来验证用户的凭据并创建身份验证票证。
 
1、创建一个使用 ASP.NET 成员资格的 ASP.NET Web 应用程序。有关详细信息和示例,请参见配置 ASP.NET 应用程序以使用成员资格 ......

ASP中的日期函数

<%
'日期函数包DataPackage
%>
<script language="javascript">
function IsDateString(Str)
<!--
{
// 校验是否YYYY-MM-DD格式的日期型数据,返回值为True成功,否则返回False
// 如果传递的是空字符串则返回False
// 定义分隔符
var sSplit="-"
var iYearPos=Str.indexOf(sSplit);
if (iYearP ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号