123
返回列表 发帖

Rank: 2
1# 跳转到 » 倒序看帖
打印
tT
蚂蚁发表于 2010-6-19 20:07 | 只看该作者

[ASP] QQ摘菜倒计时ASP代码

任务栏, 爱好者, 桌面, 软件, 老婆
前几天，老婆要我弄一软件偷菜，给她弄了一款，可是她说用软件偷没意思了，要我弄一倒计时的时钟。于是，找了网上一通，发觉大多qq倒计时软件广告软体太多，又有一些莫名的乱七八糟的东西，于是，就自己动手帮老婆写了一款asp的懒人文件。采用了无刷新的ajax。如果不采用ajax，就不会在浏览其他网页时进行预警。
  
  【由于这个代码不能缩小页面到任务栏，只能长期放在桌面上，因此进行了改进，这里下载的全套程序可以到任务栏了，改造的比较多，所有改造的这些都是老婆在使用中提到的缺陷。希望和asp爱好者交流
下载地址： nm.rar (187.82 KB) ie内核测试成功】
  
1：首页文件：index.asp

  2. <!doctype html public "-//w3c//dtd xhtml 1.0 transitional//en" "[url=http://www.w3.org/tr/xhtml1/dtd/xhtml1-transitional.dtd]http://www.w3.org/tr/xhtml1/dtd/xhtml1-transitional.dtd[/url]">
  3. <html xmlns="[url=http://www.w3.org/1999/xhtml]http://www.w3.org/1999/xhtml[/url]">
  4. <head>
  5. <meta http-equiv="content-type" content="text/html; charset=gb2312" />
  6. <title>闹钟提醒服务</title>
  7. <link href="css.css" rel="stylesheet" type="text/css">
  8. <script src="ajax.js"></script>
  9. </head>
  10. <body>
  11. <script>
  12. window.setinterval("getajax()",1000);//设定1秒调用一次
  13. </script>
  14. <table width="650" border="0" align="center" cellpadding="1" cellspacing="0" bgcolor="#acd5e5">
  15.     <tr bgcolor="#abbcd3">
  16. <td height="35" align=center>
  17. asp闹钟提醒服务&amp;nbsp;&amp;nbsp;今天<span id=time></span>
  18. </td>
  19.     </tr>
  20. </table>
  21. <table width="650" height=540 border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#acd5e5">
  22.     <tr bgcolor=#ffffff>
  23. <td><a href="javascript:;" o n c l i c k="alert_winx.style.display='block';"><font color="#ff0000"><b>提交新的号码</b></font></a>
  24. </td>
  25.     </tr>
  26. <tr bgcolor=#ffffff>
  27. <td height=100% valign=top>
  28. <span id="loadajaxtips"></span>
  29. </td>
  30. </tr>
  31.   </table>
  32. <table width="650" border="0" align="center" cellpadding="1" cellspacing="0" bgcolor="#acd5e5">
  33.     <tr bgcolor="#abbcd3">
  34.       <td height="35" align=right>注意：请勿关闭、缩小本页！<br>程序内部限制使用 制作：蚂蚁 家中&amp;nbsp;</td>
  35.     </tr>
  36. </table>
  37. <%
  38. tijiaok
  39. function tijiaok
  40. %>
  41. <table><tr><td>
  42. <div id="alert_winx" style="display:none;">
  43. <div style="top:0;left:0;position: absolute;z-index:1000;" class="bg"></div>
  44. <div class=beian_winbg><!--弹出框-->
  45. <div style="z-index:1002;width:100%;height:200px;background: #fff;position:absolute;">
  46. <div style="width:100%;background:#f1f1f1;height:30px;light-height:30px;border-bottom:#666666 1px solid;padding-top:8px;padding-top:8px;text-align:right;"><a href="javascript:;" o n c l i c k="alert_winx.style.display='none';">关闭</a>&amp;nbsp;</div>
  47. <div>
  48. <br>
  49. <table width="90%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#cccccc">
  50. <form name="ok" method="post" action="ok.asp">
  51.     <tr bgcolor="#ffffff">
  52. <td>
  53. <font color=#ff44ff>
  54. &amp;nbsp;qq号码：<select style="width:40" name="qq" size="1">
  55. <option value="">选择</option>
  56. <option value="6512283">1蚂蚁</option>
  57. <option value="1402652113">妞妞</option>
  58. </select>
  59. </td>
  60. </tr>
  61. <tr bgcolor="#ffffff">
  62. <td>
  63. &amp;nbsp;<input type="radio" name="nmc" value="农场"> 农场&amp;nbsp;<input type="radio" name="nmc" value="牧场" checked> 牧场&amp;nbsp;<input name="name" type="text" size="5" value="牧草">
  64. </td>
  65. </tr>
  66. <tr bgcolor="#ffffff">
  67. <td>
  68. <font color=#ff44ff>
  69. &amp;nbsp;距离成熟时间还有
  70. <select style="width:40" name="shi" value="" size=1>
  71. <option value="0">0</option>
  72. <option value="1">1</option>
  73. <option value="2">2</option>
  74. <option value="3">3</option>
  75. <option value="4">4</option>
  76. <option value="5">5</option>
  77. <option value="6">6</option>
  78. <option value="7">7</option>
  79. <option value="8">8</option>
  80. <option value="9">9</option>
  81. <option value="10">10</option>
  82. <option value="11">11</option>
  83. <option value="12">12</option>
  84. <option value="13">13</option>
  85. <option value="14">14</option>
  86. <option value="15">15</option>
  87. <option value="16">16</option>
  88. <option value="17">17</option>
  89. <option value="18">18</option>
  90. <option value="19">19</option>
  91. <option value="20">20</option>
  92. <option value="21">21</option>
  93. <option value="22">22</option>
  94. <option value="23">23</option>
  95. </select>
  96. 时
  97. <select style="width:40" name="fen" value="" size=1>
  98. <option value="0">0</option>
  99. <option value="1">1</option>
  100. <option value="2">2</option>
  101. <option value="3">3</option>
  102. <option value="4">4</option>
  103. <option value="5">5</option>
  104. <option value="6">6</option>
  105. <option value="7">7</option>
  106. <option value="8">8</option>
  107. <option value="9">9</option>
  108. <option value="10">10</option>
  109. <option value="11">11</option>
  110. <option value="12">12</option>
  111. <option value="13">13</option>
  112. <option value="14">14</option>
  113. <option value="15">15</option>
  114. <option value="16">16</option>
  115. <option value="17">17</option>
  116. <option value="18">18</option>
  117. <option value="19">19</option>
  118. <option value="20">20</option>
  119. <option value="21">21</option>
  120. <option value="22">22</option>
  121. <option value="23">23</option>
  122. <option value="24">24</option>
  123. <option value="25">25</option>
  124. <option value="26">26</option>
  125. <option value="27">27</option>
  126. <option value="28">28</option>
  127. <option value="29">29</option>
  128. <option value="30">30</option>
  129. <option value="31">31</option>
  130. <option value="32">32</option>
  131. <option value="33">33</option>
  132. <option value="34">34</option>
  133. <option value="35">35</option>
  134. <option value="36">36</option>
  135. <option value="37">37</option>
  136. <option value="38">38</option>
  137. <option value="39">39</option>
  138. <option value="40">40</option>
  139. <option value="41">41</option>
  140. <option value="42">42</option>
  141. <option value="43">43</option>
  142. <option value="44">44</option>
  143. <option value="45">45</option>
  144. <option value="46">46</option>
  145. <option value="47">47</option>
  146. <option value="48">48</option>
  147. <option value="49">49</option>
  148. <option value="50">50</option>
  149. <option value="51">51</option>
  150. <option value="52">52</option>
  151. <option value="53">53</option>
  152. <option value="54">54</option>
  153. <option value="55">55</option>
  154. <option value="56">56</option>
  155. <option value="57">57</option>
  156. <option value="58">58</option>
  157. <option value="59">59</option>
  158. </select>
  159. 分
  160. </td>
  161. </tr>
  162. <tr bgcolor="#ffffff">
  163. <td><font color=#ff44ff>
  164. &amp;nbsp;提前
  165. <select style="width:30" name="tiqian" value="" size=1>
  166. <option value="1">1</option>
  167. <option value="2">2</option>
  168. <option value="3">3</option>
  169. <option value="4">4</option>
  170. <option value="5">5</option>
  171. </select>
  172. 分钟提醒我</font>
  173. </td>
  174. </tr>
  175. <tr bgcolor="#ffffff">
  176. <td align=center>
  177. <input type="submit" name="btnsubmit" value=" 确 定 ">
  178. &amp;nbsp;
  179.       <input type="reset" name="submit2" value=" 重 写 ">
  180. </td>
  181. </tr>
  182. </form>
  183. </table>
  184. </div>
  185. </div>
  186. <div style="z-index:1001;position:absolute;"><iframe id="frmonestep" width="100%" height="200" frameborder="0" scrolling="no" src="about:blank"></iframe></div>
  187. </div>
  188. </div>
  189. </td></tr></table>
  190. <%
  191. end function
  192. %>
  193. </body>
  194. </html>
复制代码

  
由于论坛关系，这里的[o n c l i c k]分割开了。
收藏 分享
不与世相争，纷扰的网络与我无关，沉寂的世界或许能带我美好... 忙忙碌碌的奔波，只为我明天的生活...

Rank: 2
2#
蚂蚁发表于 2010-6-19 20:10 | 只看该作者
2：读取数据文件：conn.asp

  2. <%
  3. on error resume next '防暴库
  4. dim conn,exec
  5. '链接数据库
  6.         set conn=server.createobject("adodb.connection")
  7.         conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("nmc.mdb")



  11. '读取字段内容
  12.         set rs=server.createobject("adodb.recordset")
  13.         exec="select * from mayi_nm order by id asc"
  14.         rs.open exec,conn,1,1
  15. %>
复制代码
不与世相争，纷扰的网络与我无关，沉寂的世界或许能带我美好... 忙忙碌碌的奔波，只为我明天的生活...

TOP

Rank: 2
3#
蚂蚁发表于 2010-6-19 20:12 | 只看该作者
3：css层文件：css.css
  1. a{text-decoration: none;} /* 链接无下划线,有为underline */
  2. a:link {color: blue;} /* 未访问的链接 */
  3. a:visited {color: blue;} /* 已访问的链接 */
  4. a:hover{background: #;text-decoration: underline;position: relative; right: 0px;top: 1px} /* 鼠标在链接上 */
  5. a:active {color: #0000ff;} /* 点击激活链接 */

  7. body
  8. {
  9. font-size: 9pt;background-color:#fff;
  10. scrollbar-face-color: #acd5e5;
  11. scrollbar-highlight-color: #ffffff; scrollbar-shadow-color: #cccccc; scrollbar-3dlight-color: #cccccc; scrollbar-arrow-color: #330000; scrollbar-track-color: #f6f6f6; scrollbar-darkshadow-color: #ffffff;
  12. margin-top: 1px;
  13. margin-bottom: 1px;
  14. }



  18. input
  19. {
  20. background-color: #ffffff;
  21. border-bottom: #666666 1px solid;
  22. border-left: #666666 1px solid;
  23. border-right: #666666 1px solid;
  24. border-top: #666666 1px solid;
  25. color: #666666;
  26. height: 18px;
  27. border-color: #666666 #666666 #666666 #666666; font-size: 9pt
  28. }

  30. button
  31. {
  32. font-size: 9pt;height: 20px;
  33. }

  35. select
  36. {
  37. background-color: #ffffff;
  38. font-size: 9pt;height: 20px;
  39. color: #666666;
  40. }

  42. td
  43. {
  44. font-family:宋体;font-size: 9pt;line-height: 180%;
  45. }

  47. /* form表单底距为0 */
  48. form
  49. {
  50.     margin:0px;padding:0px
  51. }

  53. /*仿ajax*/

  55. .bg{position:absolute;z-index:999;filter:alpha(opacity=50);background:#666;opacity: 0.5;-moz-opacity: 0.5;left:0;top:0;height:3000%;width:100%;}
  56. .beian_winbg {
  57. margin-top: -100px; left: 50%; margin-left: -190px; width: 376px; position: absolute; top: 50%; height:200px;border:#666666 1px solid;z-index: 1000;
  58. }
复制代码
不与世相争，纷扰的网络与我无关，沉寂的世界或许能带我美好... 忙忙碌碌的奔波，只为我明天的生活...

TOP

Rank: 2
4#
蚂蚁发表于 2010-6-19 20:14 | 只看该作者
4：ajax无刷新读取数据库内容:nm.asp

  1. <!-- #include file="conn.asp" -->

  3. <%
  4. response.contenttype="text/html; charset=gb2312"
  5. response.buffer = true
  6. response.expires = -1
  7. response.expiresabsolute = now() - 1
  8. response.expires = 0
  9. response.cachecontrol = "no-cache"

  11.      do while not rs.eof

  13. dim time,time1,time2,newdate,newdate1,newdate2
  14. time=rs("shi")*60 + rs("fen") '将成熟时间换算为分钟
  15. time1=rs("shijian") '提交时的时间
  16. time2=rs("tiqian") '提前n分钟报警
  17. newdate = dateadd("n",time,time1) '成熟时间
  18. newdate1 = dateadd("n",-time2,newdate) '报警时间
  19. newdate2 = datediff("s",now(),newdate) '倒计时读秒
  20.      response.write "·【<a href=http://"&amp;rs("qq")&amp;".qzone.qq.com target=_blank><b>"&amp;rs("qq")&amp;"</b>】</a>的【<font color=#880088>"&amp; rs("nmc") &amp; rs("name") &amp;"</font>】于"&amp;newdate&amp;"成熟 还剩["&amp;newdate2&amp;"]秒 "




  25. if now() > newdate1 and now() < newdate then

  27.      response.write "<font color=""red"">请准备收获你的【"&amp; rs("nmc") &amp; rs("name") &amp;"】！</font>"
  28. %>
  29. <bgsound src="1.mp3" id="music" loop=-1>
  30. <a href="#">停止</a>
  31. <a href="#">播放</a>

  33. <%
  34.      response.write " <a href=del.asp?id="&amp;rs("id")&amp;"><font color=#ff44ff>删</font></a><br>"
  35.      else
  36.      response.write "<a href=del.asp?id="&amp;rs("id")&amp;"><font color=#ff44ff>删除</font></a> <a href=""xiugai.asp?t="&amp;rs("id")&amp;"""><font color=red>修改</font></a><br>"
  37.      end if

  39.      rs.movenext
  40.      loop

  42. response.end()

  44.      rs.close
  45.      set rs=nothing

  47. %>
复制代码
不与世相争，纷扰的网络与我无关，沉寂的世界或许能带我美好... 忙忙碌碌的奔波，只为我明天的生活...

TOP

Rank: 2
5#
蚂蚁发表于 2010-6-19 20:19 | 只看该作者
5：提交到数据库文件：ok.asp
  1. <%
  2. dim name,nmc,shi,fen,shijian,qq,tiqian       
  3. name=trim(request.form("name"))        '文本
  4. nmc=trim(request.form("nmc"))        '文本
  5. shi=trim(request.form("shi"))        '数字
  6. fen=trim(request.form("fen"))        '数字
  7. qq=trim(request.form("qq"))        '数字
  8. tiqian=trim(request.form("tiqian"))        '数字

  10. if name="" then
  11. response.write "<script language=javascript>alert('成熟种类不能为空');"
  12. response.write "this.location.href='vbscript:history.back()';</script>"
  13. response.end
  14. elseif qq="" then
  15. response.write "<script language=javascript>alert('请填写qq号码');"
  16. response.write "this.location.href='vbscript:history.back()';</script>"
  17. response.end
  18. elseif shi="" then
  19. response.write "<script language=javascript>alert('小时不能为空');"
  20. response.write "this.location.href='vbscript:history.back()';</script>"
  21. response.end
  22. elseif fen="" then
  23. response.write "<script language=javascript>alert('分钟不能为空');"
  24. response.write "this.location.href='vbscript:history.back()';</script>"
  25. response.end
  26. else
  27. %>
  28. <!-- #include file="conn.asp" -->
  29. <%
  30. dim sql


  33.         sql="insert into mayi_nm(name,nmc,shi,fen,qq,tiqian)values('"+name+"','"+nmc+"','"+shi+"','"+fen+"','"+qq+"','"+tiqian+"')"
  34.         conn.execute(sql)

  36.         conn.close
  37.         set conn=nothing
  38.         response.redirect "index.asp"
  39. end if
  40. %>
复制代码
不与世相争，纷扰的网络与我无关，沉寂的世界或许能带我美好... 忙忙碌碌的奔波，只为我明天的生活...

TOP

Rank: 2
6#
蚂蚁发表于 2010-6-19 20:21 | 只看该作者
6：ajax无刷新文件：ajax.js
  1. //ajax刷新

  3. function createxmlhttp()

  5. {
  6. xmlhttpobj = false;
  7. try{
  8. xmlhttpobj = new activexobject;
  9. }catch(e){
  10. try{
  11. xmlhttpobj=new activexobject("msxml2.xmlhttp");
  12. }catch(e2){
  13. try{
  14. xmlhttpobj=new activexobject("microsoft.xmlhttp");
  15. }catch(e3){
  16. xmlhttpobj = false;
  17. }
  18. }
  19. }
  20. return xmlhttpobj;
  21. }


  24. function getajax()
  25. {
  26. var xmlhttpobj = createxmlhttp();
  27. if(xmlhttpobj){//如果创建对象xmlhttpobj成功

  29. xmlhttpobj.open('get',"nm.asp",true);//get方法
  30. xmlhttpobj.send(null);
  31. xmlhttpobj.onreadystatechange=function(){//客户端监控函数
  32. if(xmlhttpobj.readystate==4){//服务器处理请求完成
  33. if(xmlhttpobj.status==200){
  34. var htmlxxx = xmlhttpobj.responsetext;//获得返回值
  35. document.getelementbyid("loadajaxtips").innerhtml=htmlxxx;
  36. }else{
  37. document.getelementbyid("loadajaxtips").innerhtml="<font color='red'>加载错误</font>";
  38. }
  39. }else{
  40. document.getelementbyid("loadajaxtips").innerhtml="";//服务器处理中
  41. }
  42. }
  43. }
  44. }

  46. //js时间刷新
  47. setinterval("time.innertext=new date().tolocalestring()",1000)
复制代码
不与世相争，纷扰的网络与我无关，沉寂的世界或许能带我美好... 忙忙碌碌的奔波，只为我明天的生活...

TOP

Rank: 2
7#
蚂蚁发表于 2010-6-19 20:22 | 只看该作者
7：删除文件：del.asp
  1. <!-- #include file="conn.asp" -->

  3. <%
  4. exec="delete * from mayi_nm where id="&request.querystring("id")
  5. conn.execute exec
  6. conn.close
  7. set conn=nothing
  8.         response.redirect "index.asp"
  9. %>
复制代码
不与世相争，纷扰的网络与我无关，沉寂的世界或许能带我美好... 忙忙碌碌的奔波，只为我明天的生活...

TOP

Rank: 2
8#
蚂蚁发表于 2010-6-19 20:24 | 只看该作者
8：修改文件a：xiugai.asp
  1. <!-- #include file="conn.asp" -->
  2. <html>
  3. <head>
  4. <link href="css.css" rel="stylesheet" type="text/css">
  5. </head>

  7. <body>

  9. <%
  10. s=request("t")
  11. session("b")=s

  13. set rs=server.createobject("adodb.recordset")
  14. sql="select * from mayi_nm where id="&s
  15. rs.open sql,conn,1,3

  17. %>

  19.   <p></p>

  21. <table width="500" border="0" cellspacing="1" cellpadding="1" align="center" bgcolor="#000000">
  22. <tr bgcolor="#ffffff">
  23. <td>
  24. <a href=index.asp target="_top">返回首页</a>
  25. </td>
  26. </tr>
  27. </table>
  28.   <br>
  29. <table width="500" border="0" cellspacing="1" cellpadding="1" align="center" bgcolor="#000000">
  30. <form name="form1" method="post" action="xgok.asp">
  31. <tr bgcolor="#ffffff">
  32. <td>qq号</td><td><input name="textfield" type="text" value="<%=rs("qq")%>"></td>
  33. <td>区域</td><td><input name="textfield1" value="<%=rs("nmc")%>"></td></tr>
  34. <tr bgcolor="#ffffff">
  35. <td>种类</td><td><input style="width:70" name="textfield3" value="<%=rs("name")%>"></td>
  36. <td>小时</td><td><input name="textfield4" value="<%=rs("shi")%>"></td></tr>

  38. <tr bgcolor="#ffffff">
  39. <td>分钟</td><td><input name="textfield5" value="<%=rs("fen")%>"></td>
  40. <td>提前</td><td><input name="textfield6" value="<%=rs("tiqian")%>"></td></tr>

  42. <tr bgcolor="#ffffff"><td colspan=4><input type="submit" name="submit" value="提交修改"></td></tr>
  43.   </table>
  44.   <p></p>
  45.   <p></p>
  46.   <p></p>
  47.   <p></p>
  48. </form>
  49. </table>
  50. </body>
  51. </html>
复制代码
不与世相争，纷扰的网络与我无关，沉寂的世界或许能带我美好... 忙忙碌碌的奔波，只为我明天的生活...

TOP

Rank: 2
9#
蚂蚁发表于 2010-6-19 20:25 | 只看该作者
9：修改文件b：xgok.asp
  1. <!-- #include file="conn.asp" -->

  3. <%
  4. k=session("b")

  6. o=request("textfield")
  7. j=request("textfield1")
  8. q=request("textfield3")
  9. m=request("textfield4")
  10. n=request("textfield5")
  11. h=request("textfield6")

  13. set rs=server.createobject("adodb.recordset")
  14. sql="select * from mayi_nm where id="&k
  15. rs.open sql,conn,1,3

  17. rs("qq")=o
  18. rs("nmc")=j
  19. rs("name")=q
  20. rs("shi")=m
  21. rs("fen")=n
  22. rs("tiqian")=h

  24. rs.update
  25.         response.write "<script type='text/javascript'>alert('恭喜成功修改');location.href='index.asp';</script>"


  28. %>
复制代码
不与世相争，纷扰的网络与我无关，沉寂的世界或许能带我美好... 忙忙碌碌的奔波，只为我明天的生活...

TOP

Rank: 2
10#
蚂蚁发表于 2010-6-19 20:32 | 只看该作者
10：其他文件：

a：音乐文件：1.mp3;
b：数据库文件：nmc.mdb
c：数据库类型：access
d：数据库结构：

表名：mayi_nm
字段：qq,name,nmc,shi,fen,tiqian,shijian [ shijian的默认值为now() ]
字段类型参考ok.asp说明
不与世相争，纷扰的网络与我无关，沉寂的世界或许能带我美好... 忙忙碌碌的奔波，只为我明天的生活...

TOP

123
返回列表

Powered by Discuz! 7.2　　 论坛QQ群：逐梦论坛群

© 2001-2021 Comsenz Inc.　鲁公网安备 37120302000001号