易截截图软件、单文件、免安装、纯绿色、仅160KB

asp和fso实现上传文件

'---------------------------------------------------------------------------------------------------1.asp
<!--#include file="function.asp" -->
<%if Request.Cookies("venshop")("user_name")<>"" then%>'当用户登录时可以执行then
<script>
   function checkAll(){
   for (i=0;i<document.forms[0].length;i++){
    if (document.forms[0][i].tagName=="INPUT"){
    if (document.forms[0][i].type=="radio")
     {document.forms[0][i].checked="checked"}
    }
   }
   }
</script>
<style type="text/css">
<!--
.STYLE1 {
 color: #CC3300;
 font-size: 13px;
 font-family: "宋体";
 font-weight: bold;
}
.STYLE5 {
 font-family: "宋体";
 color: #FF0000;
}
.STYLE7 {
 font-family: "宋体";
 font-size: 13px;
}
-->
</style>
<script language="javascript">
<!--
function checkform1()
{
if (form1.AttPath.value=="")
{
alert("请输入名称!")
form1.AttPath.focus()
return false
}
if (form1.pic.value=="")
{
alert("请选择上传文件!")
form1.pic.focus()
return false
}
return true
}
//-->
</script>
<%                                                                                           '遍历uploadfile文件夹
AttPath=Request.QueryString("AttPath")
  if len(AttPath)<1 then
    AttPath="uploadfile"
   elseif bc(server.mapPath(AttPath),server.mapPath("u


相关文档:

Windows2003的IIS调试ASP程序的错误解决方案

由于工作原因,笔者经常需要使用Asp开发一些小型程序,在Windows 2000下开发和使用相关程序时一般不会出现什么问题,并且也很容易解决。但是由于笔者为了尝鲜使用了Windows 2003 Server时,开发相关程序就出现了这样那样的问题,比如浏览器不能显示详细出错信息,连接Access时总是报错等,让笔者苦不堪言。在多次实践和查看 ......

ASP.NET开发人员需要学习ASP.NET MVC么?

最近几周,在博客、Twitter和论坛上如火如荼地展开了一场讨论。讨论的内容是:开发人员是否应该使用或学习ASP.NET MVC。从“不推荐学习”到“所有ASP.NET开发人员都应该学习”,各种不同的观点层出不穷。InfoQ对其中部分讨论内容进行了总结。
Rob Conerey(SubSonic之父,目前是微软ASP.NET MVC团队的 ......

调试JavaScript/VB Script脚本程序(ASP篇)

在文章调试JavaScript/VB Script脚本程序(Wscript篇)里面,有网友问我如何调试ASP里面的脚本程序,我不知道他问得是调试ASP网页里面的VBScript ASP代码,还是ASP.NET网页里面的JavaScript/VBScript客户端代码,所以我就在这篇文章里面先将调试ASP网页里面的ASP代码这种情况都解释一下吧。
估计ASP这个玩艺用的人已经很少 ......

ASP开发WEB打印代码大全

  这篇文章主要介绍了如何使用ASP控制Web的各种打印效果,它能够控制纵打、横打和页面边距等。
  
  1、控制"纵打"、 "横打"和"页面的边距"。
  
  (1)
  
  < script defer>
  function SetPrintSettings() {
  // -- advanced features
  factory.printing.SetMarginMeasure(2) ......

asp操作数据库代码

 set conn=server.createobject("adodb.connection")
 conn.open "driver={microsoft access driver (*.mdb)};dbq=F:\\ajaxpro\\App_Data\\server.mdb"
 
 Dim StrSQL,RS
 StrSQL="SELECT*from Manager WHERE ID='"&username&"'"
 StrSQL=StrSQL&"AND Pin='"&passwor ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号