QQ摘菜倒计时ASP代码 - 网页制作 - 逐梦论坛 | 逐梦网---汇聚精品

123 下一页

返回列表发帖

注册会员

Rank: 2

12^# 跳转到 »

蚂蚁发表于 2010-6-25 21:10 | 只看该作者

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

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

TOP

管理员

Rank: 9 Rank: 9 Rank: 9

11^#

shillan发表于 2010-6-22 17:40 | 只看该作者

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

欢迎光临：逐梦论坛

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

注册会员

Rank: 2

9^#

蚂蚁发表于 2010-6-19 20:25 | 只看该作者

9：修改文件b：xgok.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>"
%>

复制代码

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

TOP

注册会员

Rank: 2

8^#

蚂蚁发表于 2010-6-19 20:24 | 只看该作者

8：修改文件a：xiugai.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>

复制代码

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

TOP

注册会员

Rank: 2

7^#

蚂蚁发表于 2010-6-19 20:22 | 只看该作者

7：删除文件：del.asp

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

复制代码

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

TOP

注册会员

Rank: 2

6^#

蚂蚁发表于 2010-6-19 20:21 | 只看该作者

6：ajax无刷新文件：ajax.js

//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)

复制代码

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

TOP

注册会员

Rank: 2

5^#

蚂蚁发表于 2010-6-19 20:19 | 只看该作者

5：提交到数据库文件：ok.asp

<%
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
%>
<%
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
%>

复制代码

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

TOP

注册会员

Rank: 2

4^#

蚂蚁发表于 2010-6-19 20:14 | 只看该作者

4：ajax无刷新读取数据库内容:nm.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://"&rs("qq")&".qzone.qq.com target=_blank><b>"&rs("qq")&"</b>】</a>的【<font color=#880088>"& rs("nmc") & rs("name") &"</font>】于"&newdate&"成熟还剩["&newdate2&"]秒 "
if now() > newdate1 and now() < newdate then
response.write "<font color=""red"">请准备收获你的【"& rs("nmc") & rs("name") &"】！</font>"
%>
<bgsound src="1.mp3" id="music" loop=-1>
<a href="#">停止</a>
<a href="#">播放</a>
<%
response.write " <a href=del.asp?id="&rs("id")&"><font color=#ff44ff>删</font></a><br>"
else
response.write "<a href=del.asp?id="&rs("id")&"><font color=#ff44ff>删除</font></a> <a href=""xiugai.asp?t="&rs("id")&"""><font color=red>修改</font></a><br>"
end if
rs.movenext
loop
response.end()
rs.close
set rs=nothing
%>

复制代码

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

TOP

注册会员

Rank: 2

3^#

蚂蚁发表于 2010-6-19 20:12 | 只看该作者

3：css层文件：css.css

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;
}

复制代码

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

TOP

123 下一页

返回列表

[收藏此主题] [关注此主题的新回复]

[通过 QQ、MSN 分享给朋友]