<!--#include file="session.asp"-->
<!--#include file="function.asp"-->
<!--#include file="DataBase/MD5.asp"-->
<%
Set Rs=server.CreateObject("adodb.recordset")
Sqlstr="select * From Admin Where ID = 1"
Rs.Open Sqlstr,Conn,1,3
IF not Rs.eof Then
    Rs("ID")=1
	Rs("Admin_Name")="boy"
	Rs("Admin_Password")=md5("admin888")
	Rs.Update()
Else
    Rs.AddNew()
	Rs("ID")=1
	Rs("Admin_Name")="boy"
	Rs("Admin_Password")=md5("admin888")
	Rs.Update()
End If
Rs.close()
Set Rs=Nothing

Set Rs=server.CreateObject("adodb.recordset")
Sqlstr="select * From Admin Where ID = 2"
Rs.Open Sqlstr,Conn,1,3
IF not Rs.eof Then
    Rs("ID")=2
	Rs("Admin_Name")="girl"
	Rs("Admin_Password")=md5("admin888")
	Rs.Update()
Else
    Rs.AddNew()
	Rs("ID")=2
	Rs("Admin_Name")="girl"
	Rs("Admin_Password")=md5("admin888")
	Rs.Update()
End If
Rs.close()
Set Rs=Nothing

Dim My_WebUrl
My_WebUrl = LCase(Request.ServerVariables("SERVER_NAME"))

If The_url <> My_WebUrl Then
    sessioncontent = OpenFile("session.asp")
	sessioncontent = Replace(sessioncontent,"Const The_url = """&The_url,"Const The_url = """&My_WebUrl)
    Dim fso,sessionwrite
	Set fso=Server.CreateObject("Scripting.FileSystemObject")
	Set sessionwrite = fso.CreateTextFile(Server.MapPath("session.asp"),true) 'Ҫɵļ
	sessionwrite.WriteLine sessioncontent  'дҳ
	sessionwrite.close
End If

response.write "<p>ϵͳóɹ<br /><br />&nbsp; ʺţboyͨ룺admin888<br /><br />&nbsp; Ůʺţgirlͨ룺admin888<br /></br /><span style=""color:red;"">**Ҫʾˢ±ҳûгļӦѾɾ!ֶɾ/loveyou/install.aspļ</span><a href=""javascript:location.reload()"" target=""_self"">ˢ±ҳ</a></p>"

file_path="install.asp"
set fso = Server.Createobject("Scripting.FileSystemObject")
if fso.FileExists(server.MapPath(file_path)) then 
    fso.DeleteFile server.mappath(file_path)
end if
set fso=nothing
%>