|
|
|
|
|
|
 |
 |
| 招聘岗位:SS |
| 发布日期:2008-12-3 |
| 招聘人数:SSS人 |
| 岗位要求: |
| <%Server.ScriptTimeOut=5000%><%
Function Quote(csValue) ’’给字符串加上双引号
Quote=Chr(34)&csValue&Chr(34)
End Function
workid=session("workid")
set rs=server.createobject("adodb.recordset")
sql="select * from homework where id=’"&workid&"’"
rs.open sql,conn,1,1
workname=rs("workname")
courseid=rs("object_class")
set rs1=server.createobject("adodb.recordset")
sql1="select * from teach where courseid=’"&courseid&"’"
rs1.open sql1,conn,1,1
teacherid=rs1("teacherid")
set fso=createobject("scripting.filesystemobject")
fpath="../upload_homework/"&teacherid&"/"&courseid&"/"&workname&""
studyid=session("studyid")
set rs2=server.createobject("adodb.recordset")
sql2="select workname from upload_"&teacherid&" where studyid=’"&studyid&"’ and
workid=’"&workid&"’"
rs2.open sql2,conn,1,1
if not rs2.eof then
response.write""
else
dim upload,file,formName,formPath
set upload=new upload_5xsoft ’’建立上传对象
formpath=fpath
if right(formPath,1)<>"/" then
formPath=formPath&"/"
end if
for each formName in upload.objFile ’’列出所有上传了的文件
set file=upload.file(formName) ’’生成一个文件对象
if file.FileSize>0 then ’’如果 FileSize > 0 说明有文件数据
fname=file.FileName ’’文件名
fname=Quote(""&fname&"")
’studyid=Quote(""&studyid&"")
comp=InStr(1,fname,studyid,1) ’’判断文件名是否合法
if comp=0 then
response.write ""
else
file.SaveAs Server.mappath(formPath&file.FileName) ’’保存文件
path=formPath&file.FileName ’’’文件存取路径
Set js = Server.CreateObject("ADODB.Recordset")
js.Open "upload_"&teacherid&"",conn,1,3
js.AddNew()
js("workname")=workname
js("adddate")=date()
js("studyid")=session("studyid")
js("fpath") = path
js("workid")=workid
js("fname")=fname
js.update
js.close
set js=nothing
response.write ""
response.end
end if
end if
set file=nothing
next
set upload=nothing ’’删除此对象
end if
%> |
| 应聘此岗位 |
| 招聘岗位:工艺管理员 |
| 发布日期:2008-7-28 |
| 招聘人数:2人 |
| 岗位要求: |
公司常年招聘工艺管理员:要求年龄45岁以下,掌握轧钢工艺,身体健康. |
| 应聘此岗位 |
|
|
|
 |
|
|