全套毕业设计java开发项目 大家共享

				
								        dim title
				        title="华南师范大学增城学院经济系选修课系统"
				
					'##转换 ' 为 "
					function convertsql(str)
						convertsql=replace(str,"'","''")
					end function
					
					'##检测数据库操作否正确
					function checkDb()
						if conn.Errors.count > 0 Then
							checkDb=1
						else
							checkDb=0
						end if
					end function
				
					'##检测环境否正确
					function checkVb()
						if  Err.number>0 Then
							Err.clear()
							checkVb=1
						else
							Err.clear()
							checkVb=0
						end if
					end function
				
					'##显示信息函数
					sub out(str)
						response.write str
					end sub
				
					'##对html进行加密
					function htmlencode(str)
						if not isnull(str) then
							htmlencode=Server.UrlEnCode(str)
						else
							htmlencode=""
						end if
					end function
				%>