ASP 多图片上传
1：上传页面
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>上传图片</title>
<style type="text/css">
* { margin:0;padding:0;}
#file_group { list-style:none;}
#file_group li { background: url(icon_file.gif) no-repeat left; padding-left:25px; height:24px;}
#file_group input{ height:24px;line-height:22px;font-family:Verdana;}
#file_group button{ height:24px;}
#add{width:39px}
a:link {
color: #000000;
text-decoration: none;
}
a:visited {
color: #000000;
text-decoration: none;
}
a:hover {
color: #FF0000;
text-decoration: none;
}
a:active {
text-decoration: none;
}
</style>
<script type="text/javascript">
var file_num=1;
function addFile() {
if(file_num>=10) return alert("一次只允许上传10个文件！");
var temp;
temp="<li><input type=\"file\" name=\"mfile" + (file_num+1) + "\" size=\"70\" /> <button onclick=\"removeSelf(this)\">删除</button></li>";
var obj=document.getElementById("file_group");
obj.innerHTML=obj.innerHTML+temp;
file_num++;
}
function removeSelf(node) {
var obj=node.parentNode.parentNode.removeChild(node.parentNode);
file_num--;
}
function chkUpload(){
var obj=document.getElementsByTagName("input");
for (i=0;i<obj.length;i++)
{
if(obj[i].type=="file")
{
if(obj[i].value!="")
{
var getStr=obj[i].value.match(/\.(jpg|gif|png|bmp)$/);
if(!getStr)
{
alert("只允许上传 jpg、gif、png、bmp 格式的图片！");
&n
相关文档：
试验了好久，终于搞定了。
首先，必须有错误继续进行的声明On Error Resume Next
然后尝试简历jmail实例：
Dim JMail
Set JMail=Server.CreateObject("JMail.Message")
对实例做出判断，如果组件没有安装成功， ......
Access 连接字符串
strConnect = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\MyDatabase.mdb;”
Access 2007 连接字符串
strConnect = “Provider=Microsoft.ACE.OLEDB.12.0;Mode=Share Exclusive;Data Source=C:\MyDatabase.accdb;”
MSSQL Server 连接字符串
strConnect = &ldquo ......
我写了一个表单就是用来向数据库中添加数据的 action=post.asp method=post
然后再post.asp当中我又通过request.form获取了相应的值，然后添加的数据库当中
所有的代码如下
------------------------------------conn.asp-----------------------------
<%
dim db
const databasetype="access"
db="data\meiyijix ......
<%
Do_Url = "http://"
'Do_Url = Do_Url&Request.ServerVariables("SERVER_NAME")&"/shownews.asp" 主目录
aa=Request.Servervariables("url") '虚拟目录
bb=InstrRev(aa,"/")
cc=left(aa,bb)
Do_Url = Do_Url&Request.ServerVariables("HTTP_HOST")&cc&"index.asp"
call SaveFile("index.h ......
摘自：http://zxlh168.blog.163.com/blog/static/7778614020098168638654/
<%
’FSO组件名称
dim FSObject
FSObject="Scripting.FileSystemObject"
’=========================================================
’◆是否支持组件
’=============================================== ......
