asp导出EXCEL数字格式及自动适应宽度的问题
下面直接进行代码演示：
<%
If Response.IsClientConnected Then
Response.Flush
Else
Response.End
End If
Set xlApplication = Server.CreateObject("Excel.Application")
xlApplication.Visible = False
xlApplication.Workbooks.Add
Set xlWorksheet = xlApplication.Worksheets(1)
xlWorksheet.Cells(9).NumberFormatLocal = "@" '处理为数据格式
xlWorksheet.Cells(1,1).Value = "编号"
xlWorksheet.Cells(1,2).Value = "笔记本品牌"
xlWorksheet.Cells(1,3).Value = "地址"
xlWorksheet.Cells(1,4).Value = "班级"
xlWorksheet.Cells(1,5).Value = "IP"
xlWorksheet.Cells(1,6).Value = "金额"
xlWorksheet.Cells(1,7).Value = "email"
xlWorksheet.Cells(1,8).Value = "QQ"
xlWorksheet.Cells(1,9).Value = "3503221985080111111"
xlWorksheet.Cells.EntireColumn.AutoFit '自动调整列宽
'xlWorksheet.ActiveSheet.Columns[1].ColumnsWidth=50
filename="NBB"&year(now())&month(now())&day(now())
xlWorksheet.SaveAs Server.MapPath(filename & ".xls")
xlApplication ......
<!--#include file="../conn.asp"-->
<%
dim s,sql,filename,fs,myfile,x
Set fs = server.CreateObject("scripting.filesystemobject")
'--假设你想让生成的EXCEL文件做如下的存放
filename = Server.MapPath("users.xls")
'--如果原来的EXCEL文件存在的话删除它
if fs.FileExists(filename) then
fs.DeleteFile(filename)
end if
'--创建EXCEL文件
set myfile = fs.CreateTextFile(filename,true)
'Set rs = Server.CreateObject("ADODB.Recordset")
'--从数据库中把你想放到EXCEL中的数据查出来
'sql = "select * from Tb_Execl order by id desc"
'rs.Open sql,conn
StartTime = Request("StartTime")
EndTime = Request("EndTime")
StartEndTime = "AddTime between #"& StartTime &" 00:00:00# and #"& EndTime &" 23:59:59#"
strSql = "select * from myeky_myusr "
Set rstData =conn.execute(strSql)
if not rstData.EOF and not rstData.BOF then
dim trLine,responsestr
strLine=""
For each x in rstData.fields
strLine = strLine & x.name & chr(9)
Next
'--将表的列� ......
今天一个ASP项目发现 化境上传组件上传BMP图片不成功，提示不允许操作，经查因为图片太大，以下解决方法：
在服务里关闭iis admin service服务
找到windows\system32\inesrv\下的metabase.xml,
打开，找到ASPMaxRequestEntityAllowed 把他修改为需要的值，默认为204800，即200K
然后重启iis admin service服务 ......
asp连接access,出现0x80004005,未指定的错误
asp来连接access数据库
本地测试发现,静态页可以打开.
和数据库建立链接的代码conn.open connstr 行出错,但是以前测试湿可以通过的.
在网上找了找解决办法,例如： 给用户加权限,更改iis设置.但是还是不行.
继续找，找到一篇文章，说是要修改c:\windows\temp 权限的。
temp文件夹是做系统缓存用的！ 怎么还和这个有关呢! 试一下.将temp文件夹的user权限给写入的权限!.
更改完后,再次测试数据库连接,通过了.
原因是:系统TEMP文件夹访问权限不够
本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/lifeng_beijing/archive/2009/03/25/4022411.aspx
......
asp连接access,出现0x80004005,未指定的错误
asp来连接access数据库
本地测试发现,静态页可以打开.
和数据库建立链接的代码conn.open connstr 行出错,但是以前测试湿可以通过的.
在网上找了找解决办法,例如： 给用户加权限,更改iis设置.但是还是不行.
继续找，找到一篇文章，说是要修改c:\windows\temp 权限的。
temp文件夹是做系统缓存用的！ 怎么还和这个有关呢! 试一下.将temp文件夹的user权限给写入的权限!.
更改完后,再次测试数据库连接,通过了.
原因是:系统TEMP文件夹访问权限不够
本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/lifeng_beijing/archive/2009/03/25/4022411.aspx
......
内容是：
function _doPostBack(){};
if(typeof("__doPostBack")=="function")
{
_doPostBack=__doPostBack;
__doPostBack=_doPostBackNew;
}
document.attachEvent("onmousemove",_onmousemove);
var _isPosting=false;
var _divMask=null;
function _onmousemove()
{
if(_divMask)
with(_divMask.runtimeStyle)
{
left=event.clientX+document.body.scrollLeft-4;
top=event.clientY+document.body.scrollTop-4;
}
}
function _makeMask()
{
var div=document.createElement("DIV");
with(div.runtimeStyle)
{
position="absolute";
zIndex=999999;
fontSize="1px";
......
<%
Response.Buffer = True
'一般情况下，当用户请求WEB服务器时，服务器把请求回复给客户端。在客户端，浏览器把缓存作为一种加快速度的策略，就是当请求时先检查缓存的情况，如果有就直接调缓存了，而不请求服务器了。
'在WEB程序设计中，有时为了防止重复的提交或者严格的次序等，必须让用户的数据立即在使用后就过期，当用户后退时就显示过期而不能继续使用。一般，response.expires写在页面的最上端，后面跟的是过期的时间，0，-1表示立即过期。
'asp没有多行注释，只能每行注释，最多起行开头注释内容可以多些，例如本3行注释，这3行注释下面一行内容。
'Response.Expires 浏览器可以缓存当前页的时间长度，以分钟为单位。
Response.Expires = -1
'Response.ExpiresAbsolute 浏览器不能再缓存当前页的日期和时间。在未到期之前，可以返回。如果未指定时间，该主页在当天午夜到期；如果未指定日期，则到当天指定时间到期。
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
'Response.CacheControl 指明是否Proxy服务器能缓存ActiveServerPage。缺省时，其值为FALSE。当设置其属性为Public时，Proxy服务器可以缓冲由Asp产生的输出。
'Cache-C ......
最新文章 : asp