hx_conststr.asp

又一套oa 系统,供大家使用学习,更多的源代码正在上传中,好的程序应该大家共同使用

<meta http-equiv="Content-Type" content="text/html; charset=gb2312"><%
Server.ScriptTimeout=99999
'程序编写及设计:徐勇
'QQ号码: 563097256(网络侠客)
'网址：http://www.wsoas.com
'E_mail(MSN):[e-mail] 
'电话:[phone]   0551-5168961
'以上信息不影响程序运行!
'在使用过程中请保留以上信息,以便出现问题时及时与我取得联系
'注意：免费版程序不得用于商业用途，否则后果自负！！！！
Dim CONN,DBPATH,CONNSTR,RS,ConfigRS,MODRS,SERS,OutRs,ders,aprs,urs,rs1,rs2,rs3,strs,bars,ars,Qrs,rers,drers,Viewrs,drs
Dim trs,crs,mrs,ifrs,hrs,irs,nrs,ATRS,ours,lers,aers,Enrs,adrs,udrs,tyrs,Ourtyrs,urlrs,mailrs,Waitrs,MemberPrivrs,dutyrs
Dim WS_CompanyName,WS_LinkTel,WS_LinkFax,WS_WebUrl,WS_Post,WS_Address,WS_CompanyIntr,WS_Bulletin,REGISTER,RegFlag,GETPASSWORD
Dim iCount,maxpage,page,iPageSize,x,PageControl,nbsp,ifexitsc
Dim LOGINPASSWORDMD5,Path_Info,Tmpstr,ScriptName,sql
DIM LOGINUSERNAME,LOGINPASSWORD,LOGINPWRDMD5,LogAppointment
Dim WS_AppointmentName,WS_Aid,WS_Code,WS_Photo,Filenamepath,fs
DIM tablename,Tablename1,Tablename2,Tablename3,Tablename4,Tablename5,ColumnName,Orderby,action,msg,sele'变量
Dim WS_Did,WS_DepartmentName,WS_DepartmentTel,WS_DepartmentFax,WS_OrderBy,Appointment
Dim WS_Uid,WS_bornarr,WS_Jobdatearr,WS_born,WS_Jobdate,statetimearr,overtimearr,registerarr
Dim i,ii,j,k,nnn,mmm,mmmm,Content1,answer,Content20,Content21,Content30,Content31,PollNum,WS_VQID
Dim count,yyyy,myip,a1,b1,fip,oip,a,b,c,d,e,T,N,title,startt,endt,active,id,p_total,aaa
Dim sql1,sql2,sql3,uid,uidsarr,pathname,pathid,WS_PAID
Dim WS_Void,WS_AnswerTitle,p_percent,N_Quest,WS_QuestionID
Dim myip1,myip2,nm,num1,num2
Dim searchtype,keywords,searchmode,OfficeReplyNum,OfficeReplyComment,OfficeReplyDate
Dim WS_Province,WS_City,WS_PostCode,WS_TelPhone
Dim EditName,truename,truemoney,WS_bargaintypename
Dim WS_id,WS_Tid,WS_Teid,DESCORASC
DIM WS_S,WS_E,WS_M,jmail,upload,filepath,FormName,File,FileExt,ranNum,FileName'功能
Dim WS_Urid,WS_WebSearchName,WS_WebSearchUrl,WS_webUrlContent
Dim WS_Laid,WS_StartDate,WS_StartCaseDate,WS_LawRuleContent,WS_LawRuleTitle
Dim startime,endtime,pid,aid,Content,choice,G
Dim WS_TAid,style,num_ip,startip1,endip1,ip,WS_ViewUserName
Dim SubjectId,menutitle,NetOA,num,WS_USID
Dim TotalmulAiWi,Ai,wi,arrVerifyCode
Dim modValue,strVerifyCode,passorlost
Dim CheckCookies,LOGINUid,Connect
Dim WS_InterNetExploertop,WS_InterNetExploerStatus,WS_ICOWidth,WS_ICOHeight,WS_ICOTopIndex
Dim WS_InternetEmail,WS_InternetPOP3,WS_InternetSMTP,WS_InternetSendName,WS_InternetPassword,WS_InternetContent,WS_INID
Dim WS_ConfigInternetEmail,WSOASCOMSTR,WS_ConfigInternetPOP3,WS_ConfigInternetSMTP,WS_ConfigInternetSendName,WS_ConfigInternetPassword,WS_ConfigInternetContent
Dim pop3,Recipients,separator,re,reto,pop3count,WS_BOXID,prs,BOXID,WS_Date,WDate,Attachments,at,boxrs,brs
Dim downpath,WS_downpath,interemail,mailbody,topic
Dim CompactDB,checkuser,WS_OfficeName,WS_OfficeNum,WS_OfficeManageID,WS_OfficeBuyID,WS_OfficeUnitPrice,WS_OfficeMeasurement,WS_OfficeBuydate
Dim WS_OfficeAddDate,WS_OfficeContent,WS_OFID,OfficeManageID,OfficeBuyID,OfficeBuydate,OfficeAddDate,OfficeContent
Dim OutUserName,OutName,OutPhone,OutAddress,OutAppointmentID,OutAppointment,OutdepartmentID,Outdepartment,DocumetMemo
Dim WS_DOID,WS_DCID,WS_DocumentName,DocumetFile,DocumentName,DocumentClass,DocumentInputDate,DocumentExpose,DocumetLicManUid
Dim DocumetDate,msg1,DocumetUID,BookNumber,WS_BOID
Dim CarName,CarDescribe,WS_MAID,CarState,CarMan,CarRoadNUM,CarOilNUM,CarPassNUM,CarRemark
Dim WS_CAID,MeetingName,MeetingDescribe,WS_MMID,MeetingState
Dim PropertyNumber,pnumber,WS_PPID,uidarr,Orderby1,patindex
Dim WorkTypeName,WorkTypeBrief,WS_WTID,WS_WPID
Dim pname,sex,relation,company,duty,tel,Mobile,oicq,address,email,brief
Dim WS_SEID,WS_SchEduleSortName,Emailarr,WS_SchEduleEmialManTwoUid,WS_SchEduleEmialManUid
Dim first_time,last_time,oktime,yy,mm,dd,yy1,mm1,dd1,yy2,mm2,dd2,today,l,WS_SMID,introduce,intr,SchEduleID
Dim pagename,insave,Maid,subject,body,WS_MailToUid,tuserid,tusername
Dim saleman,InfoMan,Infonname,infotel,infofax,infourl,infoemail,infoaddress,infopost,infoDescribe
Dim Ciid,Contactnname,Contacttel,ContactHomeTel,ContactMobile,Contactemail,Contactduty,ContactBorn,ContactHibe
Dim ConnectContent,ConnectMan,ConnectMobile,ConnectDate,ConnectDescribe
Dim BankName,BankNo,SaleShopname,SaleShoptel,SaleShopfax,SaleShopurl,SaleShopemail,SaleShopaddress,SaleShoppost,SaleShopDescribe
Dim ProductName,SSID,Producttype,ProductUnitPrice,ProductPrice,ProductSalePrice,ProductIntr
Dim PTID,SaleDate,SaleDescribe,LOGdepartment
Dim DUTY_NAME,DUTY_TIME1,DUTY_TYPE1,DUTY_TIME2,DUTY_TYPE2,DUTY_TIME3,DUTY_TYPE3,DUTY_TIME4,DUTY_TYPE4,DUTY_TIME5,DUTY_TYPE5,DUTY_TIME6,DUTY_TYPE6,ATID
Dim OPERATION,MPID,WS_MemberPrivName,onliners,users,Ourusers,myoutname,recvid,recvname,hismsglist
Dim sendnmb,fontb,fonti,fontu,recvnmb,font,fontcolor,fontcolor1,fontcolor2,fontsize,message,msgtype,flist
Dim WS_AttendanceManUid,AttendanceManUidarr,BEGIN_DATE,END_DATE,AttendanceIntervalStart,AttendanceIntervalEnd
Dim WS_AttendancenodutyManUid,AttendancenodutyManUid,AttendancenodutyManUidarr,LEADER_ID,ALID
Dim IntervalStart,IntervalEnd,StartTime,Orderby2,Orderby3,Orderby4,Orderby5
Dim dat,Module,FlowType,Grade,WS_FCID,ComeDate,ToUid,ToUidarr,Numbers
Dim FolderId,FolderName,FolderMemo,TotalFileNum,TotalFolderSize,SizeString,FolderSize
Dim FolderPriv,folderdir,FileSize,mmessage,NCID,privrs
Dim DeskMyarr,Officearr,InfoChangearr,Manpowerarr,SaleManagearr,SystemSetarr,AnnexProgramarr,Bargainarr,WorkFlowarr,PersonalOfficearr
Dim WS_NNID,NotifyTitle,WS_NotifyToUid,NotifyContent,NotifyFlag
Dim sendname,NetDiskFolderEXT,FileID

CONST PREFIX="wsoascom"
Set WS_S=NEW HX_SYSTEMCONFIG
Set WS_E=NEW HX_SendMail
Set WS_M=NEW HX_WSOASMENU
TableName="HX_WebOAConfig":HX_Conn Dir
Set ConfigRS=WS_S.HX_SetRSD(ColumnName,TableName,Orderby)
IF ConfigRS.RECORDCOUNT>0 THEN
  WS_Bulletin=ConfigRS("WS_Bulletin")
  REGISTER=ConfigRS("REGISTER")
  RegFlag=ConfigRS("RegFlag")
  GETPASSWORD=ConfigRS("GETPASSWORD")
  downpath=ConfigRS("WS_downpath")
  WS_ConfigInternetEmail=ConfigRS("WS_ConfigInternetEmail")
  WS_ConfigInternetPOP3=ConfigRS("WS_ConfigInternetPOP3")
  WS_ConfigInternetSMTP=ConfigRS("WS_ConfigInternetSMTP")
  WS_ConfigInternetSendName=ConfigRS("WS_ConfigInternetSendName")
  WS_ConfigInternetPassword=ConfigRS("WS_ConfigInternetPassword")
  WS_ConfigInternetContent=ConfigRS("WS_ConfigInternetContent")'=ConfigRS("")
End If
Call WS_S.HX_RSClose(ConfigRS)
TableName="HX_Module"
Set MODRS=WS_S.HX_SetRSD(ColumnName,TableName,Orderby)
IF MODRS.RECORDCOUNT>0 THEN
  WS_CompanyName=MODRS("WS_CompanyName")
  WS_LinkTel=MODRS("WS_LinkTel")
  WS_LinkFax=MODRS("WS_LinkFax")
  WS_WebUrl=MODRS("WS_WebUrl")
  WS_Post=MODRS("WS_Post")
  WS_Address=MODRS("WS_Address")
  WS_CompanyIntr=MODRS("WS_CompanyIntr")
 end if  
Call WS_S.HX_RSClose(MODRS)
%>