functions.asp

具有计划、任务、通告、公文、员工档案、等网络办公功能

<%
	function createmailbox(vname)
				'以下为分配邮箱代码
				sql="create table recived"
				sql=sql+vname+"(iDateTime varchar(50),iaddfile varchar(150), ifrom varchar(50),iinfo memo,ilevel char(1),cent varchar(50),iread char(1))"
				
				Session("conn2").Execute(sql)
		
				sql="create table sendout"
				sql=sql+vname+"(iDateTime varchar(50),iaddfile varchar(150), ito varchar(50),iinfo memo,ilevel char(1),cent varchar(50),iread char(1))"
		
				Session("conn2").Execute(sql)
		
				sql="create table del"
				sql=sql+vname+"(iDateTime varchar(50),iaddfile varchar(150), ifrom varchar(50),iinfo memo,ilevel char(1),cent varchar(50),iread char(1))"
		
				Session("conn2").Execute(sql)
	end function
	
	function fmt(str,width)
		fmt=right(string(width,"0") & str ,width)
	end function
	
	function fixx(str,width)
	dim i,t,getwidth,actlen
		str=replace(str,"&lt;","<")
		str=replace(str,"&gt;",">")
		actlen=len(str)
		t=0
		for i=1 to width
			if mid(str,i)<="z" then t=t+1
		next
		getwidth=(width+t)
		str=left(str,getwidth)
		
		str=replace(str,"<","&lt;")
		str=replace(str,">","&gt;")
		if width+t<=actlen then	fixx=str+"<small>...</small>" else fixx=str
		
	end function
	
	sub showerror(msg) 'showerror message and go back
		response.write("<script language=javascript>alert('" & msg & "');window.history.back()</script>")
		Response.end
	end sub
	
	function GetHistory(rs,table,valuefield,textfield,where)
		'读取列表信息
		dim stylelist
		rs.open "select DISTINCT "&valuefield&"  from "&table&where,Session("conn"),1,1
		while not rs.eof
			stylelist=stylelist & "<option value='" & rs(vaulefield) & "'>" & rs("textfield") &  "</option>"
			rs.movenext
		wend
		rs.close
		GetHistory=stylelist
	end function
	
	
	
	
	
	%>