<commit_before>﻿<%Response.Charset="utf-8"
Server.ScriptTimeout=9000
%>
<!--#include file="../inc/upload_5xsoft.inc"-->
<!--#include file="../inc/db.asp"-->
<!--#include file="../inc/mail.asp"-->
<!--#include file="common.asp"-->
<%If IsEmpty(Session("Suser")) Then Response.Redirect("../error.asp?timeout")
Dim opr,bOpen,bUpload,bRedirectToTableUpload,numUpload
Dim researchway_list
Dim conn,rs,sql,result

bOpen=True
bUpload=True
bRedirectToTableUpload=False
opr=0
sem_info=getCurrentSemester()
stu_type=Session("StuType")
researchway_list=loadResearchwayList(stu_type)

Connect conn
sql="SELECT *,dbo.getThesisStatusText(2,REVIEW_STATUS,2) AS STAT_TEXT FROM VIEW_TEST_THESIS_REVIEW_INFO WHERE STU_ID="&Session("Stuid")&" ORDER BY PERIOD_ID DESC" 'AND PERIOD_ID="&sem_info(3)&" AND Valid=1"
GetRecordSetNoLock conn,rs,sql,result
sql="SELECT * FROM VIEW_STUDENT_INFO WHERE STU_ID="&Session("Stuid")
GetRecordSetNoLock conn,rs2,sql,result
tutor_duty_name=getProDutyNameOf(rs2("TUTOR_ID"))
If rs.EOF Then
	numUpload=-2
	opr=STUCLI_OPR_DETECT
	review_status=rsNone
	bUpload=False
	bRedirectToTableUpload=True
ElseIf rs("TASK_PROGRESS")<tpTbl3Passed Then
	numUpload=-2
	opr=STUCLI_OPR_DETECT
	review_status=rsNone
	bUpload=False
	bRedirectToTableUpload=True
Else
	' 评阅状态
	review_status=rs("REVIEW_STATUS")
	Select Case review_status
	Case rsNone,rsDetectThesisUploaded,rsNotAgreeDetect
		' 上传送检论文
		opr=STUCLI_OPR_DETECT
	Case rsDetected,rsReviewThesisUploaded,rsNotAgreeReview
		' 上传送审论文
		opr=STUCLI_OPR_REVIEW
	Case rsReviewEval,rsModifyThesisUploaded,rsModifyUnpassed,rsDefencePlan
		' 上传答辩论文
		opr=STUCLI_OPR_MODIFY
	Case rsModifyPassed
		opr=STUCLI_OPR_MODIFY
		bUpload=False
	Case rsInstructEval,rsFinalThesisUploaded
		' 上传定稿论文
		opr=STUCLI_OPR_FINAL
	Case Else
		bUpload=False
	End Select
	subject_ch=rs("THESIS_SUBJECT")
	subject_en=rs("THESIS_SUBJECT_EN")
	keywords_ch=rs("KEYWORDS")
	keywords_en=rs("KEYWORDS_EN")
	researchway_name=rs("RESEARCHWAY_NAME")
	review_type=rs("REVIEW_TYPE")
	reproduct_ratio=toNumber(rs("REPRODUCTION_RATIO"))
	thesis_form=rs("THESIS_FORM")<commit_msg>改为不通过审核时学生不能上传论文<commit_after>﻿<%Response.Charset="utf-8"
Server.ScriptTimeout=9000
%>
<!--#include file="../inc/upload_5xsoft.inc"-->
<!--#include file="../inc/db.asp"-->
<!--#include file="../inc/mail.asp"-->
<!--#include file="common.asp"-->
<%If IsEmpty(Session("Suser")) Then Response.Redirect("../error.asp?timeout")
Dim opr,bOpen,bUpload,bRedirectToTableUpload,numUpload
Dim researchway_list
Dim conn,rs,sql,result

bOpen=True
bUpload=True
bRedirectToTableUpload=False
opr=0
sem_info=getCurrentSemester()
stu_type=Session("StuType")
researchway_list=loadResearchwayList(stu_type)

Connect conn
sql="SELECT *,dbo.getThesisStatusText(2,REVIEW_STATUS,2) AS STAT_TEXT FROM VIEW_TEST_THESIS_REVIEW_INFO WHERE STU_ID="&Session("Stuid")&" ORDER BY PERIOD_ID DESC" 'AND PERIOD_ID="&sem_info(3)&" AND Valid=1"
GetRecordSetNoLock conn,rs,sql,result
sql="SELECT * FROM VIEW_STUDENT_INFO WHERE STU_ID="&Session("Stuid")
GetRecordSetNoLock conn,rs2,sql,result
tutor_duty_name=getProDutyNameOf(rs2("TUTOR_ID"))
If rs.EOF Then
	numUpload=-2
	opr=STUCLI_OPR_DETECT
	review_status=rsNone
	bUpload=False
	bRedirectToTableUpload=True
ElseIf rs("TASK_PROGRESS")<tpTbl3Passed Then
	numUpload=-2
	opr=STUCLI_OPR_DETECT
	review_status=rsNone
	bUpload=False
	bRedirectToTableUpload=True
Else
	' 评阅状态
	review_status=rs("REVIEW_STATUS")
	Select Case review_status
	Case rsNone,rsDetectThesisUploaded
		' 上传送检论文
		opr=STUCLI_OPR_DETECT
	Case rsDetected,rsReviewThesisUploaded
		' 上传送审论文
		opr=STUCLI_OPR_REVIEW
	Case rsReviewEval,rsModifyThesisUploaded
		' 上传答辩论文
		opr=STUCLI_OPR_MODIFY
	Case rsModifyPassed
		opr=STUCLI_OPR_MODIFY
		bUpload=False
	Case rsInstructEval,rsFinalThesisUploaded
		' 上传定稿论文
		opr=STUCLI_OPR_FINAL
	Case Else
		bUpload=False
	End Select
	subject_ch=rs("THESIS_SUBJECT")
	subject_en=rs("THESIS_SUBJECT_EN")
	keywords_ch=rs("KEYWORDS")
	keywords_en=rs("KEYWORDS_EN")
	researchway_name=rs("RESEARCHWAY_NAME")
	review_type=rs("REVIEW_TYPE")
	reproduct_ratio=toNumber(rs("REPRODUCTION_RATIO"))
	thesis_form=rs("THESIS_FORM")
{'fraction_non_alphanumeric': 0.12147716229348883, 'fraction_numerical': 0.007774538386783284, 'mean_word_length': 8.687058823529412, 'pattern_counts': {'":': 0, '<': 17, '<?xml version=': 0, '>': 13, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '4705988', 'n_tokens_mistral': 1771, 'n_tokens_neox': 1744, 'n_words': 219}