<div align=center><fieldset style=width=70%><legend align=center><strong>随 机 事 件</strong></legend><font color=deeppink>哈哈,运气来了挡也挡不住,天上掉下<font color=red><b> 21 </b></font>个金币砸在你头上!</font></fieldset></div><br><br> 要毕业了。为以后的共同爱好者提供思路。
8g&uCv/Uk 附:YY无扰。
\u2p] K> 代码写的很乱。只是为了测试。
Ean@GDLz8 A=E1S{C 需要一个ACCESS数据库(db.mdb),2进制写入图片。
1_*o(HR 一个文本文件(num.txt),用于记录1/2的几率,一个为正常显示图片,一个为输出代码。
[,$] %|6wt BEN=/
v - <%
- file = Server.MapPath("NUM.txt")
- Set fileSysObj = createObject("Scripting.FileSystemObject")
- Set rf = filesysobj.OpenTextFile(file, 1)
- jackal = rf.ReadLine
- if jackal =10 then
- jackal=2
- end if
- rf.Close
- Set wf = filesysobj.OpenTextFile(file, 2)
- wf.write jackal+1
- wf.Close
- set fileSysObj=nothing
- %>
- <%
- If Jackal mod 2 =1 then
- set conn=server.createobject("adodb.connection")
- DBPath = Server.MapPath("db.mdb")
- conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
- sql="select * from filedata where id=0"
- set rs=Server.CreateObject("adodb.recordset")
- rs.open sql,conn,2,3
- Response.binarywrite rs("filecontent").getChunk(800000)
- rs.close
- set rs=nothing
- Response.Flush
- else
- Response.write "<script>alert('test!--jackal');</script>"
- Response.write "<FONT SIZE=3px COLOR=#CC0000><B>U can do something!---LoveXia</B></FONT>"
- end if
- %>
"ifYy>d Email:houguo1985#gmail.com
[ 此贴被jackal在2006-12-30 02:38重新编辑 ]