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
相关文档：
一般来说编数据库类的程序主要要解决的问题无非是添加，删除，修改和查询。这类编程都非常的简单。接下来我利用一点空余时间发一个函数里面包含和添加和删除功能。实验的架构可以使用IIS.5WEB服务器ACCESS数据库。这个我其实不用说的很详细了，因为大家都应该知道的。我就直接把函数贴出来。大家只要稍� ......
在asp页面中，我们常常使用include命令来包含公共文件，比如说页首、页尾的部分，使用公共文件非常方便，但在HTML页面里使用include根本就不起作用。这是因为，include是VBScript的命令，因此可以在asp页面里使用。而HTML静态页面被调用的时候并不经过asp解释器，而是直接发送到用户浏览器，因此include命令就无效了。
对� ......
<%
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 ' 改成你你文件的存 ......
asp衔接Mssql的办法及常见的差错
//第一种写法：
MM_conn_STRING = "Driver={SQL Server};server=(local);uid=sa;pwd=;database=infs;"
Set conn = Server.Createobject("ADODB.Connection")
conn.open MM_conn_STRING
SET RS=SERVER.CreateObject("ADOBD.recordset")
SQL="SELECT * from TABLE ORDER BY ID DESC"
R ......
方法一 : 禁用HTML
最简单的方法是直接禁用html标签而不用移除它们. 可以使用Replace()函数. 例如:
strText = Replace(strText, "<script", "<script", 1, -1, 1)
或者直接禁用所有的html:
strText = Replace(strText, "<", "<")
这样做虽然很安全,但显得不够友好.(用户提交的文本会变� ......
