이런 종류의 코드는 정적 생성 기능을 구현하지 않았지만 동적 페이지를 일시적으로 정적 페이지로 생성하려는 경우에 주로 사용됩니다. 동적 콘텐츠를 직접 가져와 정적 페이지로 저장할 수 있습니다.
다음과 같이 코드 코드를 복사합니다.
<!--#include file="admin_Checkuser.asp"-->
<%
ConnectionDatabase()를 호출합니다.
희미한 str,str_new
str=""
str_new=""
sqlx="ID 설명별로 Fl_Products 주문에서 ID 선택"
rsx=conn.execute(sqlx)를 설정합니다.
rsx.eof가 아닌 동안 수행
str=str&rsx("id")&"|"
rsx.movenext :루프
RSX.닫기
sqlx="ID 설명별로 Fl_News 순서에서 ID 선택"
rsx=conn.execute(sqlx)를 설정합니다.
rsx.eof가 아닌 동안 수행
str_new=str_new&rsx("id")&"|"
rsx.movenext :루프
RSX.닫기
place=InStrRev(str,"|")
str=왼쪽(str,place-1)
place=InStrRev(str_new,"|")
str_new=왼쪽(str_new,place-1)
희미한 URL,cwww,act
act=Trim(Request.QueryString("act"))
url =Request.ServerVariables("HTTP_HOST")
cwww="http://"+url
MakeHtm cwww&"/index.asp","../index.htm","홈 페이지가 성공적으로 작성되었습니다!"
MakeHtm cwww&"/about.asp","../about.htm","회사 프로필이 성공적으로 작성되었습니다!"
MakeHtm cwww&"/contact.asp","../contact.htm","문의가 성공적으로 작성되었습니다!"
MakeHtm cwww&"/ry.asp","../ry.htm","자격과 명예가 성공적으로 작성되었습니다!"
MakeHtm cwww&"/liuyan.asp","../liuyan.htm","저희에게 연락하셔서 성공적으로 글을 쓰세요!"
MakeHtm cwww&"/pro.asp","../pro.htm","제품 디스플레이가 성공적으로 작성되었습니다!"
MakeHtm cwww&"/news.asp","../news.htm","워크숍 작성을 성공적으로 생성하세요!"
MakeHtm cwww&"/xinwen.asp","../xinwen.htm","뉴스 정보가 성공적으로 작성되었습니다!"
MakeHtm cwww&"/alliance.asp","../alliance.htm","판매 네트워크가 성공적으로 작성되었습니다!"
'제품 생성
xstr=분할(str,"|")
i=0에서 ubound(xstr)까지
MakeHtm cwww&"/uzProduct.asp?id="&xstr(i),"../uzProduct_"&xstr(i)&".htm","제품"&xstr(i)&"성공적으로 작성되었습니다!"
다음
xstr=분할(str_new,"|")
i=1에서 ubound(xstr)/25+1까지
MakeHtm cwww&"/xinwen.asp?Page="&i,"../xinwen_"&i&".htm","뉴스 목록"&i&"성공적으로 작성되었습니다!"
다음
xstr=분할(str_new,"|")
i=0에서 ubound(xstr)까지
MakeHtm cwww&"/uzNews.asp?id="&xstr(i),"../uzNews_"&xstr(i)&".htm","News"&xstr(i)&"쓰기 성공!"
다음
함수 BytesToBstr(body,Cset)
희미한 객체 스트림
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write 본문
objstream.위치 = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
objstream = 아무것도 설정하지 않음
기능 종료
함수 MakeHtm(curl,turl,mess)
xml = Server.CreateObject("Microsoft.XMLHTTP") 설정
'다음 주소를 홈페이지의 파일 주소로 바꾸세요. 반드시 처음에 절대 경로를 사용하세요. 상대 경로는 쓸 수 없습니다.
xml.Open "GET", 컬, False
xml.보내기
BodyText=xml.ResponseBody
BodyText=BytesToBstr(BodyText,"gb2312")
xml = 없음 설정
'바꾸다
BodyText=RegReplace(BodyText,"uzProduct/.asp/?id=(/d*)", "uzProduct_$1.htm")
BodyText=RegReplace(BodyText,"uzNews/.asp/?id=(/d*)", "uzNews_$1.htm")
BodyText=RegReplace(BodyText,"xinwen/.asp/?Page=(/d*)", "xinwen_$1.htm")
BodyText=replace(BodyText,"index.asp","index.htm")
BodyText=replace(BodyText,"about.asp","about.htm")
BodyText=replace(BodyText,"pro.asp","pro.htm")
BodyText=replace(BodyText,"news.asp","news.htm")
BodyText=replace(BodyText,"liuyan.asp","liuyan.htm")
BodyText=replace(BodyText,"ry.asp","ry.htm")
BodyText=replace(BodyText,"xinwen.asp","xinwen.htm")
BodyText=replace(BodyText,"contact.asp","contact.htm")
희미한 fso, MyFile
fso = CreateObject("Scripting.FileSystemObject") 설정
MyFile 설정= fso.CreateTextFile(server.MapPath(turl), True)
MyFile.WriteLine(본문 텍스트)
내파일.닫기
응답.쓰기 엉망
응답."<br>" 쓰기
기능 종료
공용 함수 RegReplace(sContent, sPatrn, sNewStr)
Dim oTempReg : oTempReg = 새 RegExp 설정
oTempReg 사용
.IgnoreCase = 참
.글로벌=참
.패턴 = sPatrn
RegReplace = .Replace(sContent, sNewStr)
끝
oTempReg = 없음 설정
기능 종료
CloseDatabase()를 호출합니다.
%>
<html>
<머리>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>제목 없는 문서</title>
<스타일>
body,td{font-family:Verdana, Arial, Helvetica, sans-serif;
글꼴 크기:10.5pt;}
</style>
</head>
<본문>
</body>
</html>
iisboy에서