<%@ LANGUAGE = "VBScript.Encode" codepage="65001" %>
<!--#include file=inc/conn.asp-->
<!--#include file=inc/inc.asp-->
<%
response.charset="UTF-8"
on error resume next
conndb

Set fso = CreateObject(C_Web_FSO)
If fso.FileExists(server.mappath("pay.txt")) Then
	if isqldatabase=1 then
		conn.execute("alter table pay add notice nvarchar(1000) null")
	else
		conn.execute("alter table pay add notice text null")
	end if 

	set rs=server.createobject("adodb.recordset")
	paycontent=split(getfilecontent("pay.txt"),chr(10))
	for i=0 to ubound(paycontent)
		paystr=split(paycontent(i),",")
		sql="select * from pay where intertype='"&ucase(trim(paystr(1)))&"'"
		rs.open sql,conn,2,2
			if rs.eof then
				rs.addnew
				rs("payname")=paystr(0)
				rs("intertype")=paystr(1)
				rs("useflag")=0
				rs("shopid")="0"
				rs("tflag")=1
			end  if
			rs("notice")=paystr(2)
		rs.update
		rs.close
	next
	set rs=nothing
	fso.DeleteFile(server.mappath("pay.txt"))
End If
conn.execute("alter table web_bak_style add s_class  nvarchar (20) null ")
%>

<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<meta http-equiv="Refresh" content=3;url="index.html">
<div align=center>
          <font size="3">数据库已更新。3秒钟后将自动转入操作当前页<br><br>
          如果浏览器没有自动调，请<a href="index.html"><font color="red">点击这里</font></a></font>
</div>