Public Function CreateFile(file_str,bCover,html_str)
Dim dir,i,b,pos
IF bInit=False Then CreateObj():End IF
IF Err Then err.clear:End IF
bMapPath=True
IF bMapPath Then file_str=Server.MapPath(file_str):End IF<!--1215行 -->
IF bMapPath=False Then file_str=replace(file_str,"/","\"):End IF
i=1
Do While instr(i,file_str,"\")
pos=instr(i,file_str,"\")
i=i+1
以下是错误提示
Server.MapPath() 错误 'ASP 0171 : 80004005'
缺少 Path
D:\FREE001\ZL001Q\WEB\0010429\../Include/CmsDj.Function.asp,行 1215
必须为 MapPath 方法指定 Path 参数。