ASP二维码代码

uest("Text7") set MyFO = Server.CreateObject("Scripting.FileSystemObject") path = Server.mappath("Demo.asp") set MyFile = MyFO.GetFile(path) bmppath = MyFile.Path set MakePDF417 = Server.CreateObject("COM_ActiveXDLL.Make") MakePDF417.PDF417SetColorDepth cstr(nColor) MakePDF417.PDF417Make 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) %>