急，数据保存问题

[shine2000]

我提交了一个表单过后，总是不能正常运行下面的代码
前面包括了这一行<!--#include file="../../includes/keepHouse.asp"-->
<%

dim Person_name,Department,Work_content,Plan_time
Person_name=request("Person_name")
Department=request("Department")
Work_content=request("Work_content")
Plan_time=request("Plan_time")
sql= "insert into Workplan(Person_name,Department,Work_content,Plan_time) values('&Person_name&','&Department&','&Work_content&','&Plan_time&')"
call openDB()
conn.Execute(sql)
call closeDB()
response.write "<h2 align='center'>您的工作计划是：</h2>"
response.write "<p> " & Work_content
response.write "<p>计划用时:" & Plan_time &"小时"

%>
</body>
－－－－－－－－－－－－－－－－－－－－
keepHouse.asp 的一些代码
dim sql
dim rs
dim conn
sub openDB()
set conn=server.createobject("ADODB.Connection")
conn.open"Driver={SQL Server};"_
&"Server=localhost;" _
&"Database=WebOffice;" _
&"Uid=sa;" _
&"Pwd="
set rs=server.createobject("ADODB.Recordset")
end sub
sub closeDB()
If IsObject(conn) Then
if not(conn is nothing) then
set rs=nothing
conn.close
set conn=nothing
end if
End If
end sub

[jervis82]

出错提示呢？

[comflyer0590]

是啊 出错怎么说的？

[shine2000]

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e57'

[Microsoft][ODBC SQL Server Driver][SQL Server]将截断字符串或二进制数据。

/MyTools/Workplan/Comptask.asp，行19

[xinyuan_z]

建表的时候,把字段的长度再设大点就OK,

[webassassin]

超过字段范围了

一是可以把字段长度改大一些
二是在提交的时候可以判断一下它的长度，如超过指定长度则给出提示

[会织网的蚂蚁]

可能的原因有以下，第一您的if 没有endif，前后不对应，第二，您的数据库类型有误，不支持您保存的数据。

[comflyer0590]

出错原因应该是webassassin(刺客)所列二者之一了。

[shine2000]

现在可以保存了，但为什么在数据库表中保存的都是这样的内容&Person_name&而不是真正输入的内容啊！