<!DOCTYPE html>
<!-- 
'========================================================================================
' 文 件 名: FIX200701311.asp
' 版    本: 岭峰网行业专用留言系统3.10.0 (LFMessS 2020 - 3.10.0.F Build 200604)
' 说    明: FIX200701311 补丁 | 请勿自行修改该处文件源代码，以确保程序正确的执行
' 文件日期: 2017-12-06
' 文件日期: 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()
		
		Set rs = Server.CreateObject("ADODB.Recordset")
		sql = "SELECT * FROM lfmessb"
		Rs.open sql,conn,1,1
		total = rs.RecordCount
		
		Do while not rs.eof
			username = rs("username")
			gbookid = rs("id")
			content = nobr(rs("content"))
			Set rs1 = Server.CreateObject("ADODB.Recordset")
			sql1 = "SELECT content FROM lfmessb WHERE id="& gbookid
			Rs1.open sql1,conn,3,3
			rs1("content") = content
			rs1.update
			
			Response.Write "<font size=4 color=red>"
			Response.Write "正在分析用户名为:<font size=4 color=blue>"& username &" </font>的留言数据。系统正在处理中的&ensp;……&ensp;<font size=4 color=blue>处理完毕！</font><br>"
			Response.Write "</font>"
			Response.flush
			
			rs.movenext
		Loop
		rs.close
		Set rs = Nothing
		
		ptb = timer()
		ppt = FormatNumber((ptb - pta) * 1000, 3)
		Response.Write "<font size=4 color=red>"
		Response.Write "<br>恭喜: 已经成功地将补丁应用到留言数据库。<br>总计分析并处理了:"& total &"条留言数据。<br>共耗时:"& ppt
		Response.Write "</font>"
		Response.Write "<script>alert('恭喜: FIX200701311补丁应用成功。\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>岭峰网行业专业留言系统 —— FIX200701311 修补程序:（简体中文版）</title>
</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;FIX200701311 修补程序:（简体中文版）</font></td>
  </tr>
  <tr>
    <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td><p><br>
              &ensp;&ensp;&ensp;&ensp;<a href="fix200701311.asp?action=update" onClick="return isok()">>>点击这里应用补丁<<</a></p>
            <ul>
              <li>该补丁将按照1.83.1版以后的留言规范，对用户留言内容进行相应的格式转换。转换后用户的留言内容的回车将会被转换成相应的HTML格式代码，并在页面上显示出来。</li>
              <li>该补丁适用官方正式发布，版本号为 1.00&ensp;-&ensp;1.82 留言系统。不包括用户未经授权的自行修改版本。</li>
              <li>虽然该补丁在发布前，我们已经进行了严格的测试。但是我们依然强烈建议您在应用本补丁前备份一下您的留言系统数据库，以防意外。我们不对因为数据未备份而导致的一切后果负责。</li>
              <li>本补丁制作于: 2007-01-31</li>
              <li>本补丁修正于: 2007-05-22</li>
              <li>本补丁修正于: 2019-11-08</li>
            </ul></td>
          <td>&ensp;</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 %>