源码网商城,靠谱的源码在线交易网站 我的订单 购物车 帮助

源码网商城

按ID号发布文章(精)

  • 时间:2020-11-24 15:28 编辑: 来源: 阅读:
  • 扫一扫,手机访问
摘要:按ID号发布文章(精)
今天终于把按文章ID生成静态文章搞定了,相信许多朋友应该需要,为发布文章节约不少时间. [img]http://files.jb51.net/upload/2007215151133723.gif[/img] 此主题相关图片如下: [img]http://files.jb51.net/upload/2007215151133921.gif[/img] 第一步:在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 三步搞定.
  • 全部评论(0)
联系客服
客服电话:
400-000-3129
微信版

扫一扫进微信版
返回顶部