UC知道add.asp 缺少 'End'
来源：百度知道 编辑：UC知道 时间：2024/05/28 12:40:35
<!-- #include file="conn.asp" -->
<%
dim sql
dim xm,gz,djzw,sj,sfz,zz,jl
Function SqlStr(data)
SqlStr = "'" & Replace(data,"'","''") & "'"
End Function
xms=request.form("xm")
if xms="" then
Response.Redirect "error.asp?errmsg=您的姓名都没写"
' response.end
end if
xms=sqlstr(xm)
gzs=request.form("gz")
if gzs="" then
Response.Redirect "error.asp?errmsg=您的工种没写"
' response.end
end if
gzs=sqlstr(gz)
djzws=request.form("djzw")
if djzws="" then
Response.Redirect "error.asp?errmsg=您何时获等级职务没写"
' response.end
end if
djzws=sqlstr(djzw)
sjs=request.form("sj")
if sjs="" then
Response.Redirect "err
<%
dim sql
dim xm,gz,djzw,sj,sfz,zz,jl
Function SqlStr(data)
SqlStr = "'" & Replace(data,"'","''") & "'"
End Function
xms=request.form("xm")
if xms="" then
Response.Redirect "error.asp?errmsg=您的姓名都没写"
' response.end
end if
xms=sqlstr(xm)
gzs=request.form("gz")
if gzs="" then
Response.Redirect "error.asp?errmsg=您的工种没写"
' response.end
end if
gzs=sqlstr(gz)
djzws=request.form("djzw")
if djzws="" then
Response.Redirect "error.asp?errmsg=您何时获等级职务没写"
' response.end
end if
djzws=sqlstr(djzw)
sjs=request.form("sj")
if sjs="" then
Response.Redirect "err
sql=sql & xm & \",\" & gz & \",\" & djzw & \",\" & sj & \",\" & sfz & \",\" & zz & \",\" & jl & \")\"
这里面几个变量前面没有,前面只有xms,gzs……
把SQL语句改成
sql="insert into users(xm,gz,djzw,sj,sfz,zz,jl) values('"
sql=sql & xm & "','" & gz & "','" & djzw & "','" & sj & "','" & sfz & "','" & zz & "','" & jl & "')"
你好好看看 如果字段类型是字符的话 那你添家的数值外面还要加''
同意楼上的