Asp几秒钟后再执行后面的代码

作者:admin 日期:2012-04-10

Dim iSeconds : iSeconds = 0.3
Dim t:t=Timer()
While(Timer()<t+iSeconds)
'Do Nothing
Wend

Tags: asp

分类:技术文章 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 1905

Asp动态定义变量之将变量的值作为变量名

作者:admin 日期:2012-04-10

<%
Dim str : str = "UserName"
Execute("dim " & str & " : " & str & "=""subendong""")
Response.Write(UserName)

execute("dim arr_bigClass(10,1)")'数组是从0开始的
Response.Write( ubound(arr_bigClass, 2) )
%>

说明：没什么特别，您只要将Execute里面的参数理解成文件里的内容就可以了。

Tags: asp

分类:技术文章 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 2448

Asp过滤数组中的重复数据

作者:admin 日期:2012-04-10

'过滤数组中的重复数据
Function FilterRepeatDataFromArray(cxstr1,cxstr2)
  IF isarray(cxstr1) Then
   cxarraynull = "对不起,参数1不能为数组。"
   Exit Function
  End IF
  IF cxstr1 = "" or isempty(cxstr1) Then
   cxarraynull = "nodate"
   Exit Function
  End IF
  ss = split(cxstr1,cxstr2)
  cxs=cxstr2&ss(0)&cxstr2
  sss=cxs
  For m = 0 To ubound(ss)
   cc = cxstr2&ss(m)&cxstr2
   IF instr(sss,cc)=0 Then
    sss = sss&ss(m)&cxstr2
   End IF
  Next
  FilterRepeatDataFromArray = right(sss,len(sss)-len(cxstr2))
  FilterRepeatDataFromArray = left(FilterRepeatDataFromArray,len(FilterRepeatDataFromArray)-len(cxstr2))
End Function

Tags: asp

分类:技术文章 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 1981

asp获取GMT时间

作者:admin 日期:2012-04-10

<%
Function DateTimeToGMT(sDate)
   Dim dWeek,dMonth
   Dim strZero,strZone
   strZero="00"
   strZone="GMT"
   dWeek=Array("Sun","Mon","Tue","Wes","Thu","Fri","Sat")
   dMonth=Array("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec")
   DateTimeToGMT = dWeek(WeekDay(sDate)-1)&", "&Right(strZero&Day(sDate),2)&" "&dMonth(Month(sDate)-1)&" "&Year(sDate)&" "&Right(strZero&Hour(sDate),2)&":"&Right(strZero&Minute(sDate),2)&":"&Right(strZero&Second(sDate),2)&" "&strZone
End Function

Response.Write( DateTimeToGMT( Now() ) )
%>

Tags: asp

分类:技术文章 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 2090

ASP获取文件的最后修改时间

作者:admin 日期:2012-04-10

'获取文件的最后修改时间

Function GetFileLastModifiedTime(FileName)

Dim FSO, File, FilePath, FileTime

IF FileName = "" Then

Tags: asp

分类:技术文章 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 1925

php类继承实例

作者:admin 日期:2012-04-10

PHP代码

<?php
class Person
{
public $name, $age, $sex;
public function __construct($name, $age, $sex)
{
$this->name = $name;
$this->age = $age;
$this->sex = $sex;
}
}
class Child extends Person
{
public function say($word)
{
echo($word);
}
}
$Child = new Child("田志刚", 30, "男");
$Child->say("hello");
echo($Child->name);
//输出结果：hello田志刚
?>

Tags: php

分类:技术文章 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 1719

PHP htmlentities和html_entity_decode

作者:admin 日期:2012-04-10

<?php
$a = "<div style=\"width:100px; height:20px; border:1px solid #ff0000;\">abc</div>";
$a = htmlentities($a);
$a = html_entity_decode($a);
echo($a);
//echo html_entity_decode(htmlentities($arr[1][1]));
?>

如果将带HTML的数据放入XML文件中，这个就起很大作用了。

Tags: php

分类:技术文章 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 1994

php javascript cookie中文乱码解决办法

作者:admin 日期:2012-04-10

至于此类情况可以在服务端对中文进行处理。

php类似于javascript encodeURI和decodeURI解码的方法(转)
<script language="javascript">
var a = encodeURI("电影");
alert(a);
var b = decodeURI(a);
alert(b)
</script>

<?php
$a = urlencode(iconv("gb2312", "UTF-8", "电影")); //等同于javascript encodeURI("电影");
echo $a;
$b = iconv("utf-8","gb2312",urldecode("%E7%94%B5%E5%BD%B1")); //等同于javascript decodeURI("%E7%94%B5%E5%BD%B1");
echo $b;
?>

如果编码是UTF-8的话就可以直接用urlencode 或 urldecode 转换!

如果不行可以转换两次就可以了，即在JS里面用2次decodeURI。

Tags: php

分类:技术文章 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 1757

php、asp以“流格式”下载服务器端文件

作者:admin 日期:2012-04-10

解决WORD,EXCEL,TXT,图片等文件类型直接在IE中被打开的问题

ASP/Visual Basic代码

<%
Function downFileFromServer(showFileName, downFilePath)
response.Clear
response.Buffer = true
Set ads = Server.CreateObject("ADODB.Stream")
ads.Type = 1
ads.Mode = 3
ads.Open
ads.LoadFromFile downFilePath
response.AddHeader("Content-Encoding", "None")
response.AddHeader("Cache-Control", "Private")
response.AddHeader("Content-Length", ads.Size)
response.AddHeader("Content-Disposition", "attachment; filename=" & showFileName)
response.ContentType = "application/octet-stream"
response.BinaryWrite(ads.Read(ads.Size))
ads.Close
Set ads = nothing
response.Flush
response.End
End Function
Call downFileFromServer("abc.test", Server.MapPath("test.asp"))
%>

PHP代码

<?php
function downFileFromServer($showFileName, $downFilePath)
{
if(file_exists($downFilePath))
{
if(is_readable($downFilePath))
{
if(Trim($showFileName) == '')
{
$showFileName = 'undefined';
}
ob_start();
ob_clean();
$file_size = filesize($downFilePath);
header('Content-Encoding:none');
header('Cache-Control:private');
header('Content-Length:' . $file_size);
header('Content-Disposition:attachment; filename=' . $showFileName);
header('Content-Type:application/octet-stream');
readfile($downFilePath);
ob_flush();
}
}
}
//Sample
downFileFromServer('a.abc', 'test.php');
?>

Tags: asp php

分类:技术文章 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 1666

php遍历文件夹和文件

作者:admin 日期:2012-04-10

<?php
$path = 'UploadFile';
function getfiles($path)
{
   if(!is_dir($path))
   {
    return;
   }
   $handle = opendir($path);
   while( false !== ( $f = readdir( $handle ) ) )
   {
    if($f != '.' && $f != '..')
    {
     $path2 = $path . '/' . $f;
     if( is_dir( $path2 ) )
     {
      echo "<br />" . $f;
      getfiles( $path2 );
     }
     else
     {
      echo "<br />" . $f;
     }
    }
   }
}

print_r( getfiles($path) );
?>

Tags: php

分类:技术文章 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 1628

PHP中的escape函数以及Jsonp实例

作者:admin 日期:2012-04-10

实例：
$xml = file_get_contents("index.xml");
$xml = phpescape($xml);
$jsondata = "{symbol:\"" . $xml . "\"}";
echo $_GET['callback'].'('.$jsondata.')';

Tags: php

分类:技术文章 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 1715

PHP伪原创之随机段落

作者:admin 日期:2012-04-10

<?php
//原始字符串
$p = "<p>p0</p><p>p1</p><p>p2</p><p>p3</p>";
//处理完之后的字符串
$p = DoP($p);
//输出处理的结果
echo($p);

/*处理P标记**/
function DoP($content)
{
  //正则提取P标记
  $arr = GetField($content);
  //将每个P标记都加上ID
  $arrLen = count($arr);
  for ( $i = 0; $i < $arrLen; $i ++ )
  {
   $arr[$i] = str_replace("<p", "<p id=\"p" . $i . "\"", $arr[$i]);
  }
  //对数组重新排序
  shuffle($arr, SORT_NUMERIC);
  //将数组组成字符串
  $content = implode("", $arr);
  return ($content);
}
/*正则表达式提取**/
function GetField($content)
{
  $patrn = "/<p[\s\S]*?>[\s\S]*?<\/p>/i";
  preg_match_all($patrn, $content, $matches);
  return($matches[0]);
}
?>