?? payment.asp
字號:
<%
'/////////////////////////////////////////
case "txxx2"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [sh_user] where username='"&request.cookies("web767")("username")&"'",conn,1,1
%>
<SCRIPT LANGUAGE="JavaScript">
<!--
function ssxx()
{
if(checkspace(document.shouhuoxx.songhuofangshi.value)) {
document.shouhuoxx.songhuofangshi.focus();
alert("對不起，請選擇送貨方式！");
return false;
}
}
//-->
</script>
<table width="96%" border="0" cellspacing="0" cellpadding="1" align="center">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td rowspan="2">
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="12v">
<tr>
<td class="12v" >
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" id="AutoNumber3" height="0" width="100%">
<tr>
<td>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFCC00">
<tr bgcolor="#FFF9E6">
<td colspan="2" style='PADDING-LEFT: 20px' height="40" align="center"><b><font color="#0000FF">請正確選擇送貨方式</font></b></td>
</tr>
<form name="shouhuoxx" method="post" action="payment.asp?action=txxx3">
<tr bgcolor="#FFF9E6">
<td width="199" style='PADDING-LEFT: 20px'><b>送貨方式：</b></td>
<td width="771" height="28" style='PADDING-LEFT: 20px'>
<b>
<%
set rs2=server.CreateObject("adodb.recordset")
rs2.Open "select * from sh_youbian where youbian='"&trim(request("youbian"))&"'",conn,1,1
if rs2.recordcount=1 then
shangmen=1
else
shangmen=0
end if
rs2.close
set rs2=nothing
'//////////判斷送貨方式
set rs3=server.CreateObject("adodb.recordset")
rs3.Open "select * from sh_songhuo where fangshi=0 order by songidorder",conn,1,1
response.Write "<select name=songhuofangshi size="&rs3.recordcount&">"
do while not rs3.EOF
if not(shangmen=0 and trim(rs3("songid"))=5) then ' 是否顯示“送貨上門”：shangmen=0顯示,為1不顯示
response.Write "<option value="&rs3("songid")
if int(rs("songhuofangshi"))=int(rs3("songid")) then
response.Write " selected>"
else
response.Write ">"
end if
response.Write trim(rs3("subject"))&"</option>"
end if
rs3.MoveNext
loop
response.Write "</select>"
rs3.Close
set rs3=nothing
%>
</b>
<input name="userzhenshiname" type="hidden" value=<%=trim(request("userzhenshiname"))%>>
<input name="shousex" type="hidden" value=<%=trim(request("shousex"))%>>
<input name="useremail" type="hidden" value=<%=trim(request("useremail"))%>>
<input name="shouhuodizhi" type="hidden" value=<%=trim(request("shouhuodizhi"))%>>
<input name="youbian" type="hidden" value=<%=trim(request("youbian"))%>>
<input name="usertel" type="hidden" value=<%=trim(request("usertel"))%>>
<input name=userid type=hidden value="<%=request("userid")%>" >
</td>
</tr>
<tr bgcolor="#FFF9E6">
<td height="32" colspan="2" align=center>
<input type="button" name="Submit2" value="上一步" onclick="javascript:history.go(-1)">
<input type="submit" name="Submit4" value="下一步" onclick='return ssxx();'>
</td>
</tr>
</form>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
rs.close
set rs=nothing
'/////////////////////////////////////////
case "txxx3"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [sh_user] where username='"&request.cookies("web767")("username")&"'",conn,1,1
%>
<SCRIPT LANGUAGE="JavaScript">
<!--
function ssxx()
{
if(checkspace(document.shouhuoxx.zhifufangshi.value)) {
document.shouhuoxx.zhifufangshi.focus();
alert("對不起，請選擇貨款支付方式！");
return false;
}
}
//-->
</script>
<table width="96%" border="0" cellspacing="0" cellpadding="1" align="center">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td rowspan="2">
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="12v">
<tr>
<td class="12v" >
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" id="AutoNumber3" height="0" width="100%">
<tr>
<td>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFCC00">
<tr bgcolor="#FFF9E6">
<td colspan="2" style='PADDING-LEFT: 20px' height="40" align="center"><b><font color="#0000FF">請正確選擇付款方式</font></b></td>
</tr>
<form name="shouhuoxx" method="post" action="payment.asp?action=txxx4">
<tr bgcolor="#FFF9E6">
<td width="199" style='PADDING-LEFT: 20px'><b>付款方式：</b></td>
<td width="771" height="28" style='PADDING-LEFT: 20px'>
<b>
<%
'set rs2=server.CreateObject("adodb.recordset")
'rs2.Open "select * from sh_songhuo where songid="&trim(request("songhuofangshi")),conn,1,1
if cint(request("songhuofangshi"))=3 then
defraymode=1
else
defraymode=0
end if
'rs2.close
'set rs2=nothing
'//////////判斷支付方式
set rs3=server.CreateObject("adodb.recordset")
rs3.open "select * from sh_songhuo where fangshi=1 order by songidorder",conn,1,1
response.Write "<select name=zhifufangshi size="&rs3.recordcount&" >"
do while not rs3.eof
if not(defraymode=0 and trim(rs3("songid"))=4) then ' 此條件是：只有defraymode=0和選擇“送貨上門”才顯示“貨到付款”
response.Write "<option value="&rs3("songid")
if int(rs("zhifufangshi"))=int(rs3("songid")) then
response.Write " selected>"
else
response.Write ">"
end if
response.Write trim(rs3("subject"))&"</option>"
end if
rs3.movenext
loop
response.Write "</select>"
rs3.close
set rs3=nothing
%>
</b>
<input name="userzhenshiname" type="hidden" value=<%=trim(request("userzhenshiname"))%>>
<input name="shousex" type="hidden" value=<%=trim(request("shousex"))%>>
<input name="useremail" type="hidden" value=<%=trim(request("useremail"))%>>
<input name="shouhuodizhi" type="hidden" value=<%=trim(request("shouhuodizhi"))%>>
<input name="youbian" type="hidden" value=<%=trim(request("youbian"))%>>
<input name="usertel" type="hidden" value=<%=trim(request("usertel"))%>>
<input name="songhuofangshi" type="hidden" value=<%=trim(request("songhuofangshi"))%>>
<input name=userid type=hidden value="<%=request("userid")%>" >
</td>
</tr>
<tr bgcolor="#FFF9E6">
<td height="32" colspan="2" align=center>
<input type="button" name="Submit2" value="上一步" onclick="javascript:history.go(-1)">
<input type="submit" name="Submit4" value="下一步" onclick='return ssxx();'>
</td>
</tr>
</form>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
rs.close
set rs=nothing
'/////////////////////////////////////////
case "txxx4"
%>
<table width="96%" border="0" cellspacing="0" cellpadding="1" align="center">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td rowspan="2">
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="12v">
<tr>
<td class="12v" >
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" id="AutoNumber3" height="0" width="100%">
<tr>
<td>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFCC00">
<tr bgcolor="#FFF9E6">
<td align="center" valign="top" height=50 colspan=2>
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select sh_action.actionid,sh_action.bookid,sh_action.bookcount,sh_action.zonger,sh_books.bookname,sh_action.shjiaid,sh_books.anclassid,sh_books.banci,sh_books.shichangjia,sh_books.huiyuanjia,sh_books.vipjia from sh_books inner join sh_action on sh_books.bookid=sh_action.bookid where sh_action.username='"&request.cookies("web767")("username")&"' and sh_action.zhuangtai=7 order by sh_books.shjiaid",conn,1,1
%>
<table width=98% border=0 align=center cellpadding=1 cellspacing=1 bgcolor=#FFCC00>
<tr bgcolor="#FFE493">
<td width=25%>
<div align=center><font color="#666666">商品名稱</font></div>
</td>
<td width=10%>
<div align=center><font color="#666666">市場價</font></div>
</td>
<td width=15%>
<div align=center><font color="#666666">單價
<%if request.cookies("web767")("reglx")=2 then %>
(VIP)
<%else%>
(會員)
<%end if%>
</font></div>
</td>
<td width=15%>
<div align=center><font color="#666666">數量</font></div>
</td>
<td width=10%>
<div align=center><font color="#666666">郵寄浮動<br>
(單價)</font></div>
</td>
<td width=10% bgcolor=#FFE493>
<div align=center><font color="#666666">總價</font></div>
</td>
</tr>
<%shuliang=rs.recordcount
jianshu=0
zongji=0
fudongjia=0
do while not rs.eof
%>
<tr>
<td bgcolor=#FFF9E6 style='PADDING-LEFT: 5px'>
<div align=left><font color=blue><%=rs("bookname")%></font>
<input name=bookid2 type=hidden value="<%=rs("bookid")%>" >
<input name=actionid2 type=hidden value="<%=rs("actionid")%>" >
</div>
</td>
<td bgcolor=#FFF9E6 align="center"><s><%=rs("shichangjia")%></s>
元</td>
<td bgcolor=#FFF9E6>
<div align=center>
<%
if request.Cookies("web767")("reglx")=2 then
response.write rs("vipjia")
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -