头像刷新就变的制作全过程！

本人语言表达能力较差，大家将就看吧！

[本代码有人提供过，我是抄来的！]

1.将代码部分保存为index.asp；
2.建1个文件夹，名字自己定，譬如head；
3.把"index.asp"文件放在head文件夹中；
4.在head文件夹中建一个“images”文件夹，将图片放在这里！
5.上传head文件夹以及文件夹内所有文件；
6.你可以通过网址http://www.xxx.com/head/ 访问，可以看到正常显示，并且刷新一次变一张。到此就应该结束了么？没有，因为做头像插入上边这个网址不可以，你可以这样插入头像：http://www.xxx.com/head/?1. jpg 试试吧，应该没问题了。

QUOTE:
<%
dim JieImg
Randomize
JieImg = Int( Rnd * (13+1)) & ".jpg"           '13为总图片数-1
Call ShowImg(JieImg)
Sub ShowImg(ImgFileName)
Dim strFilePath, strFileSize, strFileName
Const adTypeBinary = 1
Response.Buffer = True
strFileName=ImgFileName
FilePath=Server.MapPath("images/"&strFileName)    
Response.Clear
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = adTypeBinary
objStream.LoadFromFile FilePath
strFileSize =objStream.size
strFileType = lcase(Right(strFileName, 4))
Select Case strFileType
   Case ".gif"
   C
   Case ".jpg", "jpeg"
   C
   Case Else
   C
End Select
Response.AddHeader "Content-Length", strFileSize
Response.Charset = "UTF-8"
Response.ContentType = ContentType
Response.BinaryWrite objStream.Read
Response.Flush
objStream.Close
Set objStream = Nothing
End Sub
%>

$url='pic'; //图片目录 调用 http://www.sucn.com/pic/index.php?*.jpg

$files=array();
if ($handle=opendir("$url")) {
  while(false !== ($file = readdir($handle))) {
    if ($file != "." && $file != "..") {
    if(substr($file,-3)=='gif' || substr($file,-3)=='jpg') $files[count($files)] = $file;
    }
  }
}
closedir($handle);

$random=rand(0,count($files)-1);
if(substr($files[$random],-3)=='gif') header("Content-type: image/gif");
elseif(substr($files[$random],-3)=='jpg') header("Content-type: image/jpeg");
readfile("$url/$files[$random]");

?>