고객은 백엔드에서 멤버십 카드 번호, 비밀번호, 금액 등에 대한 대량의 데이터(매회 수만 개 항목)를 생성하도록 요구합니다. 생성된 회원카드 번호와 비밀번호는 반드시 카드에 인쇄되어 회원에게 발급되어야 합니다. 데이터베이스에 대량의 데이터가 생성됩니다. 인쇄용 데이터를 얻으려면 카드 인쇄 제조업체에서 어떻게 해야 합니까?
그래서 코드를 사용하여 Excel 테이블을 생성하고 액세스 중인 데이터를 내보내는 방법을 생각했습니다. 그냥 인쇄하는 것만으로는 충분하지 않나요? 인터넷에서 관련 정보를 검색해도 만족스럽지 않아서 이 프로그램을 직접 작성했습니다. 이제 모두가 공유할 수 있도록 출시되었습니다!
다음은 코드입니다:
| 인용된 내용은 다음과 같습니다. <!--#포함 파일=../conn.asp--> <% session(china_admin)=이면 response.redirect login.asp DB경로=../ 디비링크 희미한 파일 이름,fs,myfile,x,m,n,o,link fs = server.CreateObject(scripting.filesystemobject) 설정 rs = Server.CreateObject(ADODB.Recordset) 설정 세션(sql) = china_car에서 * 선택 rs.세션 열기(sql),conn,1,1 n=1 '================================================ = ================== '================================================ = =============엑셀 파일 시스템 생성 filename = Server.MapPath(car/CarTable&n&.xls) '편의상 새 CAR 폴더를 직접 설정할 수 있습니다. if fs.FileExists(filename) then'파일이 존재하면 덮어씁니다. fs.DeleteFile(파일 이름) 종료하면 myfile = fs.CreateTextFile(파일 이름,true) 설정 '================================================ = ======================= 희미한 strLine,responsestr strLine= 일이 어둡다,j,i str=일련번호|카드번호|비밀번호|포인트수|금액' 이는 액세스 데이터 테이블 필드에 따라 설정됩니다. 작업=분할(str,|) j=유바운드(일) 나는=0 o=0 내가 아닌 동안에 한다>j strLine= strLine & 작업(i) & chr(9) 나=나+1 고리 myfile.writeline strLine rs.EOF가 아닌 동안 수행 오=오+1 m=20000 strLine= rs.Fields의 각 x에 대해 strLine= strLine & x.value & chr(9) o>=m*n이면 n=n+1 filename = Server.MapPath(car/CarTable&n&.xls) '직접 설정할 수 있습니다. if fs.FileExists(filename) then'파일이 존재하면 덮어씁니다. fs.DeleteFile(파일 이름) 종료하면 myfile = fs.CreateTextFile(파일 이름,true) 설정 종료하면 다음 myfile.writeline strLine rs.이동다음 고리 RS.닫기 설정자=아무것도 없음 연결 닫기 conn = 아무것도 설정하지 않음 myfile = 아무것도 설정하지 않음 fs=아무것도 설정하지 않음 ExcelPath=자동차/자동차 테이블&n&.xls response.Write를 성공적으로 내보냈습니다. response.write(<a href=' & server.URLEncode(ExcelPath) & '><font=red>다운로드</font></a>) %> |