ASP开发WEB打印代码大全
这篇文章主要介绍了如何使用ASP控制Web的各种打印效果，它能够控制纵打、横打和页面边距等。
1、控制"纵打"、 "横打"和"页面的边距"。
（1）
< script defer>
function SetPrintSettings() {
// -- advanced features
factory.printing.SetMarginMeasure(2) // measure margins in inches
factory.SetPageRange(false, 1, 3) // need pages from 1 to 3
factory.printing.printer = "HP DeskJet 870C"
factory.printing.copies = 2
factory.printing.collate = true
factory.printing.paperSize = "A4"
factory.printing.paperSource = "Manual feed"
// -- basic features
factory.printing.header = "This is MeadCo"
factory.printing.footer = "Advanced Printing by ScriptX"
factory.printing.portrait = false
factory.printing.leftMargin = 1.0
factory.printing.topMargin = 1.0
factory.printing.rightMargin = 1.0
factory.printing.bottomMargin = 1.0
}
< /script>
（2）
< script language="javascript">
function printsetup(){
// 打印页面设置
wb.execwb(8,1);
}
function printpreview(){
// 打印页面预览
wb.execwb(7,1);
}
function printit()
{
if (confirm('确定打印吗？')) {
wb.execwb(6,6)
}
}
< /script>
< /head>
< body>
< OBJECT classid="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2"
height=0 id=wb name=wb width=0>< /OBJECT>
< input type=button name=button_print value="打印" onclick="javascript:printit()">
< input type=button name=button_setup value="打印页面设置" onclick="javascript:printsetup();">
< input type=button name=button_show value="打印预览" onclick="javascript:printpreview();">
< input type=button name=button_fh value="关闭" onclick="javascript:window.close();">
------------------------------------------------
关于这个
相关文档：
前阵子刚完成一个B/S架构的学校办公系统，体会就是表太多，文件太多，而每个文件中类似的操作（代码）也太多了，例如学生信息和教师信息操作，student.asp,teacher.asp，这两个文件要实现的功能有，添加、删除、修改、显示教师和学生信息，两个文件中就有很多相同的代码：比如：
显示信息，do while not rs.eof,rs ......
ASP与JSP的比较
从微软推出了ASP(ActiveServerPage)后，它以其强大的功能，简单易学的特点而受到广大WEB开发人员的喜欢。但是它却有微软产品的通病,只能在Windows平台下使用，虽然它可以通过增加控件而在LINUX下使用，但是其功能最强大的DCOM控件却不能使用。而SUN公司在JAVA的基础下开发出的JSP(Java
ServerPages)� ......
<%
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 ' 改成你你文件的存 ......
方法一 : 禁用HTML
最简单的方法是直接禁用html标签而不用移除它们. 可以使用Replace()函数. 例如:
strText = Replace(strText, "<script", "<script", 1, -1, 1)
或者直接禁用所有的html:
strText = Replace(strText, "<", "<")
这样做虽然很安全,但显得不够友好.(用户提交的文本会变� ......
