在传统的Web开发模式中,用户提交表单意味着整个页面的刷新,这种体验在2026年的互联网环境下显得过于陈旧,用户期望的是丝滑的交互,就像即时通讯软件那样,发送消息后页面不动,只有内容更新,Ajax(Asynchronous JavaScript and XML)正是解决这一痛点的关键技术,虽然XML已逐渐被JSON取代,但Ajax作为异步通信的代名词,依然活跃在各类Web应用中,对于使用ASP(Active Server Pages)作为后端技术的系统,尤其是那些基于经典ASP或早期ASP.NET Legacy Code的项目,掌握Ajax数据交互依然具有重要的维护价值和实战意义。
<%
Option Explicit
Response.ContentType = "application/json"
Dim name, age, conn, rs, sql, result
' 获取参数
name = Trim(Request.Form("name"))
age = Trim(Request.Form("age"))
' 基本验证
If name = "" Or age = "" Then
Response.Write "{""success"": false, ""message"": ""参数不能为空""}"
Response.End
End If
' 类型检查
If Not IsNumeric(age) Then
Response.Write "{""success"": false, ""message"": ""年龄必须是数字""}"
Response.End
End If
' 数据库连接与插入逻辑
' 注意:实际生产中应使用参数化查询防止SQL注入
' 此处仅为示例,展示基本流程
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|mydb.mdb"
' 使用参数化查询是最佳实践,但经典ASP中实现较繁琐
' 简单示例:
sql = "INSERT INTO Users (UserName, UserAge) VALUES ('" & Replace(name, "'", "''") & "', " & CLng(age) & ")"
On Error Resume Next
conn.Execute sql
If Err.Number = 0 Then
result = "{""success"": true, ""message"": ""插入成功""}"
Else
result = "{""success"": false, ""message"": ""数据库错误: "" & Err.Description}"
End If
conn.Close
Set conn = Nothing
Response.Write result
%>