do2.asp

来自「主要版块有：日记」· ASP 代码 · 共 38 行

<!--#include file="conn.asp" -->
<!--#include file="ubbcode.asp" -->
<%
'************************* 乱了心情日记本 V3.0 **********************
'乱了心情日记本 V3.0
'本程序由阿度（MouDu）独立编写制作，免费提供给个人用户使用！
'若要作为商业用途，请事先与本人联系！否则将追究责任！
'本程序图片均来自网络，若有侵权请与本人联系，将尽快解决！
'如果你有创业想法，并有兴趣合作的话,请加我QQ 112446228.
'有问题请EMAIL至：[e-mail] 或者加QQ 112446228
'请关注：www.moudu.com以得到技术支持！
'*********************************************************************
if session("admin")<>"1" then
Response.Write("<center><font color=red>你没有登陆！请〈a href=login.asp>登陆</a>！或者<a href=index.asp>返回首页</a>！</font></center>")
response.End()
end if
id=Trim(Request.Form("id"))
title=Trim(Request.Form("title"))
tianqi=Trim(Request.Form("tianqi"))
XQ=Trim(Request.Form("XQ"))
content=request.form("content")
set rs=server.CreateObject("adodb.recordset")
sql="select * from dairy where id="&id
rs.open sql,conn,1,3
rs("title")=title
rs("tianqi")=tianqi
rs("content")=content
RS("XQ")=XQ
rs.update
rs.close
response.Redirect("index.asp")
%>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>