<%
   dim conn   
   dim connstr

   on error resume next
   connstr="DBQ="+server.mappath("database/w163_data.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
   set conn=server.createobject("ADODB.CONNECTION")
   if err then 
      err.clear
   else
        conn.open connstr 
        if err then 
           err.clear
        end if
   end if
%>
<!--#include file="char.asp"-->
<!--生成子类代码-->

<table width="95%" bgcolor=#999999 cellspacing="1"  cellpadding="5" align=center>
<tr bgcolor=#cccccc>
    <td colspan=2><center><b>商品html生成完毕</td> 
  </tr>
<%
Function AutoCreateFolder(strPath)  'As Boolean
        On Error Resume Next

        Dim astrPath, ulngPath, i, strTmpPath
        Dim objFSO

        If InStr(strPath, "\") <=0 Or InStr(strPath, ":") <= 0 Then
                AutoCreateFolder = False
                Exit Function
        End If
        Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
        If objFSO.FolderExists(strPath) Then
                AutoCreateFolder = True
                Exit Function
        End If
        astrPath = Split(strPath, "\")
        ulngPath = UBound(astrPath)
        strTmpPath = ""
        For i = 0 To ulngPath
                strTmpPath = strTmpPath & astrPath(i) & "\"
                If Not objFSO.FolderExists(strTmpPath) Then
                        ' 创建
                        objFSO.CreateFolder(strTmpPath)
                End If
        Next
        Set objFSO = Nothing
        If Err = 0 Then
                AutoCreateFolder = True
        Else
                AutoCreateFolder = False
        End If
End Function 
dim classid
dim ArticleID
mingchen=trim(request("mingcheng"))
ClassID=request("ClassID")
mingchen=Replace(mingchen, """", "")
 		dim mypath
MyPath =mingchen
If AutoCreateFolder(MyPath) Then
        Response.Write "创建文件夹成功"
Else
        Response.Write "创建文件夹失败"
End If 
response.write MyPath

response.write mingchen
response.write ClassID







%>
</table>
