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

windowsxp · 发表于 2007-7-13

本人语言表达能力较差，大家将就看吧！<br /><br />[本代码有人提供过，我是抄来的！]<br /><br />1.将代码部分保存为index.asp；<br />2.建1个文件夹，名字自己定，譬如head；<br />3.把"index.asp"文件放在head文件夹中；<br />4.在head文件夹中建一个“images”文件夹，将图片放在这里！<br />5.上传head文件夹以及文件夹内所有文件；<br />6.你可以通过网址<a href="http://www.xxx.com/head/" target="_blank">http://www.xxx.com/head/</a> 访问，可以看到正常显示，并且刷新一次变一张。到此就应该结束了么？没有，因为做头像插入上边这个网址不可以，你可以这样插入头像：<a href="http://www.xxx.com/head/?1." target="_blank">http://www.xxx.com/head/?1.</a> jpg 试试吧，应该没问题了。<br><br><div class="msgbody"><div class="msgheader">QUOTE:</div><div class="msgborder"><%<br />dim JieImg<br />Randomize<br />JieImg = Int( Rnd * (<font color="red">13</font>+1)) & ".jpg"           '<font color="red">13</font>为总图片数-1<br />Call ShowImg(JieImg)<br />Sub ShowImg(ImgFileName)<br />Dim strFilePath, strFileSize, strFileName<br />Const adTypeBinary = 1<br />Response.Buffer = True<br />strFileName=ImgFileName<br />FilePath=Server.MapPath("images/"&strFileName)    <br />Response.Clear<br />Set objStream = Server.CreateObject("ADODB.Stream")<br />objStream.Open<br />objStream.Type = adTypeBinary<br />objStream.LoadFromFile FilePath<br />strFileSize =objStream.size<br />strFileType = lcase(Right(strFileName, 4))<br />Select Case strFileType<br />    Case ".gif"<br />    C<br />    Case ".jpg", "jpeg"<br />    C<br />    Case Else<br />    C<br />End Select<br />Response.AddHeader "Content-Length", strFileSize<br />Response.Charset = "UTF-8"<br />Response.ContentType = ContentType<br />Response.BinaryWrite objStream.Read<br />Response.Flush<br />objStream.Close<br />Set objStream = Nothing<br />End Sub<br />%></div></div><br>

windowsxp · 发表于 2007-7-13

待编辑！

sidc · 发表于 2007-7-13

ifggef · 发表于 2007-7-13

不错，受用了。

yuanb · 发表于 2007-7-13

asp还是php

windowsxp · 发表于 2007-7-13

<br><br><div class="msgbody"><div class="msgheader">QUOTE:</div><div class="msgborder">原帖由 <i>yuanb</i> 于 2007-7-13 09:00 发表 <a href="http://www.im286.com/redirect.php?goto=findpost&pid=20519828&ptid=2064259" target="_blank"><img src="http://www.im286.com/images/common/back.gif" border="0" onload="if(this.width>screen.width*0.7) {this.resized=true; this.width=screen.width*0.7; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onmouseover="if(this.width>screen.width*0.7) {this.resized=true; this.width=screen.width*0.7; this.style.cursor='hand'; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onclick="if(!this.resized) {return true;} else {window.open('http://www.im286.com/images/common/back.gif');}" onmousewheel="return imgzoom(this);" alt="" /></a><br />asp还是php </div></div><br>我的用的asp   没试别的

网络泡泡 · 发表于 2007-7-13

果然...收咧...<img src="images/smilies/ohh.gif" smilieid="19" border="0" alt="" /> <img src="images/smilies/ohh.gif" smilieid="19" border="0" alt="" /> <img src="images/smilies/ohh.gif" smilieid="19" border="0" alt="" /> <img src="images/smilies/ohh.gif" smilieid="19" border="0" alt="" />

yuanb · 发表于 2007-7-13

asp的那我就收了哈

最后的猎人 · 发表于 2007-7-13

可惜是ASP的

小陆橙子 · 发表于 2007-7-13

php只需要一条代码<img src="images/smilies/lol.gif" smilieid="9" border="0" alt="" />

		自动登录	找回密码
密码			注册