教程中国
PHOTOSHOP CS9.0中文版 MAYA 8.5 FOR WINDOWS Corel Painter v9.0 Flash MX2004 中文版 Illustrator cs2 中文版
VC++6.0含sp6 中英文版 VB6.0 +sp6 简体中文版 Borland Delphi 7汉化版 MSDN for vb6.0中文版 Visual Studio 2005简体
教程中国下属 文件存储共享专家BIBIDU.COM 提供大型软件,教材,源码,电影,音乐,图书等下载 更多精品请点此进入
  您目前所在位置: 教程中国 >> 编程基地 >> ASP >> 用纯ASP代码来实现图片上传 RSS订阅
用纯ASP代码来实现图片上传
用纯ASP代码来实现图片上传(7)
教程(视频,书籍)下载:  ASP.NET AutoCAD 数据库 C# ASP java photoshop 网页设计 delphi 3dmax Flash C++ VB 张孝祥 实例   更多请进入BIBIDU搜索
IT搜索引擎   
End If
If Form("vspace").Value = "" Then
Vspace = "0"
Else
Vspace = Form("vspace").Value
End If
Response.Write "<script language=""javascript"">" & VbCrLf
Response.Write " top.returnValue = '<img src=""" & Src & """ align=""" & Align & """ border=""" & Border & """ hspace=""" & Hspace & """ vspace=""" & Vspace & """ alt=""" & Alt & """ />';" & VbCrLf
Response.Write " top.close();" & VbCrLf
Response.Write "</script>" & VbCrLf
Response.End
End If
Set Form = Nothing
End If
%>
<?xml version="1.0" encoding="gb2312"?>
<!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>
<title>图片</title>
<meta name="vs_defaultClientScript" content="JavaScript" />
<meta name="vs_targetSchema" content="HTML 4.0" />
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<style type="text/css">
<!--
body {
border: 0;
margin: 0;
background-color: buttonface;
}
body, td, input, select {
font-size: 12px;
}
fieldset {
padding: 6px;
}
legend {
font: smallcaption;
}
-->

</style>
<script language="JScript" type="text/jscript">
<!--
String.prototype.trim = function()
{
return this.replace(/(^\s*)|(\s*$)/g, "");
}
function isInt(text){
for (i = 0; i < text.length; i ++) if (!((text.charAt(i) >= '0') && (text.charAt(i) <= '9'))) return false;

来源:upschool.cn
作者:
关键字:
发表日期:2006-10-7

网页显示有限 阅读全文请下载本文完整版WORD文档

上一篇:ASP同一个帐号不能同时登陆的问题(1)   下一篇:新浪博客首页两侧加入浮动挂件效果


共10页 9 7 [1] [2] [3] [4] [5] [6] [7] [8] [9] [108 :>

2009-1-8 20:26:03
本文的相类似文章
在学习中进步 在进步中成长 教程中国相随您的成长之路
华腾联合科技股份有限公司版权所有
广告联系:Rosibo@163.com