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,"<"," str=replace(str,">",">")
actlen=len(str)
t=0
for i=1 to width
if mid(str,i) next
getwidth=(width+t)
str=left(str,getwidth)
str=replace(str," str=replace(str,">",">")
if width+t
end function
sub showerror(msg) 'showerror message and go back
response.write("alert('" & msg & "');window.history.back()")
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 & "" & rs("textfield") & ""
rs.movenext
wend
rs.close
GetHistory=stylelist
end function
%>
