asp²Ù×÷Êý¾Ý¿â´úÂë
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq=F:\\ajaxpro\\App_Data\\server.mdb"
Dim StrSQL,RS
StrSQL="SELECT*from Manager WHERE ID='"&username&"'"
StrSQL=StrSQL&"AND Pin='"&password&"'"
set rs=server.createobject("adodb.recordset")
rs.open StrSQL,conn,1,1
If rs.EOF then
response.write("<script>alert('Óû§Ãû»òÃÜÂë´íÎó');history.back();</script>")
response.End()
else
response.Write( "<script>location.href='IP_Address.asp'</script>")
response.End()
End If
Ïà¹ØÎĵµ£º
ÔÚaspÒ³ÃæÖУ¬ÎÒÃdz£³£Ê¹ÓÃincludeÃüÁîÀ´°üº¬¹«¹²Îļþ£¬±ÈÈç˵ҳÊס¢Ò³Î²µÄ²¿·Ö£¬Ê¹Óù«¹²Îļþ·Ç³£·½±ã£¬µ«ÔÚHTMLÒ³ÃæÀïʹÓÃinclude¸ù±¾¾Í²»Æð×÷Óá£ÕâÊÇÒòΪ£¬includeÊÇVBScriptµÄÃüÁÒò´Ë¿ÉÒÔÔÚaspÒ³ÃæÀïʹÓ᣶øHTML¾²Ì¬Ò³Ãæ±»µ÷ÓõÄʱºò²¢²»¾¹ýasp½âÊÍÆ÷£¬¶øÊÇÖ±½Ó·¢Ë͵½Óû§ä¯ÀÀÆ÷£¬Òò´ËincludeÃüÁî¾ÍÎÞЧÁË¡£
¶ÔÓ ......
ASPÓëJSPµÄ±È½Ï
¡¡¡¡´Ó΢ÈíÍƳöÁËASP(ActiveServerPage)ºó£¬ËüÒÔÆäÇ¿´óµÄ¹¦ÄÜ£¬¼òµ¥Ò×ѧµÄÌصã¶øÊܵ½¹ã´óWEB¿ª·¢ÈËÔ±µÄϲ»¶¡£µ«ÊÇËüÈ´ÓÐ΢Èí²úÆ·µÄͨ²¡,Ö»ÄÜÔÚWindowsƽ̨ÏÂʹÓã¬ËäÈ»Ëü¿ÉÒÔͨ¹ýÔö¼Ó¿Ø¼þ¶øÔÚLINUXÏÂʹÓ㬵«ÊÇÆ书ÄÜ×îÇ¿´óµÄDCOM¿Ø¼þÈ´²»ÄÜʹÓ᣶øSUN¹«Ë¾ÔÚJAVAµÄ»ù´¡Ï¿ª·¢³öµÄJSP(Java
ServerPages)Ê ......
µÚÈý¸öÀà,ÊÇÊý¾Ý¿âÁ¬½ÓÀà,Õâ¸ö¿ÉÒÔ¿´×öÊǸºÔð×îµ×²ãµÄÊý¾Ý¿â·ÃÎʵÄÒ»¸ö¶ÔÏó,²¢²»ÊôÓÚÊý¾Ý²ã. ËüÖ»ÊÇÒ»¸ö¹¤¾ß,¶ø²»Éæ¼°µ½ÈκιØÓÚÊý¾Ý¿âÄÚÈݵÄÂß¼.
ÔÙ´ÎÖØÉêÒ»ÏÂ,ÕâÈý¸öÀà,Ö»ÊÇÔÚASPÈý²ã¼Ü¹¹ÖеÄÈý´ó»ù±¾¶ÔÏó,ÏóÕâÖÖ¶ÔÏó,ÎÒÔÚ¾ßÌåµÄÒµÎñ ......
<%
Response.Buffer = true
Response.Clear
dim url
Dim fso,fl,flsize
dim Dname
Dim objStream,ContentType,flName,isre,url1
Dim strFileName
strFileName=replace(replace(Request("file"),"\",""),"/","") '´«²Î
strFileName="/files/"&strFileName ' ¸Ä³ÉÄãÄãÎļþµÄ´æ ......
ActiveConnection ÉèÖûò·µ»ØCommand¶ÔÏóµÄÁ¬½ÓÐÅÏ¢£¬¸ÃÊôÐÔ¿ÉÒÔÊÇÒ»¸öConnection¶ÔÏó»òÁ¬½Ó×Ö·û´®¡£
CommandText ÉèÖûò·µ»Ø¶ÔÊý¾ÝÔ´µÄÃüÁî´®£¬Õâ¸ö´®¿ÉÒÔÊÇSQLÓï¾ä¡¢±í¡¢´¢´æ¹ý³Ì»òÊý¾ÝÌṩÕßÖ§³ÖµÄÈÎ ºÎÌØÊâÓÐЧµÄÃüÁîÎı¾¡£
Prepared Ìá³öÔÚµ÷ÓÃCommand¶ÔÏóµÄExecute·½·¨Ê±£¬ÊÇ·ñ½«²éѯµÄ±àÒë½á¹û´¢´æÏÂÀ´¡£Èç¹û½«¸ ......