gmm.asp 迅雷看看小偷电影程序源码+后台(首页去弹窗) - ASP源码程序

www.gusucode.com > 迅雷看看小偷电影程序源码+后台(首页去弹窗) > 迅雷看看小偷电影程序源码+后台(首页去弹窗)\code\guanli\gmm.asp
    <!--#include file="ht.asp"-->
<%

Function IsObjInstalled(strClassString)
	On Error Resume Next
	IsObjInstalled = False
	Err = 0
	Dim xTestObj
	Set xTestObj = Server.CreateObject(strClassString)
	If 0 = Err Then IsObjInstalled = True
	Set xTestObj = Nothing
	Err = 0
End Function
action=request("action")
dim ObjInstalled
ObjInstalled=IsObjInstalled("Scripting.FileSystemObject")
%>
<%if session("islogin") = LoginPassWord then%>
<html>
<head>
<title>修改密码</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
body,td,th {font-size: 12px;color: #000000;}
-->
</style>
<body>
<%=daohang%>
<%
if Action="SaveConfig" then
	call SaveConfig()
	Response.Redirect "admin.asp" 
else
	call ShowConfig()
end if
if FoundErr=True then
	call WriteErrMsg()
end if
sub ShowConfig()
%>
<form method="POST" action="?action=SaveConfig" id="form" name="form">
  <table width="350" border="1" align="center" cellpadding="2" cellspacing="1" bordercolor="#0099FF">
    <tr>
      <td height="40" colspan="4" ><div align="center" >修改密码</div></td>
    </tr>
    <tr>
      <td width="100" align="center" ><strong>请输入新密码：</strong></td>
      <td  height="25" colspan="3" align="center" ><input name="qr" type="text" id="qr" value="" size="30"></td>
    </tr>
    <tr>
      <td  height="40" colspan="4" align="center"><input name="Action" type="hidden" id="Action" value="SaveConfig">
        <input name="cmdSave" type="submit" id="cmdSave" onClick="alert('修改成功')" value="确定" <% If ObjInstalled=false Then Fh.write "disabled" %>>
      </td>
    </tr>
<%
If ObjInstalled=false Then
	Fh.write "<tr><td height='40' colspan='3'><b><font color=red>你的服务器不支持 FSO(Scripting.FileSystemObject)! 不能使用后台功能。<br>请直接修改“config.asp”文件中的内容。</font></b></td></tr>"
End If
%>
  </table>
<%
end sub
%>
</form>
</body>
</html>
<%
sub SaveConfig()
	If ObjInstalled=false Then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>你的服务器不支持 FSO(Scripting.FileSystemObject)! </li>"
		exit sub
	end if
	dim fso,Fh
	set fso=Server.CreateObject("Scripting.FileSystemObject")
	set Fh=fso.CreateTextFile(Server.mappath("mima.asp"),true)
	Fh.write "<" & "%" & vbcrlf
	Fh.write "'=====================================" & vbcrlf
	Fh.write "'" & vbcrlf
	Fh.write "'www.135dj.com" & vbcrlf
	Fh.write "'=====================================" & vbcrlf
	Fh.write "LoginPassWord=" & chr(34) & trim(request("qr")) & chr(34) & vbcrlf
	Fh.write "%" & ">"
	Fh.close
	set Fh=nothing
	set fso=nothing	
end sub
%>
<%end if%>