D32.00110
چهارشنبه 15 آبان 1392, 10:57 صبح
سلام
دوستان من تو این سورس میخوام این تغییرات رو بدم
الان موقع جستجو barname nevis دقیقا همین رو جستجو میکنه من میخوام دو رشته ک با فاصله جدا شده رو بصورت AND جستجو کنه یعنی اگه هم barname و هم nevis تو دیتابیس بود لود کنه
ممنون
<%
response.expires=-1
IF session("parvaz_operator_counter")="" THEN
session("parvaz_operator_counter")=0
END IF
%>
<!--#include File="inc_dbSQL.asp"-->
<table align="center" style="border-collapse: collapse; border-color: gray; direction: rtl; font-family: Tahoma; font-size: 13pt; width: 90%" border="1" cellpadding="8">
<%
i=1
Set oRSa=Server.CreateObject("ADODB.RecordSet")
strSQLa="SELECT name, code, (case when (SELECT tprc FROM anbar WHERE codek=kala.code) IS NULL then 0 else (SELECT tprc FROM anbar WHERE codek=kala.code) end ) AS prcp FROM kala WHERE (case when (SELECT fted FROM ANBAR WHERE codek=kala.code) is null then 0 else (SELECT fted FROM ANBAR WHERE codek=kala.code) end +case when (select sum(case when type=1 then qty else -qty end) from rasrad where codek=kala.code) is null then 0 else (select sum(case when type=1 then qty else -qty end) from rasrad where codek=kala.code) end +case when (select sum(case when type=2 then qty else -qty end) from facrad where codek=kala.code) is null then 0 else (select sum(case when type=2 then qty else -qty end) from facrad where codek=kala.code) end)>0 AND LEN(code)>13"
IF LEN(TRIM(Request.QueryString("q")))>0 THEN
strSQLa=strSQLa & " AND (name LIKE '%" & Request.QueryString("q") & "%' OR code LIKE '%" & Request.QueryString("q") & "%')"
END IF
strSQLa=strSQLa & " ORDER BY name"
oRSa.Open strSQLa, strConn
IF oRSa.EOF THEN
%>
<tr><td style="text-align: center; color: red">موردی یافته نشد</td></tr>
<%
ELSE
DO WHILE NOT oRSa.EOF
%>
<tr <% IF (i/2)-(int(i/2))=0 THEN %>style="background-color: #CCCCCC"<% END IF %>>
<td style="text-align: center; width: 40px; font-weight: bold; font-size: 13pt"><% =i %></td>
<td style="text-align: right"><% =oRSa("name") %></td>
<td style="text-align: center; font-weight: bold"><% =oRSa("code") %></td>
<td style="text-align: center; width: 100px; font-weight: bold; font-size: 13pt"><% =FormatNumber(oRSa("prcp"),0) %></td>
</tr>
<%
i=i+1
oRSa.MoveNext
LOOP
END IF
oRSa.Close
Set oRSa=nothing
%>
</table>
<%
IF int(i) < int(session("parvaz_operator_counter")) THEN
%>
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=8,0,42,0" id="Movie1" width="1" height="1">
<param name="movie" value="alert.swf" /><param name="bgcolor" value="#FFFFFF" /><param name="quality" value="high" /><param name="seamlesstabbing" value="false" /><param name="allowscriptaccess" value="samedomain" />
<embed type="application/x-shockwave-flash" pluginspage="http://www.adobe.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" name="Movie1" width="1" height="1" src="alert.swf" bgcolor="#FFFFFF" quality="high" seamlesstabbing="false" allowscriptaccess="samedomain">
<noembed></noembed>
</embed>
</object>
<%
END IF
session("parvaz_operator_counter")=i
%>
دوستان من تو این سورس میخوام این تغییرات رو بدم
الان موقع جستجو barname nevis دقیقا همین رو جستجو میکنه من میخوام دو رشته ک با فاصله جدا شده رو بصورت AND جستجو کنه یعنی اگه هم barname و هم nevis تو دیتابیس بود لود کنه
ممنون
<%
response.expires=-1
IF session("parvaz_operator_counter")="" THEN
session("parvaz_operator_counter")=0
END IF
%>
<!--#include File="inc_dbSQL.asp"-->
<table align="center" style="border-collapse: collapse; border-color: gray; direction: rtl; font-family: Tahoma; font-size: 13pt; width: 90%" border="1" cellpadding="8">
<%
i=1
Set oRSa=Server.CreateObject("ADODB.RecordSet")
strSQLa="SELECT name, code, (case when (SELECT tprc FROM anbar WHERE codek=kala.code) IS NULL then 0 else (SELECT tprc FROM anbar WHERE codek=kala.code) end ) AS prcp FROM kala WHERE (case when (SELECT fted FROM ANBAR WHERE codek=kala.code) is null then 0 else (SELECT fted FROM ANBAR WHERE codek=kala.code) end +case when (select sum(case when type=1 then qty else -qty end) from rasrad where codek=kala.code) is null then 0 else (select sum(case when type=1 then qty else -qty end) from rasrad where codek=kala.code) end +case when (select sum(case when type=2 then qty else -qty end) from facrad where codek=kala.code) is null then 0 else (select sum(case when type=2 then qty else -qty end) from facrad where codek=kala.code) end)>0 AND LEN(code)>13"
IF LEN(TRIM(Request.QueryString("q")))>0 THEN
strSQLa=strSQLa & " AND (name LIKE '%" & Request.QueryString("q") & "%' OR code LIKE '%" & Request.QueryString("q") & "%')"
END IF
strSQLa=strSQLa & " ORDER BY name"
oRSa.Open strSQLa, strConn
IF oRSa.EOF THEN
%>
<tr><td style="text-align: center; color: red">موردی یافته نشد</td></tr>
<%
ELSE
DO WHILE NOT oRSa.EOF
%>
<tr <% IF (i/2)-(int(i/2))=0 THEN %>style="background-color: #CCCCCC"<% END IF %>>
<td style="text-align: center; width: 40px; font-weight: bold; font-size: 13pt"><% =i %></td>
<td style="text-align: right"><% =oRSa("name") %></td>
<td style="text-align: center; font-weight: bold"><% =oRSa("code") %></td>
<td style="text-align: center; width: 100px; font-weight: bold; font-size: 13pt"><% =FormatNumber(oRSa("prcp"),0) %></td>
</tr>
<%
i=i+1
oRSa.MoveNext
LOOP
END IF
oRSa.Close
Set oRSa=nothing
%>
</table>
<%
IF int(i) < int(session("parvaz_operator_counter")) THEN
%>
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=8,0,42,0" id="Movie1" width="1" height="1">
<param name="movie" value="alert.swf" /><param name="bgcolor" value="#FFFFFF" /><param name="quality" value="high" /><param name="seamlesstabbing" value="false" /><param name="allowscriptaccess" value="samedomain" />
<embed type="application/x-shockwave-flash" pluginspage="http://www.adobe.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" name="Movie1" width="1" height="1" src="alert.swf" bgcolor="#FFFFFF" quality="high" seamlesstabbing="false" allowscriptaccess="samedomain">
<noembed></noembed>
</embed>
</object>
<%
END IF
session("parvaz_operator_counter")=i
%>