<% '************************************************************************************************** ' 程序名称: 七禧舞曲管理系统 ' 程序作者: 花心萝卜 ' 官方网站: http://www.cmsdj.com http://www.7xiwl.com ' 编写日期: 2009年8月27日 ' 版权所有: 本程序由七禧网络开发，未经同意请勿用于商业用途 '************************************************************************************************** %> 空间饰品管理
  rb2<%Else%>rb1<%end if%>" onClick="location='Admin_WebShop.asp';" value='管理首页' /> rb2<%Else%>rb1<%end if%>" onClick="location='?action=add';" value='添加新饰品' />
<% Dim Action,CD_ClassID,page Dim CD_ID,CD_Name Dim arr1,arr2 Dim key,HttpUrl Dim CmsDjShop:Set CmsDjShop = New CmsDj_Com_Shop Dim fso_v:Set fso_v = New CmsDj_Com_Fso action=Request.QueryString("action") CD_ClassID=request.QueryString("CD_ClassID") CD_SpecialID=request.QueryString("CD_SpecialID") page=int(request.QueryString ("page")) key=request.QueryString("key") Select Case Lcase(action) Case "add":Call Add() Case "edit":Call Edit() Case "saveadd" : Call SaveAdd() Case "saveedit": Call SaveEdit() Case "del" : Call Del() Case Else : Call Main() End Select Call Admin_FooterB %> <% Sub EditBoard(ActionUrl,ActionName,emValues) IF IsArray(emValues) Then SName = emValues(0) SClass = emValues(1) SPic = emValues(2) SDir = emValues(3) SMoney = emValues(4) End IF IF Not IsNum(SMoney) Then SMoney=0 %>
 <%=ActionName%>饰品
 饰品名称：  *
 饰品分类：  * 暂时先添加播放器，鼠标，其他的以后再更新，请关注官方论坛。
 演示图片：  * 上传路径为 Upload/Shop/。（不能和其他商品的相同）
 饰品文件：  * 上传路径为 Upload/Shop/。（不能和其他商品的相同）
 收费价格：  点数 * 会员购买需要的点数。
 ">   
<% End Sub Sub Main() %>
 饰品管理
 饰品名称：      
<% Dim Rs,SqlA if page<=0 or page="" then page=1'初始化分页参数 i=0 If key<>"" Then SqlA="SName like '%"&key&"%' order by SDate desc" Else SqlA="order by SDate desc" End If Set Rs=CmsDjShop.GetRs("",0,SqlA) If Not(rs.bof And rs.EOF) Then rs.pagesize=15 '每页数据 rs.AbsolutePage=page m=rs.recordcount '总记录 n=rs.PageCount '总页数 z=rs.pagesize '每页数量 do while not rs.eof and i <% rs.movenext loop Else %> <% End If rs.Close Set rs=nothing %>
编号 饰品名称 <%if key<>"" then Response.Write "（以下为搜索 "&key&" 结果）"%> 饰品分类 价格 使用人气 操作
<%=rs("ShopID")%> <%=replace(rs("SName"),key,""&key&"")%> <%=rs("SClass")%> <%=rs("SMoney")%> <%=rs("SHits")%> ">编辑 " onClick="return confirm('确定将饰品删除吗?');">删除


没有饰品
<%=List_Page(m,z,page,"Admin_WebShop.asp?action="&action&"&key="&key&"&",15,7)%>
<% End Sub Sub Add() Call EditBoard("?action=SaveAdd","添加","") End Sub Sub SaveEdit() ShopID= SafeRequest("ShopID","auto") IF Not IsNum(ShopID) Then Call AdminAlert("出错了，参数传输错误！",Request.ServerVariables("HTTP_REFERER"),0):Response.End SName = SafeRequest("SName","post") SClass = SafeRequest("SClass","post") SPic = SafeRequest("SPic","post") SDir = SafeRequest("SDir","post") SMoney = SafeRequest("SMoney","post") CD_HttpUrl = SafeRequest("CD_HttpUrl","post") IF Not fso_v.CheckFile(InstallDir&SPic) Then Call AdminAlert("未找到 "&InstallDir&SPic&" 演示图片！","",1) Response.End End IF IF Not fso_v.CheckFile(InstallDir&SDir) Then Call AdminAlert("未找到 "&InstallDir&SDir&" 饰品文件！","",1) Response.End End IF Arr1=Array("SName","SClass","SPic","SDir","SMoney") Arr2=Array(SName,SClass,SPic,SDir,SMoney) Call CmsDjShop.update(Arr1,Arr2,"ShopID="&ShopID) Call AdminAlert("恭喜您，编辑饰品成功！",CD_HttpUrl,0) Response.End End Sub Sub Edit() ShopID = SafeRequest("ShopID","get") IF Not IsNum(ShopID) Then Call AdminAlert("出错了，参数传输错误！",Request.ServerVariables("HTTP_REFERER"),0):Response.End Set Rs = CmsDjShop.GetRs("",0,"ShopID="&ShopID) ShopID = Rs("ShopID") SName = Rs("SName") SClass = Rs("SClass") SPic = Rs("SPic") SDir = Rs("SDir") SMoney = Rs("SMoney") Arr1=Array(SName,SClass,SPic,SDir,SMoney) Call EditBoard("?action=SaveEdit&ShopID="&ShopID,"编辑",Arr1) End Sub Sub SaveAdd() SName = SafeRequest("SName","post") SClass = SafeRequest("SClass","post") SPic = SafeRequest("SPic","post") SDir = SafeRequest("SDir","post") SMoney = SafeRequest("SMoney","post") IF Not fso_v.CheckFile(InstallDir&SPic) Then Call AdminAlert("未找到 "&InstallDir&SPic&" 演示图片！","",1) Response.End End IF IF Not fso_v.CheckFile(InstallDir&SDir) Then Call AdminAlert("未找到 "&InstallDir&SDir&" 饰品文件！","",1) Response.End End IF Arr1=Array("SName","SClass","SPic","SDir","SMoney","SHits","SDate") Arr2=Array(SName,SClass,SPic,SDir,SMoney,0,Now()) Call CmsDjShop.add(Arr1,Arr2) Call AdminAlert("恭喜您，添加饰品成功！","Admin_WebShop.asp",0) Response.End End Sub Sub Del() ShopID = SafeRequest("ShopID","get") IF ShopID="" Then Call AdminAlert("出错了，参数传输错误！",Request.ServerVariables("HTTP_REFERER"),0) Response.End End IF Call CmsDjShop.del("ShopID="&ShopID) Call AdminAlert("恭喜您，删除饰品成功！",Request.ServerVariables("HTTP_REFERER"),0) Response.End End Sub %>