selfcheck_function.asp

北京华信东方网络办公系统

<%
'n_id, v_title, t_content, v_department, v_OfferMan, c_ShowOfferMan, v_Kind, 
'd_OfferDate, t_Accessories, v_ProjectCode,v_PactCode, v_Object, i_SoftScore, i_HardScore
'得到权限所能看到的公告
function selfcheckInfo(KindName) ',Department)
sql=" SELECT n_id, v_title, t_content, v_department, v_OfferMan, c_ShowOfferMan, v_Kind, "&_
	" d_OfferDate, isnull(t_Accessories, '') as t_Accessories, "&_
	" v_ProjectCode,v_PactCode, v_Object, i_SoftScore, i_HardScore, i_SatisfyScore "&_
	" FROM hxdf_selfcheck_content "
'	" WHERE (t_receive LIKE '%"& Department &"%') "
if KindName <> "" then
	sql=sql & " WHERE (v_Kind like "& KindName &")"
end if
	sql=sql & " ORDER BY d_OfferDate DESC "
	dim rs
	set rs=server.CreateObject("adodb.recordset")
	rs.open sql,conn,1,1
	if rs.eof then
	temp=null
	else
	temp=rs.GetRows
	end if
	rs.close: set rs=nothing
	selfcheckInfo=temp
end function
'得到指定的公告详细信息
function selfcheckReadInfo(id)
sql=" SELECT n_id, v_title, t_content, v_department, v_OfferMan, c_ShowOfferMan, v_Kind, "&_
	" d_OfferDate, isnull(t_Accessories, '') as t_Accessories, "&_
	" v_ProjectCode,v_PactCode, v_Object, i_SoftScore, i_HardScore, i_SatisfyScore "&_
	" FROM hxdf_selfcheck_content "&_
	" WHERE n_id="&clng(id)
	dim rs
	set rs=server.CreateObject("adodb.recordset")
	rs.open sql,conn,1,1
	if rs.eof then
	temp=null
	else
	temp=rs.GetRows
	end if
	rs.close: set rs=nothing
	selfcheckReadInfo=temp
end function
'得到指定数量的某一类型的公告
function selfcheckTop(KindName,amount)
sql=" SELECT TOP "& amount &"  n_id, v_title, t_content, v_department, v_OfferMan, c_ShowOfferMan, v_Kind, "&_
	" d_OfferDate, isnull(t_Accessories, '') as t_Accessories, "&_
	" v_ProjectCode,v_PactCode, v_Object, i_SoftScore, i_HardScore, i_SatisfyScore  "&_
	" FROM hxdf_selfcheck_content "
	if KindName<>"" then
	sql=sql&" where v_Kind like '"& KindName &"'"
	end if
	sql=sql&" order by d_OfferDate desc"
'	response.Write sql
'	response.End
	dim rs
	set rs=server.CreateObject("adodb.recordset")
	rs.open sql,conn,1,1
	if rs.EOF then
	temp=null
	else
	temp=rs.GetRows
	end if
	rs.Close: set rs=nothing
	selfcheckTop=temp	
end function

'得到公告类型数组
function selfcheckKinds(KindName)
	sql=" SELECT n_id, v_KindName, (case when v_KindName like '"& KindName &"' then 'selected' else '' end) as Selected"&_
		" FROM hxdf_selfcheck_kind "&_
		" Order by n_id "
		'response.Write sql
	dim rs
	set rs=server.CreateObject("ADODB.RecordSet")
	rs.open sql,conn,1,1
	  if rs.EOF then
	  rs_kind=null
	  else
	  rs_kind=rs.GetRows()
	  end if
	  rs.Close:set rs=nothing
	selfcheckKinds=rs_kind
end function

'列表及分页代码
sub selfcheckList(KindName,BKey,Page,PageSize)
		sql=" SELECT n_id, v_title, d_OfferDate, v_department,v_kind, "
		sql=sql&" v_OfferMan, isnull(t_Accessories,'') as t_Accessories "
		sql=sql&" FROM hxdf_selfcheck_content "
		sql=sql&" where (1=1) "
		if KindName<> "" then
		sql=sql&" and (v_kind like '"& KindName &"')"
		end if
		if BKey<>"" then
		sql=sql&" and (v_title like '%"&BKey&"%') "
		end if
		sql=sql&" order by d_OfferDate desc"
		'on error resume next
		set rs= server.CreateObject("ADODB.RecordSet")
		rs.open sql,conn,1,1
		if err.number<>0 then
		response.Write err.Description
		response.End
		end if
		if not rs.eof then
		Page=cint(Page)
		rs.pagesize=PageSize
		rs.Absolutepage=Page
		response.Write ("<table width='98%' border='1' cellspacing='0' style='border-collapse: collapse' bordercolor='#f2f8ff' cellpadding='2'>")
		response.Write ("<tr bgcolor='#f2f8ff'>")
		response.Write ("<td width='100' align='center' class='leftMenu'>自检类别</td><td width='2'>&nbsp;</td>")
		response.Write ("<td align='center' class='leftMenu'>自检标题</td><td width='120' align='center' class='leftMenu'>供稿人</td></tr>")
		for i=1 to rs.PageSize
		response.Write ("<tr><td width='100' style='cursor: hand' onclick=""self.location.href='"&url&"?KindName="& rs("v_kind") &"' ""><li>&nbsp;[")
		response.Write ("<font color='#009966'>"& rs("v_kind") &"</font>]</li></td>")
		response.Write ("<td width='2' align='center'>-</td><td><label style='cursor: hand' onclick=""MM_openBrWindow('selfcheck_readInfo.asp?id="&rs("n_id")&"','winName');""> ")
		response.Write ("<font color='#660000'>"&rs("v_title")&"&nbsp;("&rs("d_OfferDate")&")</font></label></td>")
		response.Write ("<td width='120'>"& rs("v_department") &"-"& rs("v_OfferMan") &"</td></tr>")
		rs.MoveNext                                      
		if rs.eof then exit for                                      
		next 
		response.Write ("</table>")
		else		
		response.Write ("<font size='4'>没有相关的信息</font>")
		end if			

dim url
url="selfcheck_read.asp"'定义执行页面
response.Write("<table cellspacing=0 cellpadding=0 width=100% border=0 ><tr><td align=right>")
response.Write ("共有&nbsp;"&rs.RecordCount&"&nbsp;个&nbsp;&nbsp;")
		if page>1 then 
		response.Write ("|<a href='"&url&"?page=1&KindName="&KindName&"&BKey="&BKey&"'>首页</a>|") 
		response.Write ("<a href='"&url&"?page="&page-1&"&KindName="&KindName&"&BKey="&BKey&"'>上一页</a>|")
		end if
		if page < rs.pagecount then 
		response.Write ("<a href='"&url&"?page="&page+1&"&KindName="&KindName&"&BKey="&BKey&"'>下一页</a>|")
		response.Write ("<a href='"&url&"?page="&rs.pagecount&"&KindName="&KindName&"&BKey="&BKey&"'>尾页</a>|")
		end if
		response.Write ("&nbsp;&nbsp;页次：&nbsp;"&page&"/"&rs.pagecount&"&nbsp;页&nbsp;"&rs.pagesize&"&nbsp;条/页&nbsp;转到：")
		response.Write ("<select name='page' onchange=''>")
		for i=1 to rs.pagecount
			if page<>i then
			response.Write ("<option value='"&i&"'>"&i&"</option>")
			else
			response.Write ("<option value='"&i&"' selected>"&i&"</option>")
			end if
		next
		response.Write ("</select>")
response.Write("</td></tr></table>")
rs.close: set rs=nothing
end sub
%>