给你一段获取条件的代码参考参考吧:
<%else
Function adjust_sql(adj_str)
Dim final_str, i
adj_str = Trim(adj_str)
final_str = ""
If Len(adj_str) > 0 Then
For i = 1 To Len(adj_str)
Select Case Mid(adj_str, i, 1)
Case "[":
final_str = final_str & "[[]"
Case "¦":
final_str = final_str & "[{-}]"
Case "'":
final_str = final_str & "[&-(]"
Case Else:
final_str = final_str & Mid(adj_str, i, 1)
End Select
Next
End If
adjust_sql = final_str
End Function
If Len(d_ghscjbm) = 0 Then cond_count = cond_count - 1
If Len(d_ghscjmc) = 0 Then cond_count = cond_count - 1
If Len(d_cdbm) = 0 Then cond_count = cond_count - 1
If Len(d_wz) = 0 Then cond_count = cond_count - 1
If Len(d_bmqsrq) = 0 Then cond_count = cond_count -1
If Len(d_bmzzrq) = 0 Then cond_count = cond_count -1
'判断查询条件是否为空
If (Len(Trim(d_ghscjbm)) = 0) And _
(Len(Trim(d_ghscjmc)) = 0) And _
(Len(Trim(d_cdbm)) = 0) And _
(Len(Trim(d_wz)) = 0) And _
(Len(Trim(d_bmqsrq)) = 0) And _
(Len(Trim(d_bmzzrq)) = 0) Then
sql = "select * from pub_ghscjbm "
'sql1="select count(d_ghscjbm) as aa from pub_ghscjbm "
sql1="select "&"'"&"aa"&"'"&"=count(d_ghscjbm) from pub_ghscjbm "
Else
sql = "select * from pub_ghscjbm where "
'sql1="select count(*) from pub_ghscjbm where "
sql1="select "&"'"&"aa"&"'"&"=count(d_ghscjbm) from pub_ghscjbm where "
If cond_count > 1 Then
sql = sql & " and "
sql1 = sql1 & " and "
cond_count = cond_count - 1
End If
End If
If Len(d_ghscjmc) > 0 Then
sql = sql & " d_ghscjmc like '" & wc & d_ghscjmc & wc & "'"
sql1 = sql1 & " d_ghscjmc like '" & wc & d_ghscjmc & wc & "'"
If cond_count > 1 Then
sql = sql & " and "
sql1 = sql1 & " and "
cond_count = cond_count - 1
End If
End If
If Len(d_cdbm) > 0 Then
sql = sql & " d_cdbm like '" & wc & d_cdbm & wc & "'"
sql1 = sql1 & " d_cdbm like '" & wc & d_cdbm & wc & "'"
If cond_count > 1 Then
sql = sql & " and "
sql1 = sql1 & " and "
cond_count = cond_count - 1
End If
End If
If Len(d_wz) > 0 Then
sql = sql & " d_wz like '" & wc & d_wz & wc & "'"
sql1 = sql1 & " d_wz like '" & wc & d_wz & wc & "'"
If cond_count > 1 Then
sql = sql & " and "
sql1 = sql1 & " and "
cond_count = cond_count - 1
End If
End If
If Len(d_bmqsrq) > 0 Then
sql = sql & " d_bmrq >= '" & d_bmqsrq & "'"
sql1 = sql1 & " d_bmrq >= '" & d_bmqsrq & "'"
If cond_count > 1 Then
sql = sql & " and "
sql1 = sql1 & " and "
cond_count = cond_count - 1
End If
End If
If Len(d_bmzzrq) > 0 Then
sql = sql & " d_bmrq <= '" & d_bmzzrq & "'"
sql1 = sql1 & " d_bmrq <= '" & d_bmzzrq & "'"
End If
sql = sql & " order by d_ghscjbm"
sql1 = sql1 & " order by d_ghscjbm"
'Response.Write sql
'Response.Write "<br>"&sql1
'Response.end
set count = conn.execute(sql1)
session("QUERY_TEXT1") = sql
counter=count.Fields(0)
count.close
set count=nothing
conn.close
set conn=nothing
Response.Redirect("ghscjcx1.asp?count="&counter)