📄 product_admin.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" -->
<%
classcode=Request.QueryString("classcode")
flag=Request.QueryString("flag")
productno=Request.QueryString("productno")
pageno=Request.QueryString("pageno")
if classcode="" then Response.End
if flag="" then flag="1"
tablename="product"
set cn=server.CreateObject("ADODB.Connection")
cn.Open mycnstr
set rs=server.CreateObject("ADODB.Recordset")
set rs2=server.CreateObject("ADODB.Recordset")
'if Session("userqx")<>"9" and left(classcode,3)<>Session("classcode") then
' sqltext="select classcode from pro_auth where classcode='"+classcode+"' and username='"+Session("username")+"'"
' rs.Open sqltext,cn,1,1
' if rs.EOF then
' Response.Write("<font color=red size=2>对不起，你没有操作此类产品的权限，请与管理员联系</font>")
' Response.End
' end if
' rs.Close
'end if
myflag="1"
sqltext="select classname from "+tablename+"_class where classcode='"+classcode+"'"
rs.Open sqltext,cn,1,1
if not rs.EOF then
classname=trim(rs(0))
else
Response.End
end if
rs.Close
if productno<>"" then
sqltext="delete from "+tablename+" where productno="&productno
cn.Execute(sqltext)
sqltext="delete from picfiles where (code='product' or code='product2') and keyno="&productno
cn.Execute(sqltext)
end if
ordertxt=" order by sortnum desc"
htmltitle="产品管理"
htmlname="product_admin.asp?classcode="+classcode+"&flag="+flag
addhtml="product_edit.asp?classcode="+classcode+"&flag="+flag+"&pageno="+pageno
%>
<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}
.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=#ff4500 style="font-size:12px">(<%=classname%>)</font>
<a href="Javascript:window.location.reload()">[刷新列表]</a>
<a href="<%=addhtml%>">[增加]</a>
</td>
</tr>
</table>
</td></tr>
<%
sqltext="select * from "+tablename+" where classcode='"+classcode+"' "+ordertxt
rs.Open sqltext,cn,1,1
listcount=50
rs.PageSize=listcount
if pageno="" then pageno=1 else pageno=cint(pageno)
if rs.PageCount>0 then rs.AbsolutePage=pageno
%>
<tr><td>
<table width="100%" border="0" cellspacing="1" cellpadding="1">
<tr bgcolor="527c72" style="color:#ffffff" align="center">
<td height=18 width="35" class=t2></td>
<td width=40 class=t2>序号</td>
<td class=t2>产品名称</td>
<td class=t2>英文名称</td>
<td class=t2>分子式</td>
<td width="70" class=t2>图片</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
%>
<td width="35" align=right>
<%if myflag="1" then%>
<div align=center><img onclick="delrec('<%=rs("productno")%>')" src="../admin/delete.gif" style="cursor:hand"></div>
<%else
Response.Write(" ")
end if%>
</td>
<td width=40 align="center" height=20><%=rs("sortnum")%></td>
<td align="left" height=20>
<a href="<%=addhtml%>&productno=<%=rs("productno")%>"><%=trim(rs("title"))%></td>
<td align="left" height=20><%=trim(rs("title2"))%></td>
<td align="left"><%=trim(rs("spec"))%></td>
<td width=70 align="center" height=20>
<a href="Javascript:editimage('<%=rs("productno")%>')">图片</a>
<%if rs("picflag")="1" then Response.Write("<font color=red style='font-size:12px'>(有)</font>") else Response.Write("<font color=navy style='font-size:12px'>(无)</font>")%>
</td>
</tr>
<%
i=i+1
rs.MoveNext
loop
%>
</table>
</td></tr>
<tr><td>
<table width="100%" cellspacing="0" cellpadding="0" border=0>
<tr><td><hr size=1 color=527c72></td></tr>
<tr><td align=right>
[第<b><%=pageno%></b>页, 共<b><%=rs.PageCount%></b>页<b><%=rs.RecordCount%></b>条记录]
<%if pageno>1 then%>
<a class=r1 href="<%=htmlname%>&pageno=1">[首页]</a>
<a class=r1 href="<%=htmlname%>&pageno=<%=pageno-1%>">[上页]</a>
<%end if
if pageno<rs.PageCount then%>
<a class=r1 href="<%=htmlname%>&pageno=<%=pageno+1%>">[下页]</a>
<a class=r1 href="<%=htmlname%>&pageno=<%=rs.PageCount%>">[末页]</a>
<%end if%>
</td></tr>
</table>
</td></tr>
</table>
</body>
</html>
<%
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('您确认要删除吗？')==true)
{
window.location.href="<%=htmlname%>&pageno=<%=pageno%>&productno="+code
}
}
function editimage(keyno)
{
var str
str="../admin/pic_uploadacc.asp?" ;
str=str+"keyno="+keyno+"&tablename=product&keyword=productno&strflag=0"
window.open(str,"mywin","toolbar=no,location=no,directories=no,status=no,resizable=no,menubar=no,scrollbars=yes,width=550,height=400,left=120,top=70")
}
function editimage2(keyno)
{
var str
str="../admin/pic_uploadacc.asp?" ;
str=str+"keyno="+keyno+"&tablename=product&keyword=productno&strflag=0&flagfield=picflag2&code=product2&picsize=900000"
window.open(str,"mywin","toolbar=no,location=no,directories=no,status=no,resizable=no,menubar=no,scrollbars=yes,width=550,height=400,left=120,top=70")
}
</script>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -