ÌÔÌØËÑË÷ÒýÇæÔÚÌÔÌØAsp CmsϵÄÓ¦ÓÃ
1¡¢Ê×ÏÈÏÂÔØÌÔÌØÕ¾ÄÚËÑË÷ÒýÇæ£¬Ê×ÏÈÒªµ¼ÈëCMSÖеÄÊý¾Ýµ½ËÑË÷ÒýÇæË÷ÒýÖУ¬Õâ¸ö¹¤×÷Äú¿ÉÒԷŵ½±¾µØÀ´×ö£¬Ë÷Òýºó£¬Ö±½Ó½«ÌÔÌØËÑË÷ÒýÇæÎļþ¼ÐѹËõºóÉÏ´«µ½ÄúµÄ¿Õ¼äÉϼ´¿É¡£
2¡¢Êý¾ÝË÷Òý˵Ã÷£º
3¡¢Ê×ÏÈÔÚ±¾µØ²¿ÊðÒ»¸öasp.net»·¾³£¬È»ºó°²×°ÌÔÌØÕ¾ÄÚËÑË÷ÒýÇæ£¬¼ÙÈç·ÃÎʵØÖ·ÊÇ:http://localhost¡£
4¡¢ÏÂÃæÊäÈëµØÖ·£ºhttp://localhost/reset.aspx ½øÐÐÊý¾Ý¿âµÄË÷Òý³õʼ»¯£¬¼ûÏÂͼ£º
ÈçÉÏͼËùʾ£¬ÌîдºÃCMSÊý¾Ý¿âÁ¬½Ó×Ö·û´®£¬µã»÷“Á¬½ÓÊý¾Ý¿â”£¬Ìáʾ³É¹¦ºó£¬¿ÉÒÔ¿´µ½“Ñ¡ÔñË÷ÒýµÄ±í”ÏÂÀ¿òÖÐÓÐÐí¶à±í£¬Ñ¡ÔñCMSÄÚÈÝ´æ·ÅµÄ±í£ºnews,È»ºóÔÚ“µ±Ç°±íÖеÄ×ֶΔ¿ÉÒÔ¿´µ½news±íÖеÄ×ֶμǼ£¬ÕâÊÇΪÎÒÃÇ·½±ã×ó²àµÄ×Ö¶ÎÓ³ÉäÌîд¶øÏÔʾ¡£
5¡¢Ä¿Ç°ÌÔÌØÕ¾ÄÚËÑË÷ÒýÇæÌṩÁË8¸öË÷Òý×ֶΣ¬·Ö±ðÊÇ£ºID£¬±êÌâ¡¢À¸Ä¿ID¡¢ËõÂÔͼ¡¢ÕªÒª¡¢ÏêϸÄÚÈÝ¡¢ÐÞ¸ÄÈÕÆÚ¡¢Á´½ÓµØÖ·£¬È»ºóÎÒÃǸù¾Ýnews ±íÖеÄ×Ö¶ÎÇé¿ö£¬Ìîд¶ÔÓ¦ËÑË÷ÒýÇæÖеÄ×Ö¶ÎÃû³Æ£¬ÈçÉÏͼËùʾ¡£
6¡¢×ֶζÔÓ¦ÌîдºÃÒԺ󣬵ã»÷“¿ªÊ¼Ö´ÐÐË÷Òý”£¬¸ù¾ÝÄúÊý¾Ý¿âÖÐÎÄÕÂÊýÁ¿µÄ²»Í¬Çé¿ö£¬ÒòΪÈí¼þ½«Ö´ÐÐÎÄÕÂÄÚÈݵķִʡ¢Ë÷Òý²Ù×÷£¬»¨·ÑÒ»¶¨µÄʱ¼äºó£¬¾ÍÍê³ÉÁËËÑË÷ÒýÇæµÄÊý¾ÝË÷Òý¹¤×÷¡£
7¡¢ÊäÈëÍøÖ·http://localhost ²âÊÔÊý¾Ý²éѯÇé¿ö¡£¿ÉÒÔ¿´µ½Êý¾Ý¿âÖеÄÄÚÈÝÒÑË÷Òýµ½Õ¾ÄÚËÑË÷ÒýÇæÖÐÁË
8¡¢½Ó¿ÚµÄÔö¼Ó
´ò¿ªCMSÎļþ¼Ð£¬ÕÒµ½admin/news_add_ok.asp
ÔÚµÚ235Ðеģºcall add_data(file_path) ºóÃæÔö¼ÓÒ»ÐУ¬´úÂëÈçÏ£º
''''''''''''''''''''''
'²ÎÊýÅäÖÃ
''''''''''''''''''''''
Const SearchPortal="http://localhost/totindex.aspx" 'ÌÔÌØËÑË÷ÒýÇæË÷Òý½Ó¿ÚµØÖ·
Const IndexKey="totsearchengine01" '½Ó¿Ú·ÃÎÊkey,Çëͨ¹ýËÑË÷ÒýÇæÖеÄweb.config²éÕÒ
'==================================================================
' Ìá½»Êý¾Ý
'==================================================================
Function PostHttpPage(loginUrl,loginActUrl,PostData,CharSets)
Dim xmlHttp
Dim RetStr
Set xmlHttp = CreateObject("Microsoft.XMLHTTP")
xmlHttp.Open "POST", loginActUrl, False
XmlHTTP.setRequestHeader "Content-Length",Len(PostData)
xmlHttp.set
Ïà¹ØÎĵµ£º
ASPÓëÊý¾Ý¿âÓ¦ÓÃ(¸ø³õѧÕß)
--------------------
¼û×î½üÐí¶àÍøÓÑѯÎÊһЩ¹ØÓÚÊý¾Ý¿â²Ù×÷µÄ»ù´¡ÎÊÌ⣬ÏÖ°ÑÎÒÒÔǰдµÄһƪ¼òµ¥½Ì³ÌÌùÉÏÀ´£¬ºÃÈÃһЩ³õѧÕß×î¿ìµÄÈëÃÅ£º
ASPÓëÊý¾Ý¿âÓ¦Ó㨸ø³õѧÕߣ©
Ò»°ãÀ´Ëµ£¬Ò»¸öÕæÕýµÄ¡¢ÍêÕûµÄÕ¾µãÊÇÀë²»¿ªÊý¾Ý¿âµÄ£¬ÒòΪʵ¼ÊÓ¦ÓÃÖУ¬ÐèÒª±£´æµÄÊý¾ÝºÜ¶à£¬¶øÇÒÕâЩÊý¾ÝÖ®¼äÍùÍù»¹ ......
ǰ¼¸ÌìÔÚ×Ô¼ºµÄ±Ê¼Ç±¾Éϰ²×°ÁËOFFICE2007¡£½ñÌì×öÁËÒ»¸ö°Ù¶ÈÓÑÇéÁ´½Ó¼ì²éµÄ¹¤¾ß£¬ ÔÚÁ¬½ÓACCESS2007Êý¾Ý¿âµÄʱºò£¬Ê¹ÓõÄÇý¶¯´úÂëΪ£º"provider=microsoft.jet.oledb.4.0;data source="&server.mappath("queryrecord.mdb") ¡£È··¢ÏÖÌáʾ£º
Microsoft JET Database Engine ´íÎó ''80004005''
²»¿Éʶ±ðµÄÊý¾Ý¿â¸ñʽ
µ« ......
<%
dim db
set db=Server.CreateObject("Adodb.Connection")
db.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.Mappath("../mdb/count.mdb")
dim strSql,rs,visitNum
strSql="Select visitNum from counter "
SET rs=db.Execute(strSql)
if session("agai ......
VBSÀ³¬³öIntegerÀàÐ͵Äȡֵ·¶Î§£¬¸ÃÀàÐ͵Äȡֵ·¶Î§Îª-32,768 µ½ 32,767 Ö®¼äµÄÕûÊý¡£
³ö´íµÄ¸ùÔ´£º
ÔÚASPÀÓÐʱºòΪÁË·ÂÖ¹×¢È룬ËùÒÔÔÚ½ÓÊÕ²ÎÊýµÄʱºòÖ±½ÓʹÓÃCintº¯Êý°Ñ½Ó¹ýÀ´µÄ²ÎÊýת»»ÎªInteger£¨Êý×Ö£©ÀàÐÍ£¬Õâ¾Í´æÔÚÒ»¸öDZÔÚÎÊÌ⣬µ±Ò³Ãæ½ÓÊÕµÄij¸ö²ÎÊý£¨Request("xxx")£©³¬¹ýȡֵ·¶Î§Ê±£¨¿É¼òµ¥Àí½âΪ5λÊý×Ö£ ......
×î½ü°ï±ðÈË´¦ÀíÏÂÊý¾Ý,·¢ÏÖÌí¼ÓÊý¾Ýʱ,¾ÍÌáʾ"ASP ²»ÄܸüС£Êý¾Ý¿â»ò¶ÔÏóΪֻ¶Á¡£",´ÓÍøÉÏÕÒÁË,ҲûÓнâ¾öÎÒµÄÎÊÌâ.
1¡¢·þÎñÆ÷µÄÊý¾ÝĿ¼mdbÎļþËùÔÚµÄĿ¼£¬ÊÇÖ»¶ÁµÄ
2¡¢Êý¾Ý¿âÔÚ±¾µØµÄȨÏÞ£¬È¥Ö»¶ÁȨÏÞ£¬ÔÙÉÏ´«
3¡¢ÓпÉÄÜÄãÊÇ´ÓÖ»¶ÁÄ¿Â¼ÒÆ¶¯µ½¿É¶ÁĿ¼µÄ£¬ËùÒÔÒ»¶¨²»ÄÜÕâôÓã¬ÏÈϵ½±¾µØ£¬ÔÙÉÏ´«£¬¿É½â¾ö´ËÀàÎÊ ......