읽어본 친구들이 도움이 될 것입니다. 이 코드는 처음으로 게시되었습니다. 다음 코드는 매우 복잡하거나 이해하기 어렵거나 사용할 수 없습니다. . 소위 코드가 많이 있습니다. 사이트맵 생성 코드는 디렉터리 파일 주소만 생성하고 동적 주소는 생성하지 않습니다. 예: 귀하가 2,000개의 기사가 있는 기사 웹사이트라면 귀하에 해당하는 기사 데이터 테이블을 수정하여 모든 디렉토리 파일뿐만 아니라 귀하의 동적 2,000개의 주소도 생성할 수 있습니다. 말할 것도 없고 생성 속도도 매우 빠릅니다. .
다음 코드를 sitemap.asp 파일로 저장하고, 제가 언급한 몇 군데만 수정하고, 나머지는 수정하지 말고 사용해 보아야 알 수 있습니다.
다음과 같이 코드 코드를 복사합니다.
<!--#포함 파일=conn.asp-->
<%
세션(수)=0
strURL = http:// & request.servervariables(SERVER_NAME) & _
왼쪽(request.servervariables(SCRIPT_NAME),len(request.servervariables(SCRIPT_NAME))-len(/sitemap.asp))
희미한 바보
바보 = 바보 + <?xml 버전=1.0 인코딩=UTF-8?>
Foolcat = Foolcat + <!--http://www.xxx.com & return_RFC822_Date(현재,GMT)에 의해 생성된 Google 사이트 맵 파일 & -->
바보고양이 = 바보고양이 + <urlset xmlns=http://www.google.com/schemas/sitemap/0.84>
바보 = 바보 고양이 + <url>
Foolcat = Foolcat + <loc> & strURL & /</loc>
바보 = 바보 고양이 + </url>
세션(수)=세션(수)+1
set all_fs = Server.CreateObject(Scripting.FileSystemObject)
set all_folder = all_fs.GetFolder(server.MapPath(/))
all_files = all_folder.files 설정
all_files의 각 파일에 대해
바보 = 바보 고양이 + <url>
Foolcat = Foolcat + <loc> & strURL & / & 파일.이름 & </loc>
바보 = 바보 고양이 + </url>
세션(수)=세션(수)+1
다음
희미한 js,sql
js = server.CreateObject(ADODB.RecordSet) 설정
sql = select * from [생성할 테이블 이름] order by id asc //생성하려는 데이터 테이블 이름 수정
js = conn.execute 설정(sql)
js.eof까지 하세요
id=&js(id) //id 필드로 변경
바보 = 바보 고양이 + <url>
Foolcat = Foolcat + <loc> & strURL & /xxx.asp?Id= & id & </loc> //파일 이름과 ID로 변경
바보 = 바보 고양이 + </url>
세션(수)=세션(수)+1
js.movenext
고리
js.닫기
js = 아무것도 설정하지 않음
바보 = 바보 고양이 + </urlset>
바보 = + 바보 +
바보 = & 바보 &
FolderPath = Server.MapPath(/)
fso = Server.CreateObject(Scripting.FileSystemObject) 설정
fout = fso.CreateTextFile(FolderPath/sitemap.xml) 설정
fout.writeLine 바보
fout.close
fout 설정 = 아무것도 없음
연결 닫기
conn = 아무것도 설정하지 않음
함수 return_RFC822_Date(byVal myDate, byVal TimeZone)
myDay, myDays, myMonth, myYear 어둡게 하기
myHours, myMinutes, mySeconds 흐리게 표시
myDate = CDate(myDate)
myDay = EnWeekDayName(myDate)
myDays = 오른쪽(00 & Day(myDate),2)
myMonth = EnMonthName(myDate)
myYear = 연도(myDate)
myHours = Right(00 & Hour(myDate),2)
myMinutes = 오른쪽(00 & 분(myDate),2)
mySeconds = 오른쪽(00 & 초(myDate),2)
return_RFC822_Date = myDay, & _
마이데이즈 & _
내달&_
내연도&_
myHours:& _
내분:& _
마이초 & _
& 시간대
기능 종료
함수 EnWeekDayName(입력 날짜)
희미한 결과
사례 선택 WeekDay(InputDate,1)
사례 1:결과=일
사례 2:결과=월
사례 3:결과=화요일
사례 4:결과=수요일
사례 5:결과=목
사례 6:결과=금요일
사례 7:결과=토요일
선택 종료
EnWeekDayName = 결과
기능 종료
함수 EnMonthName(입력 날짜)
희미한 결과
사례월 선택(InputDate)
사례 1:결과=Jan
사례 2:결과=2월
사례 3:결과=3월
사례 4:결과=4월
사례 5:결과=5월
사례 6:결과=Jun
사례 7:결과=7월
사례 8:결과=8월
사례 9:결과=9월
사례 10:결과=10월
사례 11:결과=11월
사례 12:결과=12월
선택 종료
EnMonthName = 결과
기능 종료
%>