admin_file_into.asp

25175学生档案管理系统是一款学校学生档案管理系统.提供丰富的查询、登记、修改功能等。界面美观、时尚

<!--#include file="../conn.asp"-->
<!--#include file="../inc/UpLoadClass.asp"-->
<!--#include file="../inc/inc.asp"-->
<!--#include file="inc/inc.asp"-->
<%
res w3chead(""),1
Dim sqltabname
Login_Judge
powerid=128
Ispower powerid & "5"
dim request2

Dim lj_id,Col_id,pro_id,cla_id
Dim exceltable,intomodle,xls_url
Dimarr "Gender"
Dimarr "Political"
Dimarr "National"
set request2=New UpLoadClass
	request2.AutoSave=2
	request2.FileType="xls"
	request2.SavePath="excel/"
	request2.Open()
	lj_id = che(request2.form("lj_id"))
	Col_id = che(request2.form("Col_id"))
	pro_id = che(request2.form("pro_id"))
	cla_id = che(request2.form("cla_id"))
	exceltable = che(request2.form("exceltable"))
	intomodle = che(request2.form("intomodle"))

	isn lj_id,"年届",1
	isn Col_id,"系所",1
	isn pro_id,"专业",1
	isn cla_id,"班级",1
	isn exceltable,"excel sheel名称",1

	xls_url=""
	request2.MaxSize=204800
	if request2.Save("file1",0) then
		xls_url=request2.SavePath&request2.Form("file1")
	end If
	Response.Redirect "admin_file_sql.asp?lj_id="&lj_id&"&Col_id="&Col_id&"&pro_id="&pro_id&"&cla_id="&cla_id&"&xls_url="&xls_url&"&exceltable="&exceltable&"&intomodle="&intomodle
%>