新建 文本文档.txt

财务管理系统 报账等基本功能实现 有完整的实现

Dim oConn 
      Dim oRs 
      Dim Pic 
      Dim PicSize 
     ' 利用安装在Microsoft SQL Server PUBS 数据库中PUB_INFO表格里的Image域 
     Response.Buffer = TRUE
      Response.ContentType = "image/gif"
      ' 设置HTTP表头信息,以便浏览器解释作为GIF图像返回的数据.注意:浏览器解释返回的信息使用的是MIME 表头,而非文件扩展

      Set oConn = Server.CreateObject("ADODB.Connection")
      oConn.Open "DSN=pubs;UID=sa;PWD=;DATABASE=pubs"
' 创建ADO连接对象.使用了缺省的sa帐号、没有密码的IISSDK OBDC Souce 
      Set oRs = oConn.Execute("SELECT logo FROM pub_info WHERE pub_id='0736'")
      ' 查询SQL以获得连接gif BLOB的recordset

      PicSize = oRs("logo").ActualSize
      Pic = oRs("logo").GetChunk(PicSize)
      ' 获得GIF局部变量

      Response.BinaryWrite Pic
      ' 写数据到客户端, 因为MIME类型被设为image/gif, 浏览器将会自动认作图片
      Response.End


 
<INPUT  onclick="{if(confirm('确定要提交吗?')){this.document.form1.submit();return  true;}return  false;}"  type=button  value=提交表单  name=button1>
."<script>alert('函数中的时间长度中含有非法字段');history.back()</script>";