<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> 要毕业了。为以后的共同爱好者提供思路。
3XUsw 1,[ 附：YY无扰。
.gif)
I=YZ!* f/` 代码写的很乱。只是为了测试。
lZ`@ }^& 7 L]Y.7> 需要一个ACCESS数据库（db.mdb），2进制写入图片。
^5FwYXAxi 一个文本文件(num.txt)，用于记录1/2的几率，一个为正常显示图片，一个为输出代码。
wqX!7rD/g) Ro2!$[P - <%
- 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
- %>
Email:houguo1985#gmail.com
[ 此贴被jackal在2006-12-30 02:38重新编辑 ]
