productedit.asp
来自「生成html的ASP企业站点,可以进行二次开发的」· ASP 代码 · 共 554 行 · 第 1/2 页
ASP
554 行
<%@ LANGUAGE = VBScript %>
<HTML xmlns="http://www.w3.org/1999/xhtml">
<HEAD>
<META HTTP-EQUIV="Content-Type" Content="text/html; charset=gb2312" />
<TITLE>新闻编辑</TITLE>
<link rel="stylesheet" href="Images/Admin.css">
<script language="javascript" src="../Script/Admin.js"></script>
</HEAD>
<!--#include file="../Include/Const.asp" -->
<!--#include file="../Include/ConnSiteData.asp" -->
<!--#include file="Admin_htmlconfig.asp"-->
<BODY>
<script language="javascript">
<!--
// 参数说明
// s_Type : 文件类型，可用值为"image","flash","media","file"
// s_Link : 文件上传后，用于接收上传文件路径文件名的表单名
// s_Thumbnail : 文件上传后，用于接收上传图片时所产生的缩略图文件的路径文件名的表单名，当未生成缩略图时，返回空值，原图用s_Link参数接收，此参数专用于缩略图
function showUploadDialog(s_Type, s_Link, s_Thumbnail){
//以下style=coolblue,值可以依据实际需要修改为您的样式名,通过此样式的后台设置来达到控制允许上传文件类型及文件大小
var arr = showModalDialog("../Editor/Dialog/i_upload.htm?style=coolblue&type="+s_Type+"&link="+s_Link+"&thumbnail="+s_Thumbnail, window, "dialogWidth:0px;dialogHeight:0px;help:no;scroll:no;status:no");
}
//-->
</script>
<%
Dim quanxian
quanxian=trim(Request.ServerVariables(name))
if Instr(session("AdminPurview"),"|13,")=0 then
response.write ("<br><br><div align=""center""><font style=""color:red; font-size:9pt; "")>您没有管理该模块的权限！</font></div>")
response.end
end if
dim Result
Result=request.QueryString("Result")
dim ID,ProductNameCh,ProductNameEn,ViewFlagCh,ViewFlagEn,SortNameCH,SortID,SortPath
dim ProductNo,ProductModel,N_Price,P_Price,Stock,UnitCh,UnitEn,MakerCh,MakerEn,CommendFlag,NewFlag,GroupID,GroupIdName,Exclusive,SeoKeywordsCH,SeoKeywordsEN,SeoDescriptionCH,SeoDescriptionEN
dim BigPic,SmallPic,ContentCH,ContentEn
ID=request.QueryString("ID")
call ProductEdit()
call AdminSiteInfo
%>
<br>
<table class="tableborder" width="95%" border="0" align="center" cellpadding="3" cellspacing="1">
<tr>
<th>产品检索及分类查看：添加，修改，删除产品信息</th>
</tr>
<tr>
<td height="24" align="center" nowrap="nowrap" class="forumrow"><a href="ProductEdit.asp?Result=Add" onclick='changeAdminFlag("添加产品信息")'>添加产品信息</a><font color="#0000FF"> | </font><a href="ProductList.asp" onclick='changeAdminFlag("产品列表")'>查看所有产品信息</a> | </font><a href="ProductSort.asp?Action=Add&ParentID=0" onclick='changeAdminFlag("产品列表")'>添加产品类别</a> | </font><a href="OrderList.asp" onclick='changeAdminFlag("产品列表")'>查看订单信息</a><font color="#0000FF"> | </font><a href="Admin_htmlsort.asp" onclick='changeAdminFlag("生成其他信息分类页面")'>生成产品分类页面</a><font color="#0000FF"> | </font><a href="Admin_htmlpro.asp" onclick='changeAdminFlag("生成其他信息详细页面")'>生成产品详细页面</a></td>
</tr>
</table>
<br>
<table class="tableborder" width="95%" border="0" align="center" cellpadding="3" cellspacing="1">
<form name="editForm" method="post" action="ProductEdit.asp?Action=SaveEdit&Result=<%=Result%>&ID=<%=ID%>">
<tr>
<th height="22" colspan="2">【<%If Result = "Add" then%>添加<%ElseIf Result = "Modify" then%>修改<%End If%>产品】</th>
</tr>
<tr>
<td width="20%" align="right" class="forumRow">中文标题：</td>
<td width="80%" class="forumRowHighlight"><input name="ProductNameCH" type="text" id="ProductNameCH" style="width: 280" value="<%=ProductNameCH%>" maxlength="250">
是否显示：
<input name="ViewFlagCH" type="checkbox" value="1" checked="checked" <%if ViewFlagCH then response.write ("checked")%>>
<font color="red">*</font> <input type="button" name="btn" value="复制标题" title="复制标题到中文：MetaDescription、MetaKeywords" onClick="CopyWebTitleCH(document.editForm.ProductNameCH.value);"></td>
</tr>
<tr>
<td width="20%" align="right" class="forumRow">英文标题：</td>
<td width="80%" class="forumRowHighlight"><input name="ProductNameEN" type="text" id="ProductNameEN" style="width: 280" value="<%=ProductNameEN%>" maxlength="250">
是否显示：
<input name="ViewFlagEN" type="checkbox" id="ViewFlagEN" value="1" <%if ViewFlagEN then response.write ("checked")%>>
<input type="button" name="btn2" value="复制标题" title="复制标题到英文：MetaDescription、MetaKeywords" onClick="CopyWebTitleEN(document.editForm.ProductNameEN.value);"></td>
</tr>
<tr>
<td align="right" class="forumRow">中文MetaKeywords：</td>
<td class="forumRowHighlight"><input name="SeoKeywordsCH" type="text" id="SeoKeywordsCH" style="width: 500" value="<%=SeoKeywordsCH%>" maxlength="250"></td>
</tr>
<tr>
<td align="right" class="forumRow">中文MetaDescription：</td>
<td class="forumRowHighlight"><input name="SeoDescriptionCH" type="text" id="SeoDescriptionCH" style="width: 500" value="<%=SeoDescriptionCH%>" maxlength="250"></td>
</tr>
<tr>
<td align="right" class="forumRow">英文MetaKeywords：</td>
<td class="forumRowHighlight"><input name="SeoKeywordsEN" type="text" id="SeoKeywordsEN" style="width: 500" value="<%=SeoKeywordsEN%>" maxlength="250"></td>
</tr>
<tr>
<td align="right" class="forumRow">英文MetaDescription：</td>
<td class="forumRowHighlight"><input name="SeoDescriptionEN" type="text" id="SeoDescriptionEN" style="width: 500" value="<%=SeoDescriptionEN%>" maxlength="250"></td>
</tr>
<tr>
<td align="right" class="forumRow">产品类别：</td>
<td class="forumRowHighlight"><input name="SortID" type="text" id="SortID" style="width: 18; background-color:#fffff0" value="<%=SortID%>" readonly>
<input name="SortPath" type="text" id="SortPath" style="width: 70; background-color:#fffff0" value="<%=SortPath%>" readonly>
<input name="SortNameCH" type="text" id="SortNameCH" value="<%=SortNameCH%>" style="width: 180; background-color:#fffff0" readonly>
<a href="javaScript:OpenScript('SelectSort.asp?Result=Products',500,500,'')">选择类别</a> <font color="red">*</font></td>
</tr>
<tr>
<td align="right" class="forumRow">产品编号：</td>
<td class="forumRowHighlight"><input name="ProductNo" type="text" style="width: 180;" value="<%=ProductNo%>" maxlength="180">
<font color="red">*</font></td>
</tr>
<tr>
<td align="right" class="forumRow">产品型号：</td>
<td class="forumRowHighlight"><input name="ProductModel" type="text" style="width: 180;" value="<%=ProductModel%>" maxlength="180">
<font color="red">*</font></td>
</tr>
<tr>
<td align="right" class="forumRow">市场价格：</td>
<td class="forumRowHighlight"><input name="N_Price" type="text" style="width: 80;" value="<%=N_Price%>" maxlength="80">
<font color="red">*</font></td>
</tr>
<tr>
<td align="right" class="forumRow">批发价格：</td>
<td class="forumRowHighlight"><input name="P_Price" type="text" style="width: 80;" value="<%=P_Price%>" maxlength="80">
<font color="red">*</font></td>
</tr>
<tr>
<td align="right" class="forumRow">库存数量：</td>
<td class="forumRowHighlight"><input name="Stock" type="text" style="width: 80;" value="<%=Stock%>" maxlength="80">
<font color="red">*</font></td>
</tr>
<tr>
<td align="right" class="forumRow">计价单位[中文]：</td>
<td class="forumRowHighlight"><input name="UnitCH" type="text" style="width: 80;" value="<%=UnitCH%>" maxlength="80">
<a href="javascript:" onClick="document.editForm.UnitCH.value='件'">件</a> <a href="javascript:" onClick="document.editForm.UnitCH.value='套'">套</a> <a href="javascript:" onClick="document.editForm.UnitCH.value='个'">个</a> <a href="javascript:" onClick="document.editForm.UnitCH.value='只'">只</a> <a href="javascript:" onClick="document.editForm.UnitCH.value='台'">台</a> <font color="red">*</font></td>
</tr>
<tr>
<td align="right" class="forumRow">计价单位[英文]：</td>
<td class="forumRowHighlight"><input name="UnitEN" type="text" style="width: 80;" value="<%=UnitEN%>" maxlength="80">
<a href="javascript:" onClick="document.editForm.UnitEN.value='Dozen'">Dozen</a> </td>
</tr>
<tr>
<td align="right" class="forumRow">出品公司[中文]：</td>
<td class="forumRowHighlight"><input name="MakerCH" type="text" style="width: 250;" value="<%=MakerCH%>" maxlength="250">
<a href="javascript:" onClick="document.editForm.MakerCH.value='<%=AdminSiteTitleCH%>'"><%=AdminSiteTitleCH%></a> <font color="red">*</font></td>
</tr>
<tr>
<td align="right" class="forumRow">出品公司[英文]：</td>
<td class="forumRowHighlight"><input name="MakerEN" type="text" id="MakerEN" style="width: 250;" value="<%=MakerEN%>" maxlength="250">
<a href="javascript:" onClick="document.editForm.MakerEN.value='<%=AdminSiteTitleEN%>'"><%=AdminSiteTitleEN%></a> <font color="red">*</font></td>
</tr>
<%
if Result="Modify" then
set rs = server.createobject("adodb.recordset")
sql="select * from LiangJingCMS_Products where ID="& ID
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write ("<center>数据库记录读取错误！</center>")
response.end
end If
if rs("attribute1CH")<>"" and rs("attribute1CH_value")<>"" then
attribute1CH_1=Split(rs("attribute1CH"),"§§§")
attribute1CH_value_1=Split(rs("attribute1CH_value"),"§§§")
Num_1=ubound(attribute1CH_1)+1
Else
Num_1=0
End If
rs.close
set rs=Nothing
Else
Num_1=0
End If
%>
<tr>
<td align="right" class="forumRow">中文自定义产品属性：</td>
<td class="forumRowHighlight"><input name="Num_1" type="text" id="Num_1" value="<%=Num_1%>" size="5" />个 <input name="button2" type="button" id="button2" value="设置" onClick="num_1()" /> <input type="button" name="button7" id="button7" value="增加一个" onClick="num_1_1()" />
<br>
<span id="num_1_str">
<%For i=0 to (Num_1-1)%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="28">属性名称：
<input name="attributeCH<%=i+1%>" type="text" id="attributeCH<%=i+1%>" value="<%=attribute1CH_1(i)%>" size="18" />
属性值：
<input name="attributeCH<%=i+1%>_value" type="text" id="attributeCH<%=i+1%>_value" value="<%=attribute1CH_value_1(i)%>" size="50" /></td>
</tr>
</table>
<%Next%>
</span> </td>
</tr>
<%
if Result="Modify" then
set rs = server.createobject("adodb.recordset")
sql="select * from LiangJingCMS_Products where ID="& ID
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write ("<center>数据库记录读取错误！</center>")
response.end
end If
if rs("attribute1EN")<>"" and rs("attribute1EN_value")<>"" then
attribute1EN_1=Split(rs("attribute1EN"),"§§§")
attribute1EN_value_1=Split(rs("attribute1EN_value"),"§§§")
Num_2=ubound(attribute1EN_1)+1
Else
Num_2=0
End If
rs.close
set rs=Nothing
Else
Num_2=0
End If
%>
<tr>
<td align="right" class="forumRow">英文自定义产品属性：</td>
<td class="forumRowHighlight"><input name="Num_2" type="text" id="Num_1" value="<%=Num_2%>" size="5" />个 <input name="button2" type="button" id="button2" value="设置" onClick="num_2()" /> <input type="button" name="button7" id="button7" value="增加一个" onClick="num_2_1()" />
<br>
<span id="num_2_str">
<%For i=0 to (Num_2-1)%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="28">属性名称：
<input name="attributeEN<%=i+1%>" type="text" id="attributeEN<%=i+1%>" value="<%=attribute1EN_1(i)%>" size="18" />
属性值：
<input name="attributeEN<%=i+1%>_value" type="text" id="attributeEN<%=i+1%>_value" value="<%=attribute1EN_value_1(i)%>" size="50" /></td>
</tr>
</table>
<%Next%>
</span> </td>
</tr>
<tr>
<td align="right" class="forumRow">状 态：</td>
<td class="forumRowHighlight"><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")%>> 最新</td>
</tr>
<tr>
<td align="right" class="forumRow">阅读权限：</td>
<td class="forumRowHighlight"><select name="GroupID">
<% 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 align="right" class="forumRow">产品小图：</td>
<td class="forumRowHighlight"><input name="SmallPic" type="text" style="width: 250;" value="<%=SmallPic%>" maxlength="250">
<input type="button" value="上传图片" onClick="showUploadDialog('image', 'editForm.SmallPic', '')">
<font color="red">*</font></td>
</tr>
<tr>
<td align="right" class="forumRow">产品大图：</td>
<td class="forumRowHighlight"><input name="BigPic" type="text" style="width: 250;" value="<%=BigPic%>" maxlength="250">
<input type="button" value="上传图片" onClick="showUploadDialog('image', 'editForm.BigPic', '')">
<font color="red">*</font></td>
</tr>
<tr>
<td align="right" class="forumRow">产品内容：</td>
<td class="forumRowHighlight"><textarea name="ContentCH" id="ContentCH" style="display:none"><%=Server.HTMLEncode((ContentCH))%></textarea>
<iframe ID="eWebEditor1" src="../Editor/ewebeditor.htm?id=ContentCH&style=coolblue" frameborder="0" scrolling="no" width="550" height="350"></iframe></td>
</tr>
<tr>
<td align="right" class="forumRow">产品内容：</td>
<td class="forumRowHighlight"><textarea name="ContentEN" id="ContentEN" style="display:none"><%=Server.HTMLEncode((ContentEN))%></textarea>
<iframe ID="eWebEditor1" src="../Editor/ewebeditor.htm?id=ContentEN&style=coolblue" frameborder="0" scrolling="no" width="550" height="350"></iframe></td>
</tr> <tr>
<td align="right" class="forumRow"></td>
<td class="forumRowHighlight"><input name="submitSaveEdit" type="submit" id="submitSaveEdit" value="保存">
<input type="button" value="返回上一页" onClick="history.back(-1)"></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("ProductNameCh")))<1 then
response.write ("<script language=javascript> alert('""中文""名称为必填项目！');history.back(-1);</script>")
response.end
end if
if request.Form("ViewFlagEn")=1 then
if len(trim(request.Form("ProductNameEn")))<1 then
response.write ("<script language=javascript> alert('您已经选择了""英文""显示，因此英文名称必填！');history.back(-1);</script>")
response.end
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?