hotspot_a.inc.bak

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

<%
Function TableSearch()
	TableSearch = _
		TableTitle("设 置 大 事 记 查 询 条 件", 600, "", "") & vbLF & _
		"<table cellspacing=0 cellpadding=0 width=600 align=center border=0>" & vbLF & _
		"<form name=""frmSearch"" method=post action=""HotSpot_a.asp"">" & vbLF  & _
		"<tr height=30>" & vbLF & _
		"	<td>部门：<input type=""text"" name=""Dept"" value=""" & pDept & """ size=10 maxlength=8></td>" & vbLF & _ 
		"	<td>标题：<input type=""text"" name=""Subject"" value=""" & pSubject & """ size=10 maxlength=8></td>" & vbLF & _
		"	<td>发生时间：<input type=""text"" name=""Happen_Time"" value=""" & pHappen_Time & """ size=10 maxlength=4></td>" & vbLF & _
		"	<td><span id=btnSearch style=""cursor:hand"" title=""设置查询条件，然后点击查询按钮进行查询""><img border=0 src=""../images/search.gif"" style=""vertical-align:middle"">查询</span></td></tr>" & vbLF & _
		"<tr height=10><td colspan=4></td></tr>" & vbLF & _
		"</form>" & vbLF & _
		"</table>" & vbLF
End Function

Function TableHeader()
	TableHeader = _
		"<table cellspacing=0 cellpadding=0 width=600 align=center class=tablelist>" & _
		"<tr>" & _
		"<td colspan=" & iCols & " bgcolor=""#0040a0"" align=center style=""color:white;font-weight:600"" height=20 >大 事 记 查 询 结 果</td></tr>" & _
		"<tr>" & _
		"<td class=tdHead width=200>&nbsp;<img src=""../images/bg/ar-y.gif"" width=8 height=8>&nbsp;" & TableHeaderField(sFileName, "Dept", "部门", sFormParams, iSort, iSorted) & "</td>" & _
		"<td class=tdHead width=90>&nbsp;" & TableHeaderField(sFileName, "Subject", "标题", sFormParams, iSort, iSorted) & 	"</td>" & _
		"<td class=tdHead width=90>&nbsp;" & TableHeaderField(sFileName, "Recorder_ID", "记录人", sFormParams, iSort, iSorted) & "</td>" & _
		"<td class=tdHead width=100>&nbsp;" & TableHeaderField(sFileName, "Record_Time", "记录时间", sFormParams, iSort, iSorted) & "</td>" & _
		"<td class=tdHead width=110>&nbsp;" & TableHeaderField(sFileName, "Happen_Time", "发生时间", sFormParams, iSort, iSorted) & "</td>" & _
		"</tr>"
End Function

Function TableRecords(sSQL, iCols, iRecordsPerPage, iTotalRecords, iCurrentPage, iTotalPages, sFileName, sFormParams, sSortParams)
	dim sTemp	: sTemp = ""	' 临时字符串变量
	dim j					' 临时循环变量

	'------------------------------------
	' 分页所需的变量定义
	'------------------------------------
	Dim iCounter		: iCounter = 1
	Dim iPrevPage, iNextPage
	
	'------------------------------------
	' 获取数据库连接
	'------------------------------------
	dim crs	: set crs = New CRecordset
	dim rs	: set rs = crs.open(dblocal,sSQL)
	dim iSerial, sDept, sSubject, sRecorder_ID, sRecord_Time, sHappen_Time,sContent
	'response.write sSQL : response.end
	' 如果未到记录尾，将记录定位到你翻到的页面的第一个记录，否则显示空行
	if Not rs.EOF then	
		rs.Move (iCurrentPage - 1) * iRecordsPerPage
	end if
	while not rs.EOF and iCounter <= iRecordsPerPage
		iSerial			= crs.GetValue("Serial")
		sDept		        = crs.GetValue("Dept")
		sSubject		= crs.GetValue("Subject")
		sRecorder_ID		= crs.GetValue("Recorder_ID")
		sRecord_Time		= crs.GetValue("Record_Time")
		sHappen_Time		= crs.GetValue("Happen_Time")
		sContent                = crs.GetValue("Content")
		sRecorder_ID = TransEmpSerial(dbLocal, sRecorder_ID)

		sTemp = sTemp & "<tr bgcolor=white>" & _
				"<td class=tdlist title=""" & sDept & """ align=left>&nbsp;" & Bref(sDept,10) & "&nbsp;</td>" & _
				"<td class=tdlist title=""" & sSubject & """style=""cursor:hand"" onclick=""javascript:location.href='HotSpot_b.asp?serial=" & iSerial & "';"">&nbsp;<img src=""../images/bg/ar-g.gif"" width=8 height=8>&nbsp;" & Bref(sSubject,16) & "&nbsp;</td>" & _
				"<td class=tdlist title=""" & sRecorder_ID & """ align=left>&nbsp;" & Bref(sRecorder_ID,10) & "&nbsp;</td>" & _
				"<td class=tdlist title=""" & sRecord_Time & """ align=left>&nbsp;" & Bref(sRecord_Time,12) & "&nbsp;</td>" & _
				"<td class=tdlist title=""" & sHappen_Time & """>&nbsp;" & Bref(sHappen_Time, 20) & "&nbsp;</td>" & _
				"</tr>"
		iCounter = iCounter + 1
		rs.movenext
	wend
	crs.Close()

	' 填补空白行
	sTemp = sTemp & WhiteRows(iCols, iCounter, iRecordsPerPage)

	' 首页、前页、后页、尾页等分页信息
	sTemp = sTemp & "<tr bgcolor=white><td class=tdlist colspan=" & iCols & " align=right>" & _
				Paginate(sFileName, sFormParams, sSortParams, iCurrentPage, iTotalPages) & _
				"&nbsp;</td></tr>"
	TableRecords = sTemp
End Function


Function TableLink()
	TableLink = _
		"<table width=600 cellspacing=0 cellpadding=0 border=0 align=center>" & _
		"<tr height=10>" & _ 
		"	<td width=600><img src=""../images/bg/line.gif"" width=600 height=3></td>" & _
		"</tr>" & _
		"<tr height=20>" & _
		"	<td width=600>&nbsp;" & _
		"		<img src=""../images/goto.gif"">&nbsp;<a href=""HotSpot_b.asp"">新建纪录</a>" & _
		"		&nbsp;&nbsp;&nbsp;" & _
		"</tr>" & _
		"</table>"
End Function
%>