逐梦论坛's Archiver

蚂蚁 发表于 2010-6-19 20:07

QQ摘菜倒计时ASP代码

前几天，老婆要我弄一软件偷菜，给她弄了一款，可是她说用软件偷没意思了，要我弄一倒计时的时钟。于是，找了网上一通，发觉大多qq倒计时软件广告软体太多，又有一些莫名的乱七八糟的东西，于是，就自己动手帮老婆写了一款asp的懒人文件。采用了无刷新的ajax。如果不采用ajax，就不会在浏览其他网页时进行预警。
  
  【[color=#000000]由于这个代码不能缩小页面到任务栏，只能长期放在桌面上，因此进行了改进，这里下载的全套程序可以到任务栏了，改造的比较多，所有改造的这些都是老婆在使用中提到的缺陷。希望和asp爱好者交流[/color]
下载地址：[attach]2238[/attach] ie内核测试成功】
  
1：首页文件：index.asp
[code]
<!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]">
<html xmlns="[url=http://www.w3.org/1999/xhtml]http://www.w3.org/1999/xhtml[/url]">
<head>
<meta http-equiv="content-type" content="text/html; charset=gb2312" />
<title>闹钟提醒服务</title>
<link href="css.css" rel="stylesheet" type="text/css">
<script src="ajax.js"></script>
</head>
<body>
<script>
window.setinterval("getajax()",1000);//设定1秒调用一次
</script>
<table width="650" border="0" align="center" cellpadding="1" cellspacing="0" bgcolor="#acd5e5">
    <tr bgcolor="#abbcd3">
<td height="35" align=center>
asp闹钟提醒服务&amp;nbsp;&amp;nbsp;今天<span id=time></span>
</td>
    </tr>
</table>
<table width="650" height=540 border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#acd5e5">
    <tr bgcolor=#ffffff>
<td><a href="javascript:;" o n c l i c k="alert_winx.style.display='block';"><font color="#ff0000"><b>提交新的号码</b></font></a>
</td>
    </tr>
<tr bgcolor=#ffffff>
<td height=100% valign=top>
<span id="loadajaxtips"></span>
</td>
</tr>
  </table>
<table width="650" border="0" align="center" cellpadding="1" cellspacing="0" bgcolor="#acd5e5">
    <tr bgcolor="#abbcd3">
      <td height="35" align=right>注意：请勿关闭、缩小本页！<br>程序内部限制使用 制作：蚂蚁 家中&amp;nbsp;</td>
    </tr>
</table>
<%
tijiaok
function tijiaok
%>
<table><tr><td>
<div id="alert_winx" style="display:none;">
<div style="top:0;left:0;position: absolute;z-index:1000;" class="bg"></div>
<div class=beian_winbg><!--弹出框-->
<div style="z-index:1002;width:100%;height:200px;background: #fff;position:absolute;">
<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>
<div>
<br>
<table width="90%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#cccccc">
<form name="ok" method="post" action="ok.asp">
    <tr bgcolor="#ffffff">
<td>
<font color=#ff44ff>
&amp;nbsp;qq号码：<select style="width:40" name="qq" size="1">
<option value="">选择</option>
<option value="6512283">1蚂蚁</option>
<option value="1402652113">妞妞</option>
</select>
</td>
</tr>
<tr bgcolor="#ffffff">
<td>
&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="牧草">
</td>
</tr>
<tr bgcolor="#ffffff">
<td>
<font color=#ff44ff>
&amp;nbsp;距离成熟时间还有
<select style="width:40" name="shi" value="" size=1>
<option value="0">0</option>
<option value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
<option value="4">4</option>
<option value="5">5</option>
<option value="6">6</option>
<option value="7">7</option>
<option value="8">8</option>
<option value="9">9</option>
<option value="10">10</option>
<option value="11">11</option>
<option value="12">12</option>
<option value="13">13</option>
<option value="14">14</option>
<option value="15">15</option>
<option value="16">16</option>
<option value="17">17</option>
<option value="18">18</option>
<option value="19">19</option>
<option value="20">20</option>
<option value="21">21</option>
<option value="22">22</option>
<option value="23">23</option>
</select>
时
<select style="width:40" name="fen" value="" size=1>
<option value="0">0</option>
<option value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
<option value="4">4</option>
<option value="5">5</option>
<option value="6">6</option>
<option value="7">7</option>
<option value="8">8</option>
<option value="9">9</option>
<option value="10">10</option>
<option value="11">11</option>
<option value="12">12</option>
<option value="13">13</option>
<option value="14">14</option>
<option value="15">15</option>
<option value="16">16</option>
<option value="17">17</option>
<option value="18">18</option>
<option value="19">19</option>
<option value="20">20</option>
<option value="21">21</option>
<option value="22">22</option>
<option value="23">23</option>
<option value="24">24</option>
<option value="25">25</option>
<option value="26">26</option>
<option value="27">27</option>
<option value="28">28</option>
<option value="29">29</option>
<option value="30">30</option>
<option value="31">31</option>
<option value="32">32</option>
<option value="33">33</option>
<option value="34">34</option>
<option value="35">35</option>
<option value="36">36</option>
<option value="37">37</option>
<option value="38">38</option>
<option value="39">39</option>
<option value="40">40</option>
<option value="41">41</option>
<option value="42">42</option>
<option value="43">43</option>
<option value="44">44</option>
<option value="45">45</option>
<option value="46">46</option>
<option value="47">47</option>
<option value="48">48</option>
<option value="49">49</option>
<option value="50">50</option>
<option value="51">51</option>
<option value="52">52</option>
<option value="53">53</option>
<option value="54">54</option>
<option value="55">55</option>
<option value="56">56</option>
<option value="57">57</option>
<option value="58">58</option>
<option value="59">59</option>
</select>
分
</td>
</tr>
<tr bgcolor="#ffffff">
<td><font color=#ff44ff>
&amp;nbsp;提前
<select style="width:30" name="tiqian" value="" size=1>
<option value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
<option value="4">4</option>
<option value="5">5</option>
</select>
分钟提醒我</font>
</td>
</tr>
<tr bgcolor="#ffffff">
<td align=center>
<input type="submit" name="btnsubmit" value=" 确 定 ">
&amp;nbsp;
      <input type="reset" name="submit2" value=" 重 写 ">
</td>
</tr>
</form>
</table>
</div>
</div>
<div style="z-index:1001;position:absolute;"><iframe id="frmonestep" width="100%" height="200" frameborder="0" scrolling="no" src="about:blank"></iframe></div>
</div>
</div>
</td></tr></table>
<%
end function
%>
</body>
</html>
[/code]
  
由于论坛关系，这里的[o n c l i c k]分割开了。

蚂蚁 发表于 2010-6-19 20:10

2：读取数据文件：conn.asp
[code]
<%
on error resume next '防暴库
dim conn,exec
'链接数据库
        set conn=server.createobject("adodb.connection")
        conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("nmc.mdb")



'读取字段内容
        set rs=server.createobject("adodb.recordset")
        exec="select * from mayi_nm order by id asc"
        rs.open exec,conn,1,1
%>
[/code]

蚂蚁 发表于 2010-6-19 20:12

3：css层文件：css.css
[code] a{text-decoration: none;} /* 链接无下划线,有为underline */
a:link {color: blue;} /* 未访问的链接 */
a:visited {color: blue;} /* 已访问的链接 */
a:hover{background: #;text-decoration: underline;position: relative; right: 0px;top: 1px} /* 鼠标在链接上 */
a:active {color: #0000ff;} /* 点击激活链接 */

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



input
{
background-color: #ffffff;
border-bottom: #666666 1px solid;
border-left: #666666 1px solid;
border-right: #666666 1px solid;
border-top: #666666 1px solid;
color: #666666;
height: 18px;
border-color: #666666 #666666 #666666 #666666; font-size: 9pt
}

button
{
font-size: 9pt;height: 20px;
}

select
{
background-color: #ffffff;
font-size: 9pt;height: 20px;
color: #666666;
}

td
{
font-family:宋体;font-size: 9pt;line-height: 180%;
}

/* form表单底距为0 */
form
{
    margin:0px;padding:0px
}

/*仿ajax*/

.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%;}
.beian_winbg {
margin-top: -100px; left: 50%; margin-left: -190px; width: 376px; position: absolute; top: 50%; height:200px;border:#666666 1px solid;z-index: 1000;
}[/code]

蚂蚁 发表于 2010-6-19 20:14

4：ajax无刷新读取数据库内容:nm.asp

[code]<!-- #include file="conn.asp" -->

<%
response.contenttype="text/html; charset=gb2312"
response.buffer = true
response.expires = -1
response.expiresabsolute = now() - 1
response.expires = 0
response.cachecontrol = "no-cache"

     do while not rs.eof

dim time,time1,time2,newdate,newdate1,newdate2
time=rs("shi")*60 + rs("fen") '将成熟时间换算为分钟
time1=rs("shijian") '提交时的时间
time2=rs("tiqian") '提前n分钟报警
newdate = dateadd("n",time,time1) '成熟时间
newdate1 = dateadd("n",-time2,newdate) '报警时间
newdate2 = datediff("s",now(),newdate) '倒计时读秒
     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;"]秒 "




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

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

<%
     response.write " <a href=del.asp?id="&amp;rs("id")&amp;"><font color=#ff44ff>删</font></a><br>"
     else
     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>"
     end if

     rs.movenext
     loop

response.end()

     rs.close
     set rs=nothing

%>
[/code]

蚂蚁 发表于 2010-6-19 20:19

5：提交到数据库文件：ok.asp
[code]<%
dim name,nmc,shi,fen,shijian,qq,tiqian       
name=trim(request.form("name"))        '文本
nmc=trim(request.form("nmc"))        '文本
shi=trim(request.form("shi"))        '数字
fen=trim(request.form("fen"))        '数字
qq=trim(request.form("qq"))        '数字
tiqian=trim(request.form("tiqian"))        '数字

if name="" then
response.write "<script language=javascript>alert('成熟种类不能为空');"
response.write "this.location.href='vbscript:history.back()';</script>"
response.end
elseif qq="" then
response.write "<script language=javascript>alert('请填写qq号码');"
response.write "this.location.href='vbscript:history.back()';</script>"
response.end
elseif shi="" then
response.write "<script language=javascript>alert('小时不能为空');"
response.write "this.location.href='vbscript:history.back()';</script>"
response.end
elseif fen="" then
response.write "<script language=javascript>alert('分钟不能为空');"
response.write "this.location.href='vbscript:history.back()';</script>"
response.end
else
%>
<!-- #include file="conn.asp" -->
<%
dim sql


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

        conn.close
        set conn=nothing
        response.redirect "index.asp"
end if
%>[/code]

蚂蚁 发表于 2010-6-19 20:21

6：ajax无刷新文件：ajax.js
[code]
//ajax刷新

function createxmlhttp()

{
xmlhttpobj = false;
try{
xmlhttpobj = new activexobject;
}catch(e){
try{
xmlhttpobj=new activexobject("msxml2.xmlhttp");
}catch(e2){
try{
xmlhttpobj=new activexobject("microsoft.xmlhttp");
}catch(e3){
xmlhttpobj = false;
}
}
}
return xmlhttpobj;
}


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

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

//js时间刷新
setinterval("time.innertext=new date().tolocalestring()",1000)[/code]

蚂蚁 发表于 2010-6-19 20:22

7：删除文件：del.asp
[code]<!-- #include file="conn.asp" -->

<%
exec="delete * from mayi_nm where id="&request.querystring("id")
conn.execute exec
conn.close
set conn=nothing
        response.redirect "index.asp"
%>[/code]

蚂蚁 发表于 2010-6-19 20:24

8：修改文件a：xiugai.asp
[code]<!-- #include file="conn.asp" -->
<html>
<head>
<link href="css.css" rel="stylesheet" type="text/css">
</head>

<body>

<%
s=request("t")
session("b")=s

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

%>

  <p></p>

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

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

<tr bgcolor="#ffffff"><td colspan=4><input type="submit" name="submit" value="提交修改"></td></tr>
  </table>
  <p></p>
  <p></p>
  <p></p>
  <p></p>
</form>
</table>
</body>
</html>
[/code]

蚂蚁 发表于 2010-6-19 20:25

9：修改文件b：xgok.asp
[code]<!-- #include file="conn.asp" -->

<%
k=session("b")

o=request("textfield")
j=request("textfield1")
q=request("textfield3")
m=request("textfield4")
n=request("textfield5")
h=request("textfield6")

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

rs("qq")=o
rs("nmc")=j
rs("name")=q
rs("shi")=m
rs("fen")=n
rs("tiqian")=h

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


%>
[/code]

蚂蚁 发表于 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说明

shillan 发表于 2010-6-22 17:40

强大而勤劳的蚂蚁，谢谢！
可以打包上传的啊。[EM05]

蚂蚁 发表于 2010-6-25 21:10

hoho，上传了。还有蓝色说明。

shillan 发表于 2010-6-26 11:03

辛苦、辛苦。[EM04]

会飞的蚂蚁 发表于 2012-2-6 11:50

顶．支持，路过！

qazwer168 发表于 2012-2-7 14:35

鉴定完毕.!

hotju.com 发表于 2012-8-13 22:45

看了，感觉不错，谢谢您提供

baizhuwang.com 发表于 2012-9-12 03:13

真是好人啊~~

bxumra 发表于 2012-9-27 17:28

看的人少，回一下

dibar 发表于 2012-9-30 04:09

很好啊.谢谢楼主啊

nfjft 发表于 2012-11-27 17:46

不知该说些什么。。。。。。就是谢谢

页: [1] 2

Powered by Discuz! Archiver 7.2  © 2001-2009 Comsenz Inc.