<!--#include file="admin/Save.asp"-->
<!--#include file="Conn.asp"-->
<%
	dim text1, upfile1
	dim formDataList, formFileList
	dim formDivider(1)
	
	Set formDataList = CreateObject("Scripting.Dictionary") '数据保存
	Set formFileList = CreateObject("Scripting.Dictionary") '数据保存
	saveFolder="admin/upimages/"
	'Response.Write(Len(formFileList("ExcelFile")))
	'Response.End()
	If len(getFormData(formDataList, formFileList, formDivider)) = 0 then
		upFileName= saveFile(formFileList("ExcelFile"),saveFolder, formDataList("ExcelFile"))
	End if
	If upFileName="" Then
		fileName=""
	Else
		fileName=right(upFileName,len(upFileName)-len(saveFolder))	
	End If
	'Response.Write(fileName)
	'Response.End()	
	Title = formDataList("name")
	Pclass = formDataList("class")
	tel = formDataList("tel")
	address = formDataList("address")
	email = formDataList("email")
	url = upFileName
	Set rsReply=Server.CreateObject("ADODB.RecordSet")	
		rsReply.Open "Select * from gaojian",conn,1,3
		rsReply.Addnew
		rsReply("addTime")=now
		rsReply("name")=name
		rsReply("class")=Pclass
		rsReply("tel")=tel
		rsReply("address")=address
		rsReply("email")=email
		rsReply("url")=url
	rsReply.Update
	rsReply.Close
	Set rsReply=Nothing
	Response.Write "<script language=javascript>alert('提交成功!!');location.href='up.asp';</script>"
%>