fenleiadd.asp

来自「很不错的进销存系统, 本系统适用于轮胎经销使用」· ASP 代码 · 共 106 行

<!--#include file=conn.asp-->
<!--#include file=cookies.asp-->
<%
select case Request("action")
       Case "update"
            updatepp
       Case "addpp"
            addpinpan
       Case "ggupdate"
             upguige
       Case "addgg"
             Addguige
       Case "addxh"
             Addxinghao
       Case "updatexh"
             Upxinghao
       Case Else
            Response.redirect"fenlei.asp"
            Response.end   
end select

Sub updatepp
dim max,ppid,ppname,pporder,sql
max=request.form("ppid").count
For i=1 to max
 ppid=request.form("ppid")(i)
 ppname=request.form("ppname")(i)
 pporder=request.form("pporder")(i)
 sql="Update ppname Set name='"&ppname&"',pporder='"&pporder&"' Where ID="&ppid
 conn.execute(sql)
Next
response.write"<script language=javascript>alert('品牌更新成功！');location.href='fenlei.asp';</script>"  
End sub

Sub addpinpan
dim pinpanname,pinpanorder
pinpanname=request.form("pinpanname")
pinpaiorder=request.form("pinpaiorder")
if pinpanname="" or pinpaiorder="" or IsNumeric(pinpaiorder)=false then
   response.redirect"fenlei.asp"
else
   sql="Insert Into ppname (name,pporder) values ('"&pinpanname&"','"&pinpaiorder&"')"
   conn.execute(sql)
   response.write"<script language=javascript>alert('品牌添加成功！');location.href='fenlei.asp';</script>"
end if
End Sub

Sub upguige
dim max,ggid,ggname,ggorder,sql
max=request.form("ggid").count
For i=1 to max
  ggid=request.form("ggid")(i)
  ggname=request.form("ggname")(i)
  ggorder=request.form("ggorder")(i)
  sql="Update ppname Set name='"&ggname&"',ggorder='"&ggorder&"' where id="&ggid
  conn.execute(sql)

next
response.write"<script language=javascript>alert('规格更新成功！');location.href='fenlei.asp';</script>"
End Sub

Sub Addguige
dim addgg,addorder
addgg=request.form("addgg")
addorder=request.form("addorder")
if addgg="" or addorder="" or Isnumeric(addorder)=false then
   response.redirect"fenlei.asp"
Else
   Sql="Insert Into ppname (name,ggorder) values ('"&addgg&"','"&addorder&"')"
   conn.execute(Sql)
   conn.close
   set conn=nothing
   response.write"<script language=javascript>alert('规格添加成功！');location.href='fenlei.asp';</script>"
End if
End Sub

Sub upxinghao
dim max,xhid,xhname,xhorder,sql
max=request.form("xhid").count
For i=1 To max
  xhid=request.form("xhid")(i)
  xhname=request.form("xhname")(i)
  xhorder=request.form("xhorder")(i)
  sql="Update ppname Set name='"&xhname&"',xhorder='"&xhorder&"' where id="&xhid
  conn.execute(sql)

Next
response.write"<script language=javascript>alert('型号更新成功！');location.href='fenlei.asp';</script>"
End Sub

Sub Addxinghao
dim addxinghao,addxhorder
addxinghao=request.form("addxinghao")
addxhorder=request.form("addxhorder")
if addxinghao="" or addxhorder="" or isnumeric(addxhorder)=false then
   response.redirect"fenlei.asp"
   Response.End
Else
   Sql="Insert Into ppname (name,xhorder) values ('"&addxinghao&"','"&addxhorder&"')"
   Conn.Execute(sql)
   conn.close
   set conn=nothing
   Response.write"<script language=javascript>alert('型号添加成功！');location.href='fenlei.asp';</script>"
End If
End Sub
%>