日期:2014-05-16 浏览次数:20802 次
<%
dim ConnString,Conn
ConnString="Driver={SQL Server};Server=(Local);UID=sa;PWD=;Database=web;"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open ConnString
dim sqlUpdateMessage,msg,Rec3
msg="你你你"
sqlUpdateMessage="update MessageBoard set message='"&msg&"' where emID='1111'"
Set Rec3 = Server.CreateObject("ADODB.Recordset")
Rec3.Open sqlUpdateMessage,Conn,1,3
Rec3.Close '这一行出问题,但是我查看表,msg的确写进表里了
Set Rec3=nothing
%>
<%
dim ConnString,Conn
ConnString="Driver={SQL Server};Server=(Local);UID=sa;PWD=;Database=web;"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open ConnString
dim sqlUpdateMessage,msg,Rec3
msg="你你你"
sqlUpdateMessage="update MessageBoard set message='"&msg&"' where emID='1111'"
Conn.execute sqlUpdateMessage
Conn.close
set Conn=nothing
%>