一个人被别人需要，生存才显得有意义
2011-12-08 17:31
| 一个人被别人需要，生存才显得有意义。被别人需要，是人的一种天性，也能体现出一个人的价值。在某些特定情况下，一个人如果不被别人需要，生存也就失去了意义，所以，你不妨告诉你的亲人和朋友：我们需要你。http://www.nfzixun.com/thread-1086-1-1.html |
那一天，我离开老地方，来到了这里
2011-12-03 00:03
| 那一天，我离开老地方，来到了这里 想找点事做，找了半个多月了，身上的钱都快花了，可工作还没有着落 wwww.nfzixun.com |
男人如何养生健身——健康生活技巧
2011-09-10 13:58
| 男人如何养生健身 Many of my friends often ask me about: how men health fitness? China the best orthopedic hospital which family to is? Is the best orthopedic hospital of Guangzhou where home? Which family orthopedic hospital treatment effect is good wait for a problem, these problems I will be in a future article one one questions for you 很多朋友经常问我一些关于：男人如何养生健身？中国最好的整形医院是哪家？广州最好的整形医院是哪家？哪家整形医院治疗效果好等问题，这些问题我将在以后的文章中一一为大家解答，希望能帮助到大家 1、吃的纪律 健身一定要搭配饮食，才会有相应的效果。 刚运动完是“忌食期”，最忌讳进食。因为运动完毕后半小时是身体吸收力最好的时候，如果在这个时候吃东西，就会吃什么胖什么，刚刚消耗掉的热量一下子就补回来了。 2、专心至上http://www.jtyszx.com 专心实在是太重要了，有很多人健身的时候，没有把心绪集中在所要锻炼的肌肉，或是该做的动作上，而是不该用力的地方用力，练错肌肉。比如要练胸肌，结果分心练到三头肌，最后变成胸小，手臂却过大的大力水手派，样子就很滑稽。专心才能做对动作，才不会因为姿势不对造成运动伤害，健身不成反伤身，真的划不来。 3、恒心毅力 健身贵在持之以恒，只要不偷懒，一定会开花结果的。如果你是固定上健身房的人，每次一个半到两个小时，每周三到四次；如果是自己在家练，每天半小时到一个小时，就很不错了。 4、呼吸的节奏 这是运动中最重要的一环，通常你会听到两派说法，一派是任何动作，接近心脏时要呼气，离开心脏时要吸气。我个人的心得是，哪一种呼吸法都可以，只要自己觉得气顺就好！ 5、要冷静 很多人做运动的时候，因为要尽吃奶的力气，以至于表情特多，牵动一脸的肌肉，然后再生出一脸的皱纹。健身人，一定要冷静，做运动时候尽量保持“面无表情”，专注于要锻炼的身体肌肉上，这样就能让你的脸幸免于加速老化的命运了。 6、不要攀比 不管是负重的能力还是动作的次数，都不能硬撑，很多人练健身都会象着魔一样。总想多做一点，快点得道成仙，这样是相当危险的。如果你自不量力，已经不能再负重了，还要多加个半公斤，或是已经累得不行了，还要多做几下，硬撑造成运动伤害后果常不堪设想，一切以自己感到舒服的量和次数为要。 7、设假想敌 这是一门艺术，人一定要有一个活生生的假想敌来激励，才会有进步的动力，才会更有成就感。这个目标最好是你身边的人，是你觉得身材不错又不会太难达成目标的人，而且是可以让你天天看到就直接可以检视的对象，像办公室里那位阳光健美的小弟，或是朋友圈里线条王子等。不要好高骛远，把施瓦辛格当假想敌，那你就会活在不断的挫败中。等到打败第一阶段的假想敌后，再找下一个难度更高的目标。 Until the defeat the first phase of the imaginary enemy, to find a more difficult target. |
如果不出意外的话，我们不会再有交集了
2011-09-09 00:37
| Put your number from the mail list is removed, no accident, we will not have the intersection of it, anyway, you haven't made a phone call to me, not even take the initiative to send a message, US, and so it is. Thus, no longer love you. 把你的号码从通讯录中删除，不出意外的话，我们不会再有交集了吧，反正，你已经好久没有主动打电话给我，甚至没有主动发过一条短信，我们，就这样了吧。就这样，不再爱你了。 不再在嘈杂的人声中捕捉你的嗓音了 No longer in noisy voice capture your voice 不再在滚滚人流中追逐你的身影了 No longer in billow stream of people chasing you. 不再因为你出现而再三斟酌自己的言语，动作甚至表情了 Not because you appear again and again over my speech, action and expression. 不再，为你心动了 No longer, for your heartbeat. 你从来没有发现，喊出你的名字的时候，是我最温柔的时候，甚至声音有微微的颤抖；经过你的身旁，我的脚步总是放的又轻又慢；我从不敢直视你的眼睛，怕泄露了太多的情感；中国最好的整形医院在无意识的发呆时，中国最好的整形医院草稿纸上满页满页都是你的名字，我能把你的名字写得比我的名字还溜；分开的时候，满脑子满脑子都是你的身影，回忆一刹那只剩与你有关的点点滴滴；吃饭的时候，睡觉的时候，逛街的时候，发呆的时候，都在想你在干什么呢，会不会，会不会像我想你一样想我呢…… You have never been found, calling out your name, I am the most gentle voice, even slightly trembling; after you, my footsteps always put the light and slow; I never look you in the eye, for fear of revealing too much emotion; in the unconscious. When the draft paper on over the page, the pages are full of your name, I can put your name better than my name has slipped; from time to time, full of mind is full of your shadow, recall a moment just about you bit by bit; when eating, sleeping, when shopping, a trance, you have to do what you do, will, would like you the same as me ... ... 那样纯粹而淡然的生活，那样以你为中心的生活，因为回忆而丰满，因为现实而枯萎。距离拉长了思念，却阻隔了见面；时间沉淀了暗恋，让你离我好远好远。眼看着身边的人一个一个都有了轰轰烈烈，我想，是该放下你了，回忆，仅仅是用来回忆。 So pure and indifferent to life, so to you as the center of life, because the memories and plump, because the reality and withered. An elongated miss distance, but the barrier to meet; time to precipitate the unrequited love, let you away from me. Seeing the people around a had with vigour and vitality, I think, is that you put down, remember, is only used for memory. 不要说我不甘寂寞，因为我已经寂寞了好久，不要说我用情不专，因为你从来不属于我，也不要说我轻言放弃，你甚至，连一个微小的回应都不曾给我。 Don't say that I am unwilling to remain out of the limelight, because I 've been lonely for so long, http://www.jtyszx.com don't say I fickle, because you never belong to me, don't say I never give up, even you, even a tiny response did not give me. 不再留着你的短信不舍得删掉了 Don't keep your messages won't delete 不再一遍一遍的回看我们的聊天记录了 Not once again look back at our chat record 不再眼巴巴的盯着手机期望你的电话了 No longer were staring at mobile phone expect your call 不再上一整晚的QQ等你现身了 No longer a night of QQ you showed up. |
我是喜欢你，但已是曾经！
2011-05-21 22:32
| 把你的号码从通讯录中删除，不出意外的话，我们不会再有交集了吧，反正，你已经好久没有主动打电话给我，甚至没有主动发过一条短信，我们，就这样了吧。就这样，不再爱你了。 不再在嘈杂的人声中捕捉你的嗓音了 不再在滚滚人流中追逐你的身影了 不再因为你出现而再三斟酌自己的言语，动作甚至表情了 不再，为你心动了 你从来没有发现，喊出你的名字的时候，是我最温柔的时候，甚至声音有微微的颤抖；经过你的身旁，我的脚步总是放的又轻又慢；我从不敢直视你的眼睛，怕泄露了太多的情感；在无意识的发呆时，草稿纸上满页满页都是你的名字，我能把你的名字写得比我的名字还溜；分开的时候，满脑子满脑子都是你的身影，回忆一刹那只剩与你有关的点点滴滴；吃饭的时候，睡觉的时候，逛街的时候，发呆的时候，都在想你在干什么呢，会不会，会不会像我想你一样想我呢…… 那样纯粹而淡然的生活，那样以你为中心的生活，因为回忆而丰满，因为现实而枯萎。距离拉长了思念，却阻隔了见面；时间沉淀了暗恋，让你离我好远好远。眼看着身边的人一个一个都有了轰轰烈烈，我想，是该放下你了，回忆，仅仅是用来回忆。 不要说我不甘寂寞，因为我已经寂寞了好久，不要说我用情不专，因为你从来不属于我，也不要说我轻言放弃，你甚至，连一个微小的回应都不曾给我。 不再留着你的短信不舍得删掉了 不再一遍一遍的回看我们的聊天记录了 不再眼巴巴的盯着手机期望你的电话了 不再上一整晚的QQ等你现身了 不再死皮赖脸的硬拽着你在我空间上留言了 不再到处跟别人打听你的消息了 不再向好友倾诉自己的心酸了 你拨动了我的心弦，却不曾为我驻足，当我以为你还在的时候，你已没有踪影，当你回头找寻我的时候，我已开始寻找自己的天空，亲爱的，我把最美好最美好的年华留给了你，我，于你无愧。亲爱的，我的青春有限，承担不起一生一世的等待。 请不要怀疑，曾经，我愿意不顾一切的等你，愿意随时随地陪你，愿意在你身后默默的看你，为你的快乐而快乐，为你的悲伤而悲伤，尽管，那些情绪，与我无关啊…… 等待不苦，苦的是，没有希望的等待…… 有的时候爱是没有理由的，爱了就是爱了，即使撞上南墙也是爱了，只是爱的卑微爱的骄傲罢了，其中滋味只有自己知道…… |
使右键失效的代码
2008-09-17 18:49
| <script language="javascript"> <!-- if (window.Event) document.captureEvents(Event.MOUSEUP); function nocontextmenu() { event.cancelBubble = true event.returnValue = false; return false; } function norightclick(e) { if (window.Event) { if (e.which == 2 || e.which == 3) return false; } else if (event.button == 2 || event.button == 3) { event.cancelBubble = true event.returnValue = false; return false; } } document.oncontextmenu = nocontextmenu; //对ie5.0以上 document.onmousedown = norightclick; //对其它浏览器 //--> </script> |
上传多个图片的代码
2008-09-16 01:12
| UploadX.asp <% Dim FormData, FormSize, Divider, bCrLf FormSize = Request.TotalBytes FormData = Request.BinaryRead(FormSize) bCrLf = ChrB(13) & ChrB(10) Divider = LeftB(FormData, InStrB(FormData, bCrLf) - 1) '将上传的文件保存到path所指定的目录下面。 'Formfield 上传表单的"file"域名 'Path 要保存文件的服务器绝对路径，形式为："d:\path\subpath"或"d:\path\subpath\" 'MaxSize 限制上传文件的最大长度，以KByte为单位 'SavType 服务器保存文件的方式： ' 0 唯一文件名方式，如果有同名则自动改名； ' 1 报错方式，如果有同名则出错； ' 2 覆盖方式，如果有同名则覆盖原来的文件 Function SaveFile(FormFileField, Path, MaxSize, SavType) Dim StreamObj,StreamObj1 Set StreamObj = Server.CreateObject("ADODB.Stream") Set StreamObj1 = Server.CreateObject("ADODB.Stream") StreamObj.Mode = 3 StreamObj1.Mode = 3 StreamObj.Type = 1 StreamObj1.Type = 1 SaveFile = "" StartPos = LenB(Divider) + 2 FormFileField = Chr(34) & FormFileField & Chr(34) If Right(Path,1) <> "\" Then Path = Path & "\" End If Do While StartPos > 0 strlen = InStrB(StartPos, FormData, bCrLf) - StartPos SearchStr = MidB(FormData, StartPos, strlen) If InStr(bin2str(SearchStr), FormFileField) > 0 Then FileName = bin2str(GetFileName(SearchStr,path,SavType)) If FileName <> "" Then FileStart = InStrB(StartPos, FormData, bCrLf & bCrLf) + 4 FileLen = InStrB(StartPos, FormData, Divider) - 2 - FileStart If FileLen <= MaxSize*1024 Then FileContent = MidB(FormData, FileStart, FileLen) StreamObj.Open StreamObj1.Open StreamObj.Write FormData StreamObj.Position=FileStart-1 StreamObj.CopyTo StreamObj1,FileLen If SavType =0 Then SavType = 1 End If StreamObj1.SaveToFile Path & FileName, SavType StreamObj.Close StreamObj1.Close If SaveFile <> "" Then SaveFile = SaveFile & "," & FileName Else SaveFile = FileName End If Else If SaveFile <> "" Then SaveFile = SaveFile & ",*TooBig*" Else SaveFile = "*TooBig*" End If End If End If End If If InStrB(StartPos, FormData, Divider) < 1 Then Exit Do End If StartPos = InStrB(StartPos, FormData, Divider) + LenB(Divider) + 2 Loop End Function Function GetFormVal(FormName) GetFormVal = "" StartPos = LenB(Divider) + 2 FormName = Chr(34) & FormName & Chr(34) Do While StartPos > 0 strlen = InStrB(StartPos, FormData, bCrLf) - StartPos SearchStr = MidB(FormData, StartPos, strlen) If InStr(bin2str(SearchStr), FormName) > 0 Then ValStart = InStrB(StartPos, FormData, bCrLf & bCrLf) + 4 ValLen = InStrB(StartPos, FormData, Divider) - 2 - ValStart ValContent = MidB(FormData, ValStart, ValLen) If GetFormVal <> "" Then GetFormVal = GetFormVal & "," & bin2str(ValContent) Else GetFormVal = bin2str(ValContent) End If End If If InStrB(StartPos, FormData, Divider) < 1 Then Exit Do End If StartPos = InStrB(StartPos, FormData, Divider) + LenB(Divider) + 2 Loop End Function Function bin2str(binstr) Dim varlen, clow, ccc, skipflag skipflag = 0 ccc = "" varlen = LenB(binstr) For i = 1 To varlen If skipflag = 0 Then clow = MidB(binstr, i, 1) If AscB(clow) > 127 Then ccc = ccc & Chr(AscW(MidB(binstr, i + 1, 1) & clow)) skipflag = 1 Else ccc = ccc & Chr(AscB(clow)) End If Else skipflag = 0 End If Next bin2str = ccc End Function Function str2bin(str) For i = 1 To Len(str) str2bin = str2bin & ChrB(Asc(Mid(str, i, 1))) Next End Function www.nfzixun.com Function GetFileName(str,path,savtype) Set fs = Server.CreateObject("Scripting.FileSystemObject") str = RightB(str,LenB(str)-InstrB(str,str2bin("filename="))-9) GetFileName = "" FileName = "" For i = LenB(str) To 1 Step -1 If MidB(str, i, 1) = ChrB(Asc("\")) Then FileName = MidB(str, i + 1, LenB(str) - i - 1) Exit For End If Next If savtype = 0 and fs.FileExists(path & bin2str(FileName)) = True Then hFileName = FileName rFileName = "" For i = LenB(FileName) To 1 Step -1 If MidB(FileName, i, 1) = ChrB(Asc(".")) Then hFileName = LeftB(FileName, i-1) rFileName = RightB(FileName, LenB(FileName)-i+1) Exit For End If Next For i = 0 to 9999 'hFileName = hFileName & str2bin(i) If fs.FileExists(path & bin2str(hFileName) & i & bin2str(rFileName)) = False Then FileName = hFileName & str2bin(i) & rFileName Exit For End If Next End If Set fs = Nothing GetFileName = FileName End Function %> 应用举例： upload.htm www.tgtc.cc <html> <head> <meta http-equiv="Content-Language" content="zh-cn"> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <meta name="GENERATOR" content="Microsoft FrontPage 4.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <title>New Page 1</title> </head> <body> <form method="POST" action="upload.asp" enctype="multipart/form-data"> <p>姓名：<input type="text" name="name" size="20"></p> <p>城市：<input type="text" name="city" size="20"></p> <p>爱好：1、<input type="text" name="lover" size="10"> 2、<input type="text" name="lover" size="10"></p> <p>性别：<input type="radio" value="男" checked name="sex">男 <input type="radio" name="sex" value="女">女</p> <p>省份：<select size="1" name="province"> <option selected value="江苏">江苏</option> <option value="山西">山西</option> </select></p> 爱好(补充)：3、<input type="text" name="lover" size="10"> 4、<input type="text" name="lover" size="10"> <p>作品1：<input type="file" name="fruit" size="20"></p> <p>作品1：<input type="file" name="fruit" size="20"></p> <p>作品2：<input type="file" name="fruit2" size="20"></p> <p><input type="submit" value="提交" name="subbutt"><input type="reset" value="全部重写" name="rebutt"></p> </form> </body> </html> upload.asp <%@ LANGUAGE = VBScript %> <!-- #include file="uploadx.asp" --> <% Response.Write "<br/>Name=""" & GetFormVal("name") & """" Response.Write "<br/>Sex=""" & GetFormVal("sex") & """" Response.Write "<br/>province=""" & GetFormVal("province") & """" Response.Write "<br/>city=""" & GetFormVal("city") & """" Response.Write "<br/>lover=""" & GetFormVal("lover") & """" dim filename path = Server.MapPath("./") filename = SaveFile("fruit",path,1024,0) If filename <> "*TooBig*" Then Response.Write "<br/><br/>""" & filename & """已经上传" Else Response.Write "<br/><br/>文件超出限制太大" End IF filename = SaveFile("fruit2",path,1024,0) If filename <> "*TooBig*" Then Response.Write "<br/><br/>""" & filename & """已经上传" Else Response.Write "<br/><br/>文件超出限制太大" End IF %> |
带时钟的台历
2008-09-11 00:30
| 带时钟的台历：一个非常非常漂亮的仿真电子台历，不用可惜 效果演示： <> <> 2007年4月 8 星期日 2:03:26 第一步：把如下代码加入<head>区域中： <STYLE>A.menuitem { COLOR: menutext; TEXT-DECORATION: none } A.menuitem:hover { COLOR: highlighttext; BACKGROUND-COLOR: highlight } DIV.contextmenu { BORDER-RIGHT: 2px outset; BORDER-TOP: 2px outset; Z-INDEX: 999; VISIBILITY: hidden; BORDER-LEFT: 2px outset; BORDER-BOTTOM: 2px outset; POSITION: absolute; BACKGROUND-COLOR: buttonface } </STYLE> 第二步：把如下代码加入<body>区域中: <STYLE>A.menuitem { COLOR: menutext; TEXT-DECORATION: none } A.menuitem:hover { COLOR: highlighttext; BACKGROUND-COLOR: highlight } DIV.contextmenu { BORDER-RIGHT: 2px outset; BORDER-TOP: 2px outset; Z-INDEX: 999; VISIBILITY: hidden; BORDER-LEFT: 2px outset; BORDER-BOTTOM: 2px outset; POSITION: absolute; BACKGROUND-COLOR: buttonface }</P><P>www.nfzixun.com</STYLE> <SCRIPT language=JavaScript> function Year_Month(){ var now = new Date(); var yy = now.getYear(); var mm = now.getMonth()+1; var cl = '<font color="#0000df">'; if (now.getDay() == 0) cl = '<font color="#c00000">'; if (now.getDay() == 6) cl = '<font color="#00c000">'; return(cl + yy + '年' + mm + '月</font>'); } function Date_of_Today(){ var now = new Date(); var cl = '<font color="#ff0000">'; if (now.getDay() == 0) cl = '<font color="#c00000">'; if (now.getDay() == 6) cl = '<font color="#00c000">'; return(cl + now.getDate() + '</font>'); } function Day_of_Today(){ var day = new Array(); day[0] = "星期日"; day[1] = "星期一"; day[2] = "星期二"; day[3] = "星期三"; day[4] = "星期四"; day[5] = "星期五"; day[6] = "星期六"; var now = new Date(); var cl = '<font color="#0000df">'; if (now.getDay() == 0) cl = '<font color="#c00000">'; if (now.getDay() == 6) cl = '<font color="#00c000">'; return(cl + day[now.getDay()] + '</font>'); } function CurentTime(){ var now = new Date(); var hh = now.getHours(); var mm = now.getMinutes(); var ss = now.getTime() % 60000; ss = (ss - (ss % 1000)) / 1000; var clock = hh+':'; if (mm < 10) clock += '0'; clock += mm+':'; if (ss < 10) clock += '0'; clock += ss; return(clock); } function refreshCalendarClock(){ document.all.calendarClock1.innerHTML = Year_Month(); document.all.calendarClock2.innerHTML = Date_of_Today(); document.all.calendarClock3.innerHTML = Day_of_Today(); document.all.calendarClock4.innerHTML = CurentTime(); } var webUrl = webUrl; document.write('<table border="0" cellpadding="0" cellspacing="0"><tr><td>'); document.write('<table id="CalendarClockFreeCode" border="0" cellpadding="0" cellspacing="0" width="60" height="70" '); document.write('style="position:absolute;visibility:hidden" bgcolor="#eeeeee">'); document.write('<tr><td align="center"><font '); document.write('style="cursor:hand;color:#ff0000;font-family:宋体;font-size:14pt;line-height:120%" '); if (webUrl != 'netflower'){ document.write('</td></tr><tr><td align="center"><font '); document.write('style="cursor:hand;color:#2000ff;font-family:宋体;font-size:9pt;line-height:110%" '); } document.write('</td></tr></table>'); document.write('<table border="0" cellpadding="0" cellspacing="0" width="61" bgcolor="#C0C0C0" height="70">'); document.write('<tr><td valign="top" width="100%" height="100%">'); document.write('<table border="1" cellpadding="0" cellspacing="0" width="58" bgcolor="#FEFEEF" height="67">'); document.write('<tr><td align="center" width="100%" height="100%" >'); document.write('<font id="calendarClock1" style="font-family:宋体;font-size:7pt;line-height:120%"> </font><br>'); document.write('<font id="calendarClock2" style="color:#ff0000;font-family:Arial;font-size:14pt;line-height:120%">www.tgtc.cc </font><br>'); document.write('<font id="calendarClock3" style="font-family:宋体;font-size:9pt;line-height:120%"> </font><br>'); document.write('<font id="calendarClock4" style="color:#100080;font-family:宋体;font-size:8pt;line-height:120%"><b> </b></font>'); document.write('</td></tr></table>'); document.write('</td></tr></table>'); document.write('</td></tr></table>'); setInterval('refreshCalendarClock()',1000); </SCRIPT> |
页面滚动条的设置和ASP邮箱判断
2008-09-11 00:09
| 页面滚动条的设置 .largetext { scrollbar-3dlight-color: #B0C4DE; scrollbar-arrow-color: #FFFFFF; scrollbar-base-color: #8BA9CF; scrollbar-darkshadow-color: #436DA3; scrollbar-face-color: #34547E; scrollbar-highlight-color: #E6ECF4; scrollbar-shadow-color: #000000; } 邮箱判断 elseif instr(mail,"@")=0 or instr(mail,".")=0 or right(mail,1)="@" or left(mail,1)="@" or instr(mail,".@")<>0 or instr(mail,"@.")<>0 then |
ASP多行多列分页代码
2008-09-11 00:07
| <!--连接数据库--> <!--#include file="conn.asp" --> <% ' | 导游信息管理系统 ' | -------------------------------------------------------------------------------------------------' | 开始查询表 set js=server.createobject("adodb.recordset") js.open "select * from guide order by id desc",conn,1,1 if js.eof and js.bof then ' 没有任何数据 response.write"很抱歉！导游资料库中暂时没有导游资料可以查看或是数据正在更新！~`<br><a href=javascript:history.back(-1)>[返回上一页]</a> " response.end else dim page '定义分页数变量 page=request("page") ' 取得当前页数Request("page")值 if page="" or not isnumeric(page) then ' 如果page值为空或不是数值则page值=1 page=1 end if js.pagesize = 20 '每页显示记录数 if not Isempty(request("page")) then ' 如果page已经初始化 page=cInt(pequest("page")) ' 接收page并化为数字型赋给page变量 if page>js.pagecount then 'www.nfzixun.com 如果接收的页数大于总页数 js.absolutepage=js.pagecount ' 设置当前显示页等于最后页 elseif page<=0 then ' 如果page小于等于0 page=1 ' 设置page等于第一页 else js.absolutepage=page ' 如果大于零,显示当前页等于接收的页数 end if end if Page=js.AbsolutePage ' 返回设置当前记录所在的页和值dim rows,cel rows=4 ' 设置行 cel=5 ' 设置列 %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> <title>www.tgtc.cc</title> </head> <body> 导游总数<%=js.RecordCount%> 每页显示<%=js.PageSize%>位导游<table border="0" align="center" cellpadding="0" cellspacing="0"> <% for j=1 to rows ' 循环行 %> <tr> <% for i=1 to cel ' 循环列 if js.eof then exit for ' 对列进行处理,如果不加这一句循环i将出错,因为所有数据已经输出完毕了%> <td width="130"><!--这里请改成你要显示的内容-->导游姓名:<%=js("name")%></td> <% js.MoveNext ' 移动到下一条数据 if i=js.bof then exit for '如果数据输出完毕退出循环 i ,如果有很多数据的话,对数据输出的性能将会变的很不理想,郁闷中 next %> </tr> <% if j=rows then exit for ' 退出行循环 next end if %> </table> <div align="center"><br> <a href="">[首页] </a> <% dim pagen ' 定义分页值变量 for pagen=1 to js.PageCount ' 开始循环 response.write"<a href=?Page="&pagen&">第"&pagen&"页 </a>" ' 取得当前页数 if pagen=js.PageCount then exit for ' 退出循环 next %> <a href=""> [尾页</a>] </div> </body> </html> |
