asp中从数据库导出EXCEL时，EXCEL宏应用的边框设置
Set xlApp = CreateObject("Excel.Application")
xlApp.DisplayAlerts = false '不显示警告
'xlApp.Application = false '不显示界面
xlapp.Workbooks.add
set objExcelBook = xlapp.ActiveWorkBook
set objExcelSheets = objExcelBook.Worksheets
set xlSheet = objExcelBook.Sheets(1)
EXCEL中设置边框，录制的宏
Sub Macro1()
'
' Macro1 Macro
' 宏由 YlmF 录制，时间: 2009-9-15 test
'
' 快捷键: Ctrl+q
'
Range("A3:G32").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
相关文档：
在ASP项目中，当出现“注册表错误，无法写入”错误的时候，本人遇到的错误原因有两个，在这里跟大家共同探讨下。
第一个是，电脑的文件系统式NTFS格式的，这样的话数据库没有权限。
解决方法：在数据库所在文件夹上（或比它高的任� ......
<%
Response.Buffer = true
Response.Clear
dim url
Dim fso,fl,flsize
dim Dname
Dim objStream,ContentType,flName,isre,url1
Dim strFileName
strFileName=replace(replace(Request("file"),"\",""),"/","") '传参
strFileName="/files/"&strFileName ' 改成你你文件的存 ......
记得在建立一个文件夹"updata"
saveannounce_upload.asp 上传页
------------------------------------
<html>
<head>
<style type="text/css
">
body {font-size:9pt;}
input {font-size:9pt;}
</style>
<title>文件上传</title>
</head& ......
在文章调试JavaScript/VB Script脚本程序（Wscript篇）里面，有网友问我如何调试ASP里面的脚本程序，我不知道他问得是调试ASP网页里面的VBScript ASP代码，还是ASP.NET网页里面的JavaScript/VBScript客户端代码，所以我就在这篇文章里面先将调试ASP网页里面的ASP代码这种情况都解释一下吧。
估计ASP这个玩艺用的人已经很少 ......
