<%@ Language=VBScript %>
<% Option Explicit %>
<%
Function ChangeNull(s)
If s="" Then
ChangeNull=" "
Else
ChangeNull=s
ENd If
End Function
'On Error Resume Next
' *** Get Request ***
Dim name,id,school,place,tel,cell,fax,email,addr,tim(5),pla(5)
Dim StrTech, StrBreak
strBreak=""
name = ChangeNull(Request("name"))
id = ChangeNull(Request("id"))
school = ChangeNull(Request("school"))
place = ChangeNull(Request("place"))
tel = ChangeNull(Request("tel"))
cell = ChangeNull(Request("cell"))
fax = ChangeNull(Request("fax"))
email = ChangeNull(Request("email"))
addr = ChangeNull(Request("addr"))
tim(1) = ChangeNull(Request("tim(1)"))
pla(1) = ChangeNull(Request("pla(1)"))
tim(2) = ChangeNull(Request("tim(2)"))
pla(2) = ChangeNull(Request("pla(2)"))
tim(3) = ChangeNull(Request("tim(3)"))
pla(3) = ChangeNull(Request("pla(3)"))
tim(4) = ChangeNull(Request("tim(4)"))
pla(4) = ChangeNull(Request("pla(4)"))
tim(5) = ChangeNull(Request("tim(5)"))
pla(5) = ChangeNull(Request("pla(5)"))
StrTech = StrBreak & vbCrLf
StrTech = StrTech &"| "& now() &" | "& name &" | "& id &" | "& school &" | "& place
StrTech = StrTech &" | "& tel &" | "& cell &" | "& fax &" | "& email &" | "& addr
StrTech = StrTech &" | "& tim(1) &" | "& pla(1)
StrTech = StrTech &" | "& tim(2) &" | "& pla(2)
StrTech = StrTech &" | "& tim(3) &" | "& pla(3)
StrTech = StrTech &" | "& tim(4) &" | "& pla(4)
StrTech = StrTech &" | "& tim(5) &" | "& pla(5)
StrTech = StrTech &" |
"& vbCrLf
Dim fso, FilePath, finput, strinput
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Application.Lock
' 取得 iiGbook.txt 及 iiGbookold.txt
FilePath = Server.MapPath("TechGbook.htm")
Set finput = fso.OpenTextFile(FilePath,1,true)
strinput = finput.ReadAll
finput.Close
Set finput = fso.CreateTextFile(FilePath,true)
finput.writeline Replace(strinput,StrBreak,StrTech)
finput.Close
Application.UnLock
%>
Untitled Document
<%=name%> <%=school%> <%=now()%>新增成功, 謝謝!
