ASP ×ֶαȽÏ

´ÓAcessÊý¾Ý¿âÀï²éÕÒµ½Ä³Ò»Ìõ¼Ç¼£¬Òª±È½ÏÕâÌõ¼Ç¼ÖеÄijһÁеÄÖµÊÇ·ñ°üº¬Ä³Ò»×ֶΡ£
±ÈÈ磬Êý¾Ý¶ÔËùÓеÄÓû§²Ù×÷½øÐÐÁ˼Ǽ¡£
ÔÚÈÕÖ¾²éѯÀÏë°ÑÓû§É¾³ý¼Ç¼ÒÔºìÉ«ÐÅÏ¢ÏÔʾ¡£
ÿÌõɾ³ýµÄÈÕÖ¾¼Ç¼ÀïÓÐÒ»Áаüº¬¡°É¾³ý¡±2×Ö£¬µ«²»Ò»Ñù£¬ÓÐЩÊÇ¡°É¾³ý¿Í»§¡±£¬ÓÐЩÊÇ¡°É¾³ý´æ·ÅÇøÓò¡±µÈ²»Í¬µÄÐÅÏ¢£¡

±¾ÈËΪASPÐÂÊÖ...

---

Õâ²»ÊǼòµ¥µÄlike²éѯÓï¾äÂð£¿

---

ÒýÓÃ

Õâ²»ÊǼòµ¥µÄlike²éѯÓï¾äÂð£¿

д¹ýlikeµÄ²éѯÓï¾ä£¬µ«ÊÇ×ÜÌáʾ³ö´í£¡
ÎÒÏÖÔÚÖ»ºÃÓÃÕâ¸ö£ºif rslog("LogType") = "ɾ³ý¿Í»§" or rslog("LogType") = "ɾ³ý´æ·ÅÇøÓò" or ... then

ÓÃrslog("LogType") like "%ɾ³ý%" û·¨ÔËÐÐ

---

VBScript code:

<%
set conn=CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\AA.mdb;"
Set rs = CreateObject("ADODB.RecordSet")
sql = "SELECT * from logs"
rs.Open sql,conn,1,1
Do While Not rs.EOF
val = rs("×Ö¶Î").Value
If InStr(val, "ɾ³ý") > 0 Then
Response.Write "<span style='color:red;'>" & val & "</span><br>"
Else
Response.Write val & "<br>"
End if
rs.MoveNext
Loop
rs.Close
conn.Close
%>


{{----}