Question

asp里的自定义函数调用另外一个自定义函数时程序没反应也不报错

问题一：
自定义函数如下，这个是生成文件的函数，单独调用时是没问题的：
Function creatfile(ByVal path,ByVal content,ByVal Charset) dim objstream 'set objstream = server.createobject("Adodb.Stream") set objstream = Server.CreateObject("Ado"&"db"&".Str"&"eam") with objstream .open .charset = Charset .position = objstream.size .writetext = content .savetofile server.mappath(path),2 .close end with set objstream = nothing creatfile=Trueend Function
然后我在另外一个函数里调用这个函数如下：
Function makeindexlist(ByVal t0) if t0=1 then enlist="……" call creatfile("list.htm",cnlist,"utf-8") makeindexlist=cnlist else cnlist="……" call ceatfile("list.htm",enlist,"utf-8") makeindexlist=enlist end ifEnd Function
当我调用makeindexlist这个函数时，程序不报错，但也没其他反应，不知道错误出在哪里；这种问题不止碰到过一次，特向大家求助；
问题二：
向高手求一正则表达式，匹配任意由26个英文字符和阿拉伯数字组成的字符串，但是特定字符串除外；
我自己找到刚才这个问题的原因了；是我调用函数的ASP文件有问题；谢谢1楼的回答，你很细心；

Answer 1

Function makeindexlist(ByVal t0)
   if t0=1 then
      cnlist="……"
      call creatfile("list1.htm",cnlist,"utf-8")
   else
      cnlist="……"
      call creatfile("list2.htm",cnlist,"utf-8")
   end if
   makeindexlist=cnlist
End Function

你的代码中，ceatfile要改为creatfile。而我的代码是在修改的基础上对你的代码进行简化，中间变量只需用一个即可，用不着分cnlist和enlist，这样可以节省资源。

追问

我分成两次的目的是两次ceatfile生成的文件不是同一个文件，我的目的是判断不同条件下生成不同的文件，但是现在生成文件的函数会引起程序无法执行

追答

我再一次强调：
ceatfile
要改为
creatfile
程序是严谨的，差一个字符也不行。你的代码错误主要是这里，至于我的代码是对你的代码进行了简化。你要继续用你繁琐的代码也行，但你那个错误一定要更正！
create file 是建立文件的意思。