主题: 图片上传问题
作者: 小小幽灵, 发布日期: 2013-03-07 17:42:24, 浏览数: 2777

图片上传到服务器都蛮成功的 但是图片的路径却怎么也写不进数据库!求解

具体说 应该是图片传到了服务器空间 但是呢 数据库里一条记录也没有增加!

图片上传页面代码

<form ACTION="<%=MM_editAction%>" METHOD="POST" name="form1">
      <p>
        <input type="text" id="url" value="" name="url" />
        <input type="button" id="image" value="选择图片" />(本地上传)        </p>
      <p>
        <input type="submit" name="button" id="button" value="开始上传">
        <label for="mane"></label>
      </p>
      <input type="hidden" name="MM_insert" value="form1">
    </form>

插入数据库代码

<%
If (CStr(Request("MM_insert")) = "form1") Then
  If (Not MM_abortEdit) Then
    ' execute the insert
    Dim MM_editCmd

    Set MM_editCmd = Server.CreateObject ("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_bd_STRING
    MM_editCmd.CommandText = "INSERT INTO showing (img) VALUES (?)"
    MM_editCmd.Prepared = true
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 255, Request.Form("url")) ' adVarWChar
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close

    ' append the query string to the redirect URL
    Dim MM_editRedirectUrl
    MM_editRedirectUrl = "index1.asp"
    If (Request.QueryString <> "") Then
      If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then
        MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
      Else
        MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
      End If
    End If
    Response.Redirect(MM_editRedirectUrl)
  End If
End If
%>

没有出现任何服务器错误!

作者: 小浪子, 发布日期: 2013-03-07 18:01:44

一看你的ASP代码。就肯定的说。是DW自动生成的。

建议还是手写吧。DW生成的代码。没几个人能看清楚。。一个插入。

如果手写你要的结果。。估计6行代码搞定。。

 

你的帖子不再回复。原因:无编辑器无关。。

回复
发表新帖 发表回复