<%
'====================================================================
'GET ALL REQUEST APRAMTERS FROM Client
'PUT ALL PARAMTERS INTO Tag[]
'====================================================================
FUNCTION GetUserVariable(HasHiddenTag)
i=1
For each var in request.form
'判斷是否具有相同的TagName,
AddTag TagName,TagValue,var,request.form(var),HasHiddenTag
i = i +1
Next
END FUNCTION
FUNCTION SendMailToService()
'====================================================================
'WRITE Email
'====================================================================
'寫入email中
mailFileContent = ReplaceTag(request,TagName,TagValue,HiddenTag,ServiceEmail,false)
'====================================================================
'Define Email List
'====================================================================
'email名單寫回給內部人員,不需定義任何人,因為已經內建內部人員
REDim UserEmailList(1)
'====================================================================
'Deliver Email to Internal Employees
'====================================================================
verifyMail "[通知]" & Subject,mailFileContent,userEmailList
END FUNCTION
'===================================================
'reqVar : request 物件,目前尚未使用到
'TagName[],TagValue[] : 要取代的 TagName=TagValue pairs
'HiddenTag[] :指定對應的TagName[]/TagValue[] 是否產生Hidden Input
'templateName : 取代的範本檔
'addHiddenField :決定是否要產生Hidden Input
'===================================================
FUNCTION ReplaceTag(reqVar,TagName,TagValue,HiddenTag,templateName,addHiddenField)
If templateName="" Then
ReplaceStr = ""
EXIT FUNCTION
END IF
'open file just for reading ,not create new file ,ascii
Set fs = CreateObject("Scripting.FileSystemObject")
URL = request.ServerVariables("URL")
FilePath=""
FilePath = Server.MapPath(Left(URL,Instr(URL,"/register.asp"))) & "\" & templateName
'response.write FilePath + " "
Set ts = fs.OpenTextFile(FilePath)
'read all data from file
Str = ts.readALL
'將所有變數$[var]取代成為傳入的內容值request.form(var)
'i=1
'For each var in reqVar.form
'response.write var
' hiddenStr = ""
' if (addHiddenField) THEN hiddenStr = ""
' Str = Replace(Str,"$[" & var & "]" ,reqVar.form(i) & hiddenStr)
' i = i +1
'Next
'===================
'如何處理多值的取代,ex:CheckBox 傳回的值?????
'====================
'additional tags
For j=LBOUND(TagName) to UBound(TagName)
'response.write TagName(j) & "====" & TagValue(j) & ""
hiddenStr = ""
if (HiddenTag(j)) THEN hiddenStr = ""
'====================================================
'針對輸入值若為空白,則加入"style='display:none;'"
newStr = TagValue(j)
'if newStr="" Then newStr = "style='display:none;'"
'====================================================
Str = Replace(Str,"$[" & TagName(j)& "]",newStr & hiddenStr)
Next
ReplaceTag = Str
Set regMailTS = nothing
END FUNCTION
%>
<%
'================================================================================================
'呼叫jMail元件,將信件送給 User
'同時以密件的方式送給 Marketing / Engineer 人員
'================================================================================================
'email to related person (marketing, engineer)
Function verifyMail(Subject,mailFileContent,UserEmailList)
if mailFileContent="" Then EXIT FUNCTION
'定義附件的EMAIL
'===================================================
Dim BCCUser(3)
BCCUser(0) = "yi.zhou@infopower.com.tw"
BCCUser(1) = "kent.shih@infopower.com.tw"
'BCCUser(1) = "chenyi.chung@infopower.com.tw"
'BCCUser(2) = "monica.huang@infopower.com.tw"
'===================================================
Set oJmail = Server.CreateObject("Jmail.Message")
oJmail.Logging = True
oJmail.Silent = True
oJmail.Charset = "big5"
oJmail.ContentType = "text/html"
oJmail.ISOEncodeHeaders = False
oJmail.From = "seminar@infopower.com.tw"
oJmail.FromName = "InfoPower Seminar"
For i=LBound(UserEmailList) To UBound(UserEmailList)
oJmail.AddRecipient UserEmailList(i)
NEXT
'=============寄給內部負責人=========================
For J=LBound(BCCUser) To UBound(BCCUser)
oJmail.AddRecipientBCC BCCUser(J)
NEXT
'===================================================
oJmail.Subject = Subject
oJmail.body = mailFileContent
oJmail.Send("infopower.com.tw")
End Function
'--------------------------------------------------------------------------
'TagName[] as String Array : 要取代的TagNAME
'TagValue[] as String Array : 取代的Value ,與TagName作配對
'HiddenTag[] as boolean Array : 此TagName被取代時,是否同時新增Hidden 欄位的Input,在回覆輸入表單會用到
'--------------------------------------------------------------------------
FUNCTION AddTag(TagName,TagValue,name,value,hiddenField)
ReDim Preserve TagName(UBound(TagName)+1)
ReDim Preserve TagValue(UBound(TagValue)+1)
ReDim Preserve HiddenTag(UBound(HiddenTag)+1)
TagName(UBound(TagName)) = name
TagValue(UBound(TagName)) = value
HiddenTag(UBound(HiddenTag)) = hiddenField
END FUNCTION
FUNCTION ClearAllTag()
ReDim TagName(0)
ReDim TagValue(0)
ReDim HiddenTag(0)
END FUNCTION
%>