Response.buffer = trueNumCode Function NumCode() Response.Expires = -1 Response.AddHeader "Pragma","no-cache" Response.AddHeader "cache-ctrol","no-cache" dim zNum,i,j dim Ados,Ados1 Randomize timer生成随机四位数字： zNum = cint(8999*Rnd+1000)传递给session Session("GetCode") = zNum该fo...

简单的文件上传 upload.html <form name="FORM" action="upload.asp" method="post"> <input type="submit" name="submit" value="OK"> <input type="file" name="file1" style="width:400" value=""> </form> upload.asp： <% Function GetFileName(ByVal strFile) If strFile <> "" Then GetFileName = mid(strFile,In...