권장 : ASP 동적 웹 페이지 학습을위한 필수 항목 : 38 일반적으로 사용되는 기능 1. 함수 배열 () 함수 : 배열 변수 형식 생성 : 배열 (목록) 매개 변수 : 목록은 배열 변수의 각 숫자 열입니다.
내 공간이 제한되어 있으므로 한 번에 모든 정적 페이지를 배치로 생성 할 수 없으므로 작은 프로그램을 썼습니다. 이 프로그램은 매우 간단하므로 전문가를 비웃지 마십시오! 이 코드는 시간 낭비입니다. 코드는 다음과 같습니다
<!-#포함 파일 = conn.asp-> <html> <head> <title> Page </title>을 생성합니다 <meta http-equiv = content-type content = text/html; charset = gb2312> <link href = style.css type = text/css rel = 스타일 시트> <meta content = mshtml 6.00.2900.3020 Name = Generator> </head> <Body Bottommargin = 0 LeftMargin = 0 TopMargin = 0 RightMargin = 0> <br style = 오버플로 : 숨겨진; 라인-높이 : 3px> <% 딤드 id = cint (request.querystring (id)) ID =이면 ID = 1 또 다른 id = cint (request.querystring (id)) 끝 If 총 총 번호 SQL = ID Desc의 테이블 주문에서 ID를 선택하십시오 set rs = server.createobject (adodb.recordset) Rs. Open SQL, Conn, 1,1 Rs.MoveFirst 그렇지 않다면 그렇다면 TotalNumber = Rs.RecordCount 끝 If 총 번호를 얻으려면 대신 코드를 사용할 수 있습니다. 나는 친구들 이이 문제를 스스로 해결할 수 있다고 생각합니다. Rs.Close RS = 아무것도 설정하지 않습니다 응답 <br> <br> & vbnewline response.write <테이블 width = '400'border = '0'align = 'center'cellPadding = '0'cellPacing = '0'> & vbnewline response.write <tr> & vbnewline response.write <td height = '50 '> Total Color ='Blue '> <b> & TotalNumber & </b> </font> 페이지가 생성됩니다 ... </td> & vbnewline 응답 </tr> & vbnewline 응답 </table> & vbnewline 응답. 플러시 ID> TotalNumber 인 경우 응답. 성공적인 작업에 축하합니다! 응답. 플러시 끝 If Creat (ID) ID = ID 1 response.write <meta http-equiv = Refresh Content = 1; url =? id = & id &> %> </body> </html> <% 기능 Creat (ID) sql = 선택 *에서 id = & id set rs = conn.execute (SQL) 희미한 이름 이름 = rs (이름) Conn.Execute (SQL) Rs.Close RS = 아무것도 설정하지 않습니다 희미한 fso Dim Znwl 희미한 예술 희미한 FW set fso = createobject (scripting.filesystemobject) set znwl = fso.opentextfile (server.mappath (템플릿 페이지)) art = znwl.readall znwl.close art = replace (art, {$ name $}, name) set fw = fso.creatextfile (Server.Mappath (생성 페이지 저장 위치 및 페이지 이름), true) FW.WRITELENE ART fw.close FSO = 아무것도 설정하지 않습니다 엔드 기능 %> |
위의 방법보다 빠른 또 다른 방법이 있지만 많은 CPU를 차지합니다. 다음 방법을 사용하여 공간에 문제가 있습니다.
<!-#포함 파일 = conn.asp-> <html> <head> <title> Page </title>을 생성합니다 <meta http-equiv = content-type content = text/html; charset = gb2312> <link href = style.css type = text/css rel = 스타일 시트> <meta content = mshtml 6.00.2900.3020 Name = Generator> </head> <Body Bottommargin = 0 LeftMargin = 0 TopMargin = 0 RightMargin = 0> <br style = 오버플로 : 숨겨진; 라인-높이 : 3px> <테이블 테두리 = 1 너비 = 100% id = 표 1> <tr> <td> <% Dim Allid, PPP, ID, Totalnum SQL = 선택 *에서 id desc의 테이블 주문에서 set rs = server.createobject (adodb.recordset) Rs. Open SQL, Conn, 1,1 그렇지 않다면 그렇다면 rs.eof가 아니라 Allid =이면 allid = rs (id) else allid = allid &; & rs (id) rs.movenext 고리 또 다른 rs.bof와 rs.eof라면 응답. 작문은 아직 발견되지 않았습니다! 끝 If 끝 If Rs.Close RS = 아무것도 설정하지 않습니다 allid =; Allid ppp = split (allid,;) Totalnum = Ubund (PPP) ID = 1에서 Totalnum의 경우 세션 (ID) = 세션 (ID) 1 Creat (ID) response.write는 Znwl_ & id & .htm ... <br>를 생성합니다 다음 %> </td> </tr> </테이블> </body> </html> <% 기능 Creat (ID) sql = 선택 *에서 id = & id set rs = conn.execute (SQL) 희미한 이름 이름 = rs (이름) Conn.Execute (SQL) Rs.Close RS = 아무것도 설정하지 않습니다 희미한 fso Dim Znwl 희미한 예술 희미한 FW set fso = createobject (scripting.filesystemobject) set znwl = fso.opentextfile (server.mappath (템플릿 페이지)) art = znwl.readall znwl.close %> art = replace (art, {$ name $}, name) set fw = fso.creatextfile (Server.Mappath (생성 페이지 저장 위치 및 페이지 이름), true) FW.WRITELENE ART fw.close FSO = 아무것도 설정하지 않습니다 엔드 기능 |
이 방법은 빠르지 만 공간은 무제한이어야합니다!-스마트 네트워크
위의 방법은 참조 전용이며 내가 수정 한 마지막 버전은 아니지만 사용하기 쉽습니다.
공유 : ASP 팁 예제 : 여러 줄의 코드가 형태의 반복 제출을 방지하는 문제를 해결합니다. 대부분의 경우 동일한 양식이 여러 번 제출되는 것을 방지해야합니다. 많은 사람들의 구현 방법은 상대적으로 복잡합니다 (코드 수는 수십 줄을 초과합니다 !!) 다음은 몇 줄의 코드 만 필요한 방법을 제공하여 여러 제출물을 새로 고치고 뒤로 버튼을 사용하여 양식을 재검토 할 수 없습니다.