ASPËÑË÷·ÖÒ³ºó²»ÄÜÕýÈ·ÏÔʾ
¡¡¡¡ÓÃASPʵÏÖËÑË÷²¢·ÖÒ³ÊÇÎÒ¼û´ó¶àÊý³ÌÐòÔ±ºÍ´ó¶àÊýÍøÕ¾³öÏÖÁ˲»ÄÜÕý³£·ÖÒ³µÄÎÊÌ⣬ËÑË÷³öÀ´µÄ½á¹ûµã»÷ÏÂÒ»Ò³Êý¾ÝÓÖÖØ¶¨ÏòΪ³õʼµÄ½á¹û¡£ÊÇʲôÔÒòµ¹ÖÂÕâ¸öÎÊÌâÄØ£¿
¡¡¡¡Õâ¸öÎÊÌâÒ²ÊÇÔÚÎÒÔÚУÕýÔÚѧϰASPµÄʱºòÁ·Ï°ÊµÀýÖÐÓöµ½µÄÎÊÌ⣬³öÏÖÕâ¸öÎÊÌâºó£¬·´¸´µÄµ÷ÊÔ·´¸´µÄ¼ì²é´úÂ룬¿´À´¿´È¥´úÂëûÓв»±¨´íÒ²ÎÞÎó¡£×ó˼ÓÒÏë½á¹ûÏëµ½ÁËÆäÖÐÒ»¶Î´úÂëµÄ±í´ïʽ£¨·À×¢Èë´úÂëÊ¡ÂÔ£©£º
¡¡¡¡if trim(request.form("search"))<>"" then
¡¡¡¡seach=trim(request.form("search"))
¡¡¡¡sql="select * from pro where proname like '%" & search & "'"
¡¡¡¡Õâ¸ö±í´ïʽÅжÏÁËÔÚÓû§ÊäÈëÎı¾µã»÷ËÑË÷ºóÖ´Ðвéѯsearch±äÁ¿µÄ¹Ø¼ü×ּǼ¡£ÎÊÌâ³öÔÚÕâÀï¡£
¡¡¡¡ÔÒò£ºµ±Óû§ÊäÈëµã»÷ÏÂÒ»Ò³ºó£¬ÒÔÉÏ´úÂë¾Í²»³ÉÁ¢£¬²¢ÇÒµã»÷ÏÂÒ»Ò³¹Ø¼ü×Ö¶ªÊ§¡£
¡¡¡¡½â¾ö°ì·¨2¸ö²½Ö裺
¡¡¡¡1¡¢ÒÔÉÏ´úÂë¸ÄΪ
¡¡¡¡if trim(request("search"))<>"" then
¡¡¡¡2¡¢ÔÚ·ÖÒ³µÄÁ´½ÓÖÐÈçÏ´úÂ룺
¡¡¡¡pro.asp?page=<%=page%>&search=<%=search%>
¡¡¡¡ÕâÑùrequest¶ÔÏó¾Í²»Ö»ÏÞÓÚ»ñÈ¡±íµ¥ÁËͬʱ»ñÈ¡URLµÄÖµ¡£ÔÚµã»÷ÏÂһҳʱͬʱҲ´«µÝÁËsearch±äÁ¿¸øURL£¬Ò²²»»áÔì³É¹Ø¼ü×Ö¶ªÁË£¬ÎÊÌâ½â¾ö¡£
Ïà¹ØÎĵµ£º
ASPµ÷Óô洢¹ý³ÌµÄ·½·¨£º
---- ¡¡¡¡µ÷Óô洢¹ý³ÌµÄ·½·¨ÐèҪʹÓÃADOµÄCommand¶ÔÏó¡£Command¶ÔÏóÊǶÔÒ»¸öÊý¾ÝÔ´ÔËÐÐÌØ¶¨ÃüÁîµÄ¶¨Ò壨ÀýÈ磬һ¸öSQL²éѯ»òÒ»¸öSQL´æ´¢¹ý³Ì£©¡£ÏÂÃæÒÔMS SQL SERVER6.5Ϊºǫ́Êý¾Ý¿â£¬½éÉÜASPµ÷Óô洢¹ý³ÌµÄ·½·¨¡£
---- ¡ ......
asp³£ÓõÄÕýÔò±í´ïʽʵÏÖ×Ö·û´®µÄÌæ»»,Ö÷Òª°üÀ¨È¥³ýhtml±êÇ©£¬È¥³ýclass±êÇ©ºÍÈ¥³ýscript±êÇ©µÈ
È¥³ýhtml±êÇ©ÕýÔò<\/*[^<>]*>
Function LoseHtml(ContentStr)
Dim ClsTempLoseStr,RegEx
ClsTempLoseStr = Cstr(ContentStr)
Set RegEx = New RegExp
RegEx.Pattern = "<\/*[^<>]*>"
......
<%
SQL1 = "update table1 set a=b where id=1"
Conn.ExeCute SQL1
SQL2 = "update table2 set a=b where id=2"
Conn.ExeCute SQL2
SQL3 = "update table3 set a=b where id=3"
Conn.ExeCute SQL3
%>
&nb ......
·½·¨Ò»¡¢¾¡Á¿Ê¹Óø´ÔÓµÄSQLÀ´´úÌæ¼òµ¥µÄÒ»¶Ñ SQL.
ͬÑùµÄÊÂÎñ£¬Ò»¸ö¸´ÔÓµÄSQLÍê³ÉµÄЧÂʸßÓÚÒ»¶Ñ¼òµ¥SQLÍê³ÉµÄЧÂÊ¡£Óжà¸ö²éѯʱ£¬ÒªÉÆÓÚʹÓÃJOIN¡£
oRs=oConn.Execute("SELECT * from Books")
while not oRs.Eof
strSQL = "SELECT * from Authors WHERE AuthorID="&oRs("AuthorID") oRs2=oConn.Execute(strSQ ......
<%
Dim Fy_Url,Fy_a,Fy_x,Fy_Cs(),Fy_Cl,Fy_Ts,Fy_Zx
'---¶¨Ò岿·Ý Í·------
Fy_Cl = 1 '´¦Àí·½Ê½£º1=ÌáʾÐÅÏ¢,2=תÏòÒ³Ãæ,3=ÏÈÌáʾÔÙתÏò
Fy_Zx = "Error.Asp" '³ö´íʱתÏòµÄÒ³Ãæ
'---¶¨Ò岿·Ý β------
On Error Resume Next
Fy_Url=Request.ServerVariables("QUER ......