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

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

编辑器/阅读器

开发平台：

C#

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