云网互动影视6.0--系统安装

<% '=================================================================================================================== '软件名称：云网影视管理系统 'Copyright (C) 2002-2007 ywnt.net All rights reserved. '产品咨询QQ：489234,2813712 '程序版权：云网互动科技有限公司 '程序开发：云网互动科技有限公司 '官方网站：http://www.ywnt.net '郑重声明: ' 1、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求; ' 2、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息； ' 3、云网互动科技有限公司保留此软件的法律追究权利 '=================================================================================================================== Dim Rs,sql Select Case Request("Action") Case "Save" IF Request.Form("AdminName")="" Then Response.write "
" End IF IF Request.Form("AdminPassword")="" Then Response.write "
" End IF IF Request.Form("AdminPassword")<>Request.Form("AdminPassword2") Then Response.write "
" End IF Response.write "
" Set Rs=Server.CreateObject(YWNT_TMS_RS) sql="select * from YWNT_TMS_Admin" Rs.open sql,Conn,1,3 Rs.addnew RS("AdminName")=NoSqlHack(Request.Form("AdminName")) RS("AdminPassword")=NoSqlHack(Md5(Request.Form("AdminPassword"),32)) RS("AdminGroup")=1 RS("AdminIPOff")=0 RS("AdminIP")="" RS("AdminLocks")=0 RS("AdminNote")="超级管理员" Rs.Update Rs.Close Set Rs = Nothing Set Rs=Server.CreateObject(YWNT_TMS_RS) sql="select * from YWNT_TMS_Config where ID="&NoSqlHack(Request.Form("ID")) Rs.open sql,Conn,1,3 RS("Weburl")=NoSqlHack(Request.Form("weburltext")) RS("WebName")=NoSqlHack(Request.Form("webnametext")) RS("WebLogo")=NoSqlHack(Request.Form("weblogotext")) RS("WebiInstallDir")=NoSqlHack(Request.Form("websetuptext")) Rs.Update Rs.Close Set Rs = Nothing Call Stepdel() Case Else Set Rs=Server.CreateObject(YWNT_TMS_RS) sql="select * from YWNT_TMS_Config" Rs.open sql,Conn,1,1 YWNT_TMS_ID=RS("ID") RS.close set RS=nothing End Select Sub Stepdel() On Error Resume Next Dim fso Set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists(Server.mappath("install.asp")) Then fso.DeleteFile Server.mappath("install.asp") fso.DeleteFile Server.mappath("top.gif") End If If Err.Number <> 0 Then Response.write "
" Err.Clear Exit Sub Else Response.write "
" End If End Sub strInstallDir = Trim(Request.ServerVariables("SCRIPT_NAME")) strInstallDir = Left(strInstallDir, InStrRev(LCase(strInstallDir), "/"))%>

系统安装
管理员名称： |
管理员密码： |
重复密码： |
站点域名： | " size="40"> (请使用http://标识),后面不要带"/"符号
站点名称： |
站点LOGO： |
站点安装目录： | 系统安装的虚拟目录

<%call connclose()%>