t_resume.inc

物业管理和办公自动化系统

<%
'****************************************************************************************
' 员工主要社会关系
'****************************************************************************************
function Resumes()
	dim iCounter, sInforFirstLine, sInforOtherLines, sInfor, sHeader
	dim crs, rs
	dim sSerial, sPeriod, sCompany, sCertifier


	dim sSQL : sSQL = "select serial, period, company, certifier from t_resume" & _
				" where emp_serial = " & pEmpSerial
	
	set crs = New CRecordset
	set rs = crs.Open(dbLocal, sSQL)

	sHeader = _ 
				"		<td align=center>年、月 ～ 年、月</td>" & _
				"		<td align=center>所在单位及担任工作</td>" & _
				"		<td align=center>证明人</td>" & vbLF

	sInfor = ""
	iCounter = 0
	while Not rs.EOF
		iCounter = iCounter + 1
		sSerial = crs.GetValue("serial")
		sPeriod = crs.GetValue("period")
		sCompany = crs.GetValue("company")
		sCertifier = crs.GetValue("certifier")

		sInfor = sInfor & _
				"<tr bgcolor=""white"" height=20>" & vbLF & _
				"		<td align=center><input type=""text"" name=""period" & iCounter & """ value=""" & sPeriod & """" & _
													" style=""text-align:center"" size=20 maxlength=20" & vbLF & _ 
													" onchange=""javascript:this.style.color='red';""></td>" & vbLF & _
				"		<td align=left><input type=""text"" name=""company_" & iCounter & """ value=""" & sCompany & """" & _
													" style=""text-align:left"" size=50 maxlength=25" & vbLF & _
													" onchange=""javascript:this.style.color='red';""></td>" & vbLF & _
				"		<td align=center><input type=""text"" name=""certifier_" & iCounter & """ value=""" & sCertifier & """" & _
													" style=""text-align:center"" size=10 maxlength=10" & vbLF & _
													" onchange=""javascript:this.style.color='red';""></td>" & vbLF & _
				"</tr>" & vbLF
	
		rs.movenext
	wend
	crs.Close()
	
	dim j
	for j = iCounter + 1 to 7 step 1
		sInfor = sInfor & _
				"<tr bgcolor=""white"" height=20>" & vbLF & _
				"		<td align=center>" & vbLF & _
										"<input type=""text"" name=""period_" & j & """ style=""text-align:center"" size=20 maxlength=20" & vbLF & _
										" onchange=""javascript:this.style.color='red';""></td>" & vbLF & _
				"		<td align=left>" & vbLF & _
										"<input type=""text"" name=""company_" & j & """ style=""text-align:left"" size=50 maxlength=25" & vbLF & _
										" onchange=""javascript:this.style.color='red';""></td>" & vbLF & _
				"		<td align=center>" & vbLF & _
										"<input type=""text"" name=""certifier_" & j & """ style=""text-align:center"" size=10 maxlength=10" & vbLF & _
										" onchange=""javascript:this.style.color='red';""></td>" & vbLF & _
				"</tr>" & vbLF
	next

	if iCounter > 0 then	'' 有记录
		sInfor = _
				"<tr bgcolor=""white"" height=25>" & vbLF & _
						sHeader & vbLF & _
				"</tr>" & vbLF & _
				sInfor
	end if

	Resumes = sInfor
end function
%>