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
相关文档：
在服务器上生成动态内容是使用ASP最主要的原因之一，所以我们选择的第一个测试项目是确定把动态内容发送到应答流使用什么方法最好。基本的选择有两种（以及它们的一些变化）：使用内嵌ASP标记，使用Response.Write语句。
为测试这些不同的方法，我们创建了一个简单的ASP页面，页面先定义一些变量然后把它们插入到表� ......
这段代码的功能是：将一个数组打乱顺序，显示出来，让每一次显示的顺序都不一样。
<%
Dim tt
tt=Split("1,2,3,4,5,6",",")
'随机排序
leng=UBound(tt)
randomize
for ii=0 to leng-1
b=int(rnd()*leng)
temp=tt(b)
tt(b ......
摘自：http://shawangkun.woku.com/article/2723424.html
最简单的用以下语句:
ip=request.ServerVariables("REMOTE_ADDR")
response.Write(ip)
但这种方法对代理服务器上网的就不准了,故比较全面的是用下面的方法:
<%Private Function getIP()
Dim strIPAddr
If Request.ServerVariables("HTTP_X_FORWARDED_F ......
ASP连接数据库的11种方法——本文总结了使用ASP链接各种数据库的方法：
1.Access数据库的DSN-less连接方法:
set adocon=Server.Createobject("adodb.connection")
adoconn.Open"Driver={Microsoft Access Driver(*.mdb)};DBQ="& _
Server.MapPath("数据库所在路径")
2.Access OLE DB连接方法� ......
废话不多说，贴代码：
先来看看ByVal传值：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Dim arr(2)
arr(0) = 0
arr(1) = 1
arr(2) = 2
Call sub1(arr)
Sub sub1(ByVal a)
a(0) = 9
a(1) = 8
a(2) = 7
Response.Write("我在sub过程中更改了值："&a(0)&","&a(1)&","&a(2))
......
