<% code=request("code") %> Human Music Puroducts
 
<% ' ' ' ' ' %>
榎本 まどか
4月24日「PANDA CLASH! 〜1笹〜」
Cry&Feel it
' 2月・3月ライブスケジュール決定!
<% 'カウンター Set objFile = Server.CreateObject("Scripting.FileSystemObject") sPathCountFile = "d:\site-dumbo\human\cgi-bin\count_log\hmp_log.txt" Set strmFile = objFile.OpenTextFile(sPathCountFile, 1, FALSE) If Err.Number > 0 Then iCount = 0 Else iCount = strmFile.ReadLine End If iCount = iCount + 1 strmFile.Close Set strmFile = objFile.OpenTextFile(sPathCountFile, 2, TRUE) strmFile.WriteLine iCount strmFile.Close Response.Write icount %>