📄 aa_products.asp

📁 台讯企业全站管理系统V2006 供下载时经过了严格的测试
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<%@ LANGUAGE = VBScript CodePage = 936%>
<%
'***********************************************************************************' 产品名称：台讯企业全站管理系统（V2006简体中文版）' 程序开发：HECHENn（QQ：34103037　Emial：hechenn@126.com）' Copyright 2006 txcodes.com - All Rights Reserved. '***********************************************************************************
PageName="Admin,0"
%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/System.asp"-->
<!--#include file="Inc/Design.asp"-->
<!--#include file="Inc/Select.inc"-->
<%
Call Page_formBody()
Call Page_Spane(5)
Dim Productse_Code,ProductsModel,ProductsCret
Page_HeadName="<A HREF=Aa_Products.asp?Action=Add>添加产品</A>　|　<A HREF=Aa_Products.asp?Action=Manage>产品列表</A>　|　<A HREF=Aa_Products.asp?Action=Manage&xSelect=ProductsFlag>未审核产品</A>　|　<A HREF=Aa_Products.asp?Action=Manage&xSelect=ProductsIndex>推荐产品</A>　|　<A HREF=Aa_Products.asp?Action=Manage&xSelect=ProductsTop>热门产品</A>"
Table_List="Tx_PrClass"
ProductsModel="<OPTION VALUE=''>请选择　　　</OPTION>"
Products_Model=split(Products_Model,"||")
For intTemp=0 to ubound(Products_Model)
ProductsModel=ProductsModel & "<OPTION VALUE='" & Products_Model(intTemp) & "'>" & Products_Model(intTemp) & "</OPTION>"
Next
ProductsSpecification="<OPTION VALUE=''>请选择　　　</OPTION>"
Products_Specification=split(Products_Specification,"||")
For intTemp=0 to ubound(Products_Specification)
ProductsSpecification=ProductsSpecification & "<OPTION VALUE='" & Products_Specification(intTemp) & "'>" & Products_Specification(intTemp) & "</OPTION>"
Next
Select Case Action
Case "Add"
Call Page_AdminFlag(29)
Page_BootmName="添加产品"
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
PageClass=1
ii=0
Set Rs=server.Createobject("Adodb.Recordset")
Sql="Select * from Tx_Products order by Products_Id desc"
Rs.open Sql,Conn,1,1
Productse_Code=Rs("Products_Id")+1
Rs.close
Set Rs=Nothing
d=mid(year(Now()),4,1)
m=month(Now())
IF len(m)=1 THEN
m="0" & m
End IF
for s=1 to 5-len(Productse_Code)
n="0" & n
next
Productse_Code=d & m & n & Productse_Code
strIfa = "<TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=1>"&_
         "<Form NAME=Form method=post action=As_Products.asp?Action=Add onSubmit='return checkdata()'>"&_
         "<TR>"&_
         "<TD WIDTH=20% HEIGHT=30 CLASS=Table8>产品名称：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME=Products_Name TYPE=text id=Products_Name size=55> <FONT COLOR=ff0000>*</FONT></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>产品编号：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME=Productse_Code VALUE='" & Productse_Code & "' TYPE=text id=Productse_Code size=20> <FONT COLOR=ff0000>*</FONT>　　编号请勿随便更改</TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>所属类别：</TD>"&_
         "<TD CLASS=Table8><select NAME=Products_ClassId CLASS=submit_all id=Products_ClassId><OPTION VALUE=''>请选择产品类别　　　</OPTION>"
strIfx = "</select> <FONT COLOR=ff0000>*</FONT></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>产品型号：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME=Products_Model TYPE=text id=Products_Model size=12> <select NAME=ProductsModel id=ProductsModel onChange='(document.Form.Products_Model.value=this.options[this.selectedIndex].value)'>" & ProductsModel & "</select>　　<A HREF=''  onClick=" & CHR(34) & "javascript:window.open('Inc/Select.asp?Action=Products_Model','Products','width=380,height=260,top=200,left=310');return false;" & CHR(34) & ">点击此处<FONT COLOR=FF0000>添加列表</FONT></A></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>产品规格：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME=Products_Specification TYPE=text id=Products_Specification size=12> <select NAME=ProductsSpecification id=ProductsSpecification onChange='(document.Form.Products_Specification.value=this.options[this.selectedIndex].value)'>" & ProductsSpecification & "</select>　　<A HREF=''  onClick=" & CHR(34) & "javascript:window.open('Inc/Select.asp?Action=Products_Specification','Products','width=380,height=260,top=200,left=310');return false;" & CHR(34) & ">点击此处<FONT COLOR=FF0000>添加列表</FONT></A></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>产品价格：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME=Products_Money TYPE=text id=Products_Money onkeypress='event.returnValue=IsDigit();' size=10>"&_
         " 元</TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>产品图片：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME=Products_Pic TYPE=text id=Products_Pic size=40> "&_
         "<INPUT TYPE=button NAME=SPic CLASS=submit_all VALUE=' 上传 ' onClick=" & CHR(34) & "window.open('Inc/PicLoad.asp?Formname=Form&Editname=Products_Pic&FileName=Upload/Pic','','status=no,scrollbars=no,scroll=no,top=300,left=310,width=390,height=80')" & CHR(34) & "> 产品图片的长高比例为：3:2</TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>产品介绍：</TD>"&_
         "<TD>"
strIfb = "</TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>产品属性：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME=Products_Index TYPE=checkbox CLASS=radio_all id=Products_Index VALUE=1> 首页推荐产品　<INPUT NAME=Products_Top CLASS=radio_all TYPE=checkbox id=Products_Top VALUE=1> 热门产品</TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>浏览次数：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME=Products_Count TYPE=text VALUE='0' onkeypress='event.returnValue=IsDigit();' id=Products_Count size=10> 请输入数字，系统默认设置为0</TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>产品审核：</TD>"&_
         "<TD CLASS=Table8><INPUT TYPE=radio NAME=Products_Flag CLASS=radio_all VALUE='1' checked> 通过审核　<INPUT CLASS=radio_all TYPE=radio NAME=Products_Flag VALUE='0'>取消审核</TD>"&_
         "</TR>"&_
         "<TR ALIGN=center>"&_
         "<TD HEIGHT=35 colspan=2 CLASS=Table8>"&_
         "<INPUT NAME=Ok TYPE=submit CLASS=submit_all id=Ok VALUE='提交资料' onClick='document.Form.Content.value = frames.message.document.body.innerHTML;document.Form.PicUrl.value = frames.PicUrl.document.body.innerHTML;'> "&_
         "<INPUT TYPE=submit NAME=Cel CLASS=submit_all VALUE=重新输入 onClick=" & CHR(34) & "this.form.action='vbscript:location.reload';this.form.submit()" & CHR(34) & "> "&_
         "<INPUT TYPE=hidden NAME=Content VALUE=''>"&_
         "<INPUT TYPE=hidden NAME=PicUrl VALUE=''></TD>"&_
         "</TR>"&_
         "</form>"&_
         "</TABLE>"
Call Page_aTable(1,0)
Case "Edit"
Call Page_AdminFlag(30)
Set Rs_edit=server.Createobject("Adodb.Recordset")
Sql="Select * From Tx_Products Where Products_Id=" & Id
Rs_edit.open Sql,Conn,1,1
Table_List1="Tx_Products"
OldId="Products_Id"
OldContent="Products_Content"
Page_BootmName="产品修改 > " & Rs_edit("Products_Name")
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
IF Rs_edit("Products_Index")=1 THEN checked="checked"
IF Rs_edit("Products_Top")=1 THEN checked3="checked"
IF Rs_edit("Products_Flag")=1 THEN
checked1="checked"
Else
checked2="checked"
End IF
PageClass=1
ii=0
strIfa = "<TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=1>"&_
         "<Form NAME=Form method=post action='As_Products.asp?Action=Edit&Id=" & Id & "' onSubmit='return checkdata()'>"&_
         "<TR>"&_
         "<TD WIDTH=20% HEIGHT=30 CLASS=Table8>产品名称：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME=Products_Name TYPE=text id=Products_Name size=37 VALUE='" & Rs_edit("Products_Name") & "'></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>产品编号：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME=Productse_Code VALUE='" & Rs_edit("Products_Code") & "' TYPE=text id=Productse_Code size=20></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>所属类别：</TD>"&_
         "<TD CLASS=Table8><select NAME=Products_ClassId CLASS=submit_all id=Products_ClassId><OPTION VALUE='" & Rs_edit("Products_ClassId") & "'>不改变产品类别　　　</OPTION>"
strIfx = "</select></TD>"&_
         "</TR>"&_
         "<TR>"&_
		 "<TD HEIGHT=30 CLASS=Table8>产品型号：</TD>"&_
         "<TD CLASS=Table8><INPUT VALUE=" & Rs_edit("Products_Model") & " NAME=Products_Model TYPE=text id=Products_Model size=12> <select NAME=ProductsModel id=ProductsModel onChange='(document.Form.Products_Model.value=this.options[this.selectedIndex].value)'>" & ProductsModel & "</select>　　<A HREF=''  onClick=" & CHR(34) & "javascript:window.open('Inc/Select.asp?Action=Products_Model','Products','width=380,height=260,top=200,left=310');return false;" & CHR(34) & ">点击此处<FONT COLOR=FF0000>添加列表</FONT></A></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>产品规格：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME=Products_Specification VALUE='" & Rs_edit("Products_Specification") & "' TYPE=text id=Products_Specification size=12> <select NAME=ProductsSpecification id=ProductsSpecification onChange='(document.Form.Products_Specification.value=this.options[this.selectedIndex].value)'>" & ProductsSpecification & "</select>　　<A HREF=''  onClick=" & CHR(34) & "javascript:window.open('Inc/Select.asp?Action=Products_Specification','Products','width=380,height=260,top=200,left=310');return false;" & CHR(34) & ">点击此处<FONT COLOR=FF0000>添加列表</FONT></A></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>产品价格：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME=Products_Money TYPE=text id=Products_Money VALUE='" & Rs_edit("Products_Money") & "' onkeypress='event.returnValue=IsDigit();' size=10>"&_
         " 元</TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>产品图片：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME=Products_Pic VALUE='" & Rs_edit("Products_Pic") & "' TYPE=text id=Products_Pic size=40> "&_
         "<INPUT TYPE=button NAME=SPic CLASS=submit_all VALUE=' 上传 ' onClick=" & CHR(34) & "window.open('Inc/PicLoad.asp?Formname=Form&Editname=Products_Pic&FileName=Upload/Pic','','status=no,scrollbars=no,scroll=no,top=300,left=310,width=390,height=80')" & CHR(34) & "> 产品图片的长高比例为：3:2</TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>产品介绍：</TD>"&_
         "<TD>"
strIfb = "</TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>产品属性：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME=Products_Index CLASS=radio_all TYPE=checkbox id=Products_Index VALUE=1 " & checked & "> 首页推荐产品　<INPUT CLASS=radio_all NAME=Products_Top TYPE=checkbox id=Products_Top VALUE=1 " & checked3 & "> 热门产品</TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>浏览次数：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME=Products_Count TYPE=text onkeypress='event.returnValue=IsDigit();' id=Products_Count size=10 VALUE='" & Rs_edit("Products_Count") & "'> 请输入数字，系统默认设置为0</TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>添加时间：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME='textfield' TYPE='text' VALUE='" & Rs_edit("Products_Date") & "'> 现在时间为" & Now() & "，更新时间：<INPUT NAME=NewTime TYPE=checkbox id=NewTime VALUE='1'></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>产品审核：</TD>"&_
         "<TD CLASS=Table8><INPUT TYPE=radio NAME=Products_Flag CLASS=radio_all VALUE='1' " & checked1 & "> 通过审核　<INPUT TYPE=radio CLASS=radio_all NAME=Products_Flag VALUE='0' " & checked2 & ">取消审核</TD>"&_
         "</TR>"&_
         "<TR ALIGN=center>"&_
         "<TD HEIGHT=35 colspan=2 CLASS=Table8>"&_
         "<INPUT NAME=Ok TYPE=submit CLASS=submit_all id=Ok VALUE='提交资料' onClick='document.Form.Content.value = frames.message.document.body.innerHTML;document.Form.PicUrl.value = frames.PicUrl.document.body.innerHTML;'> "&_
         "<INPUT TYPE=submit  CLASS=submit_all NAME=Cel VALUE=重新输入 onClick=" & CHR(34) & "this.form.action='vbscript:location.reload';this.form.submit()" & CHR(34) & "> "&_
         "<INPUT TYPE=hidden NAME=Content VALUE=''>"&_
         "<INPUT TYPE=hidden NAME=PicUrl VALUE=''></TD>"&_
         "</TR>"&_
         "</form>"&_
         "</TABLE>"
Rs_edit.close
Set Rs_edit=Nothing
Call Page_aTable(1,0)
Case "Manage"
Call Page_AdminFlag(30)
PageClass=1
ii=0
PageClassx=PageClass
12 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -