我自己也怀疑是不是程序文件中有什么问题，现在已将原ASP文件打包补进楼顶的主贴中了。

烦请指教为谢！

[[it] 本帖最后由 zslj 于 2008-4-30 01:34 编辑 [/it]]

等晚上我回来再研究研究吧，下午要出去

<%
Function CleanHTML(str)
Dim re
Set re=new RegExp
re.IgnoreCase =True
re.Global=True
re.Pattern="<(.[^>]*)>"
CleanHTML = re.Replace(str,"")
set re=Nothing
End Function
%>

<%
blogEntry=CleanHTML(blogEntry)
IF Len(blogEntry) > 50 THEN
blogEntry=left(blogEntry,50)
blogEntry=blogEntry+" ......"
END IF
Response.Write(blogEntry)
%>

错误提示：
--------------------------------------------------------------------------
错误类型：
Microsoft VBScript 编译器错误 (0x800A03EA)
语法错误
/免费空间blog/index.asp, line 62
Function CleanHTML(str)
---------------------------------------------------------------------------

你在本机运行还是网上运行有这样的问题？如果是本机运行，我怀疑是不是IIS的问题。我这边运行没什么问题的.....
建议你从删除程序中删除IIS，重新启动电脑，再安装IIS，再重新启动电脑，这样测试一下.....

是在本机IIS测试。
系统是 Windows XP SP2 (工行内部版)
那我重装IIS再试试...
hxfly辛苦了!

卸载了XP的IIS后，然后重新装了IIS。

在本机IIS测试代入“cutStr(str)”函数后出现错误：
------------------------------------------
错误类型：
Microsoft VBScript 编译器错误 (0x800A03EA)
语法错误
/免费空间blog/index.asp, line 61
Function cutStr(str)
浏览器类型：
Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 2.0.50727; .NET CLR 3.0.04506.30)
------------------------------------------


同上，将文件上传到网站空间，出现的错误是：
------------------------------------------
最可能的原因是:
该网站正在进行维护。
该网站有程序错误。
------------------------------------------

崩溃！崩溃！崩溃！崩溃！崩溃！崩溃！崩溃！
气恼！气恼！气恼！气恼！气恼！气恼！气恼！

我也无奈了.....

方便的话把数据库，CONN文件和INDEX文件给我我看看。只要这套相关的就可以了

hxfly@