<%
response.buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
%>
<link rel=stylesheet type=text/css href="HXinclude/HX_Style.css">
<link rel=stylesheet type=text/css href="HXinclude/Css.css">
<META HTTP-EQUIV="expires" CONTENT="0"> 
<%
Server.ScriptTimeout=99999
DIM tablename,Tablename1,Tablename2,Tablename3,Tablename4,Tablename5,ColumnName,Orderby,action,msg,sele'变量
'************************WSOAS3.5**********************************************************************************************
Dim WS_Appointment,Appointmentarr,s_Filter,WS_F,contentlen,listcount1,listcount2,WS_SendUid,WS_contentlen,WS_listcount1,WS_listcount2,WS_Admin
Dim DepartmentNamearr,Display,RegisterOut,GETPASSWORDOUT,GetCodeOut,ColorWord,UserName
Dim InteFacers,poprs,pagecnt,stepcnt
Dim NotifyHaveDate,NotifyEndDate
Dim WS_NCID,WS_NotifyClass,MAIDARR,FileExtStr
Dim FromName,DateTime,MailSize,messageid
Dim NewName,OldName,strNewName,strFilename,s,intFilelength,f
Dim NewFileExt,DirnameStr,DirRs,DirSize,DirModified,Share
Dim FileDir,ShareType,AddFile,EditFile,DelFile,ShareSee,ShareAdd,ShareEdit,ShareDel,OpenPass,UserArr
Dim DimFileExt,SelectLogin,DirPath,ShareFolderPath,FID,TopFoFi,DirOutType,FolderFileID,FolderFileRS
Dim FolderFileShare,FolderFileShareType,FolderFileAddFile,FolderFileEditFile,FolderFileDelFile,FolderFileShareSee,FolderFileShareAdd,FolderFileShareEdit,FolderFileShareDel
Dim TopDir,TopThisDir,ComeUrl,SumFiles,SumFolders,SumShell,fc2,myfile,Ext,fc
Dim Fso,FsoFile,AllFileSize,f1,TheTime
Dim ThisDir,DirFiles,DirFolder,strTitle,TotalPut
Dim NCRS,URL
Dim Checker,Tt,sYear,sMonth,sDay,sHour,sMinute,sSecond
Dim objFSO,tPath
Dim P,names, name
Dim server_v1,server_v2,xTestObj
Dim s_BadStr
Dim query, temp
Dim deStr,v,UserID,OutNum,UserIDArr
Dim basepath,ServerAddress,DataBase,DataConnUid,DataConnPWD,DataBaseAc
Dim MyDeskDisplay,MyDeskDisplayArr,MyDeskDisplayLeft,MyDeskDisplayRight,MyDeskDisplayLeftArr,MyDeskDisplayLeftU,MyDeskDisplayRightArr,MyDeskDisplayRightU,MYTABLE


Const DataBaseType=0
Const UserNetDiskSize=100         '默认网络硬盘大小（Ｍ）
Const AcquEditor="eWebEditor"     '默认编辑器
Dim Forumupload
Forumupload=split("html,htm,asp,aspx,asa,asax,ascx,ashx,asmx,axd,cdx,cer,cgi,pl,php,phtml,php3",",")




Function HX_Checknum(Numstr)
if isnull(Numstr) or Numstr=""  then
exit Function
else
if not isnumeric(Numstr) then
response.write"<center>非法操作导致程序中止!</center>"
response.end
else
HX_Checknum=int(Numstr)
end if
end if
End Function

Function HX_GoBack(Msgstr,url)
 If url<>"" and Msgstr<>"" Then
   response.Write("<script language=javascript>alert('"&Msgstr&"');location.href='"&url&"';</script>")
   response.end
 elseIf url="" and Msgstr<>"" Then
   response.Write("<script language=javascript>alert('"&Msgstr&"');history.go(-1);</script>")
   response.end
 else
   response.Write("<script language=javascript>window.close();</script>")
   response.end
 end if  
End Function
%>