admin.asp

OA企业智能办公自动化系统边缘特别版 功能非常强大的OA系统 1.仿WINDOWS操作界面

        </select></td>
    </tr>
    <tr> 
      <td height="13"><%=Lang.item("g_141")%></td>
      <td><%
	  dim arr_sysmode,strg_142,sysmode1
	  arr_sysmode = split(sysmode,"|")
	  strg_142 = Lang.item("g_142")
	  sysmode1 = "<input type=checkbox name=sysmode1 value=1"
	  if int(arr_sysmode(0)) = 1 then sysmode1=sysmode1 & " checked"
	  sysmode1 = sysmode1 & ">"
	  strg_142 = replace(strg_142,"sysmode1",sysmode1)	  
	  strg_142 = replace(strg_142,"sysmode2","<input name=sysmode2 type=text value="&arr_sysmode(1)&" size=2 maxlength=2>")	  
	  strg_142 = replace(strg_142,"sysmode3","<input name=sysmode3 type=text value="&arr_sysmode(2)&" size=2 maxlength=2>")
		response.write strg_142
	  %>
         </td>
    </tr>
    <tr> 
      <td height="25"><%=Lang.item("g_127")%></td>
      <td><input name="RecordNum" type="text" id="RecordNum" value="<%=RecordNum%>" size="40" maxlength="3"></td>
    </tr>
    <tr> 
      <td height="25"><%=Lang.item("g_144")%></td>
      <td><input name="YVisitor" type="text" id="YVisitor" value="<%=YVisitor%>" size="5" maxlength="10"></td>
    </tr>
    <tr> 
      <td height="25"><%=Lang.item("g_145")%></td>
      <td><input name="YPageView" type="text" id="YPageView" value="<%=YPageView%>" size="5" maxlength="10"></td>
    </tr>
    <tr align="center"> 
      <td height="25" colspan="2"><input name="cmdSave" type="submit" id="cmdSave" value=" <%=Lang.item("b_03")%> "></td>
    </tr>
    <%
set rs=nothing
If ObjInstalled=false Then
	Response.Write "<tr><td height='40' colspan='2'><b><font color=red>"&Lang.item("g_134")&"(" & Objfso & ")! "&Lang.item("g_135")&"</font></b></td></tr>"
end if
  %>
  </form>
</table>

<%End Sub%>
</body>
</html>


<%
Sub Compact
		Response.write TableTop
		Application.Contents(CacheName & "_isStart")=0
		Response.Write CompactDB(Server.Mappath(db),false)
		Application.Contents(CacheName & "_isStart")=1		
		Response.write "<p align=center><a href=javascript:history.go(-1)> "& Lang.item("g_130")&" </a>"
		Response.write " <a href=?action=main> "& Lang.item("g_131")&" </a></p>"		
		Response.write TableEnd
End Sub
		

'=====================压缩参数=========================
Function CompactDB(dbPath, boolIs97)
	On Error Resume Next
	Dim fso, Engine, strDBPath,JET_3X
	strDBPath = left(dbPath,instrrev(DBPath,"\"))
	Set fso = CreateObject(Objfso)
	If Err Then
		Err.Clear
		CompactDB = Lang.item("g_110") & vbCrLf
		Exit Function
	End If
	If fso.FileExists(dbPath) Then
		fso.CopyFile dbpath,strDBPath & "temp.mdb"
		Set Engine = CreateObject("JRO.JetEngine")

		If boolIs97 = "True" Then
			Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb", _
			"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp1.mdb;" _
			& "Jet OLEDB:Engine Type=" & JET_3X
		Else
			Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb", _
			"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp1.mdb"
		End If

		fso.CopyFile strDBPath & "temp1.mdb",dbpath
		fso.DeleteFile(strDBPath & "temp.mdb")
		fso.DeleteFile(strDBPath & "temp1.mdb")
		Set fso = Nothing
		Set Engine = Nothing
		CompactDB = Lang.item("g_136") & vbCrLf
	Else
		CompactDB = Lang.item("g_137") & vbCrLf
	End If
End Function

Sub ShowFileInfo(filespec)
    Dim fs, f, s, showsize
    Set fs = Server.CreateObject(Objfso)
    Set f = fs.GetFile(server.mappath(filespec))
    s = f.size
	if s>1024*1024 then
		showsize=formatnumber(s/1024/1024,2) & "&nbsp;MB"
	elseif s>1024 then
		showsize=formatnumber(s/1024,2) & "&nbsp;KB"
	else
		showsize=s & "&nbsp;Byte" 				
	end if
	response.write "<font face=verdana>" & showsize & "</font>"
End Sub


'检查组件是否已经安装
Function IsObjInstalled(ClassString)
	On Error Resume Next
	IsObjInstalled = False
	Err = 0
	Dim TestObj
	Set TestObj = Server.CreateObject(ClassString)
	If 0 = Err Then IsObjInstalled = True
	Set TestObj = Nothing
	Err = 0
End Function

sub SaveConfig()

	If ObjInstalled=false Then
		'FoundErr=True
		'ErrMsg=ErrMsg & "<br><li>"&Lang.item("g_134")&"("&Objfso&")! </li>"
		'exit sub
	else
		dim sysmode1,sysmode
		if request("sysmode1")="" then
		sysmode1 = 0	
		else
		sysmode1 = request("sysmode1")	
		end if
		sysmode= sysmode1 & "|" & request("sysmode2") & "|" &  request("sysmode3")
		
		dim fso,fs
		set fso=Server.CreateObject(Objfso)
		set fs=fso.CreateTextFile(Server.mappath("config.asp"),true)
		
		fs.write "<" & "%" & vbcrlf
		fs.write "Const MaxPageSize=" & trim(request("MaxPageSize")) & "        '查看统计记录时，每页最多显示多少条记录" & vbcrlf
		fs.write "Const ExpireTime=" & trim(request("ExpireTime")) & "        '同一IP每隔多少时间后访问才继续计数，单位小时，默认为24小时" & vbcrlf
		fs.write "Const MaxRecord=" & trim(request("MaxRecord")) & "        '后台管理时显示多少条记录，默认为100条" & vbcrlf
		fs.write "Const OnlineTime=" & trim(request("OnlineTime")) & "        '在线人数截取时间，单位分钟，默认为20分钟" & vbcrlf
		fs.write "Const TimeZone=" & trim(request("TimeZone")) & "        '服务器所在时区，中国为东8区，所以默认为8" & vbcrlf
		fs.write "Const Language=" & chr(34) & trim(request("Language")) & chr(34) & "        '默认语言，默认为简体中文CHS" & vbcrlf
		fs.write "Const Skin =  " & chr(34) & request("Skin") & chr(34) & "       '	系统默认风格，可选范围0－4" & vbcrlf 
		fs.write "Const Sysmode =  " & chr(34) & sysmode & chr(34) & "       '第一个参数默认为0，日ip小于1000的设置为0；大于1000以上的设置为1，默认自动清理10天没有访问且访问数据小于5次的内容。" & vbcrlf
		fs.write "Const RecordNum=" & trim(request("RecordNum")) & "        '最后详细来访信息记录多少猹记录，默认为100条。因涉及到对数据库的操作，请登陆后台管理后修改此值，在此修改无效。" & vbcrlf  
		fs.write "Const YVisitor=" & trim(request("YVisitor")) & "        '原网站访问量" & vbcrlf  
		fs.write "Const YPageView=" & trim(request("YPageView")) & "        '原网站浏览量" & vbcrlf  
		fs.write "%" & ">"
		fs.close
		set fs=nothing
		set fso=nothing	
	end if
	
	dim rs
	set rs=hx.getrs("select * from WebInfo where ID=1",1,3)
	rs("WebName")=hx.checkstr(request("WebName"),12)
	rs("WebUrl")=hx.checkstr(request("WebUrl"),50)
	rs("WebAdmin")=hx.checkstr(request("WebAdmin"),12)
	rs("WebIntro")=hx.checkstr(request("WebIntro"),100)
	rs("IsPublic")=Cint(request("IsPublic"))
	rs("ViewPass")=hx.checkstr(request("ViewPass"),12)
	rs("AdminPass")=hx.checkstr(request("AdminPass"),12)
	rs.update
	set rs=nothing
	
					Dim RecordNum,RecordNum1,cha,i
					Dim ars,drs
					RecordNum = Request("RecordNum")
 					if RecordNum = "" or not isnumeric(RecordNum) then RecordNum=100
						RecordNum1 = hx.execute("select count(id) from CC_V")(0)
						cha = RecordNum - RecordNum1
						if cha > 0 then 
							set ars=Server.CreateObject("ADODB.Recordset")
							ars.open "CC_V",Conn,2,3
							for i = 1 to cha
								ars.addnew
							next
							ars.UpdateBatch
							ars.close
						elseif cha < 0 then
							set drs=Server.CreateObject("ADODB.Recordset")
							drs.open "select top "&abs(cha)&" * from CC_V order by dateandtime asc,id asc",conn,2,3
							for i = 1 to abs(cha)
								drs.delete
								drs.MoveNext
							next
							drs.UpdateBatch
							drs.close							
						end if

	call WriteSuccessMsg(Lang.item("g_139"))
end sub

'显示错误提示信息
sub WriteErrMsg(ErrMsg)
	dim strErr
	strErr=TableTop & Lang.item("g_133")
	strErr=strErr & ErrMsg
	strErr=strErr & "<p align=center><a href=javascript:history.go(-1)>"&Lang.item("g_130")&"</a>"
	strErr=strErr & " <a href=?action=main>"&Lang.item("g_131")&"</a></p>"		
	strErr=strErr & TableEnd
	response.write strErr
end sub


'显示成功提示信息
sub WriteSuccessMsg(SuccessMsg)
	dim strSuccess
	strSuccess=TableTop & Lang.item("g_132") & SuccessMsg
	strSuccess=strSuccess & "<p align=center><a href=javascript:history.go(-1)>"&Lang.item("g_130")&"</a>"
	strSuccess=strSuccess & " <a href=?action=main>"&Lang.item("g_131")&"</a></p>"		
	strSuccess=strSuccess & TableEnd
	response.write strSuccess
end sub

sub ClearCache
	application.Contents.RemoveAll()
	Session.Contents.RemoveAll()
	Session(CacheName & "_Admin")="OK"
	WriteSuccessMsg(Lang.item("g_138"))
end sub


%>