tgrevise1.asp

大家好

 <%@ LANGUAGE="VBSCRIPT"%>
<%

biaoti=request("biaoti")
fbiaoti=request("fbiaoti")
bm=request("bm")
mail=request("mail")
fenlei=request("fenlei")
text1=replace(request("text1"),vbcrlf,"<br>")
xm=request("xm")
dianhua=request("dianhua")
dizhi=request("dizhi")
youbian=request("youbian")


if text1="  "  then
	response.write "请您填写文章内容！"
	response.end
end if

set conn=server.createObject("ADODB.Connection")
dbpath=server.mappath("lovelife.mdb")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&dbpath
set rs=server.createobject("ADODB.Recordset")
rs.LockType=2
sqlstr="select * from loveshenghuo where id="&request("id")
rs.open sqlstr,conn
if rs.eof then
	response.write "end"
end if
if request("submit2")<> "" then
	rs.delete
else
rs.delete
rs.close

if text1=""  then
	response.write "请您填写文章内容！"
	response.end
end if

set conn=server.createObject("ADODB.Connection")
dbpath=server.mappath("lovelife.mdb")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&dbpath
set rs=server.createobject("ADODB.Recordset")
rs.open "loveshenghuo",conn,2,2
rs.addnew
rs("biaoti")=biaoti
rs("fbiaoti")=fbiaoti
rs("bm")=bm
rs("mail")=mail
rs("fenlei")=fenlei
rs("text")=text1
rs("xm")=xm
rs("dianhua")=dianhua
rs("dizhi")=dizhi
rs("youbian")=youbian
rs.update
set conn=nothing

end if
%>

<script language=javascript>
<!--
	alert("修改成功！");
	for(i=0;i<10000;i++);
	window.location.href="default.asp"
//-->
</script>