VBScript執行時錯誤錯誤800a000d

時間 2022-03-12 13:00:19

1樓:

大概看了一下,像:

elseif not(isnull(request("classid"))) and request("classid")<>0 then

這樣的判斷很容易出現問題,前面是判斷是否為null,即還未初始化的變數,後面又是判斷是否為數值型別.建議分兩步走,這裡大概看得出來是必須是數字,且不得等於0,可以用"isnumeric"函式:

dim tmpint

tmpint=request.querystring("classid")

if isnumeric(tmpint) then

if tmpint>0 then

'符合大於0的條件

else

'小於等於0

end if

else

'非數字

end if

如果classid沒有值傳過來,則tmpint會得到一個空的字串值,這是一個字串型別的變數,如果你判斷是否不等於0或使用cint進行資料型別轉換就會出錯。

注:**太多,沒有真正看完,我個人認為,還是將判斷的**先分離,不要一開始就合在一起,容易產生問題。如果處理的過程都正常了,再考慮做一些優化。

(這個僅針對初學者,高手的**一般寫得比較嚴謹。)

2樓:匿名使用者

改為

試一下

3樓:匿名使用者

很明顯的錯誤,型別不匹配: '[string: ""]'

elseif not(isnull(request("classid"))) and request("classid")<>0 then

你的 request("classid")是字元型別,你比較的時候轉換以下就可以了

所以這句應該寫成

elseif not(isnull(request("classid"))) and cint(request("classid"))<>0 then

如果這樣繼續報錯的話,直接強制轉化 int(request("classid"))

4樓:

===選擇您想檢視的類別===

┣檢視所有產品資訊

<%men1 0,1%>

"><%classid = 0

if request("txtitle")<>"" then

elseif not(isnull(request("classid"))) and request("classid")<>0 then

classid=request("classid")

sql="select * from product where"

classidz=split(men2(classid),",")

for i = 1 to ubound(classidz)

if i = 1 then

else

end if

next

sql= sql & " order by id desc"

else

sql="select * from product order by id desc"

end if

set rs= server.createobject("adodb.recordset")

set rs1= server.createobject("adodb.recordset")

rs.open sql,conn,1,1

if rs.eof and rs.bof then

5樓:白臨楓

elseif not(isnull(request("classid"))) and cint(request("classid"))<>"0"then

6樓:匿名使用者

下面是全部**....希望有高手解答..

_______________________________<%

else

if session("flag")>2 thenresponse.write "

您沒有操作的許可權

"response.end

end if

end if

classid=request("classid")%>

<%txtitle=request("txtitle")if not isempty(request("page")) then

currentpage=cint(request("page"))else

currentpage=1

end if

if not isempty(request("selannounce")) then

idlist=request("selannounce")if instr(idlist,",")>0 thendim idarr

idarr=split(idlist)

dim id

for i = 0 to ubound(idarr)id=clng(idarr(i))

call deleteannounce(id)next

else

call deleteannounce(clng(idlist))end if

end if

dim sql

dim rs

%>______________________樓下的,還是不行呢.暈

回答者:zwb001

7樓:匿名使用者

恩恩 同上 同上上 同上上上

8樓:狼_神

接不到值,或值為null

「VBScript執行時錯誤錯誤800a004c

本地存在這個路徑 c documents and settings user 桌面 t1.html 網上的伺服器也存在?就算伺服器存在,伺服器會允許你往c documents and settings user 桌面 裡面寫檔案?照你這段 的理論推斷,如果一個空間商有1000個使用者,這1000個使...

VBA EXCEL 執行時錯誤

應該沒錯才對,請確定是否在當前工作表,如果在執行裡當前工作表不是圖表所在工作表,會導致錯誤!另外請確定excel版本為07版本或者以上版本。開啟excel時,彈出 執行時錯誤 438 物件不支援該屬性或方法 求高手指教如何向以前正常執行!這個是vba 問題。你先新建一個工作薄,然後開啟,把信任中心裡...

執行時錯誤429active部件不能建立物件怎麼辦翱

依然特雷西 執行時錯誤429,activex部件不能建立物件是設定錯誤造成的,解決方法為 1 開啟執行輸入框,輸入cmd 回車 2 在cmd視窗中輸入 regsvr32 c windowssystem32scrrun.dll 別忘記了有雙引號。3 打32位的odbc新增資料來源,為了區分可以義32位...