请看一下，本地打印的代码，这样写对么？

evilzydar 2004-07-15 03:54:12

asp.net+vb
下面是一段关于本地打印的代码，其实我想在客户端取得服务器段的值，并在本地打印机上打印出来，下面是我的一段代码，（根据asp改的），像我这样取的服务器端的值对么？应该怎么写呢？

<%@ Page Language="vb" AutoEventWireup="false" Codebehind="printtest.aspx.vb" Inherits="ynwebmis.printtest"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<title>printtest</title>
<meta content="Microsoft Visual Studio .NET 7.1" name="GENERATOR">
<meta content="Visual Basic .NET 7.1" name="CODE_LANGUAGE">
<meta content="JavaScript" name="vs_defaultClientScript">
<meta content="http://schemas.microsoft.com/intellisense/ie5" name="vs_targetSchema">
<script language="vbscript">
sub button_Click()
Dim label
Dim objfs
Dim objprinter
'label = document.printinfo.textbox1.value
'TextBox1.Text = "abcdefghhhhhhhhhhhhh"
set objfs=CreateObject("Scripting.FileSystemObject")
set objprinter=objfs.CreateTextFile ("LPT1:",true)
objprinter.Writeline("__________________________________")
objprinter.Writeline("| |")
objprinter.Writeline("| 你好啊!!! " & <%=textbox1.text %> & " |")
objprinter.Writeline("| |")
objprinter.Writeline("|_________________________________|")
objprinter.close()
objprinter = ""
objfs = ""
end sub
</script>
</HEAD>
<body MS_POSITIONING="GridLayout">
<form id="printinfo" name="printinfo" method="post" runat="server">
<input type="button" name="button" id="button" value="打印" onClick="button_Click">
<asp:textbox id="TextBox1" style="Z-INDEX: 102; LEFT: 232px; POSITION: absolute; TOP: 96px" Height="32px"
Width="128px" Visible="False" Runat="server" Text="smyemeiy">
</asp:textbox></form>
</body>
</HTML>

...全文