求大神帮忙看看
小弟实在找不着在哪里 请各位大神伸出援手 谢谢啦Microsoft JET Database Engine 错误 '80040e14'语法错误 (操作符丢失) 在查询表达式 'ID=' 中。D:\WWWROOT\YOUYOU8732\WWWROOT\ADMIN\XINXI\../../inc/func.asp，行 45具体的代码为<%sub showerr(str)
response.write "<script>alert('"&str&"');history.go(-1);</script>"
response.endend sub
sub showmsg(str,url)
response.write "<script>alert('"&str&"');location.href='"&url&"';</script>"end sub
function htmlencode(fString) fString = replace(fString, ">", ">")fString = replace(fString, "<", "<")fString = Replace(fString, chr(32), " ")fString = Replace(fString, CHR(10) & CHR(10), "</p><p>")fString = Replace(fString, CHR(10), "<br>")htmlencode=fStringEnd Function
Sub DoDelFile(sPathFile)On Error Resume NextDim oFSOSet oFSO = Server.CreateObject("Scripting.FileSystemObject")oFSO.DeleteFile(Server.MapPath(sPathFile))Set oFSO = NothingEnd Sub
function getfilename(str)
dim pos
pos=instr(str,".")
if str<>"" then
str=mid(str,pos,len(str))
end if
getfilename=strend function
FUNCTION NEWS_CLASSNAME(STR)
DIM RS_CLASS
SET RS_CLASS=CONN.EXECUTE("SELECT NEWS_CLASS FROM HR_NEWS_CLASS WHERE ID="&STR)
NEWS_CLASSNAME=RS_CLASS("NEWS_CLASS")END FUNCTION
FUNCTION CLASSNAME(STR)
DIM RS_CLASS
SET RS_CLASS=CONN.EXECUTE("SELECT classname FROM CLASS WHERE ID="&STR) 出错的45行代码
CLASSNAME=RS_CLASS("classname") END FUNCTION
FUNCTION NCLASSNAME(STR)
DIM RS_CLASS
SET RS_CLASS=CONN.EXECUTE("SELECT nclassname FROM NCLASS WHERE ID="&STR)
NCLASSNAME=RS_CLASS("nclassname")END FUNCTION%>
我为人人，，，人人为我。。。。。
页:
[1]