categorysave.asp

一个简单ASP+ACCESS博客程序Simple Blog v1.2 。ASP虽然有些老了

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="conn.asp"-->

<%
Response.Charset = "utf-8"
Dim catName, catDesc, catID
Dim act
Dim sql, rs
Dim responseData
responseData = "Error"
act = Request.QueryString("act")
If act = "new" or act="save" Then
	'rs = Server.CreateObject("ADODB.Recordset")
	
	If act = "new" Then
	catName = Request.Form("catName")
	catDesc = Request.Form("catDesc")
	
		If Len(catName) <=0 Then
			responseData = "{""action"":""new"", ""state"": ""false"", ""error"":""Category name has not been specified.""}"
		Else
			catName = Replace(catName, "'", "''")
			catDesc = Replace(catDesc, "'", "''")
			On Error Resume Next
			sql = "INSERT INTO categories (cat_name, cat_desc) VALUES ('" + catName + "', '" + catDesc + "')"
			conn.execute sql
			If Len(cStr(Err.description)) > 0 Then
			responseData = "{""action"":""new"", ""state"": ""false"", ""error"":""[" + Err.Description + "]""}"
			Else
			responseData = "{""action"":""new"", ""state"": ""true""}"
			End IF
		End If
	End If ' new
End if


Response.Write(responseData)
%>