ASP网页编程之用ASP举行收集打印功能
ASP一般认为只能运行在IIS上，正如前面所提到的，这并不是十分正确，事实上，ASP也能运行在Apache上。ApacheASP可在任意Apache服务器上运行有限的ASP功能，所需做的，只需打开mod_perl。<%@Language=VBScript%><%
OptionExplicit
DimstrSubmitForm顶用来保留提交按钮的值
DimstrPrinterPathForm中保留收集打印机路径的值
DimstrUsernameForm顶用户名的值
DimstrPasswordForm中暗码的值
DimstrMessageForm打印内容的值
DimobjFSVBScript中的文件体系工具
DimobjWSHNetWSH中的收集工具
DimobjPrinter打印工具
strSubmit=Request.Form("Submit")
%>
<HTML>
<HEAD>
<METANAME="GENERATOR"Content="MicrosoftVisualStudio6.0">
</HEAD>
<BODY>
<%
IfstrSubmit=""Then
%>
注重的是：
因为这是演示，个中有关NT的帐号和暗码都是利用了不加密的手腕在ASP中传送的
真实的使用中应当对该登录历程举行平安处置。
<FORMaction="ASPPrint.asp"method=POSTid=formname=form>
<TABLEWIDTH=100%ALIGN=centerBORDER=0CELLSPACING=1CELLPADDING=1>
<TR>
<TDALIGN=rightNOWRAP>收集打印机路径:</TD>
<TDALIGN=leftNOWRAP><INPUTtype="text"id=printerpathname=printerpath
value="<Domain><Printer>"></TD>
</TR>
<TR>
<TDALIGN=rightNOWRAP>登录帐号:</TD>
<TDALIGN=leftNOWRAP><INPUTtype="text"id=usernamename=username
value="<%=strUsername%>"></TD>
</TR>
<TR>
<TDALIGN=rightNOWRAP>登录口令:</TD>
<TDALIGN=leftNOWRAP><INPUTtype="password"id=password
name=password></TD>
</TR>
<TR>
<TDALIGN=rightNOWRAP>请输出你想打印的笔墨:</TD>
<TDALIGN=leftNOWRAP><TEXTAREArows=2cols=20id=message
name=message></TEXTAREA></TD>
</TR>
<TR>
<TDALIGN=rightNOWRAP></TD>
<TDALIGN=leftNOWRAP><INPUTtype="submit"value="Submit"
id=submitname=submit></TD>
</TR>
</TABLE>
</FORM>
当以上信息被提交后，就能够依照上面的代码举行打印了。
<%
Else
从form中获得呼应信息。
strPrinterPath=Request.Form("printerpath")
strUsername=Request.Form("username")
strPassword=Request.Form("password")
strMessage=Request.Form("message")
WewillnowusetheVBScriptFileSystemObjectobjectandtheWSHNetworkobject.TheNetworkobjectwill
giveusthemethodsweneedtoopenaprinterconnection,andtheFileSystemObjectwillallowustostreamour
outputtotheprinter.Wecreatetheseobjectsinthefollowingcodeexample:
SetobjFS=CreateObject("Scripting.FileSystemObject")
SetobjWSHNet=CreateObject("WScript.Network")
利用WSH毗连收集打印机
objWSHNet.AddPrinterConnection"LPT1",strPrinterPath,False,strUsername,strPassword
利用文件体系工具将打印设备作为一个文件利用
SetobjPrinter=objFS.CreateTextFile("LPT1:",True)
给打印设备送出文本
objPrinter.Write(strMessage)
封闭打印设备工具并举行毛病圈套处置
OnErrorResumeNext
objPrinter.Close
假如产生毛病，封闭打印毗连，并输入毛病信息
IfErrThen
Response.Write("Error#"&CStr(Err.Number)&""&Err.Description)
Err.Clear
Else
操纵乐成，输入确认信息
Response.Write("<CENTER>")
Response.Write("<TABLEWIDTH=100%ALIGN=centerBORDER=0CELLSPACING=1CELLPADDING=1>")
Response.Write("<TR><TDALIGN=RIGHT><B>打印动静送出:</B></TD>")
Response.Write("<TDALIGN=LEFT>"&strMessage&"</TD></TR>")
Response.Write("<TR><TDALIGN=RIGHT><B>收集打印机路径:</B></TD>")
Response.Write("<TDALIGN=LEFT>"&strPrinterPath&"</TD></TR>")
Response.Write("<TR><TDALIGN=RIGHT><B>登录帐号:</B></TD>")
Response.Write("<TDALIGN=LEFT>"&strUsername&"</TD></TR>")
Response.Write("</TABLE>")
Response.Write("</CENTER>")
EndIf
作废打印毗连
objWSHNet.RemovePrinterConnection"LPT1:"
SetobjWSHNet=Nothing
SetobjFS=Nothing
SetobjPrinter=Nothing
EndIf
%>
</BODY>
</HTML>转自：静态网制造指南www.ckuyun.comASP脚本是采用明文（plaintext）方式来编写的。 封装性使得代码逻辑清晰，易于管理，并且应用到ASP.Net上就可以使业务逻辑和Html页面分离，这样无论页面原型如何改变，业务逻辑代码都不必做任何改动；继承性和多态性使得代码的可重用性大大提高。 你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。 掌握asp的特性而且一定要知道为什么。 我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页，这其中就用到了ASP，我想它的作用是可想而知的。 兴趣爱好，那么你无须学编程，申请一个域名和空间，在网上下载一些免费开源的CMS系统，你不用改代码，只须熟悉它们的后台操作，像office一样简单方便，很快就能建一个站点，很多站长都是这样做的 我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。 交流是必要的，不管是生活还是学习我们都要试着去交流，通过交流我们可以学到很多我们自己本身所没有的知识，可以分享别人的经验甚至经历。
页:
[1]