中英asp源代码下载（开源asp网站源码）

本篇文章给大家谈谈中英asp源代码下载，以及开源asp网站源码对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

本文目录一览：

• 1、求！！ASP上传下载源码，那位大侠提供下，小弟感激不尽。。。
• 2、asp源文件
• 3、asp网站源代码是如何下载的？
• 4、谁介绍几个好的asp源码下载网站论坛也可以
• 5、asp登录界面源代码

求！！ASP上传下载源码，那位大侠提供下，小弟感激不尽。。。

风云ASP(组件无组件)上传 [2006-11-30]

最新的组件发布地址是：，需要最新版本，请留意该文件的最后更新时间

有组件上传：

第一次使用需要右键“FyUpload.sct”文件 - 注册

创建对象：Set Upload = Server.CreateObject("Rimifon.Upload")

无组件上传：

创建对象：Set Upload = GetObject("script:组件地址#Upload")

组件地址为硬盘绝对路径，也可以为http完整路径(针对IIS 5.0)

简单测试代码：

/-*- Upload.html -*-/

form method=post action=Upload.asp enctype=multipart/form-data

input name=MyFile type=file

input type=submit/form

/-*- Upload.asp -*-/

%Set Upload = Server.CreateObject("Rimifon.Upload")

Upload.ReadForm 204800 ' 设置缓冲区大小，Windows 2003默认不允许超过204800，否则会上传失败。

Upload.SaveFile ' 保存文件到当前目录，如需保存到Upload目录下，则使用SaveFile "Upload"

Upload.Dispose ' 释放内存

Set Upload = Nothing%

其它详细属性和方法：

Upload.Charset ' 当页面编码为utf-8时请设置该值为"UTF-8"，默认为"gb2312"

Upload.Filter ' 设置允许上传的文件类型，默认为“rar|zip|txt|gif|jpg|bmp|htm|html|swf|mht”，为空则允许任何格式文件上传。

Upload.MaxSize ' 设置单个文件允许上传的最大大小（Bytes），如不限制则为0（默认为0）

Upload.Field ' 客户端提交的表单元素；

针对文本元素：Upload.Field.test.Value ' 读出表单元素"test"的值

针对文件元素：

Upload.Field.MyFile.FilePath ' 读出文件在客户端的位置

Upload.Field.MyFile.SourceName ' 读出文件的源文件名

Upload.Field.MyFile.FileName ' 文件保存在服务器的文件名

Upload.Field.MyFile.FileSize ' 读出文件大小

Upload.Field.MyFile.FileType ' 读出文件的Mime类型

Upload.Field.MyFile.SavePath ' 获取或设置该文件保存位置的绝对路径

Upload.Field.MyFile.Message ' 服务器拒绝该文件时返回的信息

Upload.Field.MyFile.Value ' 文件数据（unicode字符）

存数据库时直接使用rs("FileData").AppendChunk Upload.Field.MyFile.Value的方式即可

Upload.Form("test") ' 返回表单元素"test"的值，是Upload.Field.test.Value的简化读取方式，当不存在"test"元素时返回空值。

Upload.ReadForm FormSize, ProgID

读取表单，FormSize为缓冲区大小，默认为0，推荐在204800以下（可解决2003下不能上传大文件的问题）。

提供参数2(ProgID)会为上传提供进度数据（Application），需要上传进度条时才用到这个参数。

总文件大小：Application(ProgID + "_TotalBytes")

已上传数据量：Application(ProgID + "_ReadBytes")

进度条统计完毕后，建议清除这两个变量：Application.Contents.Remove(ProgID + "_TotalBytes")

Upload.SaveFile SavePath

保存文件到当前目录的SavePath（该目录必需存在）下，默认为当前目录。

Upload.Dispose 释放内存

附带代码：

Test_00.asp vbs(asp) 调用简单示例

Test_01.asp 指定保存位置测试

asp源文件

你说的看asp源码,是看它制作的效果吧,我想,你需要装一个IIS,然后,把你下的asp源码存放的目录设为虚拟目录,然后用IE打开它~!或者,你试试dreamweaver这个软件,它能看到部份设计效果~!

asp网站源代码是如何下载的？

这些代码是作者写出来放到网上的，不是从一个用这个系统的网站上下载的，asp的源代码在一般情况下是没有办法下载的。

谁介绍几个好的asp源码下载网站论坛也可以

1、源码之家

2、代码中国网

3、源码天下

4、站长网

5、源码网

6、中国站长下载-源码下载

7、ASP300

8、ASP酷程序下载中心

9、洪越源代码

10、114软件源码下载

11、中国代码网

12、曾子源码软件下载

13、锋网源码

15、中华源码网

16、源码爱好者

18、动站源码下载

20、CodeGuru - Visual C++

asp登录界面源代码

default

html

head

meta http-equiv="Content-Language" content="zh-cn"

meta http-equiv="Content-Type" content="text/html; charset=gb2312"

meta name="GENERATOR" content="Microsoft FrontPage 4.0"

meta name="ProgId" content="FrontPage.Editor.Document"

title个人注册/title

script language=vbscript

sub b1_onclick()

if len(trim(form1.t1.value))=0 then

msgbox"请输入你的帐号！",0+48,"提示"

form1.t1.focus

elseif len(trim(form1.t2.value))=0 then

msgbox"请输入你的密码！",0+48,"提示"

form1.t2.focus

else

if isnumeric(form1.t1.value)=true then

msgbox"请输入汉字！",0+48,"重输"

form1.t1.focus

elseif len(trim(form1.t2.value))3 or len(trim(form1.t2.value))8 then

msgbox"密码在3至8位之间！",0+48,"重输"

form1.t2.focus

else

window.open"1.asp","new","toolbar=no,width=280,height=150,menubar=no,scrollbar=no,resizable=0"

form1.submit

end if

end if

end sub

/script

/head

body

pyw9sky天地/p

form method="POST" action="1.asp" name="form1" target="new"

p align="center"font size="6" color="#FF0000" face="隶书"个人注册/font/p

p align="center"font size="4"姓名：/fontinput type="text" name="t1" size="20"/p

p align="center"font size="4"密码：/fontinput type="password" name="t2" size="20"/p

p align="center"input type="button" value="注册" name="B1"input type="reset" value="重写" name="B2"/p

/form

/body

/html

1.asp

%@ language=vbscript %

%

dim x,y,num

num=0

x=request.form("t1")

y=request.form("t2")

response.cookies("user")("name")=x

response.cookies("user")("num")=num

response.cookies("user")("password")=y

response.cookies("user").expires=date()+365

%

html

head

title信息确认/title

/head

body

pyw9sky天地/p

table border="0" width="100%" id="table1" align=center cellspacing=1 bgcolor=#333399

tr bgcolor=#ffffff align=center

td colspan="2" width="100%"信息确认/td

/tr

tr bgcolor=#ffffff align=center

td width="31%"姓名：/td

td width="69%"% = x %/td

/tr

tr bgcolor=#ffffff align=center

td width="31%"密码：/td

td width="69%"% = y %/td

/tr

tr bgcolor=#ffffff align=center

td colspan="2" width="100%" align="center"a target="_blank" href="2.asp"登录/a

font onclick="window.close()" style="cursor:hand"关闭/font/td

/tr

/table

/body

/html

%@ language=vbscript %

html

head

title个人登录/title

script language=vbscript

sub b1_onclick()

if len(trim(form1.t1.value))=0 then

msgbox"请输入你的姓名！",0+48,"提示"

form1.t1.focus

elseif len(trim(form1.t2.value))=0 then

msgbox"请输入你的密码！",0+48,"提示"

form1.t2.focus

else

if isnumeric(form1.t1.value)=true then

msgbox"请输入汉字！",0+48,"重输"

form1.t1.focus

elseif len(trim(form1.t2.value))3 or len(trim(form1.t2.value))8 then

msgbox"密码在3至8位之间！",0+48,"重输"

form1.t2.focus

else

form1.submit

end if

end if

end sub

/script

/head

body

form method="POST" action="3.asp" name="form1" target="_blank"

p align="center"font size="6" color="#FF0000" face="隶书"个人登录/font/p

p align="center"font size="4"姓名；/fontinput type="text" name="t1" size="20"/p

p align="center"font size="4"密码：/fontinput type="password" name="t2" size="20"/p

p align="center"input type="button" value="开始登录" name="B1"input type="reset" value="重新输入" name="B2"/p

/form

/body

/html

3.asp

% @ language=vbscript %

%

dim x,y,nm,pw

x=request.form("t1")

y=request.form("t2")

nm=requset.cookies("user")("name")

pw=requset.cookies("user")("password")

if nmx or pwy then

response.redirect"default.htm"

end if

%

%

dim num

num=request.cookies('user")("num")

if num=0 then

num=1

else

num=num+1

end if

response.cookies("user")("num")=num

%

html

head

title欢迎来访yw9sky/title

/head

body

欢迎% =nm %第% =num %次登录

/body

/html

中英asp源代码下载的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于开源asp网站源码、中英asp源代码下载的信息别忘了在本站进行查找喔。