⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 boardretrieve.asp

📁 一个企业使用的OA系统,用VB开发,效果不错
💻 ASP
字号:
<%
sql="select * from boarddept "
already=0
'response.write Request("deparment")
if Request("year")<>"" then
	If already=0 then
		already=1
		sql=sql+"Where  DATEPART(year,Date)="+Request("year")
	Else
		sql=sql+" and  DATEPART(year,Date)="+Request("year")
	End If
end if
if Request("month")<>"" then
	If already=0 then
		already=1
		sql=sql+"Where  DATEPART(month,Date)="+Request("month")
	Else
		sql=sql+"  and  DATEPART(month,Date)="+Request("month")
	End If
end if
if Request("day")<>"" then
	If already=0 then
		already=1
		sql=sql+"Where  DATEPART(day,Date)="+Request("day")
	Else
		sql=sql+"  and  DATEPART(day,Date)="+Request("day")
    End If
end if
if Request("Key")<>"" then
	If already=0 then
		already=1
		sql=sql+"Where  Title like '%"+Request("Key")+"%'"
	Else
      sql=sql+"  and Title like '%"+Request("Key")+"%'"
    End If
end if
Session("sql")=sql & "Order By Date"
Response.Redirect ("BoardList.asp")
%>
<html><script language="JavaScript">                                                                  </script></html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -