开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 编辑器/阅读器 > 查看源码
updateFunction-US.asp
资源名称：Codejia.com_Rss.rar　[点击查看]
上传用户：rblchem
上传日期：2022-04-27
资源大小：1941k
文件大小：20k
源码类别：

编辑器/阅读器

开发平台：

C#

updateFunction-US.asp：源码内容
  1. <script language="JavaScript" runat="server">
  2. function rfc_to_iso(DataRCC){
  3. var dateTimeObject = new Date(DataRCC);
  4. if(isNaN(dateTimeObject)){
  5.    var dateTimeObject2 = new Date(DataRCC.substring(0,DataRCC.lastIndexOf(" ")));
  6.    if (isNaN(dateTimeObject2)){
  7.            return DataRCC;
  8.    }
  9.    else{
  10.    return dateTimeObject2.toUsaString();
  11.            }    
  12. }
  13. else{
  14. return dateTimeObject.toUsaString();
  15. }
  16. }
  17. function ZeroPad(n)
  18. {
  19.         if (n < 10)
  20.                 return "0" + n;
  22.         return n;
  23. }
  25. Date.prototype.toUsaString = function()
  26. {
  27.         return (ZeroPad(this.getMonth() + 1)) + "/" +
  28.                 ZeroPad(this.getDate()) + "/" +
  29.                 ZeroPad(this.getFullYear()) + " " +
  30.                 ZeroPad(this.getHours()) + ":" +
  31.                 ZeroPad(this.getMinutes()) + ":" +
  32.                 ZeroPad(this.getSeconds());
  33. }
  35. </script>
  36. <%
  37. Public ISUserUpdate,BLOGURL
  38. db="../data/"&dbname
  39. %>
  40. <!-- #include file="conn.asp" -->
  41. <!-- #include file="RegExpFunction.asp" -->
  42. <%
  43. IF ISServerScriptTimeout=1 Then
  44. Server.ScriptTimeout=Server_ScriptTimeout
  45. End IF
  47. Function FilterSQL(strSQL)
  48. FilterSQL=CStr(Replace(strSQL,chr(39),chr(39)&chr(39)))
  49. End Function
  51. Function StrangeTOISO(DataRCC)
  52. StrangeTOISO=ReplaceStr(DataRCC,"(?:D*)(d+)D(d+)D(d+)D(d+)D(d+)D(d+)(?:.*)","$1-$2-$3 $4:$5:$6")
  53. End function
  55. Function RegExpTest(patrn, strng)
  56. Dim regEx, retVal 
  57. Set regEx = New RegExp 
  58. regEx.Pattern = patrn  
  59. regEx.IgnoreCase = False  
  60. RegExpTest = regEx.Test(strng) 
  61. End Function
  63. Function GetList(ID)
  64. SET conn=connectDB()
  65.  set rs=server.createobject("adodb.recordset")
  66.  If ID=1 Then
  67.  sql="select * from [linkxml] where Category_id="&Request.QueryString("id")&" and Shenhe=1"
  68.  End IF
  69.  If ID=2 Then
  70.  sql="select * from [linkxml] where Shenhe=1"
  71.  End IF
  72.  rs.open sql,conn,1,3 
  73.  for i=1 to rs.recordcount
  74.  List=List&rs(0)&"|"
  75.  rs.movenext
  76.  Next
  77.  rs.close:set rs=nothing
  78.  closedb(conn)
  80.  GetList=List
  81. End Function
  83. Function ListReport(ID)
  84.              List=GetList(ID)
  85.  If trim(list)="" then exit function
  86.  session(SessionStr&"UpDateListByCategory")=List
  87.  List2=split(List,"|")
  88.  session(SessionStr&"ListTotalNumber")=Ubound(List2)
  89.  session(SessionStr&"UpdatePercentage")=0
  90.    session(SessionStr&"report")=""
  91.  Response.redirect "update_xml.asp?action=UpdateBySession"
  92. End Function
  94. Function ReplaceStr(source,para,str)
  95.   Set objRegExp=New RegExp
  96.   objRegExp.IgnoreCase =True
  97.   objRegExp.Global=True
  98.   objRegExp.Pattern=para
  99.   ReplaceStr= objRegExp.Replace(source,str)
  100.   Set objRegExp=Nothing
  101. End Function
  104. Function Showerr_Desciption(ErrorID)
  105. Set conn=ConnectDB()
  106. Set RS=conn.execute ("select * from [ErrHandle] where [ErrorID]=" & ErrorID )
  107. If not rs.eof Then
  108. Showerr_Desciption=" 错误代码:"&RS(0)&",错误描述:"&RS(1)&"&nbsp;"&RS(2)
  109. Else
  110. Showerr_Desciption="错误库中没有关于代码为"&ErrorID&"的描述,请向<a href=""http://www.sxna.cn"" target=_blank>www.sxna.cn</a>报告此问题"
  111. End IF
  112. rs.close:set rs=nothing
  113. CloseDB(conn)
  114. End Function
  116. Function Shengcheng(UpdateCatId,XmlId)
  118. Set conn=ConnectDB()
  120. APPLICATION.LOCK
  121. application(SessionStr&"SXNA_NOWTIME") = now()
  122. APPLICATION.UNLOCK
  124. If UpdateCatId<>"" and XmlId="" Then 
  125.     sql="select * from [linkxml] where Category_id="&UpdateCatId&" and Shenhe=1"
  126. Else
  127.     If UpdateCatId="" and XmlId<>"" Then 
  128.     sql="select * from [linkxml] where id="&XmlId&" and Shenhe=1"
  129.     Else
  130. sql="select * from [linkxml] where Shenhe=1"
  131. End If
  132. End If 
  134. set rs=server.createobject("adodb.recordset")
  135.     rs.open sql,conn,1,3 
  136.     DBcount=rs.recordcount
  137. Redim XMLLINK(DBcount)
  138. Redim XMLLINKID(DBcount)
  139. Redim XMLLINKLastUpdateTime(DBcount)
  140. Redim XMLLINKInteval(DBcount)
  141. Redim XMLLINKAggregateNumber(DBcount)
  142. Redim XMLLINKcategory_id(DBcount)
  143. Redim XMLLINKlastupdatetime(DBcount)
  144. Redim XMLLINKElements(DBcount)
  145. Redim XMLLINKHtmlURL(DBcount)
  147. for i = 1 to DBcount
  148. if rs.EOF then     
  149. Exit For 
  150. end if
  151. XMLLINK(i)=rs("linkxml")
  152. XMLLINKID(i)=rs("id")
  153. XMLLINKcategory_id(i)=rs("category_id")
  154. XMLLINKInteval(i)=rs("Inteval")
  155.         XMLLINKAggregateNumber(i)=rs("AggregateNumber")
  156. XMLLINKlastupdatetime(i)=rs("lastupdatetime")
  157. XMLLINKElements(i)=rs("Elements")
  158. XMLLINKHtmlURL(i)=rs("htmlUrl")
  159. rs.MoveNext
  160. Next
  161. rs.close:set rs=nothing
  162. CloseDB(conn)
  164. for j=1 to DBcount
  165. call InputXML(XMLLINKcategory_id(j),XMLLINK(j),XMLLINKID(j),XMLLINKInteval(j),XMLLINKAggregateNumber(j),XMLLINKlastupdatetime(j),XMLLINKElements(j),XMLLINKHtmlURL(j))
  166. next
  168. ShengCheng=True
  170. End Function
  172. Function Showerr(msg1,msg2,msg3)
  173. Report=Report& "<tr><td width=""80%"">"&msg1&"</td><td width=""20%"">"&msg2&"</td></tr><tr><td colspan=""2"">"&msg3&"</td></tr>"
  174. End Function
  176. Function InputXML(XLC_ID,RSSLINK_S,RSSLINKID_S,XMLLINKInteval,XMLLINKAggregateNumber,XMLLINKlastupdatetime,XMLLINKElements,XMLLINKHtmlURL)
  178. On Error Resume Next
  179. IF CheckRights2=False then
  180. If DateDiff("n",XMLLINKlastupdatetime,now())<XMLLINKInteval then
  181. Report=Report& "<tr><td width=""80%"">"&RSSLINK_S&"</td><td width=""20%"">未下载</td></tr><tr><td colspan=""2"">允许更新时间未到,上次更新时间是"&XMLLINKlastupdatetime&",允许前台更新时间为"&XMLLINKInteval&"分钟,现在过了"&DateDiff("n",XMLLINKlastupdatetime,now())&"分钟</td></tr>"
  182. Exit Function
  183. End IF
  184. End IF
  186. If isnull(XMLLINKElements) or trim(XMLLINKElements)="" then
  187. Report=Report&"<tr><td width=""80%"">"&RSSLINK_S&"</td><td width=""20%"">未设置元素</td></tr><tr><td colspan=""2"">请进行[重载]或[站点重载]，设置提取元素.</td>"
  188. Exit Function
  189. Else
  190. elements=split(XMLLINKElements,"|||")
  191. End if
  193. If IsUseXmlHttp=1 then
  194.             On Error Resume Next
  195. Set http=Server.CreateObject("Microsoft.XMLHTTP")
  196. http.Open "GET",RSSLINK_S,False
  197. If Err Then
  198. Report=Report&"<tr><td colspan=""2"">您的地址有错误.请检查"&Err.Number&Err.description&"</td><tr>"
  199. Err.Clear
  200. set http=nothing
  201. Exit Function
  202. End If
  203. http.send
  204. Else        
  205.             on error resume next
  206.             Dim http
  207. Set http = Server.CreateObject("Msxml2.ServerXMLHTTP")
  209. http.setTimeouts lResolve*1000,lConnect*1000,lSend*1000,lReceive*1000
  210. http.Open "GET",RSSLINK_S,False
  211. http.Send
  213.             'response.write Err.Number&Err.Description&http.readyState
  214. 'response.end
  216. Select Case http.readyState
  217. Case 0
  218. call Showerr("对象初始化失败,估计你输入了一堆无效的字符....","请检查一下~","错误参数:"&Err.Number&Err.Description)
  219. Err.Clear
  220. set http=nothing
  221. Exit Function
  222. Case 1
  223. call Showerr(RSSLINK_S&"域名分析超时/连接站点超时!也许是这个网站有问题,或许是超时设定太短,或许机器没有联网","请检查","错误参数:"&Err.Number&Err.Description)
  224. Err.Clear
  225. set http=nothing
  226. Exit Function
  227. Case 2
  228. call Showerr(RSSLINK_S&"发送数据请求超时,是不是服务器出故障了?","请检查","错误参数:"&Err.Number&Err.Description)
  229. Err.Clear
  230. set http=nothing
  231. Exit Function
  232. Case 3
  233. ContentLength=http.GetResponseHeader("Content-Length")
  234. If err.number=-2147012746 then
  235. Call Showerr(RSSLINK_S&"数据下载超时/等待反馈时间超时","原因如下","没有获得文件大小的信息,估计网站有问题,可能是你的等待反馈时间超时设定太短")
  236. Else
  237.     Call Showerr(RSSLINK_S&"数据下载超时/等待反馈时间超时","原因如下","该文件大小"&Formatnumber(ContentLength/1000,2)&"KB,下载过程中超过你设定的等待反馈时间超时时间,可能是你的等待反馈时间超时设定太短了,或许这个网站他就是慢...")
  238. End If
  239. Err.Clear
  240. set http=nothing
  241. Exit Function
  242. Case 4
  243.     ErrContentLength=0
  244. ContentLength=http.GetResponseHeader("Content-Length")
  245. If err.number=-2147012746 then
  246. If http.Status=200 Then
  247. ErrContentLength=1   
  248. End If
  249. Err.clear
  250. ElseIf err.number<>0 then
  251. call Showerr(RSSLINK_S&"有未知错误发生","有错误","错误参数:"&Err.Number&Err.Description)
  252. Err.Clear
  253. set http=nothing
  254. Exit Function
  255. Else
  257. End If
  258. End Select
  259. End If
  261. If http.status<>200  then
  262. Report=Report& "<tr><td width=""80%"">"&RSSLINK_S&"</td><td width=""20%"">下载失败,描述如下</td></tr><tr><td colspan=""2"">"&Showerr_Desciption(http.status)&"</td></tr>"
  263. Err.Clear
  264. set http=nothing
  265. Exit Function
  266. END IF
  268. If http.status="200" then'1
  270.     If ErrContentLength=1 then
  271. Report=Report& "<tr><td width=""80%"">"&RSSLINK_S&"（没找到文件长度信息）</td><td width=""20%"">下载成功</td></tr>"
  272. Else
  273. Report=Report& "<tr><td width=""80%"">"&RSSLINK_S&"</td><td width=""20%"">下载成功</td></tr>"
  274. End If
  276. Set xml=Server.CreateObject("Microsoft.XMLDOM")
  277. xml.Async=False
  278. xml.ValidateOnParse=False
  279. xml.Load(http.ResponseBody)
  280. Set http=Nothing
  282. If xml.ReadyState=4 Then'2
  283. If xml.parseError.errorCode <> 0 Then'3
  284. Report=Report& "<tr><td colspan=""2"">解析失败，此文件不是XML文件</td></tr>"
  285. set xml=nothing
  286. Exit Function
  287. Else
  288.        '获取链接
  289. If elements(0)="RSS" then
  290.    Set channel=xml.documentElement.selectSingleNode("channel")
  291.    Set item=xml.getElementsByTagName("item")
  292. Else' elements(0)="Atom" then
  293.    Set channel=xml.getElementsByTagName("feed")
  294.    set channel=channel(0)
  295.    Set item=xml.getElementsByTagName("entry")
  296. End if'If elements(0)="rss"
  297.     Rs_link2=XMLLINKHtmlURL
  298. BLOGURL=XMLLINKHtmlURL
  299.   If ((XMLLINKAggregateNumber)>(item.Length)) then
  300. ItemNum=item.Length
  301.    Else
  302. ItemNum=XMLLINKAggregateNumber
  303.   End if
  304. redim RS_title(ItemNum)
  305. redim RS_Author(ItemNum)
  306. redim RS_pubDate(ItemNum)
  307. redim RS_link(ItemNum)
  308. redim RS_Description(ItemNum)
  310. For i=0 To ItemNum-1
  311. If elements(0)="RSS" then
  312. '链接获取
  313. RS_link(i)=item(i).selectSingleNode(elements(9)).text
  314. '作者获取
  315. If elements(2)="Multi" then
  316.     RS_Author(i)=item(i).selectSingleNode(elements(3)).text
  317. If elements(14)="0" Then
  318. RS_Author(i)=RegExpHtml(RS_Author(i),RegExpType_Author)
  319. Else
  320. RS_Author(i)=RegExpHtml(RS_Author(i),elements(14))
  321. End IF
  322. Else
  323. RS_Author(i)=elements(4)
  324. End if
  325. Else
  326. '链接获取
  327. RS_link(i)=item(i).selectSingleNode(elements(9)).getAttributeNode("href").value
  328. '作者获取
  329. If elements(2)="Multi" then
  330. RS_Author(i)=item(i).selectSingleNode("author").selectSingleNode(elements(3)).text
  331. If elements(14)="0" Then
  332. RS_Author(i)=RegExpHtml(RS_Author(i),RegExpType_Author)
  333. Else
  334. RS_Author(i)=RegExpHtml(RS_Author(i),elements(14))
  335. End IF
  336. Else
  337. RS_Author(i)=elements(4)
  338. End if
  339. End IF
  341. '标题获取
  343. RS_title(i)=item(i).selectSingleNode(elements(1)).text
  344. If elements(13)="0" Then
  345.                 RS_title(i)=RegExpHtml(RS_title(i),RegExpType_Title)
  346. Else
  347. RS_title(i)=RegExpHtml(RS_title(i),elements(13))
  348.                 End If
  349. If isIntercept_title=1 then
  350. RS_title(i)=Left(RS_title(i),InterceptTitle)
  351. Else
  352. RS_title(i)=RS_title(i)
  353. End If
  356. '时间获取
  357. set pubDate=item(i).selectSingleNode(elements(5))
  358. If pubdate is nothing then
  359. Report=Report& "<tr><td colspan=""2"">时间设置有错误，老兄若实在搞不定，请提交"&RSSLINK_S&"到<A HREF=""http://www.sxna.cn"" target=""_blank"">SXNA交流论坛</A></tr></td>"
  360. Exit function
  361. set xml=nothing
  362. Else
  363. If elements(6)="Type1" then
  364. RS_pubDate(i)=StrangeTOISO(pubdate.text)
  365. End IF
  366. If elements(6)="Type2" then
  367. RS_pubDate(i)=rfc_to_iso(pubdate.text)
  368. End IF
  369. If elements(6)="Type3" then
  370. RS_pubDate(i)=ReplaceStr(pubdate.text,elements(7),elements(8))
  371. End IF
  372. End IF
  375.                     RS_Description(i)=item(i).selectSingleNode(elements(10)).text
  376. If DisplayDescriptionType=1 then
  377. RS_Description(i)=RS_Description(i)
  378. Else
  379.     '先判断转化模式
  380. If Elements(11)="0" Then
  381. '应用全局设定转化模式
  382. RS_Description(i)=RegExpHtml(RS_Description(i),RegExpType_Discription)
  383. Else
  384. '应用特定转化模式
  385. RS_Description(i)=RegExpHtml(RS_Description(i),Elements(11))
  386. End If
  388. '截取字符
  389. If Elements(12)="" Then
  390. '应用全局设定截取字符
  391. IF isIntercept_description=0 then
  392. RS_Description(i)=RS_Description(i)
  393. Else
  394. RS_Description(i)=Left(RS_Description(i),cint(InterceptDescriptin))
  395. End If
  396. Else
  397. '应用特定截取字符
  398. RS_Description(i)=Left(RS_Description(i),cint(Elements(12)))
  399. End If
  400. End IF
  401. RS_title(i)=EncodeJP(RS_title(i))
  402. RS_Description(i)=EncodeJP(RS_Description(i))
  406. Next
  407. SuccessFlag=1
  409.       End If ' 3 parseError.errorCode <> 0
  410. Else'2 
  411. Report=Report&"文档还未准备就绪。状态："& xml.ReadyState &"<br>"
  412.     End If '2 xml ReadyState2
  413. End if '1 下载成功
  414. Set xml=Nothing
  416. If SuccessFlag=1 Then
  417. 'on error resume next
  418.     
  419.     Report=Report& "<tr><td colspan=""2"">解析完成,"
  420. Set CONN=ConnectDB()
  422.     If IsStoreArticle=0 then
  423. CONN.execute "delete * from Article where xmlid="&RSSLINKID_S
  424. End If
  425.     '初始化计数器
  426.     SuccessNumber=0
  427. '成功存入的数目
  428.     BadFilterNumber=0
  429. '过滤掉的数目
  430. BadFilterNumberButIn=0
  431.     '过滤掉字符但是入库了的数目
  432. OverlapNumber=0
  433. '重复的文章/更新的文章数目
  434. UnKnownErrNumber=0
  435. '未知错误条数
  436. TimeExceed=0
  437. '超前的文章时间
  438. TimeErrNumber=0
  439. '时间错误的文章数（...累死我了）
  440.     
  441.     For i=0 To ItemNum-1
  442.     
  443. If ISDate(RS_pubDate(i)) Then 
  444.     '如果时间条件满足,则放入相应的目录
  445.     IF DateDiff("n",RS_pubDate(i),now())>0 THEN
  446. '不储存利用时间调大的置顶文章
  447.                  RS_pubDate(i)=formatdatetime(RS_pubDate(i),2)&" "&formatdatetime(RS_pubDate(i),4)
  448.     
  449. If badfilter=0 then
  450. CONN.EXECUTE("INSERT INTO [Article] ([title],[author],[link],[pubDate],[description],[xmlid],[Category_id],[site]) VALUES ('"&FilterSQL(RS_title(i))&"','"&FilterSQL(RS_Author(i))&"','"&RS_link(i)&"','"&RS_pubDate(i)&"','"&FilterSQL(RS_Description(i))&"',"&RSSLINKID_S&","&XLC_ID&",'"&Rs_link2&"')")
  451. Else
  452.     If RegExpTest(badfilterWord, RS_title(i)) or RegExpTest(badfilterWord, RS_Description(i)) then
  453.                             '满足过滤
  454.   If badfilterMode="DeleteWord" then
  455.   '入库
  456.   RS_Description(i)=RegExpHtml(RS_Description(i),"[BadFilter]")
  457.   RS_title(i)=RegExpHtml(RS_title(i),"[BadFilter]")
  458.   BadFilterNumberButIn=BadFilterNumberButIn+1
  459. '过滤掉字符但是入库了的数目
  460.   CONN.EXECUTE("INSERT INTO [Article] ([title],[author],[link],[pubDate],[description],[xmlid],[Category_id],[site]) VALUES ('"&FilterSQL(RS_title(i))&"','"&FilterSQL(RS_Author(i))&"','"&RS_link(i)&"','"&RS_pubDate(i)&"','"&FilterSQL(RS_Description(i))&"',"&RSSLINKID_S&","&XLC_ID&",'"&Rs_link2&"')")
  461.   Report=Report&"已过滤字符(已入库):<a href="""&RS_link(i)&"""><b><font color=""#FF0000"">"&RS_title(i)&"</font></b></a><br />"
  462.   Else
  463.   '不入库
  464.   Report=Report&"已过滤(未入库):<a href="""&RS_link(i)&"""><b><font color=""#FF0000"">"&RS_title(i)&"</font></b></a><br />"
  465.   BadFilterNumber=BadFilterNumber+1
  466.   End If
  467. Else
  468. '不满足过滤
  469. CONN.EXECUTE("INSERT INTO [Article] ([title],[author],[link],[pubDate],[description],[xmlid],[Category_id],[site]) VALUES ('"&FilterSQL(RS_title(i))&"','"&FilterSQL(RS_Author(i))&"','"&RS_link(i)&"','"&RS_pubDate(i)&"','"&FilterSQL(RS_Description(i))&"',"&RSSLINKID_S&","&XLC_ID&",'"&Rs_link2&"')")
  470. End If
  471. End If
  473. If Err.number=-2147467259 Then
  474. 'Report=Report& "<a href="""&RS_link(i)&""" target=""_blank"" style=""color:red;"">"&RS_title(i)&"</a> &nbsp;有重复,未被记入<br>"
  475. err.clear
  476. CONN.EXECUTE("UPDATE [Article] set [title]='"&FilterSQL(RS_title(i))&"',[author]='"&FilterSQL(RS_Author(i))&"',[link]='"&RS_link(i)&"',[pubDate]='"&RS_pubDate(i)&"',[description]='"&FilterSQL(RS_Description(i))&"',[xmlid]="&RSSLINKID_S&",[Category_id]="&XLC_ID&",[site]='"&Rs_link2&"' WHERE [link]='"&RS_link(i)&"' ")
  477. If Err.number<>0 Then
  478. Report=Report& "错误!"&RS_link(i)&Err.number&err.description
  479. err.clear
  480. UnKnownErrNumber=UnKnownErrNumber+1
  481. Else
  482. OverlapNumber=OverlapNumber+1
  483. End If
  484. Else
  485.    If Err.number<>0 Then
  486.    Report=Report& "产生未知错误："&RS_link(i)&Err.number&err.description&"请向www.sxna.cn报告"
  487.    err.clear
  488.    UnKnownErrNumber=UnKnownErrNumber+1
  489.    End IF
  490. End IF
  491. Else
  492. '由于时间制定而导致未被计入的不进行提示
  493. 'Report=Report&RS_title(i)&"的时间大于当前时间未被计入"
  494. TimeExceed=TimeExceed+1
  495. END IF 'IF RS_pubDate(i)<NOW() THEN 不储存利用时间调大的置顶文章
  496. Else
  497. '如果时间条件不满足
  498. TimeErrNumber=TimeErrNumber+1
  499. 'call ShowErr1(RS_title(i)&"时间"&RS_pubDate(i))
  500. End If 'If ISDate(RS_pubDate(i)) Then'如果时间条件不满足
  502. NEXT
  504. Report=Report& "要求存取"&ItemNum&"条记录"
  505.     
  506. If badfilter=1 then
  507. If BadFilterNumber<>0 then Report=Report&",过滤掉"&BadFilterNumber&"条"
  508. If BadFilterNumberButIn<>0 then Report=Report&",有"&BadFilterNumberButIn&"条中的字符被过滤掉"
  509. End If
  510.  
  511. If IsStoreArticle=1 then
  512. If (ItemNum-OverlapNumber-BadFilterNumber)<>0 then Report=Report&",有"&(ItemNum-OverlapNumber-BadFilterNumber)&"条新信息"
  513. Else
  514. If OverlapNumber<>0 then Report=Report&",有"&OverlapNumber&"条重复未计入"
  515. End If
  517. If TimeErrNumber<>0 then Report=Report&",有"&TimeErrNumber&"条时间错误未计入"
  519. If TimeExceed<>0 then Report=Report&",有"&TimeExceed&"条时间超前未计入"
  520.         
  521. If IsStoreArticle=1 then
  522. If (ItemNum-BadFilterNumber-OverlapNumber-TimeExceed-TimeErrNumber)=0 then
  523.             Report=Report& ",成功更新"&OverlapNumber&"条,没有新信息。"
  524. Else
  525. Report=Report& ",成功更新"&OverlapNumber&"条,成功存入"&(ItemNum-BadFilterNumber-OverlapNumber-TimeExceed-TimeErrNumber)&"条新信息"
  526. End If
  527. Else
  528. Report=Report& ",成功存入"&(ItemNum-BadFilterNumber-OverlapNumber-TimeExceed-TimeErrNumber)&"条。"
  529. End If
  530. Report=Report& "</td></tr>"
  531.     
  532. conn.Execute("UPDATE [linkxml] SET [lastupdatetime] = Now() WHERE [id] ="&RSSLINKID_S)
  533.     
  534. CloseDB(conn)
  535. Application.Lock
  536. Application(SessionStr&"Catelog")=empty
  537. Application(SessionStr&"Statistics")=empty
  538. Application(SessionStr&"SXNAindex")=empty
  539.         Application(SessionStr&"SXNAintPageCount")=empty
  540. Application.unlock
  541. End if
  542. End Function
  544. Public Function EncodeJP(StrHTML)
  545.     If StrHTML<>"" Then
  546.         StrHTML=Replace(StrHTML,"ガ","&#12460;")
  547.         StrHTML=Replace(StrHTML,"ギ","&#12462;")
  548.         StrHTML=Replace(StrHTML,"ア","&#12450;")
  549.         StrHTML=Replace(StrHTML,"ゲ","&#12466;")
  550.         StrHTML=Replace(StrHTML,"ゴ","&#12468;")
  551.         StrHTML=Replace(StrHTML,"ザ","&#12470;")
  552.         StrHTML=Replace(StrHTML,"ジ","&#12472;")
  553.         StrHTML=Replace(StrHTML,"ズ","&#12474;")
  554.         StrHTML=Replace(StrHTML,"ゼ","&#12476;")
  555.         StrHTML=Replace(StrHTML,"ゾ","&#12478;")
  556.         StrHTML=Replace(StrHTML,"ダ","&#12480;")
  557.         StrHTML=Replace(StrHTML,"ヂ","&#12482;")
  558.         StrHTML=Replace(StrHTML,"ヅ","&#12485;")
  559.         StrHTML=Replace(StrHTML,"デ","&#12487;")
  560.         StrHTML=Replace(StrHTML,"ド","&#12489;")
  561.         StrHTML=Replace(StrHTML,"バ","&#12496;")
  562.         StrHTML=Replace(StrHTML,"パ","&#12497;")
  563.         StrHTML=Replace(StrHTML,"ビ","&#12499;")
  564.         StrHTML=Replace(StrHTML,"ピ","&#12500;")
  565.         StrHTML=Replace(StrHTML,"ブ","&#12502;")
  566.         StrHTML=Replace(StrHTML,"ブ","&#12502;")
  567.         StrHTML=Replace(StrHTML,"プ","&#12503;")
  568.         StrHTML=Replace(StrHTML,"ベ","&#12505;")
  569.         StrHTML=Replace(StrHTML,"ペ","&#12506;")
  570.         StrHTML=Replace(StrHTML,"ボ","&#12508;")
  571.         StrHTML=Replace(StrHTML,"ポ","&#12509;")
  572.         StrHTML=Replace(StrHTML,"ヴ","&#12532;")
  573.     End If
  574.     EncodeJP=StrHTML
  575. End Function
  576. %>