📄 pro_body.asp
字号:
<%sub adminpro_body()
dim totalnews,Currentpage,totalpages,i
sql="select * from p_info order by p_id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<HTML><HEAD><TITLE>管理中心</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK
href="inc/djcss.css" type=text/css rel=StyleSheet>
<META content="MSHTML 6.00.2800.1126" name=GENERATOR>
<SCRIPT language=javascript>
var upfile_obj;
function OnUpFile()
{
upfile_obj.src=upfile_obj.lowsrc;
upfile_obj.src=document.forms["form1"].upfile.value;
}
</SCRIPT>
</HEAD>
<body onkeydown=return(!(event.keyCode==78&&event.ctrlKey)) background=inc/dj_bg.gif>
<table align="center" width="98%" border="1" cellspacing="0" cellpadding="4" bordercolor="#C0C0C0" style="border-collapse: collapse">
<tr>
<td bgcolor="#E8E8E8">产品管理</font></td>
</tr>
<tr bgcolor="#E8E8E8" align="center">
<td class="chinese" width="10%" bgcolor="#F5F5F5">编号</td>
<td class="chinese" width="70%" bgcolor="#F5F5F5">产品名称</td>
<td class="chinese" width="20%" bgcolor="#F5F5F5">操作</td>
</tr>
<%if not rs.eof then
dim newsperpage
newsperpage=10
rs.movefirst
rs.pagesize=newsperpage
if trim(request("page"))<>"" then
currentpage=clng(request("page"))
if currentpage>rs.pagecount then
currentpage=rs.pagecount
end if
else
currentpage=1
end if
totalnews=rs.recordcount
if currentpage<>1 then
if (currentpage-1)*newsperpage<totalnews then
rs.move(currentpage-1)*newsperpage
dim bookmark
bookmark=rs.bookmark
end if
end if
if (totalnews mod newsperpage)=0 then
totalpages=totalnews\newsperpage
else
totalpages=totalnews\newsperpage+1
end if
i=0
do while not rs.eof and i<newsperpage%>
<tr>
<td bgcolor="#FFFFFF" class="chinese" align="center"><%=rs("p_id")%> </td>
<td bgcolor="#FFFFFF" class="chinese"><a href="../showpic.asp?p_id=<%=rs("p_id")%>" target="_blank"><%=rs("p_name")%></a></span> </td>
<td bgcolor="#FFFFFF" class="chinese" align="center"><a href="admin_pro.asp?id=<%=rs("p_id")%>&action=editpro#editpro">修改</a>
<a href="admin_pro.asp?id=<%=rs("p_id")%>&action=delpro#delpro">删除</a> <a href="../showpic.asp?p_id=<%=rs("p_id")%>" target="_blank">查看</a></td>
</tr>
<%i=i+1
rs.movenext
loop
else
if rs.eof and rs.bof then%>
<tr align="center">
<td bgcolor="#FFFFFF" colspan="3" class="chinese">当前没有产品！</td>
</tr>
<%end if
end if%>
</table>
<table align="center" width="98%" border="0" cellspacing="0" cellpadding="0">
<form name="form100" method="post" action="admin_pro.asp">
<tr>
<td class="chinese" align="right"><%=currentpage%> /<%=totalpages%>页,<%=totalnews%>条记录/<%=newsperpage%>篇每页.
<%
i=1
showye=totalpages
if showye>10 then
showye=10
end if
for i=1 to showye
if i=currentpage then
%>
<%=i%>
<%else%>
<a href="admin_pro.asp?page=<%=i%>"><%=i%></a>
<%end if
next
if totalpages>currentpage then
if request("page")="" then
page=1
else
page=request("page")+1
end if%>
<a href="admin_pro.asp?page=<%=page%>" title="下一页">>></a>
<%end if%>
<input type="text" name="page" class="textarea" size="4">
<input type="submit" name="Submit" value="Go" class="button"></td>
</tr>
</form>
</table>
<br>
<%if request.QueryString("action")="newpro" then%>
<table align="center" width="98%" border="1" cellspacing="0" cellpadding="4" bordercolor="#C0C0C0" style="border-collapse: collapse">
<form name="form1" method="post" action="">
<INPUT name="upfile" onchange=return(OnUpFile()) type=hidden>
<tr>
<td bgcolor="#E8E8E8"><a name="newpro">新的产品</a></font></td>
</tr>
<tr>
<td height="25" bgcolor="#FFFFFF" class="chinese"> 产品名称:
<input name="p_name" type="text" class="textarea" id="p_name" size="30" maxlength="30">
<input name="p_other" type="checkbox" id="p_other" value="1">
加为推荐产品</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" class="chinese"> 产品型号:
<input name="p_spec" type="text" class="textarea" id="p_spec" value="" size="30" maxlength="30">
</td>
</tr>
<tr>
<td height="25" bgcolor="#FFFFFF" class="chinese"> 产品类别:
<select name="p_class_id" id="p_class_id">
<option value="" selected>-请选择商品分类-</option>
<%
'###############取出类别分类#################
dim sql_p,rs_p
sql_p="select p_id,p_type from p_class"
set rs_p=server.createobject("adodb.recordset")
rs_p.open sql_p,conn,1,1
if not(rs_p.bof and rs_p.eof) then
do while not rs_p.eof
%>
<option value="<%= rs_p("p_id") %>"><%= rs_p("p_type") %></option>
<%
rs_p.movenext
loop
rs_p.close
set rs_p=nothing
'conn.close
'set conn=nothing
end if
'####################取出分类结束#####################
%>
</select>
</td>
</tr>
<tr>
<td height="30" bgcolor="#FFFFFF" class="chinese"><table width="100%" height="100%" cellpadding="0" cellspacing="0">
<tr>
<td width="9%"> 产品图片:</td>
<td width="91%" align="left" valign="top"><iframe frameborder=no height=25 marginheight=0 marginwidth=0 name="right_F" scrolling=no src="upload.asp" width="100%"></iframe></td>
</tr>
</table></td>
</tr>
<tr>
<td height="25" align="left" bgcolor="#FFFFFF" class="chinese"> 简单说明： </td>
</tr>
<tr>
<td align="left" bgcolor="#FFFFFF" class="chinese"> <textarea name="p_epitome" cols="60" rows="12" class="textarea" id="p_epitome"></textarea></td>
</tr>
<tr>
<td bgcolor="#F5F5F5" class="chinese" height="30" align="center">
<input type="submit" name="Submit2" value="确定新增" class="button">
<input type="reset" name="Reset" value="清空重填" class="button">
</td>
</tr>
<input type="hidden" name="action" value="newpro">
<input type="hidden" name="MM_insert" value="true">
</form>
</table>
<%end if
if request.QueryString("action")="editpro" then
if request.querystring("id")="" then
errmsg=errmsg+"<br>"+"<li>请指定操作的对象！"
call diserror()
response.end
else
if not isinteger(request.querystring("id")) then
errmsg=errmsg+"<br>"+"<li>非法的产品ID参数！"
call diserror()
response.end
end if
end if
sql="select * from p_info where p_id="&cint(request.querystring("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<table align="center" width="98%" border="1" cellspacing="0" cellpadding="4" bordercolor="#C0C0C0" style="border-collapse: collapse">
<form name="form1" method="post" action="">
<INPUT name="upfile" onchange=return(OnUpFile()) type=hidden>
<input name="upfile2" type="hidden" value="<%= rs("p_pic") %>">
<tr>
<td bgcolor="#E8E8E8"><a name="newpro">修改产品</a></font> (注意：不要修改的地方，请不要改动保持原样！）</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" class="chinese"> 产品名称:
<input name="p_name" type="text" class="textarea" id="p_name" value="<%= rs("p_name") %>" size="30" maxlength="30">
<input name="p_other" type="checkbox" id="p_other" value="1" <% if rs("p_other")=1 then %>checked <% end if %>>
加为推荐产品(注意：不选为不推荐)</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" class="chinese"> 产品型号:
<input name="p_spec" type="text" class="textarea" id="p_spec" value="<%= rs("p_spec") %>" size="30" maxlength="30">
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" class="chinese"> 产品类别:
<select name="p_class_id" id="p_class_id">
<%
'###############取出类别分类#################
'dim sql_p,rs_p
sql_p="select p_id,p_type from p_class"
set rs_p=server.createobject("adodb.recordset")
rs_p.open sql_p,conn,1,1
if not(rs_p.bof and rs_p.eof) then
do while not rs_p.eof
%>
<option value="<%= rs_p("p_id") %>" <% if rs_p("p_id")=rs("p_class_id") then Response.Write("selected") end if %> ><%= rs_p("p_type") %></option>
<%
rs_p.movenext
loop
rs_p.close
set rs_p=nothing
'conn.close
'set conn=nothing
end if
'####################取出分类结束#####################
%>
</select>
</td>
</tr>
<tr>
<td height="30" bgcolor="#FFFFFF" class="chinese"><table width="100%" height="100%" cellpadding="0" cellspacing="0">
<tr>
<td width="9%"> 产品图片:</td>
<td width="60%" align="left" valign="top"><iframe frameborder=no height=25 marginheight=0 marginwidth=0 name="right_F" scrolling=no src="upload.asp" width="100%"></iframe></td>
<td width="31%" align="left" valign="middle"><a href="oldpro_show.asp?path=<%= rs("p_pic") %>&pname=<%=rs("p_name") %>">【查看图片</a>】</td>
</tr>
</table></td>
</tr>
<tr>
<td align="left" bgcolor="#FFFFFF" class="chinese"> 简单说明： </td>
</tr>
<tr>
<td align="left" bgcolor="#FFFFFF" class="chinese"> <textarea name="p_epitome" cols="60" rows="12" class="textarea" id="p_epitome"><%= rs("p_epitome") %></textarea></td>
</tr>
<tr>
<td bgcolor="#F5F5F5" class="chinese" height="30" align="center">
<input type="submit" name="Submit2" value="确定修改" class="button">
<input type="reset" name="Reset" value="清空重填" class="button">
</td>
</tr>
<input type="hidden" name="id" value="<%= cint(request.querystring("id")) %>">
<input type="hidden" name="action" value="editpro">
<input type="hidden" name="MM_insert" value="true">
</form>
</table>
<%end if
if request.QueryString("action")="delpro" then
if request.querystring("id")="" then
errmsg=errmsg+"<br>"+"<li>请指定操作的对象！"
call diserror()
response.end
else
if not isinteger(request.querystring("id")) then
errmsg=errmsg+"<br>"+"<li>非法的产品ID参数！"
call diserror()
response.end
end if
end if
sql="select * from p_info where p_id="&cint(request.querystring("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1%>
<table align="center" width="98%" border="1" cellspacing="0" cellpadding="4" bordercolor="#C0C0C0" style="border-collapse: collapse">
<form name="form1" method="post" action="">
<tr>
<td bgcolor="#E8E8E8"><a name="newpro">删除产品</a></font></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" class="chinese"> 产品名称:<%= rs("p_name") %>
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" class="chinese"> 产品类别:<%= rs("p_spec") %></td>
</tr>
<tr>
<td align="left" bgcolor="#FFFFFF" class="chinese"> 简单说明:</td>
</tr>
<tr>
<td align="left" valign="top" bgcolor="#FFFFFF" class="chinese"> <%= formatStr(rs("p_epitome")) %></td>
</tr>
<tr>
<td bgcolor="#F5F5F5" class="chinese" height="30" align="center">
<input type="submit" name="Submit2" value="确定删除" class="button">
【<a href="admin_pro.asp">返回</a>】 </td>
</tr>
<input type="hidden" name="id" value="<%= request.querystring("id") %>">
<input type="hidden" name="action" value="delpro">
<input type="hidden" name="MM_insert" value="true">
</form>
</table>
<%end if%>
<br>
</td>
</tr>
<tr>
<td colspan="3" height="1" background="images/dotlineh.gif"></td>
</tr>
</table>
<%
rs.close
set rs=nothing
end sub%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -