fangshi.asp

创建和运行动态、交互的Web服务器应用程序

             if rs("faid")=2 then
                b(j,0)=rs("subject")
                b(j,1)=rs("fsid")
                j=j+1
             end if 

             if rs("faid")=3 then
                c(k,0)=rs("subject")
                c(k,1)=rs("fsid")
                k=k+1
             end if 

             if rs("faid")=4 then
                d(o,0)=rs("subject")
                d(o,1)=rs("fsid")
                o=o+1
             end if 

             if rs("faid")=5 then
                e(m,0)=rs("subject")
                e(m,1)=rs("fsid")
                m=m+1
             end if 

             if rs("faid")=6 then
                f(n,0)=rs("subject")
                f(n,1)=rs("fsid")
                n=n+1
             end if
         rs.movenext
         loop

             if i>=1 then '/////判断送货类型是否存在
             response.write "<tr><th rowspan="&i&" bgcolor=#cf07fa>类型1<td align=center bgcolor=#ffffff>"
             for a1=0 to i-1
                 if a1<>i-1 then
                 response.write a(a1,0)
                 response.write"<td align=center bgcolor=#ffffff><a href=fangshi.asp?action=classdel&fid="&a(a1,1)&"><font color=#FF0000>删除</font></a>"
                 response.write"<tr><td align=center bgcolor=#ffffff>"
                 else
                 response.write a(a1,0)
                 response.write"<td align=center bgcolor=#ffffff><a href=fangshi.asp?action=classdel&fid="&a(a1,1)&"><font color=#FF0000>删除</font></a>"
                 end if
             next
             end if

             if j>=1 then
             response.write "<tr><th rowspan="&j&" bgcolor=#fa07b3>类型2<td align=center bgcolor=#ffffff>"
             for a2=0 to j-1
                 if a2<>j-1 then
                 response.write b(a2,0)
                 response.write"<td align=center bgcolor=#ffffff><a href=fangshi.asp?action=classdel&fid="&b(a2,1)&"><font color=#FF0000>删除</font></a>"
                 response.write"<tr><td align=center bgcolor=#ffffff>"
                 else
                 response.write b(a2,0)
                 response.write"<td align=center bgcolor=#ffffff><a href=fangshi.asp?action=classdel&fid="&b(a2,1)&"><font color=#FF0000>删除</font></a>"
                 end if
             next
             end if

             if k>=1 then
             response.write "<tr><th rowspan="&k&" bgcolor=#fa0774>类型3<td align=center bgcolor=#ffffff>"
             for a3=0 to k-1
                 if a3<>k-1 then
                 response.write c(a3,0)
                 response.write"<td align=center bgcolor=#ffffff><a href=fangshi.asp?action=classdel&fid="&c(a3,1)&"><font color=#FF0000>删除</font></a>"
                 response.write"<tr><td align=center bgcolor=#ffffff>"
                 else
                 response.write c(a3,0)
                 response.write"<td align=center bgcolor=#ffffff><a href=fangshi.asp?action=classdel&fid="&c(a3,1)&"><font color=#FF0000>删除</font></a>"
                 end if
             next
             end if

             if o>=1 then
             response.write "<tr><th rowspan="&o&" bgcolor=#ecfa07>类型4<td align=center bgcolor=#ffffff>"
             for a4=0 to o-1
                 if a4<>o-1 then
                 response.write d(a4,0)
                 response.write"<td align=center bgcolor=#ffffff><a href=fangshi.asp?action=classdel&fid="&d(a4,1)&"><font color=#FF0000>删除</font></a>"
                 response.write"<tr><td align=center bgcolor=#ffffff>"
                 else
                 response.write d(a4,0)
                 response.write"<td align=center bgcolor=#ffffff><a href=fangshi.asp?action=classdel&fid="&d(a4,1)&"><font color=#FF0000>删除</font></a>"
                 end if
             next
             end if

             if m>=1 then
             response.write "<tr><th rowspan="&m&" bgcolor=#fabe07>类型5<td align=center bgcolor=#ffffff>"
             for a5=0 to m-1
                 if a5<>m-1 then
                 response.write e(a5,0)
                 response.write"<td align=center bgcolor=#ffffff><a href=fangshi.asp?action=classdel&fid="&e(a5,1)&"><font color=#FF0000>删除</font></a>"
                 response.write"<tr><td align=center bgcolor=#ffffff>"
                 else
                 response.write e(a5,0)
                 response.write"<td align=center bgcolor=#ffffff><a href=fangshi.asp?action=classdel&fid="&e(a5,1)&"><font color=#FF0000>删除</font></a>"
                 end if
             next
             end if

             if n>=1 then
             response.write "<tr><th rowspan="&n&" bgcolor=#fa9007>类型6<td align=center bgcolor=#ffffff>"
             for a6=0 to n-1
                 if a6<>n-1 then
                 response.write f(a6,0)
                 response.write"<td align=center bgcolor=#ffffff><a href=fangshi.asp?action=classdel&fid="&f(a6,1)&"><font color=#FF0000>删除</font></a>"
                 response.write"<tr><td align=center bgcolor=#ffffff>"
                 else
                 response.write f(a6,0)
                 response.write"<td align=center bgcolor=#ffffff><a href=fangshi.asp?action=classdel&fid="&f(a6,1)&"><font color=#FF0000>删除</font></a>"
                 end if
             next
             end if%>
                      </tr>
                    </table>
 
                    <br>
                    <td  valign="top" >
                     <table width="100%" border="0"  cellspacing="1" cellpadding="0">
                       <tr><td bgcolor="#ece9d8" colspan=2 align="center" height=25><b>增加送货类型</b></td>
                        <tr>
                         <form name="form1" method="post" action="fangshi.asp?action=addclass">
                          <%set rs=server.CreateObject("adodb.recordset")
		               rs.open "select * from shop_songhuo where fangshi=0 order by songidorder ",conn,1,1%>
	                  <td bgcolor="#ffffff" align="center">送货类型</td>
                          <td bgcolor="#ffffff">
                          <select name="faid" size="1" id="faid">
                          <%for ii=1 to 6%>
                            <option value=<%=ii%>>类型<%=cstr(ii)%></option>          
                          <%next%>
                          </select></td>
                       <tr>
                         <td bgcolor="#ffffff" align="center">送货方式</td>
                         <td bgcolor="#ffffff">
                          <select name="songid" size="1" width=50>
                           <%do while not rs.eof%>
                                <option value=<%=rs("songid")%>><%=trim(rs("subject"))%></option>
                           <%rs.movenext
		           loop%></td>
                          </select>
                       <tr>
                          <td colspan=2 align=center height=25 bgcolor="#ffffff"><input type="submit" name="Submit32" class="bt5" value="添 加"></td>
                       </form>

                      </tr>
                   </table>

                </tr>
             </table>

         </tr>
       </table>

    </tr>
  </table>

<%case "zhifu"%>

      <table width="100%" border="1"  align=center cellspacing="0" cellpadding="0" bordercolordark="#ffffff" bordercolorlight="#666666">
        <tr><td>
              <table width="100%" border="1"  align=center cellspacing="0" cellpadding="0">
                <tr><td width="70%">
                      <table width="100%" border="0"  align=center cellspacing="1" cellpadding="0">
                        <tr height=25>
                           <td bgcolor="#ece9d8"><div align="center">排序</div></td>
                           <td bgcolor="#ece9d8"><div align="center">支付方式</div></td>
                           <td bgcolor="#ece9d8"><div align="center">编辑</div></td>
                           <td bgcolor="#ece9d8"><div align="center">删除</div></td>
                        </tr>
         <%set rs=server.CreateObject("adodb.recordset")
		  rs.open "select * from shop_songhuo where fangshi=1 order by songidorder",conn,1,1
		  jj=rs.recordcount
		  do while not rs.eof%>
         <tr> 
            <form name="form1" method="post" action="fangshi.asp?action=zhifusave&id=<%=rs("songid")%>">
               <td bgcolor="#ffffff"><div align="center"> 
               <input name="songidorder" type="text" id="songidorder" size="2" value=<%=rs("songidorder")%> onkeypress	= "return regInput(this,	/^[0-9]*$/,		String.fromCharCode(event.keyCode))"
		onpaste		= "return regInput(this,	/^[0-9]*$/,		window.clipboardData.getData('Text'))"
		ondrop		= "return regInput(this,	/^[0-9]*$/,		event.dataTransfer.getData('Text'))"></div></td>
               <td bgcolor="#ffffff"><div align="center"><input name="subject" type="text" id="subject" size="14" value=<%=trim(rs("subject"))%>></div></td>
               <td bgcolor="#ffffff"><div align="center"><input type="submit" name="Submit2" class="bt" value="确认">
               <td bgcolor="#ffffff"><div align="center"><a href="fangshi.asp?action=zhifudel&id=<%=rs("songid")%>" onClick="return confirm('您确定进行删除操作吗？')"><font color="#FF0000">删除</font></a> </div></td>
            </form>

          <%rs.movenext
	    loop
	    rs.close
	set rs=nothing%>
                      </tr>
                    </table>
                    <br>
                   
                    <td valign=top>
                    <table width="100%" border="0"  align=center cellspacing="1" cellpadding="0">
                     <form name="form1" method="post" action="fangshi.asp?action=zhifuadd">
                      <tr>
                         <td colspan=2 bgcolor="#ece9d8" height=25 align="center"><b>增加支付方式</b></td>
                      <tr>
                         <td bgcolor="#ffffff" align="right">排序&nbsp;</td>
                         <td bgcolor="#ffffff">&nbsp;<input name="songidorder" type="text" id="songidorder" value=<%=jj+1%> size="2" onkeypress	= "return regInput(this,	/^[0-9]*$/,		String.fromCharCode(event.keyCode))"
		         onpaste		= "return regInput(this,	/^[0-9]*$/,		window.clipboardData.getData('Text'))"
		         ondrop		= "return regInput(this,	/^[0-9]*$/,		event.dataTransfer.getData('Text'))"></td>
                      <tr>
                         <td bgcolor="#ffffff" align="right">支付方式&nbsp;</td>
                         <td bgcolor="#ffffff">&nbsp;<input name="subject" type="text" id="subject" size="14"></td>
                      <tr>   
                         <td colspan=2 bgcolor="#ffffff" height=25 align="center"><input type="submit" name="Submit32" class="bt5" value="添 加"></div></td>
                     </form>
                   </tr>
                  </table>

                </tr>
               </table>

          </tr>
        </table>

     </tr>
  </table>

<%end select%>

 </tr>
</table>
</body>
</html>
<SCRIPT LANGUAGE="JavaScript">
<!--
function checkspace(checkstr) {
  var str = '';
  for(i = 0; i < checkstr.length; i++) {
    str = str + ' ';
  }
  return (str == checkstr);
}

function regInput(obj, reg, inputStr){
  var docSel	= document.selection.createRange()
  if (docSel.parentElement().tagName != "INPUT")	return false
     oSel = docSel.duplicate()
     oSel.text = ""
     var srcRange	= obj.createTextRange()
     oSel.setEndPoint("StartToStart", srcRange)
     var str = oSel.text + inputStr + srcRange.text.substr(oSel.text.length)
     return reg.test(str)
}

function checkfs()
{
     if(checkspace(document.frmfs.subject.value)){
       document.frmfs.subject.focus();
       alert("您没有填写送货方式！");
       return false;
   }
     if(checkspace(document.frmfs.jsmoney.value)){
       document.frmfs.jsmoney.focus();
       alert("请填写加收金额！");
       return false;
   }
     if(checkspace(document.frmfs.gsmoneyside.value)){
       document.frmfs.gsmoneyside.focus();
       alert("请填写超出金额！");
       return false;
   }
     if(checkspace(document.frmfs.gsmoneybili.value)){
       document.frmfs.gsmoneybili.focus();
       alert("请填写超加比率！");
       return false;
   }
     if(checkspace(document.frmfs.songidorder.value)){
       document.frmfs.songidorder.focus();
       alert("排序方式不能为空！");
       return false;
   }
}
//-->
</script>