keephouse.asp

功能强大的网络办公系统 支持油箱管理,短消息,文件管理,考勤管理等功能

<!--#include file="WebOfficeStyle.Css"-->
<%
dim sql
dim rs
dim conn

sub openDB()
	set conn=server.createobject("ADODB.Connection") 
	conn.open"Driver={SQL Server};"_ 
	&"Server=localhost\WebOffice;"_
	&"Database=WebOffice;" _
	&"Uid=sa;"_
	&"Pwd=sa"
	set rs=server.createobject("ADODB.Recordset")
end sub

sub closeDB()
	If IsObject(conn) Then
		if not(conn is nothing) then
			set rs=nothing
			conn.close
			set conn=nothing
		end if
	End If
end sub

sub insureID()
	if session("PERSONNEL_ID")="" then
		call closeDB()
		response.redirect server.mappath("\")&"\ManageSYS\LogIn.htm"
	end if
end sub

sub noRight()
	response.write "<div height=50 align=center valign=center>您没有进行此操作的权限,操作被取消.</div>"
	call closeDB()
	response.end
end sub

sub trigErr()
	response.write "<div height=50 align=center valign=center>有错误发生,操作被取消.</div>"
	call closeDB()
	response.end
end sub

function replacePrime(strItem)
	if strItem="" then
		call trigErr()
	end if
	replacePrime=replace(strItem,"'","#Rep_PRIME_lace#")
end function

function replaceBack(strItem)
	if strItem="" then
		call trigErr()
	end if
	replaceBack=replace(strItem,"#Rep_PRIME_lace#","'")
end function

sub Debug(strItem)
	response.Write strItem
	call closeDB()
	response.end
end sub
%>