推奨：ASP Dynamic Webページを学習するための必須アイテム：38一般的に使用される関数1。関数配列（）関数：配列変数形式を作成：配列（リスト）パラメーター：リストは配列変数の各数値列であり、コンマ間隔の例：<％i = array（1,2,3＆quo
私のスペースは限られているので、バッチ内のすべての静的ページを一度に生成することはできないので、私はあなたと共有するための小さなプログラムを書きました。プログラムは非常に簡単なので、専門家を笑わないでください！このコードは時間の無駄です。コードは次のとおりです
<！ - ＃include file = conn.asp-> <HTML> <Head> <Title> Generate Page </title> <メタhttp-equiv = content-type content = text/html; charset = gb2312> <link href = style.css type = text/css rel = styleSheet> <メタコンテンツ= MSHTML 6.00.2900.3020 name = generator> </head> <body bottommargin = 0 leftmargin = 0 topmargin = 0 rightmargin = 0> <br style = overflow：hidden;ラインハイト：3px> <％ DIMID id = cint（request.querystring（id）） id = thenの場合 ID = 1 それ以外 id = cint（request.querystring（id）） ifを終了します 薄暗い総数 sql = id descによるテーブル注文からidを選択します rs = server.createObject（adodb.Recordset）を設定します rs.open sql、conn、1,1 rs.MoveFirst rs.eofではない場合 TotalNumber = rs.RecordCount ifを終了します 総数を取得するには、代わりにコードを使用できます。友達は自分でこの問題を解決できると思います。 rs.close rs = Nothingを設定します Response.Write <br> <br>＆vbnewline response.write <table width = '400' border = '0' align = 'center' cellpadding = '' cellpacing = '0'>＆vbnewline respons.write <tr>＆vbnewline respons.write <td height = '50 '>合計色=' blue '> <b>＆</b> </font>ページが生成されています... </td>＆vbnewline respons.write </tr>＆vbnewline respons.write </table>＆vbnewline Response.Flush ID> TotalNumberの場合 respons.write操作が成功したことをおめでとうございます！ Response.Flush ifを終了します creat（id） ID = ID 1 Response.Write <Meta http-equiv = reffresh content = 1; url =？id =＆id＆> ％> </body> </html> <％ functionCreat（ID） sql = select * table where id =＆id rs = conn.execute（sql）を設定します 薄暗い名前 name = rs（name） conn.execute（sql） rs.close rs = Nothingを設定します 薄暗いfso Dim Znwl 薄暗いアート 薄暗いFW fso = createObject（scripting.filesystemObject）をset znwl = fso.opentextfile（server.mappath（テンプレートページ））を設定します art = znwl.readall znwl.close art = cheplage（art、{$ name $}、name） fw = fso.createTextfile（server.mappath（生成されたページストレージの場所とページ名）、true）を設定 fw.writeLine Art fw.close FSO =何も設定しません エンド関数 ％> |
上記の方法よりも高速な別の方法がありますが、多くのCPUを占めています。次の方法を使用してスペースに問題があります。
<！ - ＃include file = conn.asp-> <HTML> <Head> <Title> Generate Page </title> <メタhttp-equiv = content-type content = text/html; charset = gb2312> <link href = style.css type = text/css rel = styleSheet> <メタコンテンツ= MSHTML 6.00.2900.3020 name = generator> </head> <body bottommargin = 0 leftmargin = 0 topmargin = 0 rightmargin = 0> <br style = overflow：hidden;ラインハイト：3px> <テーブルボーダー= 1幅= 100％id = table1> <tr> <td> <％ Dim Allid、PPP、ID、TotalNum sql = select * from table order by id desc rs = server.createObject（adodb.Recordset）を設定します rs.open sql、conn、1,1 rs.eofではない場合 rs.eofではありません allid = then allid = rs（id）else allid = allid＆; ＆rs（id） rs.movenext ループ それ以外 rs.bofとrs.eofの場合 Response.Write記事はまだ見つかりません！ ifを終了します ifを終了します rs.close rs = Nothingを設定します allid =;アリッド ppp = split（allid、;） totalnum = ubund（ppp） id = 1からtotalnumの場合 session（id）= session（id）1 creat（id） Response.WriteはZnwl_＆id＆.htm ... <br>を生成しています 次 ％> </td> </tr> </table> </body> </html> <％ functionCreat（ID） sql = select * table where id =＆id rs = conn.execute（sql）を設定します 薄暗い名前 name = rs（name） conn.execute（sql） rs.close rs = Nothingを設定します 薄暗いfso Dim Znwl 薄暗いアート 薄暗いFW fso = createObject（scripting.filesystemObject）をset znwl = fso.opentextfile（server.mappath（テンプレートページ））を設定します art = znwl.readall znwl.close ％> art = cheplage（art、{$ name $}、name） fw = fso.createTextfile（server.mappath（生成されたページストレージの場所とページ名）、true）を設定 fw.writeLine Art fw.close FSO =何も設定しません エンド関数 |
この方法は高速ですが、あなたのスペースは無制限でなければなりません！ - スマートネットワーク
上記の方法は参照のみであり、私が変更した最後のバージョンではありませんが、それは間違いなく使いやすいです。
共有：ASPヒントの例：コードのいくつかの行は、フォームの繰り返しの提出を防ぐという問題を解決します多くの場合、同じフォームが複数回提出されるのを防ぐ必要があります。多くの人の実装方法は比較的複雑です（コードの数は数十行を超えています!!）以下は、ユーザーが複数の提出物を更新し、バックボタンを使用してフォームを再検討することを容易にするコードの数行のみを必要とする方法を提供します。