ASP中的一些小程序收集

原创 2004年09月09日 18:51:00
 

==========计算页面的执行时间===========

<%
dim startime,endtime
startime=timer()
%>

    <%
dim startime,endtime
startime=timer()
%>

    最后就是在页面代码的最后面加入以下代码:

<%
endtime=timer()
response.write "页面执行时间:"&FormatNumber((endtime-startime)*1000,3)&"毫秒"
response.end
%>

<%
endtime=timer()
response.write "页面执行时间:"&FormatNumber((endtime-startime)*1000,3)&"毫秒"
response.end
%>

========取完整url的函数=========

<%
Dim temp,ServerUrl
Temp=Split(Request.servervariables("SERVER_PROTOCOL"),"/")
ServerUrl=Temp(0)& "://" & Request.ServerVariables("Server_name") & Request.ServerVariables("Script_name")
if request.ServerVariables("QUERY_STRING")<>"" then ServerUrl=ServerUrl&"?"
ServerUrl=ServerUrl&request.ServerVariables("QUERY_STRING")
response.write ServerUrl &"<br>"
%>

<%
Dim temp,ServerUrl
Temp=Split(Request.servervariables("SERVER_PROTOCOL"),"/")
ServerUrl=Temp(0)& "://" & Request.ServerVariables("Server_name") & Request.ServerVariables("Script_name")
if request.ServerVariables("QUERY_STRING")<>"" then ServerUrl=ServerUrl&"?"
ServerUrl=ServerUrl&request.ServerVariables("QUERY_STRING")
response.write ServerUrl &"
"
%>

============显示当前目录下所以的文件==========

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%=server.MapPath("/")%>
<%
'Set fso = CreateObject("Scripting.FileSystemObject")
'fso.CreateFolder ("e:/fd")
'fso.files ("e:/")
dirtowalk="web"
set fs=server.CreateObject("Scripting.FileSystemObject")
set f=fs.GetFolder(server.MapPath(dirtowalk))
set fc=f.files
for each whatever in fc
response.Write "<a href='"
response.Write whatever.name
response.Write "'>"
response.Write whatever.name&"   "&whatever.datecreated
response.Write "</a><br>"
next
%>
<%=server.MapPath("/")%>
<%
'Set fso = CreateObject("Scripting.FileSystemObject")
'fso.CreateFolder ("e:/fd")
'fso.files ("e:/")
dirtowalk="web"
set fs=server.CreateObject("Scripting.FileSystemObject")
set f=fs.GetFolder(server.MapPath(dirtowalk))
set fc=f.files
for each whatever in fc
response.Write ""
response.Write whatever.name&"?? "&whatever.datecreated
response.Write "

"
next
%>

=======计算中英文字符串的总长度=========

<%
Function CheckStringLength(txt)
     txt=trim(txt)
     x = len(txt)
     y = 0
     for ii = 1 to x
        if asc(mid(txt,ii,1)) < 0 or asc(mid(txt,ii,1)) >255 then  
 ' 如果是中文
            y = y + 2
        else
            y = y + 1
        end if
     next
     CheckStringLength = y

    End Function
response.Write(CheckStringLength("fsdfs地在在dfsdf"))
%><%
Function CheckStringLength(txt)
???? txt=trim(txt)
???? x = len(txt)
???? y = 0
???? for ii = 1 to x
??????? if asc(mid(txt,ii,1)) < 0 or asc(mid(txt,ii,1)) >255 then??
?' 如果是中文
??????????? y = y + 2
??????? else
??????????? y = y + 1
??????? end if
???? next
???? CheckStringLength = y

??? End Function
response.Write(CheckStringLength("fsdfs地在在dfsdf"))
%>

用MATLAB写一个发邮件的小程序

今天突发奇想,想着我的代码在我的电脑上运行着,我可能很长时间不过来,为了让他提醒我他算完了。 我自己写了个程序发送邮件! 不过写之前要查一下资料!发现MATLAB中有sendmail这个函数 你...
  • qq_31451113
  • qq_31451113
  • 2015年12月31日 19:26
  • 1878

微信调用扫一扫的步骤(ASP实现方式)

1.微信服务号(或公众号)需要通过认证2.点击“公众号设置”-“功能设置”,在“JS接口安全域名”处填写上域名,二级域名也可以的,注意该域名必须是备案过的,否则无效。 3.开始写代码上传到上述设定的...
  • sysdzw
  • sysdzw
  • 2016年02月27日 17:02
  • 5614

asp.net聊天室小程序练习

登录界面如图: ——logi
  • yayun0516
  • yayun0516
  • 2014年11月05日 08:57
  • 1706

收集一些开源的Asp.net程序

把平时收集到的一些开源的Asp.net程序列在这里,方便大家查找: 论坛: Asp.net Forum:这个是MS自己的www.Asp.net用的论坛。是MS和Telligent Sy...
  • killer9806
  • killer9806
  • 2014年09月22日 19:17
  • 376

收集整理的关于WAP例子程序包含asp jsp PHP

  • 2009年09月29日 11:20
  • 11.04MB
  • 下载

收集整理的关于WAP例子程序包含asp qita sp

  • 2009年09月29日 11:23
  • 17.78MB
  • 下载

ASP.NET-C# Post 一般处理程序(ashx)并得到返回值

var postUrl = "http://xxx.com/xxp/LoginInfo.ashx"; var postString = "method=CheckPW&id=4454556289...
  • kongwei521
  • kongwei521
  • 2017年05月01日 13:51
  • 2333

asp.net后台等待几秒执行程序或者跳转页面

方案1 比较全面的解决方案原文地址  下面是几种Asp.net后台cs中,几种让页面等待几秒或一定时间后,再执行下一步操作的方法:   1、Response对象跳出转向 代码:Response...
  • csunking
  • csunking
  • 2015年05月08日 20:46
  • 1750

ASP连接ACCESS数据库提示ODBC 驱动程序不支持所需的属性怎么解决

login.asp: 连接文件connect.asp: 文件目录树: 错误信息: 数据库是这样的: 此类错误一般出现于文件...
  • andyjiang2008
  • andyjiang2008
  • 2014年11月22日 13:18
  • 1011

做个高效率的程序猿,使用VS内置的ASP.NET Web 服务器调试

前言:上周出差支持二次开发, 发现二开现场开发环境用的是IIS进行开发和调试,重启IIS服务器成本很大,而且本人的是超级本只装了VS没装数据库和产品。按二开他们目前的模式, 把Cloud产品+VS开...
  • H_lanhai
  • H_lanhai
  • 2016年01月05日 17:13
  • 2300
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章: ASP中的一些小程序收集
举报原因:
原因补充:

(最多只允许输入30个字)