<!-- #include file="config.asp" -->
<!-- #include file="admin/inc.asp" -->
<!-- #include file="inc/md5.asp" -->
<%
'====================================================================
'25175成绩查询管理系统(学院版)
'Copyright(c) 2004-2010 25175.com
'=-------------------------------------------------------------------
'= 文件名称：index.asp
'= 摘    要：首页
cj_webtit="网站安装向导"
cj_webmap="网站安装向导"
'= 最后日期：2009-3.1
'====================================================================
function htm(info)
htm=Replace(Replace(replace(info,"""","'"),"<%","&lt;&#37;"),"%","&#37;")
End function
If request.querystring("type")="Copyright" Then 
%>
<style type="text/css">
<!--
@import url("<%=cj_SystemFolder%>images/style.css");
-->
</style>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" style="overflow-x:hidden">
<div id="nifty1"> 
		<div class="rtop1"> 
		<div class="r1"></div> 
		<div class="r2"></div> 
		<div class="r3"></div> 
		<div class="r4"></div> 

	</div> 
	<table cellSpacing="0"  border="0" cellPadding="0" width="90%" valign="top">
<tr><td>
  <font color="#0089f7">版权说明：本声明适用于您使用<b><%=cj_website%></b><br>(以下简称"本网站")所提供的各种工具和服务(以下简称"服务")。</font>
  		</td>
	</tr>
</table>
		<div class="rtop1"> 
		<div class="r4"></div> 
		<div class="r3"></div> 
		<div class="r2"></div> 
		<div class="r1"></div> 
		</div> 
		</div>

		<div id="nifty1"> 
		<div class="rtop1"> 
		<div class="r1"></div> 
		<div class="r2"></div> 
		<div class="r3"></div> 
		<div class="r4"></div> 
		</div> 

		<table cellSpacing="0"  border="0" cellPadding="0" width="90%" valign="top">
			<tr><td width="2"></td>
				<td>
				<textarea rows="22" name="S1" cols="73">&nbsp;&nbsp;&nbsp;&nbsp;1、 总则：您通过用户注册页面进入本网站即表示您已经同意自己与本网订立本协议。本网站可随时执行全权决定更改“条款”。如“条款”有任何变更，本网将在本网站上刊载公告作为通知。经修订的“条款”一经在本网站上公布后，立即自动生效。
　　2、 关于版权及言论问题：用户在使用本站系统过程中，不得发布侵犯党和国家利益的言论，不得发布泄露国家机密的言论，不得发布有损害他们声誉的言论，不得发布侵犯他人版权的言论等。用户在论坛、留言板以及个人网站上所发布、转载的文章所引起的版权问题以及因文章内包含毁谤、诋毁、攻击他人的信息等一切纠纷或后果由用户自行承担，本网概不负责。本网站尊重他人的任何权利，同时也要求我们的使用者也尊重他人之权利。本网站在适当情况下，有权自行决定删除侵犯他人权利的文章终止侵害或违反他人权利之使用者的帐号。
　　3、 关于经营活动：本网支持用户在使用站系统过程中，进行合法的经营，但因为用户过失所造成的后果由用户自行承担，一切未经过本网官方认可的经营活动均与本官方站点无关。
&nbsp;&nbsp;&nbsp;&nbsp;4、 关于用户资料：“您的资料”包括您在注册、使用本站服务过程中、在任何公开信息场合或通过任何电子邮件形式，向本站或其他用户提供的任何资料。您应对“您的资料”负全部责任，而本站仅作为您在网上发布和刊登"您的资料"的被动渠道。
　　如果您在本网站注册，您同意：
　　根据本网站所刊载的会员资料表格的要求，提供关于您或贵公司的真实、准确、完整和反映当前情况的资料； 
　　本网站维持并及时更新会员资料，使其保持真实、准确、完整和反映当前情况。倘若您提供任何不真实、不准确、不完整或不能反映当前情况的资料，或本网有合理理由怀疑该资料不真实、不准确、不完整或不能反映当前情况，本网站有权暂停或终止您在本网站的注册身份及资料。
　　5、 关于帐号的安全性：在登记过程中，您将选择会员注册名和密码。您须自行负责对您的会员注册名和密码保密，且须对您在会员注册名和密码下发生的所有活动承担责任。
　　6、 系统的版权：本网对所有开发的或合作开发的服务的知识产权拥有所有权或使用权，这些服务受到适用的知识产权、版权、商标、服务商标、专利或其他法律的保护。
　　7、 用户利益保障：本站将定期对用户数据进行备份工作，如因为操作失误、黑客攻击以及服务器故障引起的数据损失，本网将尽可能地恢复，但这种情况下所导致的损失为不可抗拒因素，本站具有免责权利。但用户有权要求本网根据服务停止时间采取延期使用的补救措施。但如果因为本站经营不善而导致本站服务无法继续，用户有权要求本网将用户数据返还用户或者寻找其他途径以妥善解决，以保障用户合法权利。</textarea></td>
				<td width="2"></td>
			</tr>
		</table>
		<div class="rtop1"> 
		<div class="r4"></div> 
		<div class="r3"></div> 
		<div class="r2"></div> 
		<div class="r1"></div> 
	</div> 
	</div>

<%
response.End
End If 
%>
<!-- #include file="inc/top.asp" -->
<%

urls=request.ServerVariables("QUERY_STRING")			'参数
'response.write request.ServerVariables("Server_NAME")			'网址
url="http://"&request.ServerVariables("Server_NAME")			'访问网址
url=url&"/"
ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME"))		'虚拟目录+文件
ScriptAddress=Replace(ScriptAddress,"install.asp","")
If request.querystring("goto")="" Then 
response.write "<center><iframe name=""I1"" width=""600"" height=""490"" src=""install.asp?type=Copyright"" border=""0"" frameborder=""0""></iframe>"
%>
<input  class="bluebuttoncs"  onClick="javascript:window.location.href = 'install.asp?goto=1'" value="   我  同  意 "> &nbsp;<input  class="bluebuttoncs" onClick="javascript:window.close();" value="   我  拒  绝 "> &nbsp;<input  class="bluebuttoncs"  onclick="return confirm('开玩笑？！～');"  name="Submit" value="   要  商  量 ">
<%ElseIf request.querystring("goto")="1" Then %>
<div id="nifty1" align="right"> 
	<div class="rtop1"> 
		<div class="r1"></div> 
		<div class="r2"></div> 
		<div class="r3"></div> 
		<div class="r4"></div> 

	</div>
	
THE FIRST  ●&nbsp;&nbsp;&nbsp;
		<div class="rtop1"> 
		<div class="r4"></div> 
		<div class="r3"></div> 
		<div class="r2"></div> 
		<div class="r1"></div> 
</div> 
</div>

<table width="85%" border="0" align="center" cellpadding="0" cellspacing="0">
<form name="form1" method="post" action="install.asp?goto=2">
		<tr>
             <td colspan="3" class="tabtitle" align="center"><B>第一步  路径设置 </B> </td>
        </tr>
		<tr>
             <td class="tabtd1" width="45%"><B>网站名称：</B></td>
			 <td class="tabtd2" width="5%"></td>
			 <td class="tabtd2">
				<input name="cj_website" type="text" size="40" maxlength="20" value="电气学院成绩查询系统科技节大赛专版"><br>
			 </td>
        </tr>
		<tr>
             <td class="tabtd1"><B>网站登陆搜索引擎关键字：</B></td>
			 <td class="tabtd2"></td>
			 <td class="tabtd2">
				<input name="cj_keywords" type="text" size="40" maxlength="20" value="<%=cj_keywords%>"><br>
			 </td>
        </tr>
		<tr>
             <td class="tabtd1"><B><B>网站介绍：</B></td>
			 <td class="tabtd2"></td>
			 <td class="tabtd2">
				<input name="cj_Description" type="text" size="40" maxlength="20" value="<%=cj_Description%>"><br>
			 </td>
        </tr>
		<tr>
             <td class="tabtd1"><B>网址：</B></B><br>
				<font color="#0089f7">说明：请添写完整URL地址</FONT></td>
				<td class="tabtd2"></td>
			 <td class="tabtd2">
				<input name="cj_weburl" type="text" size="40" maxlength="20" value="<%=url%>">
			 </td>
        </tr>
		<tr>
             <td class="tabtd1"><B>安装目录：</B><br>
				<font color="#0089f7">说明：系统安装目录（相对于根目录的位置）<br>
				系统会自动获得正确的路径，但需要手工保存设置。</FONT></td>
			<td class="tabtd2"></td>
			 <td class="tabtd2">
				<input name="cj_SystemFolder" type="text" size="40" maxlength="20" value="<%=ScriptAddress%>">
			 </td>
        </tr>
		<tr>
             <td class="tabtd1"><B>数据库路径：</B><br>
				<font color="#0089f7">说明：系统安装目录（相对于根目录的位置）<br>
				请确定数据库的真实路径，<br>然后再对此项目进行相应修改！<br>如不清楚，请不要修改</FONT></td>
			<td class="tabtd2"></td>
			 <td class="tabtd2">
				<input name="cj_data" type="text" size="40" maxlength="20" value="data/#class_cj.mdb">
			 </td>
        </tr>
		<tr>
             <td class="tabtd1"><B>顶部LOGO地址：</B><br>
				<font color="#0089f7">说明：相对于根目录的位置</FONT></td>
			<td class="tabtd2"></td>
			 <td class="tabtd2">
				<input name="cj_logo" type="text" size="40" maxlength="20" value="<%=cj_logo%>">
			 </td>
        </tr>
		<tr>
             <td class="tabtd1"><B>底部LOGO地址：</B><br>
				<font color="#0089f7">说明：相对于根目录的位置</FONT></td>
			<td class="tabtd2"></td>
			 <td class="tabtd2">
				<input name="cj_logo_foot" type="text" size="40" maxlength="20" value="<%=cj_logo_foot%>">
			 </td>
        </tr>
		<tr>
             <td class="tabtd1"><B>站长姓名：</B></td>
			 <td class="tabtd2"></td>
			 <td class="tabtd2">
				<input name="cj_ceo" type="text" size="40" maxlength="20" value="<%=cj_ceo%>">
			 </td>
        </tr>
		<tr>
             <td class="tabtd1"><B>站长QQ：</B></td>
			 <td class="tabtd2"></td>
			 <td class="tabtd2">
				<input name="cj_webQQ" type="text" size="40" maxlength="20" value="<%=cj_webQQ%>">
			 </td>
        </tr>
		<tr>
             <td class="tabtd1"><B>站长EMAIL：</B></td>
			 <td class="tabtd2"></td>
			 <td class="tabtd2">
				<input name="cj_webemail" type="text" size="40" maxlength="20" value="<%=cj_webemail%>">
			 </td>
        </tr>
		<tr>
             <td class="tabtd2" align="center" colspan="3">
			 <input type='hidden' name='act' value="editfile">
			 <input  class="bluebuttoncss" type="submit" name="Submit" value="下一步">
			 </td>
        </tr>
	</form>
		</table>
		<%ElseIf request.querystring("goto")="2" Then
		if request.form("act")="editfile" Then
			path="config.asp"
			cj_SystemFolder=htm(request.Form("cj_SystemFolder"))
			cj_data=htm(request.Form("cj_data"))
			cj_db=cj_SystemFolder&cj_data
			cj_website=htm(request.Form("cj_website"))
			cj_keywords=htm(request.Form("cj_keywords"))
			cj_Description=htm(request.Form("cj_Description"))
			cj_weburl=htm(request.Form("cj_weburl"))
			cj_ceo=htm(request.Form("cj_ceo"))
			cj_webemail=htm(request.Form("cj_webemail"))
			cj_webQQ=htm(request.Form("cj_webQQ"))
			cj_logo=htm(request.Form("cj_logo"))
			cj_logo_foot=htm(request.Form("cj_logo_foot"))
			cj_copyright="<a target=_blank href=http://www.25175.com><b><font face=arial color=#cc3300>MYSUC</font><font face=arial>.com</font></b></a> All Rights Reserved."
			cj_webtit="首页"
			cj_webmap="首页"
			http="request.serverVariables(""Http_REFERER"")"
			If cj_SystemFolder="" Or cj_data="" Or cj_website="" Or cj_keywords="" Or cj_Description="" Or cj_weburl="" Or cj_ceo="" Or cj_webemail="" Or cj_webQQ="" Or cj_logo="" Or cj_logo_foot="" Then 
				Call ts("请详细输入安装表单！","-1")
			End If 
			On Error Resume Next 
			set conn=Server.CreateObject("ADODB.connection")
			conn.Open "DBQ="+server.mappath(cj_db)+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
			If Err Then
			        err.Clear
			        Set Conn = Nothing
					info="虚拟目录出错，将导致网站程序无法使用，请返回重新设置！"
			Else
				info=""
				contentstr="<%" & vbCrLf
				contentstr=contentstr & "cj_db=""" & cj_db & """" & vbCrLf
				contentstr=contentstr & "cj_SystemFolder=""" & cj_SystemFolder & """" & vbCrLf
				contentstr=contentstr & "cj_website=""" & cj_website& """" & vbCrLf
				contentstr=contentstr & "cj_keywords=""" & cj_keywords& """" & vbCrLf
				contentstr=contentstr & "cj_Description=""" & cj_Description& """" & vbCrLf
				contentstr=contentstr & "cj_weburl=""" & cj_weburl& """" & vbCrLf
				contentstr=contentstr & "cj_ceo=""" & cj_ceo& """" & vbCrLf
				contentstr=contentstr & "cj_webemail=""" & cj_webemail& """" & vbCrLf
				contentstr=contentstr & "cj_webQQ=""" & cj_webQQ& """" & vbCrLf
				contentstr=contentstr & "cj_logo=""" & cj_logo& """" & vbCrLf
				contentstr=contentstr & "cj_logo_foot=""" & cj_logo_foot& """" & vbCrLf
				contentstr=contentstr & "cj_copyright=""" & cj_copyright& """" & vbCrLf
				contentstr=contentstr & "cj_webtit=""" & cj_webtit& """" & vbCrLf
				contentstr=contentstr & "cj_webmap=""" & cj_webmap& """" & vbCrLf
				contentstr=contentstr & "http=" & http& "" & vbCrLf
				contentstr=contentstr & "%\>" & vbCrLf
				fcontent=contentstr
				if path="" or instr(path,":")>0 or instr(path,"\")>0 then
					response.write "<script language='javascript'>"&vbcrlf
					response.write "<!--"&vbcrlf
					response.write "alert('指定的文件名或路径中含有非法字符');"&vbcrlf
					response.write "window.close();"&vbcrlf
					response.write "//-->"&vbcrlf
					response.write "</script>"&vbcrlf
					response.end
				end if
				if len(path)>1 and right(path,1)="/" then
					path=left(path,len(path)-1)
				end if
				filepath=server.mappath(path)
				Dim o_Fso
				On Error Resume Next
				Set obj_fso = Server.CreateObject("Scripting.FileSystemObject")
				If Err.Number <> 0 Then
				Err.Clear
				fsoerr="<center><font color=red><b>错误：服务器不支持fso组件，当前设置无法生效，请手工修改config.asp文件！<br>当前系统某些功能可能无法正常使用！</b></font></center><font color=white>regsvr32 scrrun.dll</font>"
				OutputErr fsoerr
				else
					if obj_fso.fileexists(filepath) then
						set obj_file=obj_fso.opentextfile(filepath,2,false)
						obj_file.write fcontent
						obj_file.close
						set obj_file=Nothing
						infos="suc"
					else
						response.write "<script language='javascript'>"&vbcrlf
						response.write "<!--"&vbcrlf
						response.write "alert('找不到指定的文件，可能该文件已经被删除');"&vbcrlf
						response.write "window.close();"&vbcrlf
						response.write "//-->"&vbcrlf
						response.write "</script>"&vbcrlf
					end If
				End If 
			End If
		Else 
		Call cg("请不要直接访问此页面！","index.asp")
		end If
		If info<>"" Or fsoerr<>"" Then 
		response.write "<center><font color=red><b>"&info&"<br>"&fsoerr&"</b></font></center>"
		response.write "<br><br><center><input class='bluebuttoncss' onclick=history.go(-1) type='submit' name='Submit' value=' 返 回 '>"
		Else  
			If infos="suc" Then 
			response.write "<center><font color=red><b>修改成功！</b></font></center>"
			End If
			
		%>
			<div id="nifty1" align="right"> 
				<div class="rtop1"> 
					<div class="r1"></div> 
					<div class="r2"></div> 
					<div class="r3"></div> 
					<div class="r4"></div> 
				</div>
				
			请不要刷新此页面&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;THE SECOND  ●&nbsp;&nbsp;&nbsp;
				<div class="rtop1"> 
				<div class="r4"></div> 
				<div class="r3"></div> 
				<div class="r2"></div> 
				<div class="r1"></div> 
			</div> 
			</div>

			<table width="85%" border="0" align="center" cellpadding="0" cellspacing="0">
			<form name="form1" method="post" action="install.asp?goto=3">
				<tr>
					 <td colspan="3" class="tabtitle" align="center"><B>第二步  设置超级管理员 </B> </td>
				</tr>
				<tr>
					 <td class="tabtd1" width="45%" align="center"><B>帐号：</B></td>
					 <td class="tabtd2" width="5%"></td>
					 <td class="tabtd2">
						<input name="username" type="text" size="40" maxlength="20" value=""><br>
					 </td>
				</tr>
				<tr>
					 <td class="tabtd1" align="center"><B>密码：</B></td>
					 <td class="tabtd2"></td>
					 <td class="tabtd2">
						<input name="password" type="text" size="40" maxlength="20" value=""><br>
					 </td>
				</tr>
				
				<tr>
					 <td class="tabtd2" align="center" colspan="3">
					 <input  class="bluebuttoncss" type="submit" name="Submit" value="下一步">
					 </td>
				</tr>
			</form>
			</table>
	 <%
		End If 
	 ElseIf request.querystring("goto")="3" Then
		username=REQUEST.Form("username")
		password=REQUEST.Form("password")
		If username="" Or password="" Then 
		Call ts("请输入管理员帐号，密码！","-2")
		End If 
	 set conn=Server.CreateObject("ADODB.connection")
		conn.Open "DBQ="+server.mappath(cj_db)+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
		conn.execute("update admin set username='"&username&"',password='"&md5(password,16)&"' where qx=5")
	 %>
	 
	 <div id="nifty1" align="right"> 
				<div class="rtop1"> 
					<div class="r1"></div> 
					<div class="r2"></div> 
					<div class="r3"></div> 
					<div class="r4"></div> 
				</div>
				
			请不要刷新此页面&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SUCCESS  ●&nbsp;&nbsp;&nbsp;
				<div class="rtop1"> 
				<div class="r4"></div> 
				<div class="r3"></div> 
				<div class="r2"></div> 
				<div class="r1"></div> 
			</div> 
			</div>
	 
	 
	<% 
	response.write "<center><font color=red><b>修改成功！</b></font></center>"
	response.write "<br><br><center><input class='bluebuttoncss' onClick=""javascript:window.location.href = 'index.asp'"" type='submit' name='Submit' value=' 进入系统首页 '>  "
	response.write "  <input class='bluebuttoncss' onClick=""javascript:window.location.href = 'install.asp?goto=4'"" type='submit' name='Submit' value=' 删除配制文件 '>"
	 
	 
	 
	 
	 ElseIf request.querystring("goto")="4" Then

'===================================================

'源码：FSO删除文件示例
'时间：2005年12月17日
'===================================================
	Set fs = Server.CreateObject("Scripting.FileSystemObject")
	File = Server.MapPath("install.asp")
	on Error Resume Next
	fs.DeleteFile File, True '强制删除只读文件
	If Err.Number = 53 Then
	Response.Write File & "文件不存在！"
	Response.End
	Elseif Err.Number = 70 Then
	Response.Write File & "文件属性为锁定状态！"
	Response.End
	Elseif Err.Number <> 0 Then
	Response.Write "未知错误，错误编码：" & Err.Number
	Response.End
	Else
	Response.Redirect "index.asp"
	End If
 End If %>
	
 <!-- #include file="inc/Bottom.asp" -->