28,390
社区成员
发帖
与我相关
我的任务
分享
<%
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=sqloledb;" & "Data Source=127.0.0.1;Initial Catalog=db1;User Id=sa;Password=zzz123;"
conn.Open connstr
sql="select * from biao1"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3 '这个地方的1改成3,connstr改成conn
rs.addnew
rs("contents")=request.Form("text")
if request.Form("qqh")=1 then
rs("secrit")=1
else
rs("secrit")=0
rs.update
'rs.movenext 删除该行
set rs=nothing
%>
<form id="form1" name="form1" method="post" action="">
<label>
<textarea name="text" id="text"> </textarea>
</label>
<label>
<input name="qqh" type="checkbox" id="qqh" value="1" />
</label>
<label>
<input type="submit" name="Submit" value="提交" />
</label>
</form>