정적 ASP를 생성하는 간단한 방법 오늘은 사전 도구에서 코드를 살펴보았습니다. 필요한 친구들은 참조할 수 있습니다. CreateHtml
모든 기사가 생성되며 리소스를 사용하기 쉽습니다.
첫 번째 방법:
다음과 같이 코드 코드를 복사합니다.
'HTML 생성 모드 시작
Rs=Server.Createobject(Adodb.Recordset) 설정
Sql=KQIQI_ID,KQIQI_Title,KQIQI_Pinyin,KQIQI_Explain,KQIQI_Content,KQIQI_CY에서 KQIQI_Record를 선택합니다. KQIQI_ID 설명에 따른 순서
Rs.Open SQL, Conn,1,3
데이터 숫자=Rs.Recordcount
i= 1의 경우 데이터넘버
제목=바꾸기(바꾸기(Rs(1),Chr(13),),Chr(10),)
'관용구 파일 생성 시작
Fso=Createobject(Scripting.FilesyStemobject) 설정
KQIQI_MB=Fso.Opentextfile(server.mappath(KQIQI_CY_MB.html))로 설정합니다.
KQIQI_Ce=KQIQI_MB.readall
KQIQI_MB.close
KQIQI_Ce=바꾸기(KQIQI_Ce,{$KQIQI:제목},&제목&)
KQIQI_Ce=바꾸기(KQIQI_Ce,{$KQIQI:SystemTitle},&SystemTitle&)
KQIQI_Ce=바꾸기(KQIQI_Ce,{$KQIQI:병음},&Rs(2)&)
KQIQI_Ce=바꾸기(KQIQI_Ce,{$KQIQI:설명},&Rs(3)&)
KQIQI_Ce=바꾸기(KQIQI_Ce,{$KQIQI:콘텐츠},&Rs(4)&)
KQIQI_Ce=바꾸기(KQIQI_Ce,{$KQIQI:기록},&Rs(5)&)
KQIQI_We=Fso.Createtextfile(Server.Mappath(Html/KQIQICY_&Rs(0)&.html),true) 설정
KQIQI_We.writeline KQIQI_Ce
KQIQI_We.Close
Fso=아무것도 설정하지 않음
'세대 완료
Rs.Movenext
다음
KQIQICY = KQIQICY & <TABLE cellSpacing=0 cellPadding=0 너비=480 정렬=가운데 테두리=0 클래스=td 테이블> & vbCrLf
KQIQICY = KQIQICY & <TR><TD align=center><IMG src=images/logo.gif border=0 너비=220 높이=90></TD></TR> & vbCrLf
KQIQICY = KQIQICY & <TR><TD align=center class=tdbar>생성됨</TD></TR> & vbCrLf
KQIQICY = KQIQICY & <TR><TD align=center>Ke Qiqi 관용구 사전이 생성되었습니다! <input type=button name=button1value=return onclick=javascript:history.back(-1);></TD></TR>& vbCrLf
KQIQICY = KQIQICY & <TR><TD align=center class=tdbar>종료</TD></TR> & vbCrLf
KQIQICY = KQIQICY & <TR><TD align=center><a href=KQIQI_Admin.asp?Action=Quit>종료</a>& vbCrLf
KQIQICY = KQIQICY & </TD></TR></FORM></TABLE> & vbCrLf
두 번째 유형은 다른 시스템에서 볼 수 있습니다.
다음과 같이 코드 코드를 복사합니다.
<%
'저작권 2007
'작가 : 우준
' 저작권 : www.sm05.com
'버전: Ver 1.0
'기술 지원: 이메일: [email protected] QQ: 21275120
%>
<!--#포함 파일=cyconn.asp-->
<%
희미한 fso
어두워
희미한 wstr
fw
'HTML 생성 모드 시작
rs=server.createobject(adodb.recordset) 설정
sql=ID 설명에 따른 사진 순서에서 * 선택
rs.open SQL,콘,1,3
데이터넘버=rs.recordcount
i= 1에서 datanum까지
'관용구 파일 생성 시작
fso=createobject(scripting.filesystemobject) 설정
fr=fso.opentextfile(server.mappath(chengyu_m.htm)) 설정
wstr=fr.readall
fr.close
희미한 rstr
wstr=replace(wstr,<{{biaoti}}>,&replace(rs(biaoti),vbnewline,)&)
wstr=replace(wstr,<{{pinyin}}>,&rs(sg)&)
wstr=replace(wstr,<{{jieshi}}>,&rs(js)&)
wstr=replace(wstr,<{{from}}>,&rs(content)&)
wstr=replace(wstr,<{{예제}}>,&rs(jilu)&)
fw=fso.createtextfile(server.mappath(view/chengyu&rs(id)&.htm),true) 설정
fw.writeline wstr
fw.close
fso=아무것도 설정하지 않음
'세대 완료
rs.movenext
다음
response.write 자, 포럼의 관용어 칼럼이 모두 생성되었습니다!
%>
MakeHtml은 지정된 ID부터 생성됩니다.
다음과 같이 코드 코드를 복사합니다.
'HTML 생성 모드 시작
Rs=Server.Createobject(Adodb.Recordset) 설정
Sql=KQIQI_ID,KQIQI_Title,KQIQI_Pinyin,KQIQI_Explain,KQIQI_Content,KQIQI_CY에서 KQIQI_Record를 선택합니다. KQIQI_ID 설명에 따른 순서
Rs.Open SQL, Conn,1,3
i=id1의 경우 id2로
제목=바꾸기(바꾸기(Rs(1),Chr(13),),Chr(10),)
'관용구 파일 생성 시작
Fso=Createobject(Scripting.FilesyStemobject) 설정
KQIQI_MB=Fso.Opentextfile(server.mappath(KQIQI_CY_MB.html))로 설정합니다.
KQIQI_Ce=KQIQI_MB.readall
KQIQI_MB.close
KQIQI_Ce=바꾸기(KQIQI_Ce,{$KQIQI:제목},&제목&)
KQIQI_Ce=바꾸기(KQIQI_Ce,{$KQIQI:SystemTitle},&SystemTitle&)
KQIQI_Ce=바꾸기(KQIQI_Ce,{$KQIQI:병음},&Rs(2)&)
KQIQI_Ce=바꾸기(KQIQI_Ce,{$KQIQI:설명},&Rs(3)&)
KQIQI_Ce=바꾸기(KQIQI_Ce,{$KQIQI:콘텐츠},&Rs(4)&)
KQIQI_Ce=바꾸기(KQIQI_Ce,{$KQIQI:기록},&Rs(5)&)
KQIQI_We=Fso.Createtextfile(Server.Mappath(Html/KQIQICY_&Rs(0)&.html),true) 설정
KQIQI_We.writeline KQIQI_Ce
KQIQI_We.Close
Fso=아무것도 설정하지 않음
'세대 완료
Rs.Movenext
다음
KQIQICY = KQIQICY & <TABLE cellSpacing=0 cellPadding=0 너비=480 정렬=가운데 테두리=0 클래스=td 테이블> & vbCrLf
KQIQICY = KQIQICY & <TR><TD align=center><IMG src=images/logo.gif border=0 너비=220 높이=90></TD></TR> & vbCrLf
KQIQICY = KQIQICY & <TR><TD align=center class=tdbar>생성됨</TD></TR> & vbCrLf
KQIQICY = KQIQICY & <TR><TD align=center>Ke Qiqi 관용구 사전이 생성되었습니다! <input type=button name=button1value=return onclick=javascript:history.back(-1);></TD></TR>& vbCrLf
KQIQICY = KQIQICY & <TR><TD align=center class=tdbar>종료</TD></TR> & vbCrLf
KQIQICY = KQIQICY & <TR><TD align=center><a href=KQIQI_Admin.asp?Action=Quit>종료</a>& vbCrLf
KQIQICY = KQIQICY & </TD></TR></FORM></TABLE> & vbCrLf