myuser.asp

本实例为一个完整的网上购物商城的完整例子程序,里面有所以的源代码.希望对大家学习有用.

<!--#include file="top.asp" -->
<%
'56770网络商城商业版
'版本：V2.0
'版权所有: 56770网络(56770.com)
%>
<table width="760" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF">
<tr>
<td width="170" align="center" valign="top" height="350">
<table width="170" border="0" cellspacing="0">
<td width="170"><!--#include file="include/56770_userlogins.asp" --></td>
</table>
<%dim action
action=request.QueryString("action")%>
<%
if request("action1")="wmsg" then
        if request("subject")="" or request("msg")="" then
        response.write"<SCRIPT language=JavaScript>alert('请贴信息标题和内容！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if
subject=trim(request("subject"))
msg=replace(request("msg"), ">", "&gt;")
msg=replace(msg, "<", "&lt;")
msg=replace(msg, "'","’")
user_id=request("user_id")
idate=now()
to_user="admin"
conn.execute "insert into 56770_message (subject,msg, user_id, idate, to_user)values('"&subject&"', '"&msg&"', '"&user_id&"', '"&idate&"', '"&to_user&"')"
response.redirect "myuser.asp?action=msg"
response.end
end if
%><%
if request("action1")="del" then
        if request("msgid")="" then
        response.write"<SCRIPT language=JavaScript>alert('没有该信息，或者该信息已经删除。！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if
conn.execute "delete * from 56770_message where id=" & request("msgid")
response.redirect "myuser.asp?action=msg&action2="&request("action2")
response.end
end if
%>
</td>
<td valign="top" align="center">
<%select case action
case "dingdan"%>
<table border="0" cellspacing="1" cellpadding="2" width="96%" align="center" bgcolor="#EDEFE1">
<tr>
<td height="25" >订单号</td>
<td >支付金额</td>
<td >支付方式</td>
<td > 订购日期 </td>
<td align="center" > 操作 </td>
</tr>
<tr bgcolor="#333333"  >
<td height="1" colspan="5" ></td>
</tr>
<%
dim page, sort_name
dim maxPerPage
dim num_row
dim rows
num_row=1
rows=8
maxperpage=num_row*rows
myKeyword=Request("myKeyword")
page=Request("page")
session("oldUrl")="./"
if(page="" or isempty(page))then page=1
        thisUrl="myuser.asp?action=dingdan"
session("oldUrl")=thisUrl&"&page="&page
sql="select * from 56770_orders where user_id='"&session("user_id")&"' order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql, conn, 1, 1
rs.pagesize=MaxPerPage
%>
<script language=Javascript>
<!--
function onChange(i)
{ 
        childSort=document.all("child" + i);
        //theTd=document.all("td" + i);
        if(childSort.style.display == "none")
        {
                //		theTd.bgcolor="#ffffff";
                childSort.style.display="";
        }
        else
        {
                //		theTd.bgcolor="#000000";
                childSort.style.display="none";
        }
}
function jumpTo(i)
{
        if(i == 1)
        {
                this.document.location="<%=thisUrl%>";
        }
        if(i == 2)
        {
                this.document.location="<%=thisUrl%>&page=<%=page-1%>";
        }
        if(i == 3)
        {
                this.document.location="<%=thisUrl%>&page=<%=page+1%>";
        }
        if(i == 4)
        {
                this.document.location="<%=thisUrl%>&page=<%=rs.pageCount%>";
        }
}
//-->
</script>
<%
j=1
if not(rs.eof or err)then rs.move(page-1)*maxPerPage
        do while not(rs.eof or err)
if(j mod num_row)=1 then
        %>
<tr><td colspan="<%=(num_row*2-1)%>">
<TABLE align=center background="images/global.gif" border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD><IMG height=1 src="images/spacer.gif" width="1"></TD>
</TR></TBODY></TABLE>
</td></tr>
<%
response.write "<tr>"
end if
%>
<tr>
<td width="26%" bgcolor="#F0F0F0" height="25"><%=rs("order_number")%></td>
<td width="14%" bgcolor="#FFFFFF"><%=rs("summoney")%></td>
<td width="17%" bgcolor="#F0F0F0"><%=rs("paymenttype")%></td>
<td width="23%" bgcolor="#FFFFFF"><%=rs("order_time")%></td>
<td width="10%" bgcolor="#F0F0F0" align="center">[<a href='myuser.asp?action=views&order_number=<%=rs("order_number")%>'>详情</a>]</td>
</tr>
<%
if(j mod num_row)=0 then
        response.write "</tr>"
else %>
        <TD background="images/point.gif" width="1"><IMG height=1 src="images/point.gif" width="1"></TD>
<%
end if
j=j+1
if j>maxperpage then exit do
        rs.moveNext
loop
dim k
k=(j-1)mod num_row
if not(k=0)then
        response.write "<td colspan="&(num_row-k)&" width="&(cint(100/num_row)*(num_row-k))&">&nbsp;</td>"
response.write "</tr>"
end if
%>
<tr><td colspan="<%=(num_row*2-1)%>">
</td></tr>
</table><br>

<div align="right">共<%=rs.recordCount%>个订单　第<%=page%>/<%=rs.pageCount%>页　
<%if page>1 then%>
<input type="button" name="Submit3" value="|&lt;&lt; " title="首页" onClick="Javascript:jumpTo(1)" style="font-size: 9pt; border: 1px solid #7D85A2; background-color:  #ffffff">

<input type="button" name="Submit4" value=" &lt;" title="上页" onClick="Javascript:jumpTo(2)" style="font-size: 9pt; border: 1px solid #7D85A2; background-color:  #ffffff">
<%else%>

<input type="button" name="Submit3" value="|&lt;&lt; " style="font-size: 9pt; border: 1px solid #7D85A2; background-color: #ffffff" disabled>

<input type="button" name="Submit4" value=" &lt;" style="font-size: 9pt; border: 1px solid #7D85A2; background-color:  #ffffff" disabled>
<%end if
if rs.recordCount>page*maxPerPage then%>
        
<input type="button" name="Submit5" value=" &gt;" title="下页" onClick="Javascript:jumpTo(3)" style="font-size: 9pt; border: 1px solid #7D85A2; background-color:  #ffffff">

<input type="button" name="Submit6" value="&gt;&gt; |" title="尾页" onClick="Javascript:jumpTo(4)" style="font-size: 9pt; border: 1px solid #7D85A2; background-color:  #ffffff">
<%else%>

<input type="button" name="Submit5" value=" &gt;" style="font-size: 9pt; border: 1px solid #7D85A2; background-color:  #ffffff" disabled>

<input type="button" name="Submit6" style="font-size: 9pt;border: 1px solid #7D85A2; background-color:  #ffffff" value="&gt; &gt; |" disabled>
<%end if%>
<br>
</div>
</td>
</tr>
</table>
<%case "views"%>
<table width="570" cellspacing="" cellpadding="" align="center">
</table>
<table width="96%" border="0" align="center" cellspacing="1" bgcolor="#EDEFE1">
<%order_number=trim(request("order_number"))
sql="select * from 56770_orders where order_number='"&order_number&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql, conn, 1, 1
if rs.eof then
        response.write "没有此订单信息,请确认你的订单号输入是否正确"
else
        if rs("order_zt")=false then
        order_zt="您的订单尚在处理中！请确认您是否已经支付货款。"
else
        order_zt="<img src='images/ddzf.gif'>"
end if
       if rs("order_zt")=false and rs("order_cw")=true  then
        order_zt="此订单为无效订单。"
        end if
end if
%>
<tr>
<td height="25" colspan="4">订单号为：<font color="#FF0000"><%=order_number%></font></td>
</tr>
<tr>
<td height="25" bgcolor="#f0f0f0" width="21%">订单总金额：</td>
<td height="25" bgcolor="#FFFFFF" width="29%"><%=rs("summoney")%></td>
<td height="25" bgcolor="#f0f0f0" width="19%">订购时间：</td>
<td height="25" bgcolor="#FFFFFF" width="31%"><%=rs("order_time")%></td>
</tr>
<tr>
<td height="25" bgcolor="#f0f0f0" width="21%">支付方式：</td>
<td height="25" bgcolor="#FFFFFF" width="29%"><%=rs("paymenttype")%></td>
<td height="25" bgcolor="#f0f0f0" width="19%">陪送方式：</td>
<td height="25" bgcolor="#FFFFFF" width="31%"><%=rs("sendtype")%></td>
</tr>
<tr>
<td height="25" bgcolor="#f0f0f0" width="21%">订购人帐号：</td>
<td height="25" bgcolor="#FFFFFF" width="29%"><%=rs("user_id")%></td>
<td height="25" bgcolor="#f0f0f0" width="19%">联系Email：</td>
<td height="25" bgcolor="#FFFFFF" width="31%"><%=rs("email")%></td>
</tr>
<tr>
<td height="25" bgcolor="#f0f0f0" width="21%">订单状态：</td>
<td colspan="3" height="25" bgcolor="#FFFFFF"><%if order_cw=faule then%><%=order_zt%><%else%><%=errmsg%><%end if%></td>
</tr>
<%rs.close
set rs=nothing%>
</table>
<table width="96%" border="0" align="center" cellspacing="1" bgcolor="#d7b4e0">
<tr bgcolor="#FFFFFF">
<td colspan="4" height="25"> = 订单商品详情 =</td>
</tr>
<%sql="select * from 56770_basket where order_number='"&order_number&"'"
set rs1=server.createobject("adodb.recordset")
rs1.open sql, conn, 3, 3
do while not rs1.eof
%>
<tr>
<td width="21%" height="25" bgcolor="#f0f0f0">商品名称：</td>
<td width="46%" height="25" bgcolor="#FFFFFF" align="center"><%=rs1("product_name")%>
</td>
<td width="16%" height="25" bgcolor="#f0f0f0" align="center">数量/单价</td>
<td width="17%" height="25" bgcolor="#FFFFFF" align="center"><%=rs1("basket_count")%>/<%=rs1("price")%>元</td>
<%rs1.movenext
loop
rs1.close
set rs1=nothing
%>
<%%>