<!-- #include virtual="/sj4web/include.asp" -->

<%
main()
Sub main()

%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=shift_jis">
<meta name="robots" content="all">
<title><% = AppTitle %></title>
</head>
<body>

<font size="1">
attrib -R g:\sj4web\*.* /S /D<br>
<br>
cd \sj4web<br>
\screnc.exe -f -xl *.asp<br>
<br>
<% 
	Dim fso
	Set fso = CreateObject("Scripting.FileSystemObject")
	
	Response.Write("" & "<br>" & vbCrLf)

 sFolderSearch(fso.GetFolder(Server.MapPath("/sj4web"))) 
%>
<br>
cd \sj4web<br>
\screnc.exe -f include_top.txt -e asp<br>
\screnc.exe include.js include_enc.js<br>
\screnc.exe includesj.js includesj_enc.js<br>
copy include_null.js include.js /Y<br>
copy include_null.js includesj.js /Y<br>
<br>


</font>
</body>

</html>
<%
End Sub

Sub sFolderSearch(myFolder)
		Dim mySubFolder
		With myFolder
				If .SubFolders.Count > 0 Then
						For Each mySubFolder In .SubFolders
								If InStr(mySubFolder, "datakanri") > 0 Or (InStr(mySubFolder, "data") = 0 And  InStr(mySubFolder, "images") = 0) Then
									Response.Write("cd ")
									Response.Write(Replace(mySubFolder, "D:\InetPub\sj4websource", "\sj4web"))
									Response.Write("<br>" & vbCrLf)

									Response.Write("\screnc.exe -f -xl *.asp")
									Response.Write("<br>" & vbCrLf)
									Response.Write("<br>" & vbCrLf)
									sFolderSearch(mySubFolder)
								End if
						Next
				End If
		End With
End Sub
%>