📄 productedit.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
'┌┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┐
'┊ ┊
'┊ 速群企业网站管理系统（www.suqun.net） ┊
'┊ ┊
' 版权所有 Suqun.Net
'
' 程序制作 速群网络
' Add:江西省九江市速群网络科技
' Tel:13879284993
' E-m:suqun@suqun.net
' Q Q:190771179
'
' 相关网址 [产品介绍]http://www.suqun.net
' [支持论坛]http://bbs.suqun.net
'
' 演示网址 http://www.suqun.net
'┊ ┊
'└┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┘
%>
<% Response.CodePage=65001%>
<%' Option Explicit %>
<HTML xmlns="http://www.w3.org/1999/xhtml">
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=utf-8" />
<META NAME="copyright" CONTENT="Copyright 2004-2008 - Suqun.Net-STUDIO" />
<META NAME="Author" CONTENT="速群网络科技,www.suqun.net" />
<META NAME="Keywords" CONTENT="" />
<META NAME="Description" CONTENT="" />
<TITLE>编辑产品</TITLE>
<link rel="stylesheet" href="Images/CssAdmin.css">
<script language="javascript" src="../Script/Admin.js"></script>
</HEAD>
<!--#include file="../Include/Const.asp" -->
<!--#include file="../Include/ConnSiteData.asp" -->
<!--#include file="CheckAdmin.asp"-->
<%
if Instr(session("AdminPurview"),"|33,")=0 then
response.write ("<font color='red')>你不具有该管理模块的操作权限，请返回！</font>")
response.end
end if
'========判断是否具有管理权限
%>
<BODY>
<%
dim Result
Result=request.QueryString("Result")
dim ID,ProductNameSi,ProductNameTr,ProductNameEn,ViewFlagSi,ViewFlagTr,ViewFlagEn,SortNameSi,SortID,SortPath
dim ProductNo,ProductModel,Px,PriceSi,PriceTr,PriceEn,MakerSi,MakerTr,MakerEn,CommendFlag,NewFlag,HotFlag,GroupID,GroupIdName,Exclusive
dim BigPic,SmallPic,ContentSi,ContentTr,ContentEn
ID=request.QueryString("ID")
call ProductEdit()
%>
<table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="#6298E1">
<tr>
<td height="24" nowrap><font color="#FFFFFF"><img src="Images/Explain.gif" width="18" height="18" border="0" align="absmiddle"> <strong>产品检索及分类查看：添加，修改，删除产品信息</strong></font></td>
</tr>
<tr>
<td height="24" align="center" nowrap bgcolor="#EBF2F9"><a href="ProductEdit.asp?Result=Add" onClick='changeAdminFlag("添加产品信息")'>添加产品信息</a><font color="#0000FF"> | </font><a href="ProductList.asp" onClick='changeAdminFlag("产品列表")'>查看所有产品信息</a></td>
</tr>
</table>
<br>
<table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="#6298E1">
<form name="editForm" method="post" action="ProductEdit.asp?Action=SaveEdit&Result=<%=Result%>&ID=<%=ID%>">
<tr>
<td height="24" nowrap bgcolor="#EBF2F9"><table width="100%" border="0" cellpadding="0" cellspacing="0" id=editProduct idth="100%">
<tr>
<td width="120" height="20" align="right"> </td>
<td> </td>
</tr>
<tr>
<td height="20" align="right">简体名称：</td>
<td><input name="ProductNameSi" type="text" class="textfield" id="ProductNameSi" style="WIDTH: 240;" value="<%=ProductNameSi%>" maxlength="100"> 显示：<input name="ViewFlagSi" type="checkbox" style='HEIGHT: 13px;WIDTH: 13px;' value="1" checked <%if ViewFlagSi then response.write ("checked")%>> * 不少于3个字符</td>
</tr>
<tr>
<td height="20" align="right">繁体名称：</td>
<td><input name="ProductNameTr" type="text" class="textfield" id="ProductNameTr" style="WIDTH: 240;" value="<%=ProductNameTr%>" maxlength="100"> 显示：<input name="ViewFlagTr" type="checkbox" value="1" style='HEIGHT: 13px;WIDTH: 13px;' <%if ViewFlagTr then response.write ("checked")%>></td>
</tr>
<tr>
<td height="20" align="right">英文名称：</td>
<td><input name="ProductNameEn" type="text" class="textfield" id="ProductNameEn" style="WIDTH: 240;" value="<%=ProductNameEn%>" maxlength="100"> 显示：<input name="ViewFlagEn" type="checkbox" value="1" style='HEIGHT: 13px;WIDTH: 13px;' <%if ViewFlagEn then response.write ("checked")%>></td>
</tr>
<tr>
<td height="20" align="right">所属类别：</td>
<td><input name="SortNameSi" type="text" class="textfield" id="SortNameSi" value="<%=SortNameSi%>" style="WIDTH: 240;background-color:#EBF2F9;" readonly> <a href="javaScript:OpenScript('SelectSort.asp?Result=Products',500,500,'')"><img src="Images/Select.gif" width="30" height="16" border="0" align="absmiddle"></a></td>
</tr>
<tr>
<td height="20" align="right">类别数字：</td>
<td><input name="SortID" type="text" class="textfield" id="SortID" style="WIDTH: 40;background-color:#EBF2F9;" value="<%=SortID%>" readonly><input name="SortPath" type="text" class="textfield" id="SortPath" style="WIDTH: 200;background-color:#EBF2F9;" value="<%=SortPath%>" readonly> *</td>
</tr>
<tr>
<td height="20" align="right">编 号：</td>
<td><input name="ProductNo" type="text" class="textfield" id="ProductNo" style="WIDTH: 240;" value="<%=ProductNo%>" maxlength="100"> * 如果不明确请勿修改</td>
</tr>
<tr>
<td height="20" align="right">型 号：</td>
<td><input name="ProductModel" type="text" class="textfield" id="ProductModel" style="WIDTH: 240;" value="<%=ProductModel%>" maxlength="100"></td>
</tr>
<tr>
<td height="20" align="right">排 序：</td>
<td><input name="Px" type="text" class="textfield" id="Px" style="WIDTH: 60px;" value="<%=Px%>" maxlength="100"> 只能填写数字</td>
</tr>
<tr>
<td height="20" align="right">价 格：</td>
<td><input name="PriceSi" type="text" class="textfield" id="PriceSi" style="WIDTH: 240;" value="<%=PriceSi%>" maxlength="100"> 简体</td>
</tr>
<tr>
<td height="20" align="right"></td>
<td><input name="PriceTr" type="text" class="textfield" id="PriceTr" style="WIDTH: 240;" value="<%=PriceTr%>" maxlength="100"> 繁体</td>
</tr>
<tr>
<td height="20" align="right"></td>
<td><input name="PriceEn" type="text" class="textfield" id="PriceEn" style="WIDTH: 240;" value="<%=PriceEn%>" maxlength="100"> 英文</td>
</tr>
<tr>
<td height="20" align="right">出品公司：</td>
<td><input name="MakerSi" type="text" class="textfield" id="MakerSi" style="WIDTH: 240;" value="<%=MakerSi%>" maxlength="100"> 简体</td>
</tr>
<tr>
<td height="20" align="right"> </td>
<td><input name="MakerTr" type="text" class="textfield" id="MakerTr" style="WIDTH: 240;" value="<%=MakerTr%>" maxlength="100"> 繁体</td>
</tr>
<tr>
<td height="20" align="right"> </td>
<td><input name="MakerEn" type="text" class="textfield" id="MakerEn" style="WIDTH: 240;" value="<%=MakerEn%>" maxlength="100"> 英文</td>
</tr>
<tr>
<td height="20" align="right">状 态：</td>
<td><input name="CommendFlag" type="checkbox" style="HEIGHT: 13px;WIDTH: 13px;" value="1" <%if CommendFlag then response.write ("checked")%>> 推荐 <input name="NewFlag" type="checkbox" value="1" style="HEIGHT: 13px;WIDTH: 13px;" <%if NewFlag then response.write ("checked")%>> 最新 <input name="HotFlag" type="checkbox" style="HEIGHT: 13px;WIDTH: 13px;" value="1" <%if HotFlag then response.write ("checked")%>> 热门 </td>
</tr>
<tr>
<td height="20" align="right">查看权限：</td>
<td><select name="GroupID" class="textfield">
<% call SelectGroup() %>
</select>
<input name="Exclusive" type="radio" value=">=" <%if Exclusive="" or Exclusive=">=" then response.write ("checked")%>> 隶属<input type="radio" <%if Exclusive="=" then response.write ("checked")%> name="Exclusive" value="=">专属（隶属：权限值≥可查看，专属：权限值＝可查看）</td>
</tr>
<tr>
<td height="20" align="right">产品主图：</td>
<td><input name="BigPic" type="text" class="textfield" style="WIDTH: 240;" value="<%=BigPic%>" maxlength="100"> <a href="javaScript:OpenScript('UpFileForm.asp?Result=BigPic',460,180)"><img src="Images/Upload.gif" width="30" height="16" border="0" align="absmiddle"></a></td>
</tr>
<tr>
<td height="20" align="right">缩 略 图：</td>
<td><input name="SmallPic" type="text" class="textfield" style="WIDTH: 240;" value="<%=SmallPic%>" maxlength="100"> <a href="javaScript:OpenScript('UpFileForm.asp?Result=SmallPic',460,180)"><img src="Images/Upload.gif" width="30" height="16" border="0" align="absmiddle"></a></td>
</tr>
<tr>
<td height="20" align="right" valign="top">简体介绍：<br>
<img title="点击进入可视化查看、编辑环境..." src="Images/Edit.gif" width="51" height="20" style="cursor:hand" onClick="OpenDialog('../Editor/EditorDialog.html?lnk=ContentSi&file=Editor_1.html',800,520);">
<td><textarea name="ContentSi" rows="8" class="textfield" id="ContentSi" style="WIDTH: 86%;" readonly><%=ContentSi%></textarea></td>
</tr>
<tr>
<td height="20" align="right" valign="top">繁体介绍：<br>
<img title="点击进入可视化查看、编辑环境..." src="Images/Edit.gif" width="51" height="20" style="cursor:hand" onClick="OpenDialog('../Editor/EditorDialog.html?lnk=ContentTr&file=Editor_1.html',800,520);"></td>
<td><textarea name="ContentTr" rows="8" class="textfield" id="ContentTr" style="WIDTH: 86%;" readonly><%=ContentTr%></textarea></td>
</tr>
<tr>
<td height="20" align="right" valign="top">英文介绍：<br>
<img title="点击进入可视化查看、编辑环境..." src="Images/Edit.gif" width="51" height="20" style="cursor:hand" onClick="OpenDialog('../Editor/EditorDialog.html?lnk=ContentEn&file=Editor_1.html',800,520);"></td>
<td><textarea name="ContentEn" rows="8" class="textfield" id="ContentEn" style="WIDTH: 86%;" readonly><%=ContentEn%></textarea></td>
</tr>
<tr>
<td height="30" align="right"> </td>
<td valign="bottom"><input name="submitSaveEdit" type="submit" class="button" id="submitSaveEdit" value="保存" style="WIDTH: 80;" ></td>
</tr>
<tr>
<td height="20" align="right"> </td>
<td valign="bottom"> </td>
</tr>
</table></td>
</tr>
</form>
</table>
</BODY>
</HTML>
<%
sub ProductEdit()
dim Action,rsRepeat,rs,sql
Action=request.QueryString("Action")
if Action="SaveEdit" then '保存编辑产品信息
set rs = server.createobject("adodb.recordset")
if len(trim(request.Form("ProductNameSi")))<3 then
response.write ("<script language=javascript> alert('""简体""名称为必填项目！');history.back(-1);</script>")
response.end
end if
if request.Form("ViewFlagTr")=1 then
if len(trim(request.Form("ProductNameTr")))<3 then
response.write ("<script language=javascript> alert('您已经选择了""繁体""显示，因此繁体名称必填！');history.back(-1);</script>")
response.end
end if
end if
if request.Form("ViewFlagEn")=1 then
if len(trim(request.Form("ProductNameEn")))<3 then
response.write ("<script language=javascript> alert('您已经选择了""英文""显示，因此英文名称必填！');history.back(-1);</script>")
response.end
end if
end if
if Result="Add" then '创建产品信息
sql="select * from suqun_Products"
rs.open sql,conn,1,3
rs.addnew
rs("ProductNameSi")=trim(Request.Form("ProductNameSi"))
rs("ProductNameTr")=trim(Request.Form("ProductNameTr"))
rs("ProductNameEn")=trim(Request.Form("ProductNameEn"))
if Request.Form("ViewFlagSi")=1 then
rs("ViewFlagSi")=Request.Form("ViewFlagSi")
else
rs("ViewFlagSi")=0
end if
if Request.Form("ViewFlagTr")=1 then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -