更新文件代码: 望5D同志帮忙
<%
title=request.form("title")
content=request.form("content")
id=Request.QueryString("id")
sign=request.form("sign1")
if len(sign)<1 then
Set dbLink=Server.CreateObject("ADODB.Connection")
dbLink.mode=3
dbLink.Open strp
Set rs=Server.CreateObject ("ADODB.Recordset")
rs.locktype=1
rs.cursortype=0
rs.open "SELECT * FROM news WHERE ID="&id,dbLink
%>

标题 "> 内容 <%=rs.fields("content")%>

<% else
Set dbLink=Server.CreateObject("ADODB.Connection")
dbLink.mode=3
dbLink.Open strp
Set rs=Server.CreateObject ("ADODB.Recordset")
rs.locktype=3
rs.cursortype=0
rs.open "SELECT * FROM news WHERE id="&request.Form("id"),dbLink
if rs.eof then response.write ("")
rs("title")=request.form("title")
rs("content")=request.form("content")
rs.Update
rs.close
dbLink.close
response.redirect "index.asp"
end if
%>