?? disuser.asp
字號:
</font></td>
</tr>
<tr bgcolor=#FFFFFF>
<td align="right">原 密 碼：</td>
<td><input name=password type=password id=password></td>
</tr>
<tr bgcolor=#FFFFFF>
<td align="right">新 密 碼：</td>
<td><input name=password1 type=password id=password1></td>
</tr>
<tr bgcolor=#FFFFFF>
<td align="right">確認密碼：</td>
<td><input name=password2 type=password id=password2></td>
</tr>
<tr>
<td colspan=2 bgcolor=#FFFFFF align="center"><input type=submit name=Submit value=修改密碼 改 onclick='return checkrepass();'></td>
</tr>
</form>
</table>
<%
end sub
sub repass()
dim shop
shop=request.QueryString("shop")
select case shop
'//輸入用戶名
case ""
response.Write "<br><table width=96% border=0 align=center cellpadding=01 cellspacing=1>"
response.Write "<form name=shop0 method=post action=profile.asp?action=repass&shop=1>"
response.Write "<tr><td height=28 bgcolor=#ffffff><div align=center>請輸入您的用戶名： <input name=username type=text id=username size=16></div></td></tr>"
response.Write "<tr><td height=32 bgcolor=#ffffff><div align=center><input type=submit name=Submit value=確 定 onclick='return check0();'></div></td></tr>"
response.Write "</form></table>"
'//輸入問題答案
case "1"
set rs=server.CreateObject("adodb.recordset")
rs.open "select quesion,answer from [user] where username='"&trim(request.form("username"))&"' ",conn,1,1
if rs.eof and rs.bof then
response.write "<center><br>查無此用戶，請返回！</center>"
else
response.Write "<br><table width=96% border=0 align=center cellpadding=1 cellspacing=1 bgcolor=#FFFFFF>"
response.Write "<form name=shop1 method=post action=profile.asp?action=repass&shop=2>"
response.Write "<tr><td width=21% bgcolor=#ffffff STYLE='PADDING-LEFT: 20px'>您的密碼提問：</td><td width=79% height=28 bgcolor=#ffffff STYLE='PADDING-LEFT: 20px'><font color=red>"&trim(rs("quesion"))&"</font><input type=hidden name=username1 value="&trim(request.form("username"))&" ID=Hidden1></td></tr>"
response.Write "<tr><td bgcolor=#ffffff STYLE='PADDING-LEFT: 20px'>您的密碼答案：</td><td height=28 bgcolor=#ffffff STYLE='PADDING-LEFT: 20px'><input name=answer type=text id=answer></td></tr>"
response.Write "<tr bgcolor=#ffffff><td height=32 colspan=2 STYLE='PADDING-LEFT: 50px'><input type=submit name=Submit2 value=確 定 onclick='return check1();'></td></tr>"
response.Write "</form></table>"
end if
rs.close
set rs=nothing
'//輸入新密碼
case "2"
set rs=server.CreateObject("adodb.recordset")
rs.open "select answer from [user] where username='"&trim(request.form("username1"))&"' ",conn,1,1
'//判斷答案是否正確
if trim(rs("answer"))<>md5(trim(request.form("answer"))) then
response.write "<script language=javascript>alert('對不起，您輸入的問題答案不正確');history.go(-1);</script>"
response.end
else
response.Write "<br><table width=96% border=0 align=center cellpadding=1 cellspacing=1 bgcolor=#FFFFFF>"
response.Write "<form name=shop2 method=post action=saveprofile.asp?action=repass>"
response.Write "<tr><td width=20% bgcolor=#EFF5FE STYLE='PADDING-LEFT: 20px'>請輸入新密碼：</td><td width=80% height=28 bgcolor=#EFF5FE STYLE='PADDING-LEFT: 20px'><input name=userpassword1 type=password id=userpassword1><input type=hidden name=username2 value="&trim(request.form("username1"))&"></td></tr>"
response.Write "<tr><td bgcolor=#EFF5FE STYLE='PADDING-LEFT: 20px'>輸入確認密碼：</td><td height=28 bgcolor=#EFF5FE STYLE='PADDING-LEFT: 20px'><input name=userpassword2 type=password id=userpassword2></td></tr>"
response.Write "<tr><td height=32 colspan=2 bgcolor=#EFF5FE STYLE='PADDING-LEFT: 50px'><input type=submit name=Submit3 value=確 定 onclick='return check2();'></td></tr>"
response.Write "</form></table>"
end if
rs.close
set rs=nothing
end select
end sub
sub statinfo()
if request.cookies("timesshop")("username")="" then
response.Write "<center>請先登錄</center>"
response.End
end if
dim joindtm,myorder,successed,successedsum,lastorder
set rs=server.CreateObject("adodb.recordset")
rs.open "select adddate from [user] where username='"&request.cookies("timesshop")("username")&"'",conn,1,1
joindtm=rs("adddate")
rs.close
rs.open "select distinct(goods),actiondate from orders where username='"&request.cookies("timesshop")("username")&"' and state<6 ",conn,1,1
if rs.eof and rs.bof then
response.write ""
else
rs.movelast
lastorder=rs("actiondate")
myorder=rs.recordcount
end if
rs.close
rs.open "select sum(paid) as paid from orders where username='"&request.cookies("timesshop")("username")&"' and state<6 and state>3",conn,1,1
if rs("paid")>0 then
successedsum=rs("paid")
else
successedsum=0
end if
rs.close
rs.open "select distinct(goods) from orders where username='"&request.cookies("timesshop")("username")&"' and state<6 and state>3",conn,1,1
successed=rs.recordcount
set rs=nothing %>
<table width=96% border=0 align=center cellpadding=2 cellspacing=1 bgcolor=#FFFFFF>
<tr><td height=14 colspan=2 align="center"><br>以下是您在本站的一些歷史記錄的統計信息</td></tr>
<tr><td height="5"></td></tr>
<tr height=14 bgcolor=#FFFFFF>
<td align=right>注冊日期：</td><td width=56%> <% =joindtm %></td></tr>
<tr height=14 bgcolor=#FFFFFF><td align=right>上次下單：</td><td> <% =lastorder %></td></tr>
<tr height=14 bgcolor=#FFFFFF><td align=right>下單次數：</td><td> <% = myorder %>次</td></tr>
<tr height=14 bgcolor=#FFFFFF><td align=right>成交次數：</td><td> <% =successed %>次</td></tr>
<tr height=14 bgcolor=#FFFFFF><td align=right>成交金額：</td><td> <% =successedsum %>元</td></tr>
</table>
<%
end sub
sub goods()
if request.cookies("timesshop")("username")="" then
response.Write "<center><center>請先登錄</center></center>"
response.End
end if
%>
<table border="0" cellpadding="0" cellspacing="0" align="center" width="100%">
<tr><td>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1">
<tr><td width="55%" align="right"><B>我 的 訂 單</B></td>
<td width="49%" align="right">
<select name="state" onChange="var jmpURL=this.options[this.selectedIndex].value ; if(jmpURL!='') {window.location=jmpURL;} else {this.selectedIndex=0 ;}" >
<option value="profile.asp?action=goods&state=0" selected>--請選擇查詢狀態--</option>
<option value="profile.asp?action=goods&state=0" >全部訂單狀態</option>
<option value="profile.asp?action=goods&state=1" >未作任何處理</option>
<option value="profile.asp?action=goods&state=2" >用戶已劃出款</option>
<option value="profile.asp?action=goods&state=3" >服務商已收到款</option>
<option value="profile.asp?action=goods&state=4" >服務商已發貨</option>
<option value="profile.asp?action=goods&state=5" >用戶已經收到貨</option>
</select></td></tr> </table>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor=<%=bgclr1%>>
<tr align="center">
<td><font color="#000000">訂單號</font></td>
<td><font color="#000000">合計金額</font></td>
<td><font color="#000000">積分</font></td>
<td><font color="#000000">訂貨人</font></td>
<td><font color="#000000">付款方式</font></td>
<td><font color="#000000">收貨方式</font></td>
<td><font color="#000000">訂單日期</font></td>
<td><font color="#000000">訂單狀態</font></td>
</tr>
<%set rs=server.CreateObject("adodb.recordset")
dim state
state=request.QueryString("state")
if state=0 or state="" then
select case state
case "0"
rs.open "select distinct(goods),realname,actiondate,deliverymethord,paymethord,state from orders where username='"&request.cookies("timesshop")("username")&"' and state<6 order by actiondate desc",conn,1,1
case ""
rs.open "select distinct(goods),realname,actiondate,deliverymethord,paymethord,state from orders where username='"&request.cookies("timesshop")("username")&"' and state<6 order by actiondate desc",conn,1,1
end select
else
rs.open "select distinct(goods),realname,actiondate,deliverymethord,paymethord,state from orders where username='"&request.cookies("timesshop")("username")&"' and state="&state&" order by actiondate",conn,1,1
end if
do while not rs.eof
%>
<tr bgcolor=#ffffff align="center">
<% dim shop,rs2
set shop=server.CreateObject("adodb.recordset")
shop.open "select sum(paid) as paid,sum(score) as score from orders where goods='"&trim(rs("goods"))&"' ",conn,1,1
%>
<td ><a href=# onClick="javascript:window.open('chkorder.asp?dan=<%=trim(rs("goods"))%>&score=<% = trim(shop("score")) %>','','width=710,height=388,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;"><%=trim(rs("goods"))%></a></td>
<td>
<%
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select * from delivery where deliveryid="&rs("deliverymethord"),conn,1,1
response.write "<font color=#FF6600>"&shop("paid")+rs2("fee")&"元</font>"
rs2.close
set rs2=nothing %>
</td>
<td>
<% = shop("score") %>
<%
shop.close
set shop=nothing
%>
</td>
<td><%=trim(rs("realname"))%></td>
<td>
<%set rs2=server.CreateObject("adodb.recordset")
rs2.open "select * from delivery where deliveryid="&rs("paymethord"),conn,1,1
response.Write trim(rs2("subject"))
rs2.close
set rs2=nothing%>
</td>
<td align="center">
<%set rs2=server.CreateObject("adodb.recordset")
rs2.open "select * from delivery where deliveryid="&rs("deliverymethord"),conn,1,1
response.Write trim(rs2("subject"))
rs2.close
set rs2=nothing
%>
</td>
<td><%=trim(rs("actiondate"))%></td>
<td>
<%select case rs("state")
case "1"
response.write "未作任何處理"
case "2"
response.write "訂單處理中"
case "3"
response.write "服務商收到款"
case "4"
response.write "服務商已發貨"
case "5"
response.write "用戶已收到貨"
end select%>
</td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing%>
</table>
<%end sub
sub loginnum()
dim url
url=Request.ServerVariables("HTTP_REFERER") %>
<table width=30% border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#FFFFFF>
<form name=loginfo method=post action=chkuser.asp>
<tr bgcolor=#ffffff>
<td width=38% height=19 align=right nowrap style='padding-left:1px'>用戶
</td>
<td width=62% style='padding-left:1px'><input name=username3 type=text id=username2 size=9>
</td>
<td width=62% nowrap style='padding-left:1px' align="center">密
碼</td>
<td width=62% style='padding-left:1px'><input name=password3 type=password id=password3 size=10></td>
</tr>
<tr bgcolor=#ffffff>
<td height=18 style='padding-left:1px' align=right>驗證 </td>
<td style='padding-left:1px'><input name=passcode type=text id=passcode size=9></td>
<td style='padding-left:1px'><img src="code.asp"></td>
<td style='padding-left:1px'> <input type=submit name=Submit4 value="登錄" onClick="return checkuu();">
<a href="reg.asp">注冊</a> <input name=comeurl type=hidden value=<% = url %>></td>
</tr>
</form>
</table>
<%
end sub
%> </td></tr> </table>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -