求代码:上传的附件的名称存入到表中,而附件内容存放到服务器的文件夹中

来源:百度知道 编辑:UC知道 时间:2024/06/30 09:56:34
我用asp+sql server做了一个留言板,在用户填写留言时,需输入用户的姓名,电话,留言内容等,存入到数据表Leaveword表中,其中用户在写留言时,用户可以上传附件,上传的附件的名称存入到Leaveword 表中,而附件内容存放到服务器的文件夹中。请问这种附件上传的代码怎么写,
我怎么触发这段代码?客户留言在messageAdd.asp文件里,简要代码如下:
<form name=NewMessage action="AddMessage.asp" method="post">
<td>留言人</td>
<td><input type="text" name="name" id="name" value="">
<td>留言内容</td>
<td><textarea name="content" id="content"></textarea>
<td>上传附件</td>
<td><input type="file" name="file" id="txtFileURL"></td>
<input type="submit" name="ok" value="发表留言 ">
此时页面跳转到AddMessage.asp,简要代码如下:
<!--#include file="conn.asp"-->
<%
dim name,content
name= request.form("name")
content= request.

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<script language="vbscript" runat="server">
Dim Strem
Class Upfile_Class
Dim Fom,Fle
Private Sub Class_Initialize()
Dim Divider
Dim FormStart,FormEnd
Dim Client_Data,Client_Size
Dim DataValue,DataValueStart,DataValueEnd
Dim FormName,FormNameStart,FormNameEnd
Dim FileName,FileNameStart,FileNameEnd

Set Fom=server.CreateObject("Scripting.Dictionary")
Set Fle=Server.CreateObject("Scripting.Dictionary")
Client_Size=Request.