當前位置：編程學習大全網 - 編程語言 - ASP編程中的類型不匹配問題，求助。

ASP編程中的類型不匹配問題，求助。

ASP編程中的類型不匹配問題，求助。

懸賞分：10 - 離問題結束還有 14 天 23 小時

<%

Option Explicit

If session("admin")<>"ok" Then

response.redirect"index.asp"

End If

Dim Id,zdmingcheng,Address,Name,Title,Tel1,Tel2,khleixing,Demo

Id=request.querystring("Id")

If Id="" Then

Dim strJS

strJS=strJS+"<script language='javascript'>"

strJS=strJS+"alert('頁面參數不正確，請返回！');"

strJS=strJS+"location.href='main.asp';"

strJS=strJS+"</script>"

response.write strJS

End If

%>

<!--#include file="conn.asp"-->

<%

Dim objRS,strSQL

set objRS=Server.createobject("adodb.recordset")

strSQL="select * from customer where Id="&Id

objRS.Open strSQL,objConn,1,3

zdmingcheng=objRS("zdmingcheng")

Address=objRS("Address")

Name=objRS("Name")

Title=objRS("Title")

Tel1=objRS("Tel1")

Tel2=objRS("Tel2")

khleixing=objRS("khleixing")

Demo=objRS("Demo")

objRS.Close

objConn.Close

%>

<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<meta name="GENERATOR" content="Microsoft FrontPage 6.0">

<meta name="ProgId" content="FrontPage.Editor.Document">

<title>邢臺嘉禾啤酒客戶關系管理系統V1.0</title>

<style type="text/css">

td{font-size:10pt;font-family:宋體;color:#000000;height:30px}

textarea,input{border-top:1 solid #cccccc;border-left:1 solid #cccccc;}

</style>

<script language="javascript">

function check(f){

var f1=f.zdmingcheng.value;

if(!f1){

alert("請輸入終端客戶名稱！");

f.zdmingcheng.focus();

return false;

}

var f2=f.Tel1.value;

if(!f2){

alert("請輸入該客戶的聯系電話！");

f.Tel1.focus();

return false;

}

return true;

}

</script>

</head>

。。。。。。。

<tr>

105行 <td width="14%" align="center" bgcolor="#D4D0C8">聯 系 人</td>

106行 <td width="45%" align="left"> <input type="text" name="Name" style="width:100px" value="<%Name%>" ></td>

107行 <td width="16%" align="center" bgcolor="#D4D0C8" height="45">業務代表</td>

<td width="25%" align="left"><select size="1" name="D4"></select></td>

</tr>

出錯報告：

錯誤類型：

Microsoft VBScript 運行時錯誤 (0x800A000D)

類型不匹配

/editcustomer.asp, 第 106 行

請高手幫忙ASP編程中的類型不匹配問題，求助。

懸賞分：10 - 離問題結束還有 14 天 23 小時

<%

Option Explicit

If session("admin")<>"ok" Then

response.redirect"index.asp"

End If

Dim Id,zdmingcheng,Address,Name,Title,Tel1,Tel2,khleixing,Demo

Id=request.querystring("Id")

If Id="" Then

Dim strJS

strJS=strJS+"<script language='javascript'>"

strJS=strJS+"alert('頁面參數不正確，請返回！');"

strJS=strJS+"location.href='main.asp';"

strJS=strJS+"</script>"

response.write strJS

End If

%>

<!--#include file="conn.asp"-->

<%

Dim objRS,strSQL

set objRS=Server.createobject("adodb.recordset")

strSQL="select * from customer where Id="&Id

objRS.Open strSQL,objConn,1,3

zdmingcheng=objRS("zdmingcheng")

Address=objRS("Address")

Name=objRS("Name")

Title=objRS("Title")

Tel1=objRS("Tel1")

Tel2=objRS("Tel2")

khleixing=objRS("khleixing")

Demo=objRS("Demo")

objRS.Close

objConn.Close

%>

<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<meta name="GENERATOR" content="Microsoft FrontPage 6.0">

<meta name="ProgId" content="FrontPage.Editor.Document">

<title>邢臺嘉禾啤酒客戶關系管理系統V1.0</title>

<style type="text/css">

td{font-size:10pt;font-family:宋體;color:#000000;height:30px}

textarea,input{border-top:1 solid #cccccc;border-left:1 solid #cccccc;}

</style>

<script language="javascript">

function check(f){

var f1=f.zdmingcheng.value;

if(!f1){

alert("請輸入終端客戶名稱！");

f.zdmingcheng.focus();

return false;

}

var f2=f.Tel1.value;

if(!f2){

alert("請輸入該客戶的聯系電話！");

f.Tel1.focus();

return false;

}

return true;

}

</script>

</head>

。。。。。。。

<tr>

105行 <td width="14%" align="center" bgcolor="#D4D0C8">聯 系 人</td>

106行 <td width="45%" align="left"> <input type="text" name="Name" style="width:100px" value="<%Name%>" ></td>

107行 <td width="16%" align="center" bgcolor="#D4D0C8" height="45">業務代表</td>

<td width="25%" align="left"><select size="1" name="D4"></select></td>

</tr>

出錯報告：

錯誤類型：

Microsoft VBScript 運行時錯誤 (0x800A000D)

類型不匹配

/editcustomer.asp, 第 106 行

請高手幫忙ASP編程中的類型不匹配問題，求助。

懸賞分：10 - 離問題結束還有 14 天 23 小時

<%

Option Explicit

If session("admin")<>"ok" Then

response.redirect"index.asp"

End If

Dim Id,zdmingcheng,Address,Name,Title,Tel1,Tel2,khleixing,Demo

Id=request.querystring("Id")

If Id="" Then

Dim strJS

strJS=strJS+"<script language='javascript'>"

strJS=strJS+"alert('頁面參數不正確，請返回！');"

strJS=strJS+"location.href='main.asp';"

strJS=strJS+"</script>"

response.write strJS

End If

%>

<!--#include file="conn.asp"-->

<%

Dim objRS,strSQL

set objRS=Server.createobject("adodb.recordset")

strSQL="select * from customer where Id="&Id

objRS.Open strSQL,objConn,1,3

zdmingcheng=objRS("zdmingcheng")

Address=objRS("Address")

Name=objRS("Name")

Title=objRS("Title")

Tel1=objRS("Tel1")

Tel2=objRS("Tel2")

khleixing=objRS("khleixing")

Demo=objRS("Demo")

objRS.Close

objConn.Close

%>

<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<meta name="GENERATOR" content="Microsoft FrontPage 6.0">

<meta name="ProgId" content="FrontPage.Editor.Document">

<title>邢臺嘉禾啤酒客戶關系管理系統V1.0</title>

<style type="text/css">

td{font-size:10pt;font-family:宋體;color:#000000;height:30px}

textarea,input{border-top:1 solid #cccccc;border-left:1 solid #cccccc;}

</style>

<script language="javascript">

function check(f){

var f1=f.zdmingcheng.value;

if(!f1){

alert("請輸入終端客戶名稱！");

f.zdmingcheng.focus();

return false;

}

var f2=f.Tel1.value;

if(!f2){

alert("請輸入該客戶的聯系電話！");

f.Tel1.focus();

return false;

}

return true;

}

</script>

</head>

。。。。。。。

<tr>

105行 <td width="14%" align="center" bgcolor="#D4D0C8">聯 系 人</td>

106行 <td width="45%" align="left"> <input type="text" name="Name" style="width:100px" value="<%Name%>" ></td>

107行 <td width="16%" align="center" bgcolor="#D4D0C8" height="45">業務代表</td>

<td width="25%" align="left"><select size="1" name="D4"></select></td>

</tr>

出錯報告：

錯誤類型：

Microsoft VBScript 運行時錯誤 (0x800A000D)

類型不匹配

/editcustomer.asp, 第 106 行

請高手幫忙ASP編程中的類型不匹配問題，求助。

懸賞分：10 - 離問題結束還有 14 天 23 小時

<%

Option Explicit

If session("admin")<>"ok" Then

response.redirect"index.asp"

End If

Dim Id,zdmingcheng,Address,Name,Title,Tel1,Tel2,khleixing,Demo

Id=request.querystring("Id")

If Id="" Then

Dim strJS

strJS=strJS+"<script language='javascript'>"

strJS=strJS+"alert('頁面參數不正確，請返回！');"

strJS=strJS+"location.href='main.asp';"

strJS=strJS+"</script>"

response.write strJS

End If

%>

<!--#include file="conn.asp"-->

<%

Dim objRS,strSQL

set objRS=Server.createobject("adodb.recordset")

strSQL="select * from customer where Id="&Id

objRS.Open strSQL,objConn,1,3

zdmingcheng=objRS("zdmingcheng")

Address=objRS("Address")

Name=objRS("Name")

Title=objRS("Title")

Tel1=objRS("Tel1")

Tel2=objRS("Tel2")

khleixing=objRS("khleixing")

Demo=objRS("Demo")

objRS.Close

objConn.Close

%>

<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<meta name="GENERATOR" content="Microsoft FrontPage 6.0">

<meta name="ProgId" content="FrontPage.Editor.Document">

<title>邢臺嘉禾啤酒客戶關系管理系統V1.0</title>

<style type="text/css">

td{font-size:10pt;font-family:宋體;color:#000000;height:30px}

textarea,input{border-top:1 solid #cccccc;border-left:1 solid #cccccc;}

</style>

<script language="javascript">

function check(f){

var f1=f.zdmingcheng.value;

if(!f1){

alert("請輸入終端客戶名稱！");

f.zdmingcheng.focus();

return false;

}

var f2=f.Tel1.value;

if(!f2){

alert("請輸入該客戶的聯系電話！");

f.Tel1.focus();

return false;

}

return true;

}

</script>

</head>

。。。。。。。

<tr>

105行 <td width="14%" align="center" bgcolor="#D4D0C8">聯 系 人</td>

106行 <td width="45%" align="left"> <input type="text" name="Name" style="width:100px" value="<%Name%>" ></td>

107行 <td width="16%" align="center" bgcolor="#D4D0C8" height="45">業務代表</td>

<td width="25%" align="left"><select size="1" name="D4"></select></td>

</tr>

出錯報告：

錯誤類型：

Microsoft VBScript 運行時錯誤 (0x800A000D)

類型不匹配

/editcustomer.asp, 第 106 行

請高手幫忙

  • 上一篇:廣東省國防科技技師專業？
  • 下一篇:機械行業 CNC 是什麽意思
    • 相关文章
  • 教案怎麽寫？
  • JAVA的課程體系是什麽？誰能具體點！
  • 請復制壹偏壹千字以上的計算機專業畢業論文
  • 少兒編程對未來IT企業的影響
  • 答辯評語怎麽寫
  • 2015年山西省運城市臨猗縣事業單位招聘135人考試公告
  • 適合初中生的社團活動
    • copyright 2024編程學習大全網