|
|
binssen
发表于 2011-4-11 22:50:26
|
显示全部楼层
这是我的源码
——————————————————————————————————————————————————
<%@language=vbscript codepage=936 %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd">
<!--#include file="../inc/index_conn.asp"-->
<!--#include file="../inc/function.asp"-->
<!--#INCLUDE FILE="..//background.asp"-->
<!--#include file="../config.asp"-->
<!--#include file="../taobao/checklogin.asp"-->
<%
%>
<HTML xmlns="http://www.w3.org/1999/xhtml"><HEAD>
<title><%=stupname%> -<%=stuptitle%></title>
<meta content="<%=stupdesc%>" name="description"/>
<meta content="<%=stupkey%>" name="keywords"/>
<SCRIPT src="../js/Dialog.js" type=text/javascript></SCRIPT>
<META content="MSHTML 6.00.2900.2180" name=GENERATOR></HEAD>
<BODY bgColor=#ffffff leftMargin=0 topMargin=0 marginheight="0" marginwidth="0">
<!--#include file=../inc/jieducm_top.asp-->
<!--#include file=../taobao/jieducm_toptao.asp-->
<div align="center">
<DIV style="MARGIN-TOP: 0px; BACKGROUND: #ffffff; OVERFLOW: hidden; WIDTH: 910px">
<DIV style="CLEAR: both; MARGIN-TOP: 2px; WIDTH: 910px; HEIGHT: 25px">
<DIV style="FLOAT: left; OVERFLOW: hidden; WIDTH: 700px">
<UL id=task_nav>
<LI><A href="index.asp">淘宝互动区</A> </LI>
<LI><A href="<%if vip="1" then%>pushmission.asp<%else%>pushmission.asp<%end if%>">发布任务</A> </LI>
<LI><A style="FONT-SIZE: 16px; BACKGROUND: url(../images/task_nav_02.gif) no-repeat 50% bottom; COLOR: #ffffff" href="ReMission.asp">已接任务</A> </LI>
<LI><A href="MyMission.asp">已发任务</A> </LI>
<LI><A href="MyWw.asp">绑定店铺</A> </LI>
<LI><A href="Buyhao.asp">绑定买号</A> </LI>
<LI><A href="MySave.asp">任务仓库</A> </LI>
</UL></DIV>
</DIV>
<DIV style="CLEAR: both; WIDTH: 910px"><IMG src="../images/task_nav_line.gif"></DIV>
</DIV>
<DIV style="MARGIN-TOP: 0px; BACKGROUND: #ffffff; WIDTH: 910px">
<DIV style="BACKGROUND: url(../images/task_bg_01.jpg) repeat-x 50% top; WIDTH: 910px; HEIGHT: 38px">
<DIV style="MARGIN-TOP: 10px; FLOAT: left"><IMG
src="../images/task_02.gif"></DIV>
<DIV style="MARGIN-TOP: 12px; FLOAT: left; MARGIN-LEFT: 10px"><A href="ReMission.asp"><SPAN class=anniu>我接手进行中任务</SPAN></A>
<A href="?sort=1"><SPAN class=anniu>等待支付</SPAN></A>
<A href="?sort=2"><SPAN class=anniu>等待发货</SPAN></A>
<A href="?sort=3"><SPAN class=anniu>等待好评</SPAN></A>
<A href="?sort=4"><SPAN class=anniu>等待完成</SPAN></A>
<A href="?sort=5"><SPAN class=anniu>已完成</SPAN></A></DIV>
<DIV style="CLEAR: right; MARGIN-TOP: 12px; FLOAT: right"><A title=点击刷新 href="javascript:location.reload(true);"><SPAN class=anniu>刷新页面
任务不断跳出</SPAN></A></DIV></DIV></DIV>
<DIV
style="CLEAR: both; BORDER-RIGHT: #abbec8 1px solid; BORDER-TOP: #abbec8 1px solid; MARGIN-TOP: 5px; BORDER-LEFT: #abbec8 1px solid; WIDTH: 910px; BORDER-BOTTOM: #abbec8 1px solid; BACKGROUND-COLOR: #e6f7fb">
<DIV style="CLEAR: both; WIDTH: 98%; LINE-HEIGHT: 35px; HEIGHT: 35px">
<DIV style="FONT-WEIGHT: bold; FONT-SIZE: 14px; FLOAT: left; WIDTH: 130px; COLOR: #006600; TEXT-ALIGN: center">任务ID</DIV>
<DIV style="FONT-WEIGHT: bold; FONT-SIZE: 14px; FLOAT: left; WIDTH: 150px; COLOR: #006600; TEXT-ALIGN: center">发布人</DIV>
<DIV style="FONT-WEIGHT: bold; FONT-SIZE: 14px; FLOAT: left; WIDTH: 95px; COLOR: #006600; TEXT-ALIGN: center">任务价格</DIV>
<DIV style="FONT-WEIGHT: bold; FONT-SIZE: 14px; FLOAT: left; WIDTH: 95px; COLOR: #006600; TEXT-ALIGN: center">商品信息</DIV>
<DIV style="FONT-WEIGHT: bold; FONT-SIZE: 14px; FLOAT: left; WIDTH: 140px; COLOR: #006600; TEXT-ALIGN: center">接手时间
</DIV>
<DIV style="FONT-WEIGHT: bold; FONT-SIZE: 14px; FLOAT: left; WIDTH: 130px; COLOR: #006600; TEXT-ALIGN: center">状 态</DIV>
<DIV style="FONT-WEIGHT: bold; FONT-SIZE: 14px; FLOAT: left; WIDTH: 150px; COLOR: #006600; TEXT-ALIGN: center">操 作</DIV></DIV></DIV>
<DIV style="CLEAR: both; BORDER-RIGHT: #abbec8 1px solid; BORDER-TOP: #abbec8 1px; BORDER-LEFT: #abbec8 1px solid; WIDTH: 910px; BORDER-BOTTOM: #abbec8 1px solid;BACKGROUND-COLOR: #ffffff">
<%
action=request.QueryString("sort")
if action="" then
Sql = "select * from "&kuaishua&"_jieshou where classid='4' and username='"&session("useridname")&"' order by start asc"
elseif action=1 then
Sql = "select * from "&kuaishua&"_jieshou where classid='4' and username='"&session("useridname")&"' and start='1' order by start asc"
elseif action=2 then
Sql = "select * from "&kuaishua&"_jieshou where classid='4' and username='"&session("useridname")&"' and start='2' order by start asc"
elseif action=3 then
Sql = "select * from "&kuaishua&"_jieshou where classid='4' and username='"&session("useridname")&"' and start='3' order by start asc"
elseif action=4 then
Sql = "select * from "&kuaishua&"_jieshou where classid='4' and username='"&session("useridname")&"' and start='4' order by start asc"
elseif action=5 then
Sql = "select * from "&kuaishua&"_jieshou where classid='4' and username='"&session("useridname")&"' and start='5' order by start asc"
end if
Set Rs = Server.CreateObject("Adodb.RecordSet")
Rs.Open Sql,conn,1,1
if rs.eof then
response.write("暂无接手信息")
end if
if not rs.eof then
dim maxperpage,url,PageNo
if action="" then
url="remission.asp"
else
url="remission.asp?sort="&action&""
end if
rs.pagesize=10
PageNo=REQUEST("PageNo")
if PageNo="" or PageNo=0 then PageNo=1
RS.AbsolutePage=PageNo
TSum=rs.pagecount
maxperpage=rs.pagesize
RowCount=rs.PageSize
PageNo=PageNo+1
PageNo=PageNo-1
if CINT(PageNo)>1 then
if CINT(PageNo)>CINT(TSum) then
response.Write("对不起没有您想要的页数")
Response.End
end if
end if
end if
if PageNo<0 then
response.Write("没有这一页!")
Response.End
End if
if PageNo=1 then i=rs.RECORDCOUNT else i=rs.RECORDCOUNT-(30*(PageNo-1))
DO WHILE NOT rs.EOF AND RowCount>0
pid=rs("pid")
price=rs("price")
bei=rs("bei")
now1=rs("now")
start=rs("start")
prourl=rs("prourl")
Shopkeeper=rs("Shopkeeper")
num=rs("num")
baohu2=rs("baohu2")
Set rs1=server.createobject("ADODB.RECORDSET")
rs1.open "select * from "&kuaishua&"_zhongxin where pid='"&rs("pid")&"'",conn,3,3
if not (rs1.eof) then
username2=rs1("username")
bei=rs1("bei")
start=rs1("start")
pid=rs1("pid")
now1=rs1("now")
dim Price(6)
Price(1)=rs1("price")
Price(2)=rs1("price2")
Price(3)=rs1("price3")
Price(4)=rs1("price4")
Price(5)=rs1("price5")
Shopkeeper=rs1("Shopkeeper")
totalprice=rs1("totalprice")
tips=rs1("tips")
fabu=rs1("fabu")
rs1.close
set rs1=nothing
end if
%>
<DIV class=missionbg style="WIDTH: 98%; PADDING-TOP: 10px; HEIGHT: 70px">
<DIV style="FLOAT: left; WIDTH: 125px; LINE-HEIGHT: 150%; TEXT-ALIGN: left"><%=pid%><BR>备注:
<%=fabu%>个<BR><%=nowf%>
</DIV>
<DIV style="FLOAT: left; WIDTH: 150px; TEXT-ALIGN: center">
<DIV style="CLEAR: both; WIDTH: 100%; HEIGHT: 20px">
<%
response.Write(username2)
response.Write("(")
isonline(username2)
response.Write(")")
Sql = "select * from "&kuaishua&"_register where username='"&username2&"'"
Set Rs1 = Server.CreateObject("Adodb.RecordSet")
Rs1.Open Sql,conn,1,1
if not rs1.eof then
jifei=rs1("jifei")
%>
<%if Replace(Trim(rs1("vip")),"'","''")="1" then%><img src="../images/vip.gif" alt="尊贵VIP,信誉值:<%call vipxinyu(username2)%>" /><% end if%>
<%end if%> <br>
<a href="tencent://message/?uin=<%=rs1("qq")%>" >
<img src="http://wpa.qq.com/pa?p=1:<%=rs1("qq")%>:4" border="0" alt="<%=rs1("qq")%>" /></a>
<%call xinyu(jifei)%>
</DIV>
</DIV>
<DIV style="FLOAT: left; WIDTH: 115px; LINE-HEIGHT: 150%; TEXT-ALIGN: center"><font color=#ff6600>平台担保<br>
<img src="../images/j_z.gif" width="13" height="16"><%=totalPrice%>元</font><br><%=rs("isprice")%></DIV>
<span style="FLOAT: left;LINE-HEIGHT: 150%; WIDTH: 95px; TEXT-ALIGN: center">
<input type="button" name="botton" value="查看商品地址" onClick="window.showModelessDialog('look.asp?id=<%=pid%>','window','status:no;help:no;dialogWidth:500px;dialogHeight:200px')"
> 掌柜:<%=Shopkeeper%></span>
<DIV style="FLOAT: left; WIDTH: 140px; LINE-HEIGHT: 150%; TEXT-ALIGN: center"><%=now1%><BR>
<font color="#FF0000">接手淘宝号:</font><br><%=num%>
</DIV>
<DIV style="FLOAT: left; WIDTH: 120px; LINE-HEIGHT: 120%; TEXT-ALIGN: center">
<%if start=0 then%>
<B style="COLOR: red">等待接手人... </B>
<%elseif start=1 then%>
<B style="COLOR:#006600">已接手,<BR>等待接手方支付... </B>
<%elseif start=2 then%>
<B style="COLOR: #80b309">已支付,<BR>等待发布方发货... </B>
<%elseif start=3 then%>
<B style="COLOR:blue">已发货,<BR>等待接手方好评... </B>
<%elseif start=4 then%>
<B style="COLOR: #000000">已好评,<BR>等待发布方好评... </B>
<%elseif start=5 then%>
<B style="COLOR:#006600">完成!获得好评 </B>
<%end if%>
</DIV>
<DIV style="FLOAT: left; WIDTH: 110px; LINE-HEIGHT: 120%; TEXT-ALIGN: center">
<%if start=1 then
sss= DateDiff( "n",now1, Now())
if 20-sss>=1 then
if baohu2="1" then
response.Write("此任务受到保护,请QQ联系发布方,审核后才能看见商品地址")
elseif baohu2="2" or baohu2="0" then%>
<a href="#1" onClick="javascript:showDialog('你确认你已经按任务价在淘宝上用支付宝付款了吗?\n付款后受到平台保护!',1,7,'jieducm_zhifu.asp?id=<%=pid%>')" title="请在20分钟内进入商品地址用支付宝支付!支付后务必点击已经支付!">
<SPAN class=anniu>已经支付</SPAN>
</A>
<BR>
剩余<span style="color: #ff0000"><span id="min1"><%=20-sss%></span> </span>分种可支付
<%end if%>
<BR>联系发布方可加时!<BR>
<a href="#1" onClick="javascript:showDialog('你确认要退出该任务了吗?',1,7,'jieducm_remis.asp?id=<%=pid%>')" title="你确认要退出该任务了吗?">
<SPAN class=anniu>退出任务</SPAN></A>
<%else%>
<SPAN class=anniu>
<%
Set rsz=server.createobject("ADODB.RECORDSET")
rsz.open "select start from "&jieducm&"_zhongxin where pid='"&pid&"'",conn,3,3
if not (rsz.eof) then
rsz("start")="0"
rsz.update
rsz.close
Set rsj=server.createobject("ADODB.RECORDSET")
rsj.open "delete from "&jieducm&"_jieshou where pid='"&pid&"'",conn,3,3
rsj.close
end if
%></SPAN><BR>
联系发布方可加时!<BR>
<a href="#1" onClick="javascript:showDialog('你确认要退出该任务了吗?',1,7,'jieducm_remis.asp?id=<%=pid%>')" title="你确认要退出该任务了吗?"><SPAN class=anniu>退出任务</SPAN></A>
<%end if
elseif start=2 then%>
<a href="#1" onClick="javascript:showDialog('你确认返回未支付吗?\n任务将返回未支付状态!',1,7,'jieducm_weizhifu.asp?id=<%=pid%>')" title="如果你还未支付,请返回未支付状态!">
<SPAN class=anniu>并未支付</SPAN></A>
<BR>如果你还未支付
请点击 并为支付!
提交不真实封ID<BR>
<%elseif start=3 then
if j=0 then%>
<a href="#1" onClick="javascript:showDialog('你确认卖方已发货了吗?',1,7,'jieducm_haoping.asp?id=<%=pid%>')" title="你确认卖方已发货了吗?">
<SPAN class=anniu>我已好评</SPAN></A>
<%else
nowj=rs("now")
sss= DateDiff( "h", nowj, Now())
if cint(j)-cint(sss)<1 then%>
<a href="#1" onClick="javascript:showDialog('你确认卖方已发货了吗?',1,7,'jieducm_haoping.asp?id=<%=pid%>')" title="你确认卖方已发货了吗?">
<SPAN class=anniu>我已好评</SPAN></A>
<%else
response.Write("不能立即收货<br>还剩")
response.Write(cint(j)-cint(sss))
response.Write("小时")
end if
end if
elseif start=4 then%>
立刻通知发布方确认<br>好评!并任务完成
<%end if%></DIV>
</DIV>
<DIV style="WIDTH: 98%; LINE-HEIGHT: 30px; BORDER-BOTTOM: #06314a 1px dashed; HEIGHT: 30px">
<div align="left"><font color="#FF0000">禁用旺旺联系</font>
<%if tips<>"" then%><font color="#FF0000"><strong>卖家提示:<%=tips%></strong></font><%end if%>
</div>
</DIV>
<%
RowCount = RowCount - 1
i=i-1
rs.MoveNext
Loop%>
<DIV style="WIDTH: 98%; LINE-HEIGHT: 40px; PADDING-TOP: 10px; HEIGHT: 40px; TEXT-ALIGN: center">
<% call showpage(url,rs.RECORDCOUNT,maxperpage,false,true,"条主题") %></DIV></DIV>
<!--#INCLUDE FILE="../inc/jieducm_bottom.asp"-->
<%
rs.close
set rs=nothing
call closeconn()
%>
</BODY></HTML>
[ 本帖最后由 binssen 于 2011-4-11 10:52 PM 编辑 ] |
|