1.服务器端缓存
ListBox=Application("ListBox")
If ListBox<>"" then
Response.Write "本次通过服务器缓存读取数据:<BR>"
End If
If ListBox="" then
Response.Write "本次为第一次读取数据,从数据库中读取:<BR>"
Response.Write "另外打开窗口读取或者刷新页面即可验证从服务器缓存中读取数据<BR>"
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Map("Book.mdb")
Conn.Open
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from book"
&nbs ......
<input id = " loFile " type = " file " runat = " server " >
<form method = " post " enctype =" multipart/form-data " runat = " server ">
</form >
1.获得上传文件的名称:(关键是PostedFile类的应用)
使用Path类中的GetFileName方法,具体如下:
lstrFileName = loFile.PostedFile.FileName
' 注: loFile.PostedFile.FileName 返回的是通过文件对话框选择的文件名,
这之中包含了文件的目录信息
lstrFileName = Path.GetFileName ( lstrFileName )
' 去掉目录信息,返回文件名称
(2). 判断上传目录是否存在,不存在就建立
建立目录要使用到Directory类中的 CreateDirectory 方法,判断目录是否存在要用到 Directory 类中的Exists方法。具体如下:
If ( not Directory.Exists( lstrFileFolder ) ) Then
Directory.CreateDirectory ( lstrFileFolder )
End If
' 注:lstrFileFolder是用户填入的目录名称,或者是缺省的目录名称
<四>.上传选定文件到服务器上
在前面工作都已经完成以后,就可以上传文件了,上传文件相对比较简单,就用下面2行语句就可以完成上传工作。
lstrFileNamePath = lstrF ......
钟胜辉谈PHP发展的现状和前景
diggsoft.com 时间:2009-09-19 12:56来源:51CTO
钟胜辉(淡淡风) PHPCMS创始人 原Ku6 Phpcms事业部经理 51CTO记者:从Web开发的历史看来,PHP、Python和Ruby几乎是同时出现的,都是十分有特点的、优秀的开源语言,但PHP却获得了比Python和Ruby多得多的
钟胜辉(淡淡风) PHPCMS创始人 原Ku6 Phpcms事业部经理
51CTO记者:从Web开发的历史看来,PHP、Python和Ruby几乎是同时出现的,都是十分有特点的、优秀的开源语言,但PHP却获得了比Python和Ruby多得多的关注度(PHP在本月的TIOBE排行榜上已经排行第三,超过C++了)。您认为这和PHP旨在网站开发的立足点与PHP语言本身的特点有很大关系么,还是有什么其他的因素影响?
钟胜辉:三门语言当中,无疑php是最流行的,而Python和Ruby在最近几年也有着不错的发展趋势。我个人认为,Ruby的流行更多地源于Ruby on Rails,这个框架的流行程度甚至超过了Ruby语言本身,也引发了其它语言平台上对框架的研究。而Python在近来的被关注度和发展速度要超过Ruby,被一些喜欢创新的项目采用,这可能要更多地归功于google。
这三种语言都是相当优秀的脚本语言,为什么PHP能大行其 ......
asp.net实现省市联动并且保存状态,实现原理:初次使用C#传统的DataBind进行数据绑定,选择省,市后进行ajax方式加载下级列表,并将选定值保存到Hidden中,点击提交后根据Hidden的值进行省,市绑定,再将Hidden的值赋给DropDownList的SelectedValue,从而实现状态的保存。
HTML代码
<asp:HiddenField ID="HiddenFieldShiAreaId" runat="server" />
<asp:HiddenField ID="HiddenFieldQuAreaId" runat="server" />
<asp:HiddenField ID="HiddenAreaId" runat="server" />
<span class="searchDivP">学生省市:</span>
<asp:DropDownList ID="DropDownListSheng" runat="server">
</asp:DropDownList>
<asp:DropDownList ID="DropDownListShi" runat="server">
</asp:DropDownList>
<asp:DropDownList ID="DropDownListQu" runat="server">
</asp:DropDownList>
javascript代码(此处使用jQuery)
$(document).ready(function() {
......
<%
Response.Buffer = true
Response.Clear
dim url
Dim fso,fl,flsize
dim Dname
Dim objStream,ContentType,flName,isre,url1
Dim strFileName
strFileName=replace(replace(Request("file"),"\",""),"/","") '传参
strFileName="/files/"&strFileName ' 改成你你文件的存放路径
If strFileName<>"" Then
'******************************下载文件存放的服务端目录
url=Server.MapPath(strFileName)
else
Response.Write("no found")
Response.end
End If
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set fl=fso.getfile(url)
flsize=fl.size
flName=fl.name
Set fl=Nothing
Set fso=Nothing
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = 1
objStream.LoadfromFile url
Select Case lcase(Right(flName, 4))
Case ".asf"
ContentType = "video/x-ms-asf"
Case ".avi"
ContentType = "video/avi"
Case ".doc"
ContentType = "application/msword"
Case ".zip"
......
///<summary>
///<author>飞鹰@ASPCool.com</author>
///<description>本文用asp.net实现把此文推荐给好友的功能。</desciption>
///<copyright>ASP酷技术资讯网(www.ASPCool.com)</copyright>
///</summary>
这里飞鹰用一个简单的例子向大家介绍如何使用asp.net的邮件发送功能。首先,我们先做一个发送界面。tuijian.asp, 其中title是代表文章的标题,id代表文章的编号。
<html>
<body>
您好,欢迎使用ASP酷技术资讯网文章推荐功能,您推荐的文章为:《<%=request("title")%>》.<BR>
<form action="mail.aspx">
您的信箱:<INPUT TYPE="text" NAME="sender"><BR>
收件人信箱:<INPUT TYPE="text" NAME="accepter"><BR>
<INPUT TYPE="hidden" name="title" value="<%=request("title")%>">
<INPUT TYPE="hidden" name="id" value="<%=request("id")%>"> ......