<%
		dim Text, nClumn, nErr, nHLRatio, bmppath
		Text = request("Text1")
		nClumn = request("Text2")
		nErr = request("Text3")
		nHLRatio  = request("Text4")
        nHeight =request("Text5")
        nColor = request("Text6")
        strText=request("Text8")
        lFontSize=request("Text9")
        lTxtHeight=request("Text10")
        lHmargin=request("Text11")
		lVmargin=request("Text12")
        lTxtCntOneLine=request("Text7")


		set MyFO = Server.CreateObject("Scripting.FileSystemObject")
		path = Server.mappath("Demo.asp")
		set MyFile = MyFO.GetFile(path)
		bmppath = MyFile.Path
		
		set MakePDF417 = Server.CreateObject("ActiveXDLL.Make")
        MakePDF417.PDF417SetColorDepth cstr(nColor)
		MakePDF417.PDF417 cstr(Text), cstr(bmppath), cstr(nClumn), cstr(nErr), cstr(nHLRatio),cstr(nHeight)
        MakePDF417.PDF417MixText cstr(bmppath),cstr(strText),cstr(lFontSize),cstr(lTxtHeight),cstr(lHmargin),cstr(lVmargin),cstr(lTxtCntOneLine)
      
		
%>
<html>
<head><title>PDF417-DLL演示</title>
<style type="text/css">
<!--
.style3 {font-size: 12px}
-->
</style>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>
<body><center>
<table align="center"></table>
<form>   
<p><h2>欢迎使用PDF417条码生成DLL（海量）</h2></sp>
<table width="400" border="2" >
  <!--DWLayoutTable-->
	<tr><td width="60" height="25" align="center" valign="middle"><span class="style3">参数设置</span></td>
		<td align="center" valign="middle" width="130"><span class="style3">列数
		    <input type="text" value=<% response.write(nClumn) %> size="3" name="Text2">
		</span></td>
		<td align="center" valign="middle" width="101"><span class="style3">校验等级
		  <input type="text" value=<% response.write(nErr) %> size="3" name="Text3">
		</span></td>
		<td align="center" valign="middle" width="91"><span class="style3">长宽比
		  <input type="text" value=<% response.write(nHLRatio) %> size="3" name="Text4">
		</span></td>
	</tr>
	<tr>
	  <td height="23" colspan="2" align="center"><span class="style3">高度
	    <input name="Text5" type="text" id="Text5" size="3" value="<%=nHeight %>"></td>
	  <td colspan="2" align="center"><span class="style3">颜色
	    <input name="Text6" type="text" id="Text6" size="3" value="<%=nColor %>"></td>
	  </tr>
	<tr>
	  <td height="23" colspan="2" align="center"><span class="style3">条码信息</span></td>
	  <td colspan="2" align="center"><span class="style3">条码预览</span></td>
	</tr>
	<tr>
	  <td colspan="2" align="center"><span class="style3">
	      <textarea rows="5" name="Text1"><% response.write(Text) %></textarea>
	  </span></td>
	  <td colspan="2" align="center"><span class="style3">
	      <img src="temp.bmp" width="160" height="80">
	  </span></td>
	</tr>
	<tr>
	  <td colspan="4"><span class="style3">每行字数
	    <input name="Text7" type="text" id="Text7" size="5" value="<%=lTxtCntOneLine %>"></td>
	  </tr>
	<tr>
	  <td colspan="4"><span class="style3">文字信息
	    <input name="Text8" type="text" id="Text8" size="25" value="<%=strText %>"></td>
	  </tr>
	<tr>
	  <td colspan="2"><span class="style3">字体大小
	    <input name="Text9" type="text" id="Text9" size="5" value="<%=lFontSize %>"></td>
	  <td colspan="2"><span class="style3">文字高度
	    <input name="Text10" type="text" id="Text10" size="5" value="<%=lTxtHeight %>"></td>
	  </tr>
	<tr>
	  <td colspan="2"><span class="style3">水平留白
	    <input name="Text11" type="text" id="Text11" size="5" value="<%=lHmargin %>"></td>
	  <td colspan="2"><span class="style3">垂直留白
	    <input name="Text12" type="text" id="Text12" size="5" value="<%=lVmargin %>"></td>
	  </tr>
</table>
</form> </center></body>
</html>