diary_editdo.asp

来自「不错的ASP整站源代码。在IIS环境下运行都没有问题」· ASP 代码 · 共 28 行

<!--#include File="../conn.asp"-->
<!--#include file="../article/inc/articlechar.inc"-->
<%	
	DiaryID =	Request.QueryString("ID")
	If DiaryID = "" Then DiaryID=0
	
	Set Rs	=	Server.CreateObject("ADODB.RecordSet")
	SQLStr	=	"Select * From Diary Where AccountID = " & cint(Session("u_id")) & " And ID=" & DiaryID
	Rs.Open SQLStr,conn,2,2
	
	If Request.QueryString("Mod") = "Add" Then
		Rs.AddNew
		Rs("AccountID")	= Session("u_id")
	End If
	
	Rs("Topic")		= htmlencode2(Request.Form("Topic"))
	Rs("Weather")		= htmlencode2(Request.Form("Weather"))
	Rs("Mood")		= htmlencode2(Request.Form("Mood"))
	Rs("Body")		= htmlencode2(Request.Form("Body"))
	Rs.Update
	
	If Request.QueryString("Mod") = "Add" Then
		Response.Redirect ("list_diary.asp?AccountID=" & Session("u_id") )
	Else
		Response.Redirect ("H_Diary_Show.asp?ID=" & DiaryID & "&AccountID=" & Session("u_id") )
	End If
	
%>