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ÃüÁî¾ÍÎÞЧÁË¡£
¶ÔÓ ......
web serviceÔÚÏÖÔڵĸ÷ϵͳÖеõ½Á˹㷺µÄÓ¦Óá£ËüΪÎÒÃǸ÷ϵͳ֮¼äµÄ¹¦ÄÜ·ÃÎÊ£¬Êý¾Ý½»»»,Æðµ½Á˲»¿ÉÄ¥ÃðµÄ×÷Ó᣶øÇÒ»¹Äܼò»¯ÎÒÃǵıä³É£¬Ôڴ˾ͶÔasp×÷Ϊwebservice¿Í»§¶ËÉÔ×÷̽ÌÖ¡£
±¾ÎÄͨ¹ý½«Ò»Ð©¾ßÌåµÄÒµÎñ¹¦ÄÜд³ÉXML Web Services²¢ÇÒ½«ÕâЩXML Web ServicesÓëASP³ÌÐòÍêÃÀ½áºÏ£¬ÏÖÓеÄASP³ÌÐò¾Í¿ÉÒÔÏóASP.NE ......
aspÏνÓMssqlµÄ°ì·¨¼°³£¼ûµÄ²î´í
//µÚÒ»ÖÖд·¨£º
MM_conn_STRING = "Driver={SQL Server};server=(local);uid=sa;pwd=;database=infs;"
Set conn = Server.Createobject("ADODB.Connection")
conn.open MM_conn_STRING
SET RS=SERVER.CreateObject("ADOBD.recordset")
SQL="SELECT * from TABLE ORDER BY ID DESC"
R ......
CREATE PROCEDURE sp_newpage
@tb varchar(50), --±íÃû
@col varchar(50), --°´¸ÃÁÐÀ´½øÐзÖÒ³
@coltype int, --@colÁеÄÀàÐÍ,0-Êý×ÖÀàÐÍ,1-×Ö·ûÀàÐÍ,2-ÈÕÆÚʱ¼äÀàÐÍ
@orderby bit, --ÅÅÐò,0-˳Ðò,1-µ¹Ðò
@collist varchar(800),--Òª²éѯ³öµÄ×Ö¶ÎÁбí,*±íʾȫ²¿×Ö ......
×î½ü¼¸ÖÜ£¬ÔÚ²©¿Í¡¢TwitterºÍÂÛ̳ÉÏÈç»ðÈçݱµØÕ¹¿ªÁËÒ»³¡ÌÖÂÛ¡£ÌÖÂÛµÄÄÚÈÝÊÇ£º¿ª·¢ÈËÔ±ÊÇ·ñÓ¦¸ÃʹÓûòѧϰASP.NET MVC¡£´Ó“²»ÍƼöѧϰ”µ½“ËùÓÐASP.NET¿ª·¢ÈËÔ±¶¼Ó¦¸Ãѧϰ”£¬¸÷ÖÖ²»Í¬µÄ¹Ûµã²ã³ö²»Çî¡£InfoQ¶ÔÆäÖв¿·ÖÌÖÂÛÄÚÈݽøÐÐÁË×ܽᡣ
Rob Conerey£¨SubSonicÖ®¸¸£¬Ä¿Ç°ÊÇ΢ÈíASP.NET MVCÍÅ¶ÓµÄ ......