国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 網站 > 建站經驗 > 正文

按ID號發布文章(精)

2019-11-02 17:00:27
字體:
來源:轉載
供稿:網友

今天終于把按文章ID生成靜態文章搞定了,相信許多朋友應該需要,為發布文章節約不少時間.

圖片點擊可在新窗口打開查看此主題相關圖片如下:

圖片點擊可在新窗口打開查看

第一步:在Admin/Include/refreshhtml.asp文件的第90行下面插入下面代碼

Response.Write "  <form action=""RefreshHtmlSave.asp?Types=Content&RefreshFlag=AID&ChannelID=" & ChannelID & """ method=""post"" name=""IDForm"">"

  Response.Write "    <tr class='tdbg'>"

  Response.Write "      <td height=""35"" align=""center"">按ID發布</td>"

  Response.Write "      <td height=""35""> 從"

  Response.Write "        <input name=""StartID"" type=""text"" id=""StartID"">"

  Response.Write "        到"

  Response.Write "        <input name=""EndID"" type=""text"" id=""EndID"">"

  Response.Write "        <input name=""SubmitID"" type=""submit"" id=""SubmitID"" value="" 發 布 >>"" border=""0"">"

  Response.Write "      </td>"

  Response.Write "    </tr>"

  Response.Write "  </form>"

第二步:在Admin/Include/refreshhtmlsave.asp文件的第258行定義StartID/和EndID變量

第三步:在Admin/Include/refreshhtmlsave.asp文件的第286行下面插入下面代碼:

   Case "AID" '按ID生成

     StartID = Request("StartID")

     EndID = Request("EndID")

    If startID<>"" and EndID ="" then

     RefreshSql = "Select top 1 * from KS_Article where Verific=1 and  DelTF=0 And ID = " & StartID & " Order By ID Desc"

     RefreshTotalNum =1

    Elseif startID<>"" and EndID <> "" then

     RefreshSql = "Select top 1 * from KS_Article where Verific=1 and  DelTF=0 And ID>= " & StartID & " And  ID <=" & EndID & " Order By ID Desc"

     Set TotalRS = Server.CreateObject("Adodb.RecordSet")

     TotalRS.Open "Select count(*) from KS_Article where Verific=1 and  DelTF=0 And ID >=" & StartID & " And  ID <=" & EndID, Conn, 1, 1

     RefreshTotalNum = TotalRS(0)

     TotalRS.Close

      Set TotalRS = Nothing

    End If
發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 镇江市| 芷江| 巴塘县| 乡宁县| 灵石县| 论坛| 济阳县| 五大连池市| 阿坝县| 利川市| 怀柔区| 塔城市| 海城市| 璧山县| 类乌齐县| 长兴县| 察隅县| 鲁甸县| 宁陕县| 浙江省| 潢川县| 光泽县| 安新县| 宁都县| 高台县| 乐平市| 米泉市| 那坡县| 嘉禾县| 辽阳市| 奇台县| 富平县| 即墨市| 黎平县| 夏河县| 新绛县| 乐安县| 永泰县| 乌兰察布市| 浦城县| 池州市|