广州速用软件有限公司
主页 公司文化 行业知识 成功案例 产品专区 友情链接 合作伙伴 网站地图
产品专区
行业知识
当前位置：行业知识→软件设计文集→ASP技巧TOP10（3）
内容介绍：软件设计文集主要收集各类软件开发技术，软件设计知识，软件开发经验，软件开发心得等等
企业管理软件
速用财务软件
财务管理软件
速用进销存软件
财务软件免费下载
ASP技巧TOP10（3）
　　6、处理数据库日期值
　　如果说包含引号的字符串会带来问题的话，那么对我们的某些读者来说向数据库传递日期数据更是容易出错。下面我们根据所用数据库系统的类型分别解释如何正确地完成这一任务。
　　问：如何使用ASP向数据库传递日期数据？
　　答：答案与所用数据库类型有关。假设我们使用名为“strDate”的变量保存日期数据，如果使用Access数据库，那么生成字符串的代码为：
　　strSQL = " 合法的SQL命令 " & "#" & strDate & "#"
　　如果使用的是SQL Server、Sybase、Oracle等数据库，则代码为：
　　strSQL = "合法的SQL命令" & "'" & strDate & "'"
　　注意两者的区别在于发送日期数据所用的分隔符。Access使用“#”，而其他数据库使用的是单引号“'”。
　　7、检查Cookie是否启用
　　用户已经禁用Cookie？看来，这个用户不那么信任你。不过，既然他这么乐意搞小动作，你也不妨来一下。使用下面介绍的方法，你可以检查用户是否已经禁用了Cookie，然后礼貌地告诉他如果要使用网站的全部功能，那么他必须启用Cookie。
　　问：如何才能知道用户是否关闭了Cookie？
　　答：要检查用户是否已经关闭了Cookie，可按如下步骤进行：
　　设置一个Cookie。
　　重定向页面。
　　在重定向页面中读取Cookie。
　　如果存在Cookie，则用户已经启用了Cookie；否则，说明用户禁用了Cookie。
　　通过查询字符串确定当前位于步骤1还是3。
　　代码实例如下：

　 Dim strCookie, strTry
　 strCookie = Request.Cookies("MyCookie")
　 strTry = Request.QueryString("Try")
　 
　 If strCookie = "" Then
　　　' Check to see if this is a redirect 
　　　' after setting the cookie
　　　If strTry = "" Then　　
　　　　 Response.Cookies("MyCookie") = "Set"
　　　　 ' Redirect to this page and try again.
　　　　 Response.Redirect(Request.ServerVariables("SCRIPT_NAME")& "?Try=Yes")
　　　Else
　　　　 '　User/Browser didn't accept cookies
　　　　 '　Do something...　　　
　　　End If
　 Else
　　　' -- Hooray! User is accepting cookies
　　　' -- Delete our cookie: by setting its 
　　　' -- expiry date to waaaay back
　　　Response.Cookies("MyCookie").Expires = "January 1, 1980"
　　　　 '　Do something...　　　
　 End If
　　8、检查文件是否存在
　　如果你通过ASP来管理文件，在处理某个文件之前必须确认一下该文件确实存在。下面介绍的简单代码可用于验证文件是否存在。
　　问：
　　我想访问某个数据库中的PDF文件，并在HTML页面中创建对这些文件的链接。在刷新链接之前，我想要验证文件是否确实存在。如何在ASP中实现验证功能？
　　答：
　　在ASP中可以使用FileSystemObject的FileExists方法验证文件是否存在。Dim fs, strFileNameAndPath

  strFileNameAndPath = Your file name
  ' -- Use file name and path 
  ' -- from the database. Remember to map it 
  ' -- to the Web Server's point of view. 
  ' -- Use Server.MapPath for help.
  Set fs = CreateObject("Scripting.FileSystemObject")
  If fs.FileExists(strFileNameAndPath) Then
　   ' -- 文件存在
  else
　   ' -- 文件不存在
  end if
速用进销存财务软件推荐
　　速用软件有限公司一直致力于企业财务软件，进销存软件，业务管理软件的开发与研究，提供免费财务软件下载，免费进销存软件下载服务，承接行业管理软件开发设计，企业管理软件量身订做项目，更先进的企业管理知识，更优秀的财务管理软件，更丰富的软件应用知识，更专业的免费咨询服务，尽在广州速用软件（www.superuse.com.cn）
广州速用软件有限公司
公司地址：广州市连新路171号省科技厅大院4号楼415-417室（纪念堂地铁口旁）
咨询热线：020-83540762、020-83540867　　传真：020-83540867
在线客服：在线咨询　　MSN（speeduse@hotmail.com）