?? shjia_inc.asp
字號:
<%set rs_s=server.CreateObject("adodb.recordset")
rs_s.open "select * from shjia where username='"&request.cookies("songxf")("shjianame")&"' ",conn,1,1
id=rs_s("shjiaid")
sub mydindan()
if request.cookies("songxf")("shjianame")="" then
response.Redirect "shjia.asp"
response.End
end if
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1">
<tr>
<td width="55%"> <font color="#FF6600">我 的 訂 單</font></td>
<td width="45%">
<div align="right">
<select name="zhuangtai" onChange="var jmpURL=this.options[this.selectedIndex].value ; if(jmpURL!='') {window.location=jmpURL;} else {this.selectedIndex=0 ;}" >
<option value="shjia.asp?action=mydindan&zhuangtai=0" selected>--請選擇查訊狀態--</option>
<option value="shjia.asp?action=mydindan&zhuangtai=0" >全部訂單狀態</option>
<option value="shjia.asp?action=mydindan&zhuangtai=1" >未作任何處理</option>
<option value="shjia.asp?action=mydindan&zhuangtai=2" >用戶已經劃出款</option>
<option value="shjia.asp?action=mydindan&zhuangtai=3" >服務商已經收到款</option>
<option value="shjia.asp?action=mydindan&zhuangtai=4" >服務商已經發貨</option>
<option value="shjia.asp?action=mydindan&zhuangtai=5" >用戶已經收到貨</option>
</select>
</div>
</td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#FFCC00">
<tr>
<td bgcolor="#FFECA2">
<div align="center"><font color="#666666">訂單號</font></div>
</td>
<td bgcolor="#FFECA2">
<div align="center"><font color="#666666">貨款</font></div>
</td>
<td bgcolor="#FFECA2">
<div align="center"><font color="#666666">費用</font></div>
<td bgcolor="#FFECA2">
<div align="center"><font color="#666666">訂單狀態</font></div>
</td>
</tr>
<%set rs=server.CreateObject("adodb.recordset")
dim zhuangtai
zhuangtai=request.QueryString("zhuangtai")
if zhuangtai=0 or zhuangtai="" then
select case zhuangtai
case "0"
rs.open "select distinct(dingdan),userid,userzhenshiname,actiondate,shouhuoname,songhuofangshi,zhifufangshi,shjiaid,zhuangtai from shop_action where shjiaid="&id&" and zhuangtai<6 order by actiondate desc",conn,1,1
case ""
rs.open "select distinct(dingdan),userid,userzhenshiname,actiondate,shouhuoname,songhuofangshi,zhifufangshi,shjiaid,zhuangtai from shop_action where shjiaid="&id&" and zhuangtai<6 order by actiondate desc",conn,1,1
end select
else
rs.open "select distinct(dingdan),userid,userzhenshiname,actiondate,shouhuoname,songhuofangshi,zhifufangshi,shjiaid,zhuangtai from shop_action where shjiaid="&id&" and zhuangtai="&zhuangtai&" order by actiondate",conn,1,1
end if
do while not rs.eof
dim songxf,username
set songxf=server.CreateObject("adodb.recordset")
songxf.open "select username from [user] where userid="&rs("userid"),conn,1,1
username=trim(songxf("username"))
songxf.close
set songxf=nothing
%>
<tr>
<td bgcolor="#FFFFEE">
<div align="center"><a href="javascript:;" onClick="javascript:window.open('shjdingdan.asp?dan=<%=trim(rs("dingdan"))%>&sjid=<%=trim(rs("shjiaid"))%>&username=<%=username%>','','width=770,height=420,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;"><%=trim(rs("dingdan"))%></a></div>
</td>
<td bgcolor="#FFFFEE">
<div align="center">
<%dim rs2
'////
set songxf=server.CreateObject("adodb.recordset")
songxf.open "select sum(zonger) as zonger from shop_action where dingdan='"&trim(rs("dingdan"))&"' ",conn,1,1
response.write "<font color=#FF6600>"&songxf("zonger")&"元</font>"
songxf.close
set songxf=nothing%>
</div>
</td>
<td bgcolor="#FFFFEE">
<div align="center">
<%
set songxf=server.CreateObject("adodb.recordset")
songxf.open "select feiyong from shop_action where dingdan='"&trim(rs("dingdan"))&"' ",conn,1,1
response.write "<font color=#FF6600>"&songxf("feiyong")&"元</font>"
songxf.close
set songxf=nothing%>
</div>
</td>
<td bgcolor="#FFFFEE">
<div align="center">
<%select case rs("zhuangtai")
case "1"
response.write "未作任何處理"
case "2"
response.write "用戶已經劃出款"
case "3"
response.write "服務商已經收到款"
case "4"
response.write "服務商已經發貨"
case "5"
response.write "用戶已經收到貨"
end select%>
</div>
</td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing%>
</table>
<%
end sub
sub glnews()
if request.cookies("songxf")("shjianame")="" then
response.Redirect "shjia.asp"
response.End
end if
%>
<table width=100% border=0 align=center cellpadding=1 cellspacing=1 bgcolor=#FFCC00>
<tr>
<td bgcolor=#FFFFEE height="22" colspan="4">
<div align=center><font color=#FF0000>管理新聞</font></div>
</td>
</tr>
<tr>
<td bgcolor=#FFFFEE align="center" height="22" width="8%">序號 </td>
<td bgcolor=#FFFFEE align="center" height="22" width="48%">標題</td>
<td bgcolor=#FFFFEE align="center" height="22" width="34%">添加時間</td>
<td bgcolor=#FFFFEE align="center" height="22" width="10%">刪除</td>
</tr>
<% set rs=server.CreateObject("adodb.recordset")
rs.open "select * from news where shjiaid="&id&" order by addtime desc",conn,1,1
if err.number<>0 then
response.write "數據庫中無數據"
end if
do while not rs.eof%>
<tr>
<td bgcolor=#FFFFEE align="center"><%=rs("newsid")%> </td>
<td bgcolor=#FFFFEE align="center"><a href=shjia.asp?action=addnews&id=<%=rs("newsid")%>&isedit=1>
<% if len(replace(trim(rs("title")),"<br>",""))>14 then
response.write left(replace(trim(rs("title")),"<br>",""),11)&"..."
else
response.write replace(trim(rs("title")),"<br>","")
end if%>
</a></td>
<td bgcolor=#FFFFEE align="center"><%=rs("addtime")%></td>
<td bgcolor=#FFFFEE align="center"><a href="user/saveshjiainfo.asp?action=delnews&newsid=<%=rs("newsid")%>"><font color="#FF0000">刪除</font></a>
</td>
</tr>
<%rs.movenext
loop
rs.close
set rs=nothing%>
</table>
<%
end sub
sub fk()
if request.cookies("songxf")("shjianame")="" then
response.Redirect "shjia.asp"
response.End
end if
%>
<table width=100% border=0 align=center cellpadding=1 cellspacing=1 bgcolor=#FFCC00>
<tr>
<td bgcolor=#FFFFEE height="22" colspan="4">
<div align=center><font color=#FF0000>管理留言</font></div>
</td>
</tr>
<tr>
<td bgcolor=#FFFFEE align="center" height="22" width="8%">序號 </td>
<td bgcolor=#FFFFEE align="center" height="22" width="48%">留言標題</td>
<td bgcolor=#FFFFEE align="center" height="22" width="34%">添加時間</td>
<td bgcolor=#FFFFEE align="center" height="22" width="10%">刪除</td>
</tr>
<% set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_shjiafk where shjiaid="&id&" order by fkdate desc",conn,1,1
if err.number<>0 then
response.write "數據庫中無數據"
end if
do while not rs.eof%>
<tr>
<td bgcolor=#FFFFEE align="center"><%=rs("fkid")%> </td>
<td bgcolor=#FFFFEE align="center"> <a href="javascript:;" onClick=javascript:window.open('user/fk_shjia.asp?id=<%=rs("fkid")%>')>
<% if len(replace(trim(rs("fksubject")),"<br>",""))>14 then
response.write left(replace(trim(rs("fksubject")),"<br>",""),11)&"..."
else
response.write replace(trim(rs("fksubject")),"<br>","")
end if%></a>
</td>
<td bgcolor=#FFFFEE align="center"><%=rs("fkdate")%></td>
<td bgcolor=#FFFFEE align="center"><a href="user/saveshjiainfo.asp?action=delfk&fkid=<%=rs("fkid")%>"><font color="#FF0000">刪除</font></a>
</td>
</tr>
<%rs.movenext
loop
rs.close
set rs=nothing%>
</table>
<%
end sub
sub modify()
if request.cookies("songxf")("shjianame")="" then
response.Redirect "shjia.asp"
response.End
end if
dim selectbookid
'//刪除商品
selectbookid=request("selectbookid")
if selectbookid<>"" then
conn.execute "delete from shop_books where bookid in ("&selectbookid&")"
'response.Redirect "managebook.asp"
response.Write "<script language=javascript>alert('你選擇的商品已刪除');window.location.href='shjia.asp?action=modify';</script>"
'response.End
end if
%>
<script>
function test()
{
if(!confirm('確認刪除嗎？')) return false;
}
</script>
<form name="form1" method="post" action="">
<table width=100% border=0 align=center cellpadding=1 cellspacing=1 bgcolor=#FFCC00>
<tr>
<td bgcolor=#FFFFEE height="22" colspan="4">
<div align=center><font color=#FF0000>管理商品</font></div>
</td>
</tr>
<tr>
<td bgcolor=#FFFFEE align="center" height="22" width="8%">序號 </td>
<td bgcolor=#FFFFEE align="center" height="22" width="48%">商品名稱</td>
<td bgcolor=#FFFFEE align="center" height="22" width="34%">添加時間</td>
<td bgcolor=#FFFFEE align="center" height="22" width="10%">刪除</td>
</tr>
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_books where shjiaid="&id&" order by adddate desc",conn,1,1
if err.number<>0 then
response.write "數據庫中無數據"
end if%>
<%
do while not rs.eof%>
<tr>
<td bgcolor=#FFFFEE align="center"><%=rs("bookid")%> </td>
<td bgcolor=#FFFFEE align="center"><a href=shjia.asp?action=editshp&id=<%=rs("bookid")%>>
<% if len(replace(trim(rs("bookname")),"<br>",""))>14 then
response.write left(replace(trim(rs("bookname")),"<br>",""),11)&"..."
else
response.write replace(trim(rs("bookname")),"<br>","")
end if%>
</a></td>
<td bgcolor=#FFFFEE align="center"><%=rs("adddate")%></td>
<td bgcolor=#FFFFEE align="center"><input name="selectbookid" type="checkbox" id="selectbookid" value="<%=rs("bookid")%>">
</td>
</tr>
<%rs.movenext
loop
rs.close
set rs=nothing%>
<tr>
<td bgcolor=#FFFFEE height="22" colspan="4">
<div align="right"><input type="submit" name="Submit" value="刪 除" onClick="return test();"></div>
</td>
</tr>
</table></form>
<%
end sub
sub addshp()
if request.cookies("songxf")("shjianame")="" then
response.Redirect "shjia.asp"
response.End
end if
%>
<SCRIPT LANGUAGE="JavaScript">
<!--
function checkkk()
{
if(checkspace(document.myform.bookname.value)) {
document.myform.bookname.focus();
alert("請輸入商品名稱！");
return false;
}
if(checkspace(document.myform.shichangjia.value)) {
document.myform.shichangjia.focus();
alert("請輸入市場價格！");
return false;
}
if(checkspace(document.myform.huiyuanjia.value)) {
document.myform.huiyuanjia.focus();
alert("請輸入會員價格！");
return false;
}
if(checkspace(document.myform.vipjia.value)) {
document.myform.vipjia.focus();
alert("請輸入VIP會員價格！");
return false;
}
}
function checkspace(checkstr) {
var str = '';
for(i = 0; i < checkstr.length; i++) {
str = str + ' ';
}
return (str == checkstr);
}
//-->
</script>
<script>
function regInput(obj, reg, inputStr)
{
var docSel = document.selection.createRange()
if (docSel.parentElement().tagName != "INPUT") return false
oSel = docSel.duplicate()
oSel.text = ""
var srcRange = obj.createTextRange()
oSel.setEndPoint("StartToStart", srcRange)
var str = oSel.text + inputStr + srcRange.text.substr(oSel.text.length)
return reg.test(str)
}
</script>
<form name="myform" method="post" action="admin/saveaddbook.asp?action=add" OnSubmit="return checkkk()" >
<table width="100%" border=0 align=center cellpadding=1 cellspacing=1 bgcolor=#FFCC00>
<tr><td bgcolor=#FFFFEE colspan="2">
<div align="center"><font color="#FF0000">商家商品添加</font></div>
</td>
</tr>
<%
set rs=server.createobject("adodb.recordset")
rs.open "select * from shjia where username='"&request.cookies("songxf")("shjianame")&"' ",conn,1,1
%>
<tr><td bgcolor=#FFFFEE colspan="2">
<input type="hidden" name="anclassid" size="12" value="<%=rs("anclassid")%>">
<input type="hidden" name="Nclassid" size="12" value="<%=rs("nclassid")%>">
<%
rs.close
set rs=nothing
%>
</td>
</tr>
<tr>
<td bgcolor=#FFFFEE width="9%">
<%
set rs_s=server.createobject("adodb.recordset")
rs_s.open "select * from ziduan where ziduanorder=1 ",conn,1,1
%>
<input type="text" name="mch" size="7" value="<%=rs_s("ziduanname")%>">
<%
rs_s.close
set rs_s=nothing
%>
</td>
<td bgcolor=#FFFFEE width="91%">
<input name="bookname" type="text" id="bookname" size="15">
浮動價
<select name="fudongjia" size=1>
<%set rs=server.createobject("adodb.recordset")
rs.open "select * from shop_fudong order by id ",conn,1,1
if rs.recordcount=0 then
response.write "請先添加浮動價"
else
while not rs.eof
%>
<option value=<%=rs("id")%> ><%=rs("shuoming")%></option>
<%
rs.movenext
wend
end if%>
</select>
</td>
</tr>
<tr>
<td bgcolor=#FFFFEE>
<%
set rs_s=server.createobject("adodb.recordset")
rs_s.open "select * from ziduan where ziduanorder=2 ",conn,1,1
%>
<input type="text" name="pp" size="7" value="<%=rs_s("ziduanname")%>">
<%
rs_s.close
set rs_s=nothing
%>
</td>
<td bgcolor=#FFFFEE>
<input name="pingpai" type="text" id="pingpai" size="15">
<%
set rs=server.createobject("adodb.recordset")
rs.open "select * from pingpai order by pingpaiorder ",conn,1,1
%>
<select name="select" onchange="(document.myform.pingpai.value=this.options[this.selectedIndex].value)">
<option selected>請選擇品牌</option>
<%
while not rs.eof
%>
<option value="<%=rs("pingpainame")%>"><%=rs("pingpainame")%></option>
<%
rs.movenext
wend
rs.close
set rs=nothing
%>
</select>
</td>
</tr>
<tr>
<td bgcolor=#FFFFEE>
<%
set rs_s=server.createobject("adodb.recordset")
rs_s.open "select * from ziduan where ziduanorder=3 ",conn,1,1
%>
<input type="text" name="isbn1" size="7" value="<%=rs_s("ziduanname")%>">
<%
rs_s.close
set rs_s=nothing
%>
</td>
<td bgcolor=#FFFFEE>
<input name="isbn" type="text" id="isbn" size="15">
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -