📄 pro_order_list.asp
字号:
<%@ Language=VBScript %>
<%
Response.Buffer=true
Response.Expires=0
if Session("userqx")>="1" and Session("userqx")<="9" then
else
Response.Redirect "../warn.asp"
end if
%>
<!-- #include file="../dsn.asp" -->
<%
myflag=Request.QueryString("myflag")
classcode=Request.QueryString("classcode")
delclass=Request.QueryString("delclass")
if myflag="" then myflag="0"
if classcode="" then classcode="0"
ordername=Request.QueryString("ordername")
byasc=Request.QueryString("byasc")
if ordername="" then ordername="keyno"
if byasc="" then byasc="desc"
ordertxt=" order by "+ordername+" "+byasc
tablename="product_order"
set cn=server.CreateObject("ADODB.Connection")
cn.Open mycnstr
set rs=server.CreateObject("ADODB.Recordset")
set rs2=server.CreateObject("ADODB.Recordset")
if delclass<>"" then
sqltext="delete from "+tablename+" where keyno="&delclass
cn.Execute sqltext
end if
'Session("userqx")="1"
htmltitle="产品定购情况"
htmlname="pro_order_list.asp?ordername="+ordername+"&byasc="+byasc
htmlname2="pro_order_list.asp?x=1"
if Request.ServerVariables("REQUEST_METHOD")="POST" then
sqltext="select * from "+tablename+" where keyno="&classcode
rs.Open sqltext,cn,3,3
rs("flag")=trim(Request.Form("flag"))
rs.Update
rs.Close
myflag="0"
end if
if Session("userqx")<>"9" then
wheretxt=" where classcode like '"+Session("classcode")+"%' "
end if
%>
<HTML>
<HEAD>
<meta HTTP-EQUIV="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
body {font-size: 12px; color: #000000; font-family: 宋体}
td {font-size: 12px; color: #000000; font-family: 宋体;}
.t1 {font:12px 宋体;color=000000}
.t2 {font:12px 宋体;color:ffffff}
.t3 {font:12px 宋体;color:000077}
.bt1 {font:14px 宋体;color=000000}
.bt2 {font:14px 宋体;color:ffffff}
A:link {color: #000066}
A:visited {color: #000066}
A:hover {color: #ff0000}
A.r1:link {font-size:12px;text-decoration:underline;color:#000000;}
A.r1:visited {font-size:12px;text-decoration:underline;color:#000000;}
A.r1:hover {font-size:12px;text-decoration:underline;color:#ff6600;}
A.r2:link {font-size:12px;text-decoration:underline;color:#ffffff;}
A.r2:visited {font-size:12px;text-decoration:underline;color:#ffffff;}
A.r2:hover {font-size:12px;text-decoration:underline;color:#ff6600;}
-->
</style>
</HEAD>
<body topmargin=5 leftmargin=5 bgcolor=#ffffff>
<table width="100%" align=center border="0" cellspacing="0" cellpadding="2">
<tr><td align="left">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height=24>
<tr valign=bottom>
<td style="font-size:12px;">
<font color=DarkSlateGray style="font-size:14px"><b><%=htmltitle%></b></font>
<font color=#003300 style="font-size:12px"></font>
<a href="<%=htmlname%>">[刷新列表]</a>
</td>
</tr>
</table>
</td></tr>
<%
sqltext="select * from "+tablename+wheretxt+ordertxt
rs.Open sqltext,cn,1,1
listcount=8
rs.PageSize=listcount
if pageno="" then pageno=1 else pageno=cint(pageno)
if rs.PageCount>0 then rs.AbsolutePage=pageno
%>
<tr><td height=200 valign=top>
<table width="100%" border="0" cellspacing="1" cellpadding="1">
<tr bgcolor="527c72" style="color:#ffffff" align="center">
<%if Session("userqx")="9" then%>
<td height=20 width="35" class=t2></td>
<%end if%>
<td class=t2 width="50" height=20>内部号</td>
<td class=t2 ><a class=r2 href="<%=htmlname2%>&ordername=title&byasc=<%=selectxh("title",ordername,byasc,"asc")%>">商品名称</a></td>
<td class=t2 ><a class=r2 href="<%=htmlname2%>&ordername=spec&byasc=<%=selectxh("spec",ordername,byasc,"asc")%>">规格</a></td>
<td class=t2 ><a class=r2 href="<%=htmlname2%>&ordername=username&byasc=<%=selectxh("username",ordername,byasc,"asc")%>">订购人</a></td>
<td class=t2 width="50"><a class=r2 href="<%=htmlname2%>&ordername=flag&byasc=<%=selectxh("flag",ordername,byasc,"desc")%>">状态</a></td>
<td class=t2 width="110"><a class=r2 href="<%=htmlname2%>&ordername=creadate&byasc=<%=selectxh("creadate",ordername,byasc,"desc")%>">定购日期</a></td>
</tr>
<%
i=1
do while not rs.EOF and i<=listcount
if (i mod 2)=0 then
Response.Write("<tr bgcolor=fefefe>")
else
Response.Write("<tr bgcolor=efefef>")
end if
%>
<%if Session("userqx")="9" then%>
<td width="35" align=right>
<div align=center><img onclick="delrec('<%=trim(rs("keyno"))%>')" src="../admin/delete.gif" style="cursor:hand"></div>
</td>
<%end if%>
<td width=50 align="center" height=20><%=rs("keyno")%></td>
<td align="left" height=20>
<a href="<%=htmlname%>&myflag=1&classcode=<%=rs("keyno")%>"><%=trim(rs("title"))%></td>
<td align="left" height=20><%=trim(rs("spec"))%></td>
<td align="left" height=20><%=trim(rs("username"))%></td>
<td width="50" align="center">
<%Select Case trim(rs("flag"))
case "1"
Response.Write("<font color=000000>已处理</font>")
case else
Response.Write("<font color=ff0000>未处理</font>")
end select
%>
</td>
<td width=110 align="center" height=20><%=rs("creadate")%></td>
</tr>
<%
i=i+1
rs.MoveNext
loop
rs.Close
%>
</table>
</td></tr>
</table>
<%if myflag="1" then%>
<form action="<%=htmlname%>&classcode=<%=classcode%>" method=post name=form1 onsubmit="return checkform(form1)" autocomplete = "off">
<table width="100%" border="0" cellspacing="1" cellpadding="1" align="center">
<%
if classcode="0" then
else
sqltext="select * from "+tablename+" where keyno="&classcode
rs.Open sqltext,cn,1,1
if not rs.EOF then
title=trim(rs("title"))
spec=trim(rs("spec"))
packing=trim(rs("packing"))
username=trim(rs("username"))
corpname=trim(rs("corpname"))
email=trim(rs("email"))
phone=trim(rs("phone"))
country=trim(rs("country"))
amount=trim(rs("amount"))
content=trim(rs("content"))
creadate=rs("creadate")
flag=rs("flag")
end if
rs.Close
end if
%>
<tr bgcolor=#898989><td colspan=2 height=20><font class=t2>具体内容</font></td></tr>
<tr><td width=600>
<table width="100%" border="0" cellspacing="1" cellpadding="2" align="center">
<tr><td width=70 class=td1 align=right height=5></td>
<td class=td2></td></tr>
<tr><td width=70 class=td1 align=right></td>
<td class=td2><font color=red><%=username%></font> 订购于<font color=ff6600><%=creadate%></font></td></tr>
<tr><td class=td1 align=right>处理状态：</td>
<td class=td2>
<input type=radio name=flag value="0" <%if flag="0" then Response.Write("checked")%>>未处理
<input type=radio name=flag value="1" <%if flag="1" then Response.Write("checked")%>>已处理
</td>
</tr>
<tr><td class=td1 align=right>商品名称：</td>
<td class=t3><%=title%> <font color=00000>数量：</font> <%=amount%></td></tr>
<tr><td class=td1 align=right>规格：</td>
<td class=t3><%=spec%></td></tr>
<tr><td class=td1 align=right>包装：</td>
<td class=t3><%=packing%></td></tr>
<tr><td class=td1 align=right>单位：</td>
<td class=t3><%=corpname%></td></tr>
<tr><td class=td1 align=right>电话：</td>
<td class=t3><%=phone%> <font color=00000>国家：</font> <%=country%></td></tr>
<tr><td class=td1 align=right>Email：</td>
<td class=t3><a href="mailto:<%=email%>"><%=email%></a></td></tr>
<tr><td width=70 align=right>订购说明：</td>
<td class=t3><br><%=checkstr(content)%></textarea></td>
</tr>
<tr><td class=td2 bgcolor=ffffff ></td><td class=td2 bgcolor=ffffff align=left><br>
<input type="submit" name="submit" value="确认提交">
</td></tr>
</table>
</td>
<td> </td>
</tr>
</table>
</form>
<%end if%>
</body>
</html>
<!-- #include file="../func.asp" -->
<%
function selectxh(fieldname,ordername,byasc,defaultasc)
if defaultasc<>"asc" then defaultasc="desc"
if fieldname=ordername then
if byasc="desc" then
selectxh="asc"
else
selectxh="desc"
end if
else
selectxh=defaultasc
end if
end function
%>
<script language="Javascript">
function delrec(code)
{
if (confirm("您确认要删除("+code+")吗？")==true)
{
window.location.href="<%=htmlname%>&pageno=<%=pageno%>&delclass="+code
}
}
function checkform(form)
{
var flag=true;
return flag;
}
</script>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -