网站图片扫描类

mp;Replace(Replace(fds,p,""),"\","/")&"</option>"
  set ff=fso.getfolder(fds)
  set ffd=ff.subfolders
  if ffd.count>0 then
  showpath(fds)
  end if
  next
  end function
  showpath(p)%>
      </select></td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td height="20"><div align="right">扫描类型：</div></td>
      <td height="20"><input type="radio" name="SType" value="0">
        所有
        <input name="SType" type="radio" value="1" checked>
        扫描文件
        <input type="radio" name="SType" value="2">
        扫描数据库</td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td height="20"><div align="right">显示类型：</div></td>
      <td height="20"><input name="LType" type="radio" value="0" checked>
        失效
        <input type="radio" name="LType" value="1">
        网络路径
        <input type="radio" name="LType" value="2">
        有效
        <input type="radio" name="LType" value="3">
        所有</td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td height="20"><div align="right">文件类型：</div></td>
      <td height="20"><input name="Ext" type="checkbox" id="Ext" value="asp" checked>
        Asp
          <input name="Ext" type="checkbox" id="Ext" value="htm" checked>
          Htm
        <input name="Ext" type="checkbox" id="Ext" value="html" checked>
          Html
        <input name="Ext" type="checkbox" id="Ext" value="inc" checked>
        Inc</td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td height="20"><div align="right">数据库：</div></td>
      <td height="20">表：
        <input name="Tab" type="text" id="Tab" size="5" class="allinput">
        图片ID列：
        <input name="ColID" type="text" id="ColID" size="5" class="allinput">
        图片路径列：
        <input name="ColImg" type="text" id="ColImg" size="5" class="allinput">        </td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td height="40" colspan="2"><div align="center">
        <input type="submit" value=" 开始扫描 " class="allinput">
      </div></td>
    </tr>
  </table>
</form>
</body>
</html>
scan.asp
<!--#include file="scan.inc"-->
<%
dim mcs,fn,fb
%>
<link href="css.css" rel="stylesheet">
<table width="70%"  border="0" align="center" cellpadding="5" cellspacing="1&