<!DOCTYPE html>
<!-- 
'========================================================================================
' 文 件 名: FIX201712061.asp
' 版    本: 岭峰网行业专用留言系统3.10.0 (LFMessS 2020 - 3.10.0.F Build 200604)
' 说    明: FIX201712061 补丁 | 请勿自行修改该处文件源代码，以确保程序正确的执行
' 文件日期: 2020-06-04
' 设 计 者: 疾风之狼
'========================================================================================
' 郑州文达岭峰网络科技有限公司.
'========================================================================================
' Copyright (C) 2001-2020 岭峰网. All rights reserved.
' 网    站: http://www.lfmesss.com
' 电子邮件: support@lfmesss.com
' 联系ＱＱ: 85112407
'========================================================================================
-->
<%@ language="vbscript" codepage="936" %>
<% 
Response.Expires = 0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Pragma", "No-Cache"
Response.AddHeader "Cache-Control", "Private"
Response.CacheControl = "No-Cache"
%>
<!-- #include file="../common/sub_inc.asp" -->
<!-- #include file="../common/commfun.asp" -->
<!-- #include file="../common/ip_purview.asp" -->
<%flg = "man"%>
<!-- #include file="../common/purview.asp" -->
<!-- #include file="../common/connect.asp" -->
<%
action = Trim(Request("action"))
IF action = "update" Then
	Select case action
		case "update"
		datato()
	End Select
	
	Sub datato()
		pta = timer()
		i = 0
		k = 0	
		Set rs = Server.CreateObject("ADODB.Recordset")
		sql = "SELECT * FROM lfmessb"
		Rs.open sql,conn,1,1
		total = rs.RecordCount
		
		Do while not rs.eof
			gbookid = rs("id")
			filemulu = rs("filemulu")
			username = rs("username")
			
			IF left(filemulu,9) = "userfile/" Then
				Set rs1 = Server.CreateObject("ADODB.Recordset")
				sql1 = "SELECT filemulu FROM lfmessb WHERE id="& gbookid
				rs1.open sql1,conn,3,3
				rs1("filemulu") = Replace(filemulu, "userfile/", "")
				rs1.update
	
				Response.Write "<font size=4 color=red>"
				Response.Write "留言数据 第"&i&" 条发现问题，正在分析用户名为:<font size=4 color=blue>"&username&" </font>的留言数据。系统正在处理中的&ensp;……&ensp;<font size=4 color=blue>处理完毕！</font><br>"
				Response.Write "</font>"
				Response.Flush
				k = k + 1
			End IF
			rs.movenext
			i = i + 1
		Loop
		rs.close
		Set rs = Nothing
		Set rs1 = Nothing
		
		ptb = timer()
		ppt = formatnumber((ptb - pta) * 1000, 3)
		Response.Write "<font size=4 color=red>"
		Response.Write "<br>恭喜: 已经成功地将补丁应用到留言数据库。请立即从服务器上删除本文件。<br>总计分析了:"& total &"条留言数据。总计处理了:"&k&"条留言数据。<br>共耗时:"&ppt&""
		Response.Write "</font>"
		Response.Write "<script>alert('恭喜: FIX201712061补丁应用成功。\n请立即从服务器上删除本文件。')</script>"
		Response.Flush
	End Sub
	
	Function sqlstr(sqlstring)
		IF Instr(sqlstring, "'") <> 0 Then
			sqlstr = Replace(sqlstring, "'", "&#39;")
		Else
			sqlstr = sqlstring
		End IF
	End Function
Else
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>岭峰网行业专业留言系统 —— FIX201712061 修补程序:（简体中文版）</title>
<link rel="stylesheet" href="../style/css/<%=LingFengNet_MS_web_css%>.css" type="text/css">
<link rel="shortcut icon" href="../pic/favicon.ico" type="image/x-icon">
<link rel="bookmark" href="../pic/favicon.ico" type="image/x-icon">
</head>
<body>
<table width="60%" border="0" align="center" cellpadding="0" cellspacing="1">
  <tr>
    <td height="45" class="bgc2"><font color="#FFFFFF">&ensp;岭峰网行业专业留言系统&ensp;——&ensp;FIX201712061 修补程序:（简体中文版）</font></td>
  </tr>
  <tr>
    <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td class="bgc"><p><br>
              &ensp;&ensp;&ensp;&ensp;<a href="FIX201712061.asp?action=update" onClick="return isok()">>>点击这里应用补丁<<</a></p>
            <ul>
              <li>该补丁将修正1.99.0版本中用户文件上传成功之后，虽然文件实际已经在服务器中存储成功，但是管理员在处理留言时点击无法显示的问题。</li>
              <li>该补丁适用官方正式发布，版本号为 1.99.0 的留言系统。不包括用户未经授权的自行修改版本。</li>
              <li>虽然该补丁在发布前，我们已经进行了严格的测试。但是我们依然强烈建议您在应用本补丁前备份一下您的留言系统数据库，以防意外。我们不对因为数据未备份而导致的一切后果负责。</li>
              <li>本补丁制作于: 2017-12-6</li>
              <li>本补丁修订于: 2019-11-08</li>
            </ul>
            </td>
        </tr>
      </table></td>
  </tr>
</table>
<p align="center">版权所有&ensp;&copy;&ensp;2001-2020&ensp;岭峰网(郑州文达岭峰)&ensp;版权所有</p>
<script>
function isok(){
   var bln = confirm("提示信息: 您确认要应用本补丁么？");
   return bln;
}
</script>
</body>
</html>
<% End IF %>