广告联盟网
标题:
头像刷新就变的制作全过程!
[打印本页]
作者:
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="" />
作者:
windowsxp
时间:
2007-7-13
回复:<br /><br />我不懂代码 只是借鉴别人的东西整理一下 反正我看能用就行了 !
作者:
dakoumusic
时间:
2007-7-13
??
作者:
cpuer
时间:
2007-7-13
有PHP的不?
作者:
传说中的Kid
时间:
2007-7-13
<img src="images/smilies/cool.gif" smilieid="5" border="0" alt="" />
欢迎光临 广告联盟网 (https://ggads.com/)
Powered by Discuz! X3.2