📄 empmain_basesearch_process.asp

📁 欢迎大家分享本系统为bs架构的asp+access版本。<br>包含：员工信息

💻 ASP

字号:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/EmpMain.asp" -->
<!--#include file="EmpMain_CheckRight.asp"-->
<%
dim arysearchFields
dim arysearchvalues

arysearchFields = split(request.form("searchFields"),",")
arysearchvalues = split(request.form("searchValues"),",")
orgUrl = request.form("orgURL")
DateLogic = request.form("DateLogic")

SearchLogic = " " & request.Form("searchlogic") & " "
searchCondition = ""
for i = 1 to Ubound(arysearchFields)
 if arysearchFields(i) = "Empbirthday" then
   arysearchFields(i) = " CDate(format$(Empbirthday,'m/d')) "
    stroprate =  " "&DateLogic&" "
	arysearchvalues(i) = " CDate('"&arysearchvalues(i)&"') "

 elseif arysearchFields(i) = "EmphireDate" then
    arysearchFields(i) = "datediff('m','"&arysearchvalues(i)&"',EmphireDate)"
    stroprate = " "&DateLogic&" "
	arysearchvalues(i) = "0"

 elseif arysearchFields(i) = "EmpTitle" then
    stroprate = " in "
	arysearchvalues(i) = "('"&replace(arysearchvalues(i),"/","','")&"')"

 elseif arysearchFields(i) = "EmpDimissionDate" then
    if arysearchvalues(i) = "在职" then
    stroprate = " is "
	arysearchvalues(i) = "null"
	else
	 stroprate = " <> "
	 arysearchvalues(i) = "null"
	end if
 elseif arysearchFields(i) = "Empnativeplace" then
     stroprate  = " like "
     arysearchvalues(i) = " '%"&arysearchvalues(i)&"%' "
 else
    stroprate = " = "
	arysearchvalues(i) = "'" & arysearchvalues(i) & "'"
 end if
if not i = Ubound(arysearchFields) then
  searchCondition = searchCondition & arysearchFields(i) & stroprate & arysearchvalues(i)&SearchLogic
else
  searchCondition = searchCondition & arysearchFields(i) & stroprate &arysearchvalues(i)  
end if
next
'response.Write(searchCondition)
'response.end 
%>
<%
Dim search
Dim search_numRows

Set search = Server.CreateObject("ADODB.Recordset")
search.ActiveConnection = MM_EmpMain_STRING
search.Source = "SELECT distinct ID FROM Search where " & searchCondition
'response.Write(search.Source)
'response.end 
search.CursorType = 0
search.CursorLocation = 2
search.LockType = 1
search.Open()

search_numRows = 0
IDstring = ""
while not search.eof 
IDstring = IDstring & search("ID") & ","
search.movenext
wend
%>
<%
url = orgUrl & "?IDstring=" &  IDstring
response.Redirect(url)
response.end 
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body>
</body>
</html>
<%
search.Close()
Set search = Nothing
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -