Microsoft VBScript 运行时错误 (0x800A000D) 类型不匹配: &CInt&
Microsoft VBScript 运行时错误 (0x800A000D) 类型不匹配: &CInt&
整个页面代码为
&%@LANGUAGE=&VBSCRIPT& CODEPAGE=&936&%&
&!--#include file=&Connections/newsconn.asp& --&
&%

if(CInt(Trim(Request.QueryString(&newsID&))) && &&) then Command1__intnewsID = CInt(Trim(Request.QueryString(&newsID&)))

%&
&%

set Command1 = Server.CreateObject(&mand&)
Command1.ActiveConnection = MM_newsconn_STRING
&#mandText = &DELETE FROM NewsInfo
WHERE newsID = & + Replace(Command1__intnewsID, &&&, &&&&) + & &
&#mandType = 1
&#mandTimeout = 0
Command1.Prepared = true
Command1.Execute()
Response.Redirect(&newsList.asp&)
%&
&!DOCTYPE html PUBLIC &-//W3C//DTD XHTML 1.0 Transitional//EN& &http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd&&
&html xmlns=&http://www.w3.org/1999/xhtml&&
&head&
&meta http-equiv=&Content-Type& content=&text/ charset=gb2312& /&
&title&删除页面&/title&
&/head&
&body&
&/body&
&/html&
if(CInt(Trim(Request.QueryString(&newsID&))) && &&) then Command1__intnewsID = CInt(Trim(Request.QueryString(&newsID&)))---
如果Trim(Request.QueryString(&newsID&))=&& 的时候你 用cint 转换肯定就错了，改为if(Trim(Request.QueryString(&newsID&)) && &&) then Command1__intnewsID = CInt(Trim(Request.QueryString(&newsID&)))---
的感言：还是运行不成功！ 相关知识
其他回答 (1)
if(CInt(Trim(Request.QueryString(&newsID&))) && &&) then Command1__intnewsID = CInt(Trim(Request.QueryString(&newsID&)))

改下下，改为
Command1__intnewsID = trim request.querystring(&newsid&)
if isnumeric(Command1__intnewsID) then

Command1__intnewsID = Cint(Command1__intnewsID)
else

response.write(&非法提交的参数&)

response.end
end if
相关知识等待您来回答
网页制作领域专家
& &SOGOU - 京ICP证050897号错误类型： Microsoft VBScript 运行时错误 (0x800A000D) 类型不匹配:_百度知道
错误类型： Microsoft VBScript 运行时错误 (0x800A000D) 类型不匹配:
' name=&'SELECT * FROM allproduit WHERE
title = 'produit/&&title&&&lt,)%& style=&错误类型.Recordset&))Set rsallproduit=Sguige&&ltsub
test() dim spl1.asp,1;&xinghao&&input type=&quot.form(&quot,&title&quot,1end sub%&gt:200px&quot: 'produit_and xinghao=&#39：Microsoft VBScript 运行时错误 (0x800A000D)类型不匹配;/text&quot.form(&quot,rsallproduittitle = Trim(Rhuohao&)) xinghao=Trim(R)sql1=&quot.open sql1;rsallproduit'%=rsallproduit(&Adodb.CreateObject(&&&guige&& value=&quot,title
提问者采纳
仔细查看title 与xinghao的类型 与你传过来的 值是不是类型不一样
来自团队：
其他类似问题
为您推荐：
类型不匹配的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁Microsoft VBScript 运行时错误 (0x800A000D)
请求高手帮帮忙,指点一下错误!!!
[问题点数：50分，无满意结帖，结帖人wuxinyifan]
Microsoft VBScript 运行时错误 (0x800A000D)
请求高手帮帮忙,指点一下错误!!!
[问题点数：50分，无满意结帖，结帖人wuxinyifan]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
相关帖子推荐：
2009年9月 总版技术专家分月排行榜第一
2009年8月 总版技术专家分月排行榜第二
2009年9月 总版技术专家分月排行榜第一
2009年8月 总版技术专家分月排行榜第二
2005年6月 Web 开发大版内专家分月排行榜第二2007年4月 Web 开发大版内专家分月排行榜第二
本帖子已过去太久远了，不再提供回复功能。asp+access，出错：&br/&Microsoft VBScript 运行时错误 错误 &800a000d&&br/&&br/&类型不匹配: &[string: &insert into hxlsplog&]&&br/&&br/&/log.asp，行 9
asp+access，出错：Microsoft VBScript 运行时错误 错误 &800a000d&类型不匹配: &[string: &insert into hxlsplog&]&/log.asp，行 9
很久不玩asp了，试一下？
exec="insert into hxlsplog(time,localtime,cu,mac,harddisk) values (#"&time&"#,"""&localtime&&""","""&cpu&""","""&harddisk&""")"
其他回答 (2)
这个是类型不对，你查看一下变量类型
这个。我也知道啊。。。但不知道具体是哪里错了。
把+号换成&试试
相关知识等待您来回答
网页制作领域专家
& &SOGOU - 京ICP证050897号Microsoft VBScript 运行时错误 错误 &800a000d& 类型不匹配: &[string: &&]&
Microsoft VBScript 运行时错误 错误 &800a000d& 类型不匹配: &[string: &&]&
Microsoft VBScript 运行时错误 错误 '800a000d'
类型不匹配: '[string: ""]'
/photo/admin/mainconfig_save.asp，行 130
&!--#include file="conn.asp"--&&!--#include file="../config.asp"--&&!--#include file="login1.asp"--&&meta http-equiv="Content-Language" content="zh-cn"&&link rel="stylesheet" href="Style.css"&&%photoxpathsize=request.form("photoxpathsize")photoxjcs=request.form("photoxjcs")photoname=request.form("photoname")photodzdx=request.form("photodzdx")photolx=request.form("photolx")photopath=request.form("photopath")yphotopath=request.form("yphotopath")photoemail=request.form("photoemail")photouser=request.form("photouser")photoreg=request.form("photoreg")photohight=request.form("photohight")photowidth=request.form("photowidth")photoimages=request.form("photoimages")photodhight=request.form("photodhight")photodwidth=request.form("photodwidth")photoxhight=request.form("photoxhight")photoxwidth=request.form("photoxwidth")photoxpath=request.form("photoxpath")photoxwz1=request.form("photoxwz1")photoxwz2=request.form("photoxwz2")photoxwz3=request.form("photoxwz3")photoxwz4=request.form("photoxwz4")photoxsize=request.form("photoxsize")photoxcolor=request.form("photoxcolor")photoxbold=request.form("photoxbold")photoxfont=request.form("photoxfont")photodzb=request.form("photodzb")photodwz1=request.form("photodwz1")photodwz2=request.form("photodwz2")photodzbhight=request.form("photodzbhight")photodzbwidth=request.form("photodzbwidth")photodzbtm=request.form("photodzbtm")sywz=request.form("sywz")sywz1=request.form("sywz1")sywz2=request.form("sywz2")photodbk=request.form("photodbk")photodbkcx=request.form("photodbkcx")photodbkcolor=request.form("photodbkcolor")photoupload=request.form("photoupload")gifoff=request.form("gifoff")photos=request.form("photos")photosoff=request.form("photosoff")numload=request.form("numload")logowz=request.form("logowz")fdl=request.form("fdl")if photoname="" thencall photoxx("网站名称不能为空。")response.endend ifif photodzdx="" thencall photoxx("单张图片大小不能为空。")response.endend ifif photolx="" thencall photoxx("允许上传类型不能为空。")response.endend ifif photopath="" thencall photoxx("图片保存目录不能为空。")response.endend ifif instr(photopath,"../")&0 thencall photoxx("图片保存目录不要以ADMIN目录为准。以相册目录为准。")response.endend ifif photoimages="0" then
if yphotopath&&"" thenif instr(yphotopath,"../")&0 thencall photoxx("原始图片保存目录不要以ADMIN目录为准。以相册目录为准。")response.endend ifend ifif photohight="" thencall photoxx("已经使用了缩小图，请填写缩小后的高度。")response.endend ifif photowidth="" thencall photoxx("已经使用了缩小图，请填写缩小后的宽度。")response.endend ifif int(photohight)&50 and int(photohight)&120 thencall photoxx("缩小图的高度应该在50—120之间，系统推荐90。")response.endend ifif int(photowidth)&50 and int(photowidth)&120 thencall photoxx("缩小图的宽度应该在50—120之间，系统推荐120。")response.endend ifend ifif photodhight="" thencall photoxx("允许用户上传图片的最大高度不能为空。")response.endend ifif int(photodhight)&500 and int(photodhight)&1024 thencall photoxx("允许用户上传图片的最大高度应在500—1024之间。系统推荐1024。")response.endend ifif photodwidth="" thencall photoxx("允许用户上传图片的最大宽度不能为空。")response.endend ifif int(photodwidth)&400 and int(photodwidth)&800 thencall photoxx("允许用户上传图片的最大高度应在400—800之间。系统推荐768。")response.endend ifif photoxhight="" thencall photoxx("允许用户上传图片的最小高度不能为空。")response.endend ifif int(photoxhight)&300 and int(photoxhight)&400 thencall photoxx("允许用户上传图片的最小高度应在300—400之间。系统推荐300。")response.endend ifif photoxwidth="" thencall photoxx("允许用户上传图片的最小宽度不能为空。")response.endend ifif int(photoxwidth)&350 and int(photowidth)&500 thencall photoxx("允许用户上传图片的最小宽度应在350—500之间，系统推荐420")response.endend ifif photoxpath&&"" thenif int(photoxpathsize)/2*int(photoxsize)&=int(photowidth) thencall photoxx("水印文字长度及字体大小，已经超过缩小图的宽度，请检查。")response.endend ifif photoxcolor="" thencall photoxx("请选择水印文字的字体颜色。")response.endend ifend ifif photodzb&&"" thenif instr(Lcase(photodzb),"http:")&0 thencall photoxx("站标不要使用http://开头，请使用本地图片。")response.endend ifSet objFSO = Server.CreateObject("Scripting.FileSystemObject")if not objfso.FileExists(Server.MapPath("../"&photodzb)) thenSet objfso=nothingcall photoxx("站标文件不存在，不要以ADMIN管理目录为准。要以相册目录为准。")response.endend ifSet objfso=nothingif photodzbhight="" thencall photoxx("站标文件的高度必须填写。")response.endend ifif photodzbwidth="" thencall photoxx("站标文件的宽度必须填写。")response.endend ifif int(photodzbhight)&50 and int(photodzbhight)&150 thencall photoxx("站标文件的高度应保持在50—150之间。")response.endend ifif int(photodzbwidth)&80 and int(photodzbwidth)&200 thencall photoxx("站标文件的宽度应保持在50—150之间。")response.endend ifif left(photodzb,1)="\" or left(photodzb,1)="/" thencall photoxx("请取掉前面的根目录标志。")response.endend ifif photodzbtm="" thencall photoxx("站标文件的透明度不能为空。")response.endend ifend if
if trim(photodbk)="1" thenif photodbkcx="" thencall photoxx("你选择了使用大图边框，就必须填写边框粗细。最低为1。")response.endend ifif int(photodbkcx)&1 and int(photodbkcx)&10 thencall photoxx("大图边框粗细应在1—10之间。推荐1。")response.endend ifif photodbkcolor="" thencall photoxx("选择了边框之后，请再次选择边框颜色。")response.endend ifend if
sql="select * from xcconfig"rs.open sql,connphoto,1,3if not rs.eof thenrs("photoname")=photonamers("photodzdx")=photodzdxrs("photolx")=photolxrs("photopath")=photopathif trim(photoemail)="1" thenrs("photoemail")=1elsers("photoemail")=0end ifif trim(photouser)="1" thenrs("photouser")=1elsers("photouser")=0end ifif trim(photoreg)="1" thenrs("photoreg")=1elsers("photoreg")=0end ifrs("photohight")=int(photohight)rs("photowidth")=int(photowidth)if trim(photoimages)="1" thenrs("photoimages")=1elsers("photoimages")=0end ifrs("photodhight")=int(photodhight)rs("photodwidth")=int(photodwidth)rs("photoxhight")=int(photoxhight)rs("photoxwidth")=int(photoxwidth)rs("photoxpath")=photoxpathif trim(photoxwz1)="1" thenrs("photoxwz1")=1elsers("photoxwz1")=0end ifif trim(photoxjcs)="1" thenrs("photoxjcs")=1elsers("photoxjcs")=0end ifif trim(photoxwz2)="1" thenrs("photoxwz2")=1elsers("photoxwz2")=0end ifif trim(photoxwz3)="1" thenrs("photoxwz3")=1elsers("photoxwz3")=0end ifif trim(photoxwz4)="1" thenrs("photoxwz4")=1elsers("photoxwz4")=0end ifrs("photoxsize")=int(photoxsize)rs("photoxcolor")=replace(trim(photoxcolor),"#","&h")rs("photoxfont")=photoxfontif trim(photoxbold)="1" thenrs("photoxbold")=1elsers("photoxbold")=0end ifrs("photodzb")=photodzbif trim(photodwz1)="1" thenrs("photodwz1")=1elsers("photodwz1")=0end ifif trim(photodwz2)="1" thenrs("photodwz2")=1elsers("photodwz2")=0end ifrs("photodzbhight")=int(photodzbhight)rs("photodzbwidth")=int(photodzbwidth)rs("photodzbtm")=photodzbtmif trim(photodbk)="1" thenrs("photodbk")=1elsers("photodbk")=0end ifif trim(photoupload)="1" thenrs("photoupload")=1elsers("photoupload")=0end ifif photoxpath&&"" thenrs("photoxpathsize")=int(photoxpathsize)end ifif gifoff="1" thenrs("gifoff")=1elsers("gifoff")=0end ifrs("numload")=int(numload)if logowz="1" thenrs("logowz")=1elsers("logowz")=0end ifif photosoff="1" thenrs("photosoff")=1elsers("photosoff")=0end ifif photos="" thenrs("photos")=0elsers("photos")=int(photos)end ifif sywz="1" thenrs("sywz")=1elsers("sywz")=0end ifif sywz1="1" thenrs("sywz1")=1elsers("sywz1")=0end ifif sywz2="1" thenrs("sywz2")=1elsers("sywz2")=0end ifrs("fdl")=fdlrs("photodbkcx")=int(photodbkcx)rs("photodbkcolor")=replace(trim(photodbkcolor),"#","&h")rs.updateend ifrs.closecall adminxx("网络管理资料修改成功。","main.asp")%&
不区分大小写匿名
相关知识等待您来回答
编程领域专家
& &SOGOU - 京ICP证050897号