|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。
您需要 登录 才可以下载或查看，没有帐号？立即注册
x
asp可以轻松地实现对页面内容的动态控制，根据不同的浏览者，显示不同的页面内容。而浏览者一点觉察不出来，就像为他专门制作的页面一样。使用各种各样的组件，asp可以完成无比强大的功能。上传|无组件个中部分代码依据化境代码改编！！
upload.htm
<html>
<head>
<metahttp-equiv="Content-Language"content="zh-cn">
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<metaname="GENERATOR"content="MicrosoftFrontPage4.0">
<metaname="ProgId"content="FrontPage.Editor.Document">
<title>NewPage1</title>
<linkrel="stylesheet"href="../public/CSS.css">
</head>
<scriptlanguage="javascript">
<!--
functioncheckform1()
{
if(form1.names.value=="")
{
alert("请输出称号！")
form1.names.focus()
returnfalse
}
if(form1.pic.value=="")
{
alert("请选择图片！")
form1.pic.focus()
returnfalse
}
returntrue
}
//-->
</script>
<body>
<tableborder="0"width="100%">
<formname="form1"enctype="multipart/form-data"action="upload.asp"method="post"onsubmit="returncheckform1()">
<tr>
<tdwidth="100%"colspan="2">
<palign="center"><b>上传示例</b></td>
</tr>
<tr>
<tdwidth="40%"align="right">称号：</td>
<tdwidth="60%"><inputtype="text"name="names"size="30"maxlength="20"class="input1"></td>
</tr>
<tr>
<tdwidth="40%"align="right">图样：</td>
<tdwidth="60%"><inputtype="file"name="pic"size="30"maxlength="20"class="input1"onblur="document.all.picview.src=document.all.pic.value"></td>
</tr>
<tr>
<tdwidth="40%"align="right"> </td>
<tdwidth="60%"><inputtype="submit"value="ok"class="inputbtn"></td>
</tr>
<tr>
<tdwidth="100%"align="center"colspan="2">
图像预览（选择图片后，点击页面恣意处便可举行预览)<br>
<imgid="picview"border="1">
</td>
</tr>
</form>
</table>
</body>
</html>
-----upload.asp
<!--#includefile="savefile.asp"-->
<%
SetobjStream=Server.CreateObject("ADODB.Stream")
objstream.mode=3
objStream.Type=1
objStream.Open
objstream.writeRequest.BinaryRead(Request.TotalBytes)
names=getvalue("names",true,"")
pic=getvalue("pic",false,"upimg/")
objstream.close
response.write("names:"+names)
response.write("文件已上传!("+pic+")")
%>
-----savefile.asp
<%
Dimstream1,stream2,istart,iend,filename
istart=1
vbEnter=Chr(13)&Chr(10)
functiongetvalue(fstr,foro,paths)fstr为吸收的称号，foro布尔false为文件上传,true为一般字段，path为上传文件寄存路径
ifforothen
getvalue=""
istart=instring(istart,fstr)
istart=istart+len(fstr)+5
iend=instring(istart,vbenter+"-------------------</p>对于中小型web应用来说,php有很强的竞争力,linux+apache+mysql+php(lamp)的组合几乎可以胜任绝大多数网站的解决方案,对于大型应用来讲,对于系统架构要求更高,需要有成熟的框架支持,jsp的struts是个不错的框架,国内介绍它的资料也非常多,应用逐渐广泛起来。asp就不用说了， |
|
|Archiver|手机版|仓酷云
鄂ICP备14007578号-2
发表于 2015-1-16 23:20:40
收藏
转播
分享
淘帖
顶
踩
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
照妖镜
窥视卡
雷达卡
发表于 2015-2-26 02:29:23