静的 ASP を生成する簡単な方法。今日は辞書ツールでコードを調べました。必要な方はそれを参照してください。 HTMLの作成
すべての記事は生成され、使いやすいリソースです
最初の方法:
次のようにコードをコピーします。
'HTML生成モードを開始します
Set Rs=Server.Createobject(Adodb.Recordset)
Sql=KQIQI_CY から KQIQI_ID、KQIQI_Title、KQIQI_Pinyin、KQIQI_Explain、KQIQI_Content、KQIQI_Record を選択します。 KQIQI_ID で並べ替えます。
Rs.Open SQL、Conn、1、3
データ番号=Rs.レコード数
i= 1 の場合、データ番号まで
Title=Replace(Replace(Rs(1),Chr(13),),Chr(10),)
'イディオムファイルの生成を開始します
Set Fso=Createobject(Scripting.FilesyStemobject)
Set 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:システムタイトル},&システムタイトル&)
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)&)
Set KQIQI_We=Fso.Createtextfile(Server.Mappath(Html/KQIQICY_&Rs(0)&.html),true)
KQIQI_We.writeline KQIQI_Ce
KQIQI_We.Close
Fso=何も設定しない
'生成が完了しました
Rs.ムーブネクスト
次
KQIQICY = KQIQICY & <TABLE cellSpacing=0 cellPadding=0 width=480 align=center border=0 class=td table> & vbCrLf
KQIQICY = KQIQICY & <TR><TD align=center><IMG src=images/logo.gif border=0 width=220 height=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
2 番目のタイプは他のシステムから見られます。
次のようにコードをコピーします。
<%
'著作権 2007
作者：ウー・ジュン
' 著作権: www.sm05.com
'バージョン：Ver1.0
'技術サポート: 電子メール: [email protected] QQ: 21275120
%>
<!--#include file=cyconn.asp-->
<%
薄暗いfso
薄暗い
薄暗いwstr
フォワード
'HTML生成モードを開始します
set rs=server.createobject(adodb.recordset)
sql=select * from pic order by id desc
rs.open SQL,conn,1,3
データ番号=rs.レコード数
for i= 1 から datanum
'イディオムファイルの生成を開始します
set fso=createobject(scripting.filesystemobject)
set fr=fso.opentextfile(server.mappath(chengyu_m.htm))
wstr=fr.readall
閉じる
薄暗いrstr
wstr=replace(wstr,<{{biaoti}}>,&replace(rs(biaoti),vbnewline,)&)
wstr=replace(wstr,<{{ピンイン}}>,&rs(sg)&)
wstr=replace(wstr,<{{jieshi}}>,&rs(js)&)
wstr=replace(wstr,<{{from}}>,&rs(content)&)
wstr=replace(wstr,<{{example}}>,&rs(jilu)&)
set fw=fso.createtextfile(server.mappath(view/chengyu&rs(id)&.htm),true)
fw.writeline wstr
戻る
fso=何も設定しない
'生成が完了しました
rs.movenext
次
response.write さあ、フォーラムのすべてのイディオム列が生成されました。
%>
指定されたIDからMakeHtmlが生成されます
次のようにコードをコピーします。
'HTML生成モードを開始します
Set Rs=Server.Createobject(Adodb.Recordset)
Sql=KQIQI_CY から KQIQI_ID、KQIQI_Title、KQIQI_Pinyin、KQIQI_Explain、KQIQI_Content、KQIQI_Record を選択します。 KQIQI_ID で並べ替えます。
Rs.Open SQL、Conn、1、3
i=id1 から id2 へ
Title=Replace(Replace(Rs(1),Chr(13),),Chr(10),)
'イディオムファイルの生成を開始します
Set Fso=Createobject(Scripting.FilesyStemobject)
Set 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)&)
Set KQIQI_We=Fso.Createtextfile(Server.Mappath(Html/KQIQICY_&Rs(0)&.html),true)
KQIQI_We.writeline KQIQI_Ce
KQIQI_We.Close
Fso=何も設定しない
'生成が完了しました
Rs.ムーブネクスト
次
KQIQICY = KQIQICY & <TABLE cellSpacing=0 cellPadding=0 width=480 align=center border=0 class=td table> & vbCrLf
KQIQICY = KQIQICY & <TR><TD align=center><IMG src=images/logo.gif border=0 width=220 height=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