上传文件并加入上传信息的实例
TSD 2004-11-08 10:47:36 这段时间看到好几位朋友提问怎样在上传文件的同时加入上传信息的问题,现帖出一个实例代码,希望能帮上有需要的朋友.
上传文件面页:index.htm
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>上传图片</title>
<style type="text/css">
<!--
.style4 {color: #FF0000}
-->
</style>
<script>
//检测图片上传
function checkImage(sId)
{
if(( document.all[sId].value.indexOf(".gif") == -1) && (document.all[sId].value.indexOf(".jpg") == -1)&& (document.all[sId].value.indexOf(".jpeg") == -1)&& (document.all[sId].value.indexOf(".GIF") == -1)&& (document.all[sId].value.indexOf(".JPG") == -1)&& (document.all[sId].value.indexOf(".JPEG") == -1) && (document.all[sId].value.indexOf(".BMP") == -1) && (document.all[sId].value.indexOf(".bmp") == -1)) {
alert("请选择要上传的图片(格式为GIF或JPG)文件!");
document.frmReg.upfile.focus();
event.returnValue = false;
return false
}
if(document.frmReg.txtbt.value.length<1)
{
alert("请输入图片的标题!");
document.frmReg.txtbt.focus();
document.frmReg.txtbt.select();
event.returnValue = false;
return false
}
if(document.frmReg.txtsm.value.length>100)
{
alert("图片的说明不能超过100个字符!");
document.frmReg.txtsm.focus();
event.returnValue = false;
return false
}
}
</script>
</head>
<body>
<p> </p>
<p> </p>
<table width="60%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#003399">
<tr>
<td><table width="100%" border="0" align="center" cellpadding="4" cellspacing="1">
<form name="frmReg" method="post" action="upfile.asp" enctype="multipart/form-data" onsubmit="checkImage('upfile')">
<tr>
<td width="15%" height="30" align="right" bgcolor="#FFFFFF"><strong>文 件:</strong></td>
<td height="30" bgcolor="#FFFFFF"><input name="upfile" type="file" id="upfile" style="width:420" value=""></td>
</tr>
<tr bgcolor="#F7F7F7">
<td height="30" align="right"><strong>标 题:</strong></td>
<td height="30"><input name="txtbt" type="text" id="txtbt" size="20" maxlength="20" style="width:420">
<span class="style4">*</span></td>
</tr>
<tr>
<td height="30" align="right" bgcolor="#FFFFFF"><strong>说 明:</strong></td>
<td height="30" bgcolor="#FFFFFF"><textarea name="txtsm" cols="50" rows="6" id="txtsm" style="width:420"></textarea>
</td>
</tr>
<tr bgcolor="#F6f6f6">
<td height="40" colspan="2" style="padding-left:180px"><input type="submit" name="Submit" style="width:60" value="提交">
<input name="Rest" type="reset" id="Rest" style="width:60" value="重置">
</td>
</tr>
</form>
</table></td>
</tr>
</table>
</body>
</html>
连接数据库面页:linkdb.asp
<%
dim conn,connstr,sql
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("Images.mdb")
Set conn=Server.CreateObject("ADODB.Connection")
conn.open connstr
If Err Then
err.Clear
Set conn = Nothing
Response.Write "数据连接错误 !"
Response.End
end if
%>