UC知道asp错误帮我看
来源：百度知道 编辑：UC知道 时间：2024/07/07 23:04:09
<!--#include file="../conndb.asp"-->
<!--#include file="isAdmin.asp"-->
<html>
<head>
<title>地域管理</title>
</head>
<body>
<%
Dim StrAction
Dim rs
Set rs = Server.CreateObject("ADODB.RecordSet")
'得到动作参数，如果为add则表示创建地域，如果为update则表示更改地域
StrAction = Request.QueryString("action")
'取得地域题目和内容和提交人用户名
TypeId = Trim(Request("slt"))
Title = Trim(Request("title"))
If StrAction="add" Then
'判断此地域名称载此类型中是否存在
sql = "Select * From Area Where TypeId="&Cint(TypeId)&" And AreaName='"&Title&"'"
Set rs = Conn.Execute(sql)
If rs.EOF Then
'在数据库表Area中插入新地域信息
sql = "Insert into Area(AreaName,TypeId) Values('"&Title&"',"&Cint(TypeId)&")"
Conn.Execute(sql)
<!--#include file="isAdmin.asp"-->
<html>
<head>
<title>地域管理</title>
</head>
<body>
<%
Dim StrAction
Dim rs
Set rs = Server.CreateObject("ADODB.RecordSet")
'得到动作参数，如果为add则表示创建地域，如果为update则表示更改地域
StrAction = Request.QueryString("action")
'取得地域题目和内容和提交人用户名
TypeId = Trim(Request("slt"))
Title = Trim(Request("title"))
If StrAction="add" Then
'判断此地域名称载此类型中是否存在
sql = "Select * From Area Where TypeId="&Cint(TypeId)&" And AreaName='"&Title&"'"
Set rs = Conn.Execute(sql)
If rs.EOF Then
'在数据库表Area中插入新地域信息
sql = "Insert into Area(AreaName,TypeId) Values('"&Title&"',"&Cint(TypeId)&")"
Conn.Execute(sql)
sql = "Select * From Area Where TypeId="&Cint(TypeId)&" And AreaName='"&Title&"'"
楼主请仔细检查下 SQL语句
TypeId="&Cint(TypeId)&" 这里有错误
如果Cint(TypeId)传过来的数值是字符型的话
用单引号+引号+连字符 表起来
'"&Cint(TypeId)&" '
这样两边数据类型才匹配，随便检查一下其他的
[Microsoft][ODBC SQL Server Driver][SQL Server]第 1 行: '=' 附近有语法错误。
/travel/admin/AreaSave.asp, 第 34 行
是使用SQL数据库的经常出现的错误,一般都是错在SQL语句上,请
用\response.write sql
response.end
读出sql然后去数据库里执行一下.