以下为代码片段,是一个添加产品的页面.这些代码在页面里就不能运行,不知是否缺少什么.
删除后就可以添加产品.但是不知有没有影响.
第一段代码,前头省略

<%
if Result="Modify" then
set rs = server.createobject("adodb.recordset")
sql="select * from LiangJingCMS_Products where ID="& ID
rs.open sql,conn,1,1
if rs.bof and rs.eof then
    response.write ("<center>数据库记录读取错误！</center>")
    response.end
end If
if rs("attribute1CH")<>"" and rs("attribute1CH_value")<>"" then
    attribute1CH_1=Split(rs("attribute1CH"),"§§§")
    attribute1CH_value_1=Split(rs("attribute1CH_value"),"§§§")
    Num_1=ubound(attribute1CH_1)+1
Else
    Num_1=0
End If
rs.close
set rs=Nothing
Else
    Num_1=0
End If
%>

第二段代码,中间省略


      Num_1=CheckStr(Request.Form("Num_1"),1)
      if Num_1="" then Num_1=0
      if Num_1>0 then
        For i=1 to Num_1
            If CheckStr(Request.Form("attributeCH"&i),0)<>"" and  CheckStr(Request.Form("attributeCH"&i&"_value"),0)<>"" Then
                If attribute1CH="" then
                    attribute1CH=CheckStr(Request.Form("attributeCH"&i),0)
                    attribute1CH_value=CheckStr(Request.Form("attributeCH"&i&"_value"),0)
                Else
                    attribute1CH=attribute1CH&"§§§"&CheckStr(Request.Form("attributeCH"&i),0)
                    attribute1CH_value=attribute1CH_value&"§§§"&CheckStr(Request.Form("attributeCH"&i&"_value"),0)
                End if
            End If
        Next

第三段代码,,中间省略
      rs("attribute1CH")=attribute1CH
      rs("attribute1CH_value")=attribute1CH_value
第四段代码,中间省略

      Num_1=CheckStr(Request.Form("Num_1"),1)
      if Num_1="" then Num_1=0
      if Num_1>0 then
        For i=1 to Num_1
            If CheckStr(Request.Form("attributeCH"&i),0)<>"" and  CheckStr(Request.Form("attributeCH"&i&"_value"),0)<>"" Then
                If attribute1CH="" then
                    attribute1CH=CheckStr(Request.Form("attributeCH"&i),0)
                    attribute1CH_value=CheckStr(Request.Form("attributeCH"&i&"_value"),0)
                Else
                    attribute1CH=attribute1CH&"§§§"&CheckStr(Request.Form("attributeCH"&i),0)
                    attribute1CH_value=attribute1CH_value&"§§§"&CheckStr(Request.Form("attributeCH"&i&"_value"),0)
                End if
            End If
        Next
      end if
第五段代码,中间省略
      rs("attribute1CH")=attribute1CH
      rs("attribute1CH_value")=attribute1CH_value

后面省略