<% if Instr(session("AdminPurview"),"|13,")=0 then response.write ("

您没有管理该模块的权限！

") response.end end if dim Result Result=request.QueryString("Result") dim ID,PriceNameCh,PriceNameEn,ViewFlagCh,ViewFlagEn,SortNameCh,SortID,SortPath dim GroupID,GroupIdName,Exclusive,NoticeFlag,SourceCh,SourceEn,ContentCh,ContentEn,SeoKeywordsCH,SeoKeywordsEN,SeoDescriptionCH,SeoDescriptionEN,Show ID=request.QueryString("ID") call PriceEdit() call AdminSiteInfo %>

价格检索及分类查看：添加，修改，删除价格信息
添加价格信息 | 查看所有价格信息 | 添加价格类别

【<%If Result = "Add" then%>添加<%ElseIf Result = "Modify" then%>修改<%End If%>价格】
标    题：	*
价格类别：	选择类别 *
注册页面显示	是 > 否 >
内   容：	<% Dim oFCKeditor Set oFCKeditor = New FCKeditor oFCKeditor.BasePath = "fckeditor/" oFCKeditor.ToolbarSet = "Default" oFCKeditor.Width = "100%" oFCKeditor.Height = "400" oFCKeditor.Value = ContentCH oFCKeditor.Create "ContentCH" %>

<% sub PriceEdit() dim Action,rsRepeat,rs,sql Action=request.QueryString("Action") if Action="SaveEdit" then set rs = server.createobject("adodb.recordset") if len(trim(request.Form("PriceNameCH")))<1 then response.write ("") response.end end if if Result="Add" then sql="select * from Price" rs.open sql,conn,1,3 rs.addnew rs("PriceNameCh")=trim(Request.Form("PriceNameCh")) rs("PriceNameEn")=trim(Request.Form("PriceNameEn")) if Request.Form("ViewFlagCh")=1 then rs("ViewFlagCh")=Request.Form("ViewFlagCh") else rs("ViewFlagCh")=0 end if if Request.Form("ViewFlagEn")=1 then rs("ViewFlagEn")=Request.Form("ViewFlagEn") else rs("ViewFlagEn")=0 end if if Request.Form("SortID")="" and Request.Form("SortPath")="" then response.write ("") response.end else rs("SortID")=Request.Form("SortID") rs("SortPath")=Request.Form("SortPath") end if rs("SourceCh")=trim(Request.Form("SourceCh")) rs("SourceEn")=trim(Request.Form("SourceEn")) rs("ContentCh")=trim(Request.Form("ContentCh")) rs("ContentEn")=trim(Request.Form("ContentEn")) if Request.Form("NoticeFlag")=1 then rs("NoticeFlag")=Request.Form("NoticeFlag") else rs("NoticeFlag")=0 end if GroupIdName=split(Request.Form("GroupID"),"┎╂┚") rs("Exclusive")=trim(Request.Form("Exclusive")) rs("ContentCH")=trim(Request.Form("ContentCH")) rs("SeoKeywordsCH")=trim(Request.Form("SeoKeywordsCH")) rs("SeoDescriptionCH")=trim(Request.Form("SeoDescriptionCH")) rs("SeoKeywordsEN")=trim(Request.Form("SeoKeywordsEN")) rs("SeoDescriptionEN")=trim(Request.Form("SeoDescriptionEN")) rs("Show")=trim(Request.Form("Show")) rs("AddTime")=now() rs("updatetime")=now() rs.update rs.close set rs=Nothing set rs=server.createobject("adodb.recordset") sql="select top 1 ID from Price order by ID desc" rs.open sql,conn,1,1 ID=rs("ID") rs.close set rs=Nothing if ISHTML = 1 then call htmll("/CH/","/CH/",""&NewName&""&Separated&""&ID&"."&HTMLName&"","PriceView.asp","ID=",ID,"","") call htmll("/EN/","/EN/",""&NewName&""&Separated&""&ID&"."&HTMLName&"","PriceView.asp","ID=",ID,"","") End If end if if Result="Modify" then sql="select * from Price where ID="&ID rs.open sql,conn,1,3 rs("PriceNameCh")=trim(Request.Form("PriceNameCh")) rs("PriceNameEn")=trim(Request.Form("PriceNameEn")) if Request.Form("ViewFlagCh")=1 then rs("ViewFlagCh")=Request.Form("ViewFlagCh") else rs("ViewFlagCh")=0 end if if Request.Form("ViewFlagEn")=1 then rs("ViewFlagEn")=Request.Form("ViewFlagEn") else rs("ViewFlagEn")=0 end if if Request.Form("SortID")<>"" and Request.Form("SortPath")<>"" then rs("SortID")=Request.Form("SortID") rs("SortPath")=Request.Form("SortPath") else response.write ("") response.end end if rs("SourceCh")=trim(Request.Form("SourceCh")) rs("SourceEn")=trim(Request.Form("SourceEn")) if Request.Form("NoticeFlag")=1 then rs("NoticeFlag")=Request.Form("NoticeFlag") else rs("NoticeFlag")=0 end if GroupIdName=split(Request.Form("GroupID"),"┎╂┚") rs("Exclusive")=trim(Request.Form("Exclusive")) rs("ContentCh")=trim(Request.Form("ContentCh")) rs("ContentEn")=trim(Request.Form("ContentEn")) rs("SeoKeywordsCH")=trim(Request.Form("SeoKeywordsCH")) rs("SeoDescriptionCH")=trim(Request.Form("SeoDescriptionCH")) rs("SeoKeywordsEN")=trim(Request.Form("SeoKeywordsEN")) rs("SeoDescriptionEN")=trim(Request.Form("SeoDescriptionEN")) rs("Show")=trim(Request.Form("Show")) rs("updatetime")=now() rs.update rs.close set rs=Nothing if ISHTML = 1 then call htmll("/CH/","/CH/",""&NewName&""&Separated&""&ID&"."&HTMLName&"","PriceView.asp","ID=",ID,"","") call htmll("/EN/","/EN/",""&NewName&""&Separated&""&ID&"."&HTMLName&"","PriceView.asp","ID=",ID,"","") End If end if if ISHTML = 1 then response.write "" Else response.write "" End If else if Result="Modify" then set rs = server.createobject("adodb.recordset") sql="select * from Price where ID="& ID rs.open sql,conn,1,1 if rs.bof and rs.eof then response.write ("数据库记录读取错误！") response.end end if PriceNameCh=rs("PriceNameCh") PriceNameEn=rs("PriceNameEn") Show=rs("Show") ViewFlagCh=rs("ViewFlagCh") ViewFlagEn=rs("ViewFlagEn") SortNameCh=SortText(rs("SortID")) SortID=rs("SortID") SortPath=rs("SortPath") SourceCh=rs("SourceCh") SourceEn=rs("SourceEn") NoticeFlag=rs("NoticeFlag") GroupID=rs("GroupID") Exclusive=rs("Exclusive") ContentCh=rs("ContentCh") ContentEn=rs("ContentEn") SeoKeywordsCH=rs("SeoKeywordsCH") SeoDescriptionCH=rs("SeoDescriptionCH") SeoKeywordsEN=rs("SeoKeywordsEN") SeoDescriptionEN=rs("SeoDescriptionEN") rs.close set rs=nothing end if end if end sub sub SelectGroup() dim rs,sql set rs = server.createobject("adodb.recordset") sql="select GroupID,GroupNameCH from MemGroup" rs.open sql,conn,1,1 if rs.bof and rs.eof then response.write("未设组别") end if while not rs.eof response.write(""&rs("GroupNameCH")&"") rs.movenext wend rs.close set rs=nothing end sub Function SortText(ID) Dim rs,sql Set rs=server.CreateObject("adodb.recordset") sql="Select * From PriceSort where ID="&ID rs.open sql,conn,1,1 SortText=rs("SortNameCH") rs.close set rs=nothing End Function %>