100分奉上，关于asp中函数为什么不执行。

[wbc_58]

在asp中定义了个函数，function createTrueTypeFile(f_words,pfiFileName)。为什么调用时tt=createTureTypeFile(wordsTrueType,tradenum&".pfi")根本不执行。
请各位帮忙分析一下原因。100分奉上。

[希偌]

怎么调用？

[buzhidao]

把函数贴出来

[treeline.fm]

我得可以，你怎样调的？
<%@ Language=VBScript %>
<%
function createTrueTypeFile(f_words,pfiFileName)
response.write(f_words)
response.write(pfiFileName)
createTrueTypeFile=20
end function

t2 = "Show"
t1 = createTrueTypeFile("t1",t2&".fre")

%>

[KnowLittle]

函数的调用写法取决于你这个函数有没有return，(不是指byref这种返回)。
如果有，可以写myResult= myFunc(.....)
如果没有，写成 call myFunc(......)就可以了

[balloy]

你是不是没有对createTrueTypeFile赋值（即没有createTrueTypeFile = ...一句）

[wbc_58]

function createTrueTypeFile(f_words1,pfiFileName1)
Response.Write "begin"
on error resume next
' pfipath=Request.ServerVariables("APPL_PHYSICAL_PATH")&"pfiFile\"
pfipath=Server.MapPath(replace(Request.ServerVariables("SCRIPT_NAME"),"dopay1.asp","pfiFile/"))
' Response.Write pfipath
pfiFile=pfipath&"\"&pfiFileName1
on error resume next
dim openmode
openmode=1

set FifCom = Server.CreateObject("ttf2ttf.ttf2ttf")

for i=0 to UBound(f_words1)
' Response.Write fonts(i)&"<br>"
' Response.Write pfipath&"<br>"
' Response.Write f_words(i)&"<br>"
if f_words1(i)<>"" then
pficodes=""
pficharsnum = FifCom.ttftottf(fontsTrueType(i),pfiFile, f_words1(i),"方正补字库", pficodes, FALSE, TRUE, false)
' FifCom.ttftottf("C:\WINNT\Fonts\fzzdsyk.ttf", "D:\网上补字\字库网站\test\fzbu.ttf","方正补字库", ttfcodes, FALSE, TRUE, FALSE)
if openmode=1 then openmode=3
end if
next
' Response.Write "pficodes="&pficodes&"<br>"
if Err.number<>0 then Response.Write Err.description
FifCom=nothing
set fso=createobject("Scripting.FileSystemObject")
createPfiFile=false
if fso.FileExists(pfiFile) then createPfiFile=true
end function

[KnowLittle]

没有return,用call

[wbc_58]

呵呵，参数调用错误！