<!--#include file='config.asp'-->
<!--#include file="uploadx.asp"-->
<!--#include file="checklogin.asp"  -->
<!--#include file="../function/connect.asp"-->
<!--#include file="../function/function.asp"-->
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=gb2312">
<title>ϴļ.....</title>
<style>
	body		{font-size:9pt;color:red}
	td			{font-size:9pt}
</style>
</head>
<body><br><br><div align="center">
<%
Dim errflag
Dim fileName
Dim FileType
Dim PerFileListN
Dim intPerFileListN
Dim PerFilenameN
Dim Rs
Dim Sql
Dim i,j
Dim Filelist
Dim UpFlag
Dim StarTime
Dim EndTime
Dim Read_time
Dim Save_time
Dim Total_time
Dim Indexid
Dim Vip


Errflag=false

column_title = getString(GetFormVal("column_title"))   				'ȡñ
column_cat_id = getString(GetFormVal("column_cat_id"))
if getString(GetFormVal("column_cat_id")) > 9 then
column_type = getString(GetFormVal("Column_type"))
end if
column_id = GetFormVal("column_id")	
column_order = GetFormVal("column_order")	
column_date = getString(GetFormVal("column_date"))	
column_detail = DropSiteUrl(getString(GetFormVal("column_detail")))
'response.write 	column_detail
'response.end
isUpfile = GetFormVal("isUpfile")	
FileType = GetFormVal("fileType")					'ȡļ
SavType = 1					'ȡñʽ

'response.write column_detail
'response.end

If Len(Trim(column_title)) = 0 then
	Response.Write "ϢⲻΪ"
	Response.End
End If


filename = SaveFile(FormFieldName, filePath, maxfilesize, SavType, FsoType, ForbidType)	'沢ȡļ

'----------------дݿ-----------------------
Set Rs=Server.CreateObject("Adodb.Recordset")

Sql="update columns set "
Sql=Sql & " column_title='" & column_title & "',"
Sql=Sql & " column_detail='" & column_detail & "',"
Sql=Sql & " column_date='" &column_date & "',"
Sql=Sql & " column_order='" & column_order & "' "
Sql=Sql & " where column_id=" & column_id

if getString(GetFormVal("column_cat_id")) > 9 then
Sql="update columns set "
Sql=Sql & " column_title='" & column_title & "',"
Sql=Sql & " column_detail='" & column_detail & "',"
Sql=Sql & " column_date='" &column_date & "',"
Sql=Sql & "column_type='" &Column_type & "',"
Sql=Sql & " column_order='" & column_order & "' "
Sql=Sql & " where column_id=" & column_id
end if

objconn.execute Sql

UpFlag = False
j=0

If len(trim(filename))>0 then
	FileList = ""
	PerFileListN = Split(filename,",")
	intPerFileListN = Ubound(PerFileListN)
	For i = 0 to intPerFileListN
		PerFilenameN = Split(Trim(PerFileListN(i)),"|")
		Select Case Trim(PerFilenameN(0))
			Case "SetError"
				Response.Write i+1 &"ļϴ: ͻ趨(FSOϴģʽͻ)<br>"
			Case "FsoError"
				Response.Write i+1 &"ļϴ: FSO趨(FSOȨ,趨ʱΪFSOȨģʽ)<br>"
			Case "PathError"
				Response.Write i+1 &"ļϴ: ļ·(·δFSOȨ޻FSOȨ޽Զ)<br>"
			Case "ReFileError"
				Response.Write i+1 &"ļϴ: ļ(ļڷѾڻͬļΪģʽϴ)<br>"
			Case "SizeError"
				Response.Write i+1 &"ļϴ: ļС(ļָϴߴ:"& maxfilesize &" K bytes)<br>"
			Case "FixError"
				Response.Write i+1 &"ļϴ: ļʹ(ļϴ)<br>"
			Case Else
			    	strsql="insert into upfiles(upfile_name,upfile_type,FileType,FileSize,upfile_col_id) values('"
			    	strsql=strsql & PerFilenameN(0) & "','"
				strsql=strsql & "1" & "','"
				strsql=strsql & FileType & "','"
				strsql=strsql & PerFilenameN(1) & "','"
				strsql=strsql & column_id & "')"
				objconn.execute strsql
				j=j+1
		End Select
	Next
End If

conn.close
set conn=nothing
Response.Write EndHTM()

Function EndHTM()
	if isUpfile="1" then
		Response.Write "<script>location.href='editcolumn.asp?column_cat_id=" & column_cat_id & "&column_id=" & column_id & "';</script>"&vbcrlf
	else
		Response.Write "<script>location.href='columnlist.asp?column_cat_id=" & column_cat_id & "';</script>"&vbcrlf
	end if
End Function
%>
</div>
</body>
</html>
