首页 › 资源下载 › *行业应用 › 体育商城 › 源码查看
addproduct.asp

来自「体育商城」· ASP 代码 · 共 675 行 · 第 1/2 页
ASP
675 行
      MM_editRedirectUrl = MM_editRedirectUrl & "?" & UploadQueryString
    Else
      MM_editRedirectUrl = MM_editRedirectUrl & "&" & UploadQueryString
    End If
  End If

End If
%>
<%
' *** Insert Record: (Modified for File Upload) construct a sql insert statement and execute it

If (CStr(UploadFormRequest("MM_insert")) <> "") Then

  ' create the sql insert statement
  MM_tableValues = ""
  MM_dbValues = ""
  For i = LBound(MM_fields) To UBound(MM_fields) Step 2
    FormVal = MM_fields(i+1)
    MM_typeArray = Split(MM_columns(i+1),",")
    Delim = MM_typeArray(0)
    If (Delim = "none") Then Delim = ""
    AltVal = MM_typeArray(1)
    If (AltVal = "none") Then AltVal = ""
    EmptyVal = MM_typeArray(2)
    If (EmptyVal = "none") Then EmptyVal = ""
    If (FormVal = "") Then
      FormVal = EmptyVal
    Else
      If (AltVal <> "") Then
        FormVal = AltVal
      ElseIf (Delim = "'") Then  ' escape quotes
        FormVal = "'" & Replace(FormVal,"'","''") & "'"
      Else
        FormVal = Delim + FormVal + Delim
      End If
    End If
    If (i <> LBound(MM_fields)) Then
      MM_tableValues = MM_tableValues & ","
      MM_dbValues = MM_dbValues & ","
    End if
    MM_tableValues = MM_tableValues & MM_columns(i)
    MM_dbValues = MM_dbValues & FormVal
  Next
  MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"

  If (Not MM_abortEdit) Then
    ' execute the insert
    Set MM_editCmd = Server.CreateObject("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_editConnection
    MM_editCmd.CommandText = MM_editQuery
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close

    If (MM_editRedirectUrl <> "") Then
      Response.Redirect(MM_editRedirectUrl)
    End If
  End If

End If
%>
<%
set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.ActiveConnection = MM_conn_STRING
rs1.Source = "SELECT * FROM bclass"
rs1.CursorType = 0
rs1.CursorLocation = 2
rs1.LockType = 3
rs1.Open()
rs1_numRows = 0
%>
<%
set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_conn_STRING
rs.Source = "SELECT * FROM sclass"
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 3
rs.Open()
rs_numRows = 0
%>
<html>
<head>
<title>增加商品</title>
<script language = "JavaScript">
var onecount;
onecount=0;
subcat = new Array();
        <%
        count = 0
        do while not rs.eof 
        %>
subcat[<%=count%>] = new Array("<%= (rs("sclassname"))%>","<%= (rs("bclassid"))%>","<%= trim(rs("sclassid"))%>");
        <%
        count = count + 1
        rs.movenext
        loop
        %>
onecount=<%=count%>;

function changelocation(locationid)
    {
    document.myform.Nclassid.length = 0; 

    var locationid=locationid;
    var i;
    for (i=0;i < onecount; i++)
        {
            if (subcat[i][1] == locationid)
            { 
                document.myform.Nclassid.options[document.myform.Nclassid.length] = new Option(subcat[i][0], subcat[i][2]);
            }        
        }
        
    }    


function getFileExtension(filePath) { //v1.0
  fileName = ((filePath.indexOf('/') > -1) ? filePath.substring(filePath.lastIndexOf('/')+1,filePath.length) : filePath.substring(filePath.lastIndexOf('\\')+1,filePath.length));
  return fileName.substring(fileName.lastIndexOf('.')+1,fileName.length);
}

function checkFileUpload(form,extensions) { //v1.0
  document.MM_returnValue = true;
  if (extensions && extensions != '') {
    for (var i = 0; i<form.elements.length; i++) {
      field = form.elements[i];
      if (field.type.toUpperCase() != 'FILE') continue;
      if (field.value == '') {
        alert('文件框中必须保证已经有文件被选中!');
        document.MM_returnValue = false;field.focus();break;
      }
      if (extensions.toUpperCase().indexOf(getFileExtension(field.value).toUpperCase()) == -1) {
        alert('这种文件类型不允许上传!.\n只有以下类型的文件才被允许上传: ' + extensions + '.\n请选择别的文件并重新上传.');
        document.MM_returnValue = false;field.focus();break;
  } } }
}
</script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="ddd.css" type="text/css">
<script language="JavaScript">
<!--
function checkdata() {
if (document.myform.productname.value=="") {
window.alert ("请输入商品名称 ！")
return false
}
if (document.myform.productisbn.value=="") {
window.alert ("请输入商品编号 ！")
return false
}
if (document.myform.cdate.value=="") {
window.alert ("请输入商品出厂日期 ！")
return false
}
if (document.myform.changshang.value=="") {
window.alert ("请输入商品的制造厂商！")
return false
}
if (document.myform.classid.value=="") {
window.alert ("请选择商品大类 ！")
return false
}
if (document.myform.yprice.value=="") {
window.alert ("请输入商品原价 ！")
return false
}
if (document.myform.xprice.value=="") {
window.alert ("请输入商品现价 ！")
return false
}
if (document.myform.shuliang.value=="") {
window.alert ("请输入商品库存 ！")
return false
}
if (document.myform.weight.value=="") {
window.alert ("请输入商品重量 ！")
return false
}
if (document.myform.file.value=="") {
window.alert ("请选择商品图片路径 ！")
return false
}
if (document.myform.productjs.value=="") {
window.alert ("请输入商品介绍 ！")
return false
}
return true
}
//-->
</script>
</head>
<body bgcolor="#FFFFFF" text="#000000" topmargin="0">
<!--#include file="manage.asp" -->
<!--#include file="top.asp" -->
<table width="771" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td class="bk"> 
      <form name="myform" method="POST" action="<%=MM_editAction%>" enctype="multipart/form-data" onSubmit="return checkdata()">
        <br>
        <table width="58%" border="1" cellspacing="2" cellpadding="0" align="center" bordercolor="#FFFFFF" class="dfont">
          <tr> 
            <td background="images/bg22.gif" bordercolor="#000000"> 
              <div align="center"><b><font color="#000000" size="2">增加商品</font></b></div>
            </td>
          </tr>
          <tr> 
            <td bordercolor="#000000">产品名称： 
              <input type="text" name="productname">
            </td>
          </tr>
          <tr> 
            <td bordercolor="#000000">产品序号： 
              <input type="text" name="productisbn">
            </td>
          </tr>
          <tr> 
            <td bordercolor="#000000">出厂时间： 
              <input type="text" name="cdate" value="月/日/年">
            </td>
          </tr>
          <tr> 
            <td bordercolor="#000000">制造厂商： 
              <input type="text" name="changshang">
            </td>
          </tr>
          <tr> 
            <td bordercolor="#000000"> 选择产品分类： 
              <select name="classid" onChange="changelocation(document.myform.classid.options[document.myform.classid.selectedIndex].value)">
                <option>请选择大类</option>
                <%
While (NOT rs1.EOF)
%>
                <option value="<%=trim(rs1.Fields.Item("bclassid").Value)%>" ><%=trim(rs1.Fields.Item("bclassname").Value)%></option>
                <%
  rs1.MoveNext()
Wend
If (rs1.CursorType > 0) Then
  rs1.MoveFirst
Else
  rs1.Requery
End If
%>
              </select>
              <select name="Nclassid">
                <option>请先选择大类</option>
                <%
While (NOT rs.EOF)
%>
                <option value="<%=trim(rs.Fields.Item("sclassid").Value)%>" ><%=trim(rs.Fields.Item("sclassname").Value)%></option>
                <%
  rs.MoveNext()
Wend
If (rs.CursorType > 0) Then
  rs.MoveFirst
Else
  rs.Requery
End If
%>
              </select>
            </td>
          </tr>
          <tr> 
            <td bordercolor="#000000">原价： 
              <input type="text" name="yprice">
            </td>
          </tr>
          <tr> 
            <td bordercolor="#000000">现价： 
              <input type="text" name="xprice">
            </td>
          </tr>
          <tr> 
            <td bordercolor="#000000" height="21">是否打折： 是 
              <input type="radio" name="radiobutton" value="-1">
              否 
              <input type="radio" name="radiobutton" value="0" checked>
            </td>
          </tr>
          <tr> 
            <td bordercolor="#000000">是否推荐： 是 
              <input type="radio" name="radiobutton1" value="-1">
              否 
              <input type="radio" name="radiobutton1" value="0" checked>
            </td>
          </tr>
          <tr> 
            <td bordercolor="#000000">库存： 
              <input type="text" name="shuliang">
            </td>
          </tr>
          <tr> 
            <td bordercolor="#000000">重量： 
              <input type="text" name="weight">
              KG </td>
          </tr>
          <tr> 
            <td bordercolor="#000000">上传图片： 
              <input type="file" name="file">
            </td>
          </tr>
          <tr> 
            <td bordercolor="#000000">商品描述：</td>
          </tr>
          <tr> 
            <td bordercolor="#000000"> 
              <div align="center"> 
                <textarea name="productjs" cols="60" rows="7"></textarea>
              </div>
            </td>
          </tr>
          <tr> 
            <td bordercolor="#000000"> 
              <div align="center"> 
                <input type="hidden" name="jrtime" value="<%=date()%>">
                <input type="submit" value="增加">
                <input type="reset" value="重来">
              </div>
            </td>
          </tr>
        </table>
        <br>
        <input type="hidden" name="MM_insert" value="true">
      </form>
    </td>
  </tr>
</table>
<br><!--#include file="bottom.asp" -->
</body>
</html>
<%
rs1.Close()
%>
<%
rs.Close()
%>
文件大小 1925 K
上传用户 jinhongfei0528
所属分类 *行业应用
代码行数 675 行
语言类型 ASP
#商城
addproduct.asp - 源码说明

本页面展示了「体育商城」中的 addproduct.asp 源码文件，采用 ASP 编程语言编写，共 675 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。
虫虫下载站收录了大量与商城相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。
⌨️ 快捷键说明

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