ÎÄÕÂËÑË÷ | »áÔ±×¢²á | ÔÓÖ¾ÔÚÏß | ÔÓÖ¾¶©ÔÄ | Ͷ¸å | ¹ã¸æºÏ×÷ | »î¶¯ | ¶ÁÕßÁôÑÔ |

Ê×Ò³| ʵʱ×ÊѶ| ÍøÉÏÌÔ½ð| EB ·çÔÆ| Ö§³Å»·¾³| ÏÖ´úÎïÁ÷| ÐÅÏ¢»¯| µç×ÓÕþÎñ| ÍøÂçÆ½Ì¨| ½ÌÓýÅàѵ|ÂÛ̳


½¨²ÄÒµµÄÍøÉÏÓªÏú¾­
ËùÊô°æÃ棺ÌÔ½ð¼¼ÇÉ | ×÷Õߣº×Þ¾² ÀîÒøÁ« ÕŽà | ±à¼­£ºebworld | À´Ô´£ºµç×ÓÉÌÎñÊÀ½ç | ÆÚÊý£º2007ÄêµÚ07ÆÚ | µã»÷´ÎÊý£º <% strFileName = "200774105318.html" strFullName = "./html/2007-7-4/200774105318.html" Set rsRecord = Server.CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM [article] WHERE [fname]='" & strFileName & "'" rsRecord.Open strSQL, conn, 1, 3 %> <% = rsRecord("ClickNum") %> <% rsRecord("ClickNum") = rsRecord("ClickNum") + 1 rsRecord.Update rsRecord.Close Set rsRecord = Nothing %>


Äê²úÖµ¼´½«½Ó½ü1Íò¶àÒÚÔªµÄ½¨²ÄÐÐÒµ£¬ÄܰÑÏúÊÛ°áÉÏ»¥ÁªÍøÂð£¿

½¨²Ä£¬±»¹ã·ºÓ¦ÓÃÓÚ½¨Öþ¡¢¾ü¹¤¡¢»·±£¡¢¸ßм¼ÊõµÈ²úÒµ£¬²¢ÓëÎÒÃǵÄÉú»îϢϢÏà¹Ø¡£ÎÒ¹úÉú²úµÄË®Äࡢƽ°å²£Á§¡¢ÒÔ¼°½¨ÖþÎÀÉúÌÕ´É¡¢Ê¯Ä«¡¢»¬Ê¯µÈ²¿·Ö·Ç½ðÊô¿ó×ܲúÁ¿ÒÑÁ¬Ðø¶àÄêλ¾ÓÊÀ½çµÚÒ»£¬¸ù¾Ý¡°2006ÄêÖйú½¨²ÄÐÐÒµ·ÖÎö¼°Í¶×Ê×Éѯ±¨¸æ¡±ÏÔʾ£¬Ô¤¼ÆÔÚδÀ´10ÄêÉõÖÁ¸ü³¤µÄÒ»¶ÎʱÆÚÄÚ£¬ÎÒ¹ú½¨²Ä¹¤Òµ½«»á¼ÌÐø±£³Ö¸ßËÙ·¢Õ¹Ì¬ÊÆ£¬·¢Õ¹ËٶȽ«¸ßÓÚ¹úÃñ¾­¼Ã·¢Õ¹ËÙ¶È3µ½4¸ö°Ù·Öµã¡£

È»¶ø£¬ÔÚ½¨²ÄÉú²ú×ÜÁ¿¼±ËÙÔö³¤µÄÇ÷ÊÆÏ£¬ÊǹúÄÚ½¨²ÄÐÐÒµÈÕÒæ¼Ó¾çµÄÊг¡¾ºÕù»·¾³¡£ÓÚÊÇ£¬µ±µç×ÓÉÌÎñÓªÏú¹ÛÄîÖð²½ÉøÍ¸µ½½¨²ÄÐÐÒµµÄʱºò£¬Öڶཨ²ÄÉú²úÆóÒµ¡¢½¨²Ä¾­ÏúÉÌ¡¢´úÀíÉ̺ÍÁãÊÛÉÌ¿ªÊ¼ÁËËûÃǵÄÍøÂçÓªÏúÖ®Â㺴󲿷ֽ¨²ÄÉú²úÆóÒµµÄÄÚó»¹Í£ÁôÔÚ½ö½öÒÀ¿¿ÍøÂçÐû´«µÄ½×¶Î¡ª¡ªÔÚÐÐÒµÍøÕ¾ÉÏ×ö¹ã¸æ£¬ÀûÓðٶȡ¢GoolgeµÄ¾º¼ÛÅÅÃû£¬½¨Á¢ÆóÒµ×Ô¼ºµÄÍøÕ¾µÈµÈ£¬ËùÓе͝×÷ËÆºõÖ»ÊÇÔÚ×·ÇóÍøÂçÓªÏúµÄÐÎʽ£¬È´ºöÊÓÁËÓªÏúµÄʵÖÊ¡ª¡ª½»»¥ºÍ¹ÜÀí£¬ÍøÂçÓªÏúͬÑùÐèÒª»¥¶¯ºÍÏàÓ¦µÄÊг¡Õ½ÂÔ£¬µ¥´¿µÄ¡°Íƹ㡱¾ø¶ÔÎÞ·¨´ïµ½ÓªÏúµÄÄ¿µÄ¡£ÄÇô£¬½¨²ÄÉú²úÉÌÍøÂçÓªÏúµÄ±»¶¯ÔõÄÜ»»À´Êг¡µÄ»¥¶¯£¿

ÊÂʵÉÏ£¬ÔÚ½¨²ÄÉú²úÆóÒµµÄ¹ú¼ÊóÒ×ÖУ¬ÍøÂçÓªÏúÒѾ­½øÐеÃÈç»ðÈçݱ¡£Ðí¶à´ÓÊÂÍâóµÄ½¨²ÄÉú²úÆóÒµºÍ½¨²ÄóÒ×¹«Ë¾ÂýÂý·¢ÏÖ£¬µç×ÓÉÌÎñµÄµÍ³É±¾ºÍ´ó·¶Î§ÍƹãÌØÐÔÊÇÐÐÒµÕ¹»áËùÎÞ·¨±ÈÄâµÄ£¬¾¡¹ÜĿǰչ»áÈÔÊÇËûÃǵÄÖ÷ÒªÓªÏú·½Ê½£¬µ«ÊÇÍøÂçÓªÏúµÄЧ¹ûÕýÔÚÖð½¥ÏÔÏÖ¡£

ͬʱ£¬ÎªÊý²»¶àµÄÉú²úÉÌÒѾ­·¢ÏÖÁíÒ»¸öÒþ²ØÔÚ¼Ò¾Ó½¨²ÄB2CÁìÓòµÄ½ð¿ó¡ª¡ª½¨²ÄÍøÉϳ¬ÊС¢½¨²ÄÍøÉÏÂô³¡£¬ÒÔ¼°Ì¯Î»ÖƵÄÍøÉϽ¨²ÄÊг¡£¬ËüÃÇÒѾ­ÎªÏû·ÑÕߺͽ¨²ÄÉ̼ÒÖ®¼ä´î½¨ÁËÒ»¸öʡʱʡÁ¦µÄ½»Òׯ½Ì¨¡£¾¡¹Ü´ó²¿·ÖµÄÉ̼ÒÈÔÈ»ÔÚÒÉ»ó£ºÏû·ÑÕßÕæµÄϲ»¶ÕâÖÖÍøÉϹºÎ﷽ʽÂ𣿵«ÊÇÄÇЩÒѾ­ÔÚÍøÉÏÈ¡µÃÒ»¶¨ÏúÊÛʵЧµÄ½¨²ÄÉ̼ң¬¿ªÊ¼ÓÃЧ¹û´ø¶¯¸ü¶àµÄÆóÒµÖð½¥ÔÚÏòÕâ¸ö½ð¿ó¿¿Â£¡£ÿÿ

ÏëÁ˽â¸ü¶àÄÚÈÝÇë¹Ø×¢¡¶µç×ÓÉÌÎñÊÀ½ç¡·2007ÄêµÚÆßÆÚ



<% Set rsConst = Server.CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM [jsconst]" rsConst.Open strSQL, conn, 1, 3 If Request("action") = "update" Then If Request("txtName") = "" or Request("txtContent") = "" Then %> <% Else Set rsReview = Server.CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM [review]" rsReview.Open strSQL, conn, 1, 3 rsReview.AddNew rsReview("content") = CutWidth(ReplaceHTML(Request("txtContent")), CInt(rsConst("reviewmax")), "") rsReview("addtime") = Now() rsReview("name") = Request("txtName") rsReview("fname") = strFileName rsReview.Update rsReview.Close Set rsReview = Nothing End If End If If rsConst.EOF Then intPageSize = 10 Else intPageSize = rsConst("reviewpage") Set rsReview = Server.CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM [review] WHERE [fname]='" & strFileName & "' ORDER BY [id] DESC" rsReview.Open strSQL, conn, 1, 1 If rsReview.EOF Then %> <% Else %> <% rsReview.PageSize = intPageSize If Request("page")="" Then intCurPage = 1 Else intCurPage = CInt(Request("page")) rsReview.AbsolutePage = intCurPage intPageCount = rsReview.PageCount For intCounter = 1 To intPageSize If rsReview.EOF Then Exit For %>
ĿǰûÓиÃÎÄÕÂµÄÆÀÂÛ
ÎÄÕÂÆÀÂÛ
<% Else %> #EEEEEE"> <% End If %> <% = rsReview("name")%> ÓÚ <% = rsReview("addtime") %> ˵µÀ£º

<% =rsReview("Content") %>

ÎÒÀ´ËµÁ½¾ä£º£¨ÏÞ <% =rsConst("reviewmax") %> ×ÖÒÔÄÚ£¬²¢Çë¶Ô·¢ÑÔ¸ºÔ𣡣©

ÊðÃû£º
ÄÚÈÝ£º



»áÔ±µÇ¼
Óû§Ãû
ÃÜ¡¡Âë

ÐÂÓû§×¢²á Íü¼ÇÃÜÂë?
¾«Æ·ÎÄÕÂ

¹ØÓÚÎÒÃÇ | °æÈ¨ÉùÃ÷ | ÕÐÆ¸ÐÅÏ¢ | ·´À¡Òâ¼û | ÓÑÇéÁ´½Ó | ÍøÕ¾µØÍ¼ | ÁªÏµÎÒÃÇ

°æÈ¨ÉùÃ÷£ºµç×ÓÉÌÎñÊÀ½çÍøÕ¾°æÈ¨ËùÓУ¬ÈçÐè×ªÔØ£¬ÐëÕ÷µÃÊéÃæÍ¬Ò⣡
[Ò³ÃæÖ´ÐÐʱ¼ä <% =Round((Timer - sngTime)*1000, 2) %> ºÁÃë]
Designed by shalala