大概有一年多没来看看我的个人主页了，期待某种缘分出现。。。如果我们真的有缘，那就联系我吧，
| 把你的号码从通讯录中删除，不出意外的话，我们不会再有交集了吧，反正，你已经好久没有主动打电话给我，甚至没有主动发过一条短信，我们，就这样了吧。就这样，不再爱你了。 不再在嘈杂的人声中捕捉你的嗓音了 不再在滚滚人流中追逐你的身影了 不再因为你出现而再三斟酌自己的言语，动作甚至表情了 不再，为你心动了 你从来没有发现，喊出你的名字的时候，是我最温柔的时候，甚至声音有微微的颤抖；经过你的身旁，我的脚步总是放的又轻又慢；我从不敢直视你的眼睛，怕泄露了太多的情感；在无意识的发呆时，草稿纸上满页满页都是你的名字，我能把你的名字写得比我的名字还溜；分开的时候，满脑子满脑子都是你的身影，回忆一刹那只剩与你有关的点点滴滴；吃饭的时候，睡觉的时候，逛街的时候，发呆的时候，都在想你在干什么呢，会不会，会不会像我想你一样想我呢…… 那样纯粹而淡然的生活，那样以你为中心的生活，因为回忆而丰满，因为现实而枯萎。距离拉长了思念，却阻隔了见面；时间沉淀了暗恋，让你离我好远好远。眼看着身边的人一个一个都有了轰轰烈烈，我想，是该放下你了，回忆，仅仅是用来回忆。 不要说我不甘寂寞，因为我已经寂寞了好久，不要说我用情不专，因为你从来不属于我，也不要说我轻言放弃，你甚至，连一个微小的回应都不曾给我。 不再留着你的短信不舍得删掉了 不再一遍一遍的回看我们的聊天记录了 不再眼巴巴的盯着手机期望你的电话了 不再上一整晚的QQ等你现身了 不再死皮赖脸的硬拽着你在我空间上留言了 不再到处跟别人打听你的消息了 不再向好友倾诉自己的心酸了 你拨动了我的心弦，却不曾为我驻足，当我以为你还在的时候，你已没有踪影，当你回头找寻我的时候，我已开始寻找自己的天空，亲爱的，我把最美好最美好的年华留给了你，我，于你无愧。亲爱的，我的青春有限，承担不起一生一世的等待。 请不要怀疑，曾经，我愿意不顾一切的等你，愿意随时随地陪你，愿意在你身后默默的看你，为你的快乐而快乐，为你的悲伤而悲伤，尽管，那些情绪，与我无关啊…… 等待不苦，苦的是，没有希望的等待…… 有的时候爱是没有理由的，爱了就是爱了，即使撞上南墙也是爱了，只是爱的卑微爱的骄傲罢了，其中滋味只有自己知道…… |
| <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> |
| 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 %> |
| 带时钟的台历：一个非常非常漂亮的仿真电子台历，不用可惜 效果演示： <> <> 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> |
| 页面滚动条的设置 .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 |
| <!--连接数据库--> <!--#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> |
梦缘无悔 (
