简体中文 繁體中文 English 日本語 Deutsch 한국 사람 بالعربية TÜRKÇE português คนไทย Français

开启辅助访问 切换到宽版

站内搜索

搜索

活动公告

通知：是的！我们正在计划一个大动作！
11-02 12:46
通知：Telegram 推送频道https://t.me/+2tB3a7aKXlw2YjA1 及时接收第一手论坛帖子信息～
10-23 09:32
通知：本站资源由网友上传分享，如有违规等问题请到版务模块进行投诉，将及时处理！
10-23 09:31
通知：加入QQ社群吧 https://qm.qq.com/q/QZibQd1hiq
10-23 09:28
通知：签到时间调整为每日4:00（东八区）
10-23 09:26
>社区 > 科技 > 经验交流 >帖子
本版发帖返回

ASP动态网页开发中创建数据库表的完整指南从基础语法到实际应用案例详解

威震华夏关云长

3万

主题

349

科技点

3万

积分

大区版主

木柜子打湿

积分
31898

三倍冰淇淋无人之境【一阶】财Doro小樱（小丑装）立华奏以外的星空【二阶】⑨的冰沙
发表于 2025-9-10 15:40:00 | 显示全部楼层 |阅读模式

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要 登录 才可以下载或查看，没有账号？立即注册

x
引言

ASP（Active Server Pages）是一种微软开发的服务器端脚本环境，用于创建动态交互式网页。在ASP开发中，数据库操作是核心功能之一，而创建数据库表是数据库操作的基础。无论是存储用户信息、产品数据还是其他业务数据，都需要通过数据库表来实现。本文将详细介绍在ASP动态网页开发中如何创建数据库表，从基础语法到实际应用案例，帮助开发者掌握这一重要技能。

ASP与数据库基础

在ASP中，通常使用ADO（ActiveX Data Objects）来连接和操作数据库。ADO是一种微软的技术，用于访问数据源。

连接数据库

在ASP中连接数据库通常需要创建一个连接对象，并使用连接字符串指定数据库的位置和访问方式。
  2. <%
  3. ' 创建连接对象
  4. Set conn = Server.CreateObject("ADODB.Connection")
  6. ' 定义连接字符串
  7. ' 对于Access数据库
  8. connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database.mdb")
  10. ' 对于SQL Server数据库
  11. ' connStr = "Provider=SQLOLEDB;Data Source=服务器名;Initial Catalog=数据库名;User ID=用户名;Password=密码"
  13. ' 打开连接
  14. conn.Open connStr
  15. %>
复制代码

执行SQL命令

一旦建立了数据库连接，就可以使用连接对象的Execute方法来执行SQL命令：
  2. <%
  3. ' 执行SQL命令
  4. sql = "SELECT * FROM Users"
  5. Set rs = conn.Execute(sql)
  7. ' 处理结果集...
  8. %>
复制代码

SQL基础语法

SQL（Structured Query Language）是用于管理关系数据库的标准语言。创建表的基本语法如下：
  2. CREATE TABLE table_name (
  3.     column1 datatype constraint,
  4.     column2 datatype constraint,
  5.     ...
  6. );
复制代码

例如，创建一个简单的用户表：
  2. CREATE TABLE Users (
  3.     UserID INT PRIMARY KEY,
  4.     UserName VARCHAR(50) NOT NULL,
  5.     UserEmail VARCHAR(100) UNIQUE,
  6.     UserPassword VARCHAR(50) NOT NULL,
  7.     RegistrationDate DATE DEFAULT GETDATE()
  8. );
复制代码

ASP中创建数据库表的方法

在ASP中，可以通过ADO对象执行SQL CREATE TABLE语句来创建数据库表。

基本方法
  2. <%
  3. ' 创建连接对象
  4. Set conn = Server.CreateObject("ADODB.Connection")
  6. ' 定义连接字符串
  7. connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database.mdb")
  9. ' 打开连接
  10. conn.Open connStr
  12. ' 定义创建表的SQL语句
  13. sql = "CREATE TABLE Users (" & _
  14.       "UserID COUNTER PRIMARY KEY, " & _
  15.       "UserName VARCHAR(50) NOT NULL, " & _
  16.       "UserEmail VARCHAR(100) UNIQUE, " & _
  17.       "UserPassword VARCHAR(50) NOT NULL, " & _
  18.       "RegistrationDate DATE DEFAULT NOW()" & _
  19.       ")"
  21. ' 执行SQL语句
  22. On Error Resume Next
  23. conn.Execute sql
  25. ' 检查是否出错
  26. If Err.Number <> 0 Then
  27.     Response.Write "创建表时出错: " & Err.Description
  28. Else
  29.     Response.Write "表创建成功!"
  30. End If
  32. ' 关闭连接
  33. conn.Close
  34. Set conn = Nothing
  35. %>
复制代码

使用参数化查询

虽然创建表通常不涉及用户输入，但为了代码的一致性和安全性，可以使用参数化查询的方式：
  2. <%
  3. ' 创建连接对象
  4. Set conn = Server.CreateObject("ADODB.Connection")
  6. ' 定义连接字符串
  7. connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database.mdb")
  9. ' 打开连接
  10. conn.Open connStr
  12. ' 定义创建表的SQL语句
  13. sql = "CREATE TABLE Products (" & _
  14.       "ID COUNTER PRIMARY KEY, " & _
  15.       "Name VARCHAR(50) NOT NULL, " & _
  16.       "Description MEMO, " & _
  17.       "CreatedDate DATE DEFAULT NOW()" & _
  18.       ")"
  20. ' 创建命令对象
  21. Set cmd = Server.CreateObject("ADODB.Command")
  22. cmd.ActiveConnection = conn
  23. cmd.CommandText = sql
  25. ' 执行命令
  26. On Error Resume Next
  27. cmd.Execute
  29. ' 检查是否出错
  30. If Err.Number <> 0 Then
  31.     Response.Write "创建表时出错: " & Err.Description
  32. Else
  33.     Response.Write "表创建成功!"
  34. End If
  36. ' 关闭连接
  37. conn.Close
  38. Set cmd = Nothing
  39. Set conn = Nothing
  40. %>
复制代码

注意：在实际应用中，表名通常不能作为参数传递，上面的代码仅作为演示。在实际开发中，应该直接在SQL语句中指定表名。

数据类型详解

在创建数据库表时，选择合适的数据类型非常重要。不同的数据库系统支持的数据类型可能有所不同，以下是一些常用的数据类型：

Access数据库常用数据类型

• TEXT或VARCHAR(n)：用于存储文本，n指定最大长度
• MEMO：用于存储长文本
• INTEGER或INT：用于存储整数
• COUNTER：自动增长的数字，通常用作主键
• SINGLE或DOUBLE：用于存储浮点数
• CURRENCY：用于存储货币值
• DATE/TIME：用于存储日期和时间
• YES/NO：用于存储布尔值
• OLE OBJECT：用于存储二进制数据

SQL Server常用数据类型

• CHAR(n)：固定长度的字符串
• VARCHAR(n)：可变长度的字符串
• TEXT：用于存储大量文本
• INT：整数
• BIGINT：大整数
• SMALLINT：小整数
• DECIMAL(p, s)：固定精度和小数位的数字
• FLOAT：浮点数
• BIT：布尔值
• DATETIME：日期和时间
• IMAGE：用于存储二进制数据

数据类型选择示例
  2. <%
  3. ' 创建连接对象
  4. Set conn = Server.CreateObject("ADODB.Connection")
  6. ' 定义连接字符串
  7. connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database.mdb")
  9. ' 打开连接
  10. conn.Open connStr
  12. ' 定义创建表的SQL语句，展示不同数据类型的使用
  13. sql = "CREATE TABLE Products (" & _
  14.       "ProductID COUNTER PRIMARY KEY, " & _
  15.       "ProductName VARCHAR(100) NOT NULL, " & _
  16.       "Description MEMO, " & _
  17.       "Price CURRENCY, " & _
  18.       "StockQuantity INT, " & _
  19.       "IsAvailable YES/NO DEFAULT True, " & _
  20.       "AddedDate DATE DEFAULT NOW(), " & _
  21.       "ProductImage OLE OBJECT" & _
  22.       ")"
  24. ' 执行SQL语句
  25. On Error Resume Next
  26. conn.Execute sql
  28. ' 检查是否出错
  29. If Err.Number <> 0 Then
  30.     Response.Write "创建表时出错: " & Err.Description
  31. Else
  32.     Response.Write "产品表创建成功!"
  33. End If
  35. ' 关闭连接
  36. conn.Close
  37. Set conn = Nothing
  38. %>
复制代码

约束与索引

约束和索引是数据库设计中的重要概念，它们可以保证数据的完整性和提高查询性能。

主键约束

主键是唯一标识表中每一行的列或列组合。一个表只能有一个主键。
  2. <%
  3. sql = "CREATE TABLE Customers (" & _
  4.       "CustomerID COUNTER CONSTRAINT PK_Customers PRIMARY KEY, " & _
  5.       "CustomerName VARCHAR(100) NOT NULL, " & _
  6.       "ContactName VARCHAR(100), " & _
  7.       "Address VARCHAR(200), " & _
  8.       "City VARCHAR(50), " & _
  9.       "PostalCode VARCHAR(20), " & _
  10.       "Country VARCHAR(50)" & _
  11.       ")"
  13. conn.Execute sql
  14. %>
复制代码

外键约束

外键用于建立两个表之间的链接，确保引用完整性。
  2. <%
  3. ' 先创建主表
  4. sql = "CREATE TABLE Categories (" & _
  5.       "CategoryID COUNTER CONSTRAINT PK_Categories PRIMARY KEY, " & _
  6.       "CategoryName VARCHAR(100) NOT NULL, " & _
  7.       "Description MEMO" & _
  8.       ")"
  9. conn.Execute sql
  11. ' 再创建从表，并添加外键约束
  12. sql = "CREATE TABLE Products (" & _
  13.       "ProductID COUNTER CONSTRAINT PK_Products PRIMARY KEY, " & _
  14.       "ProductName VARCHAR(100) NOT NULL, " & _
  15.       "CategoryID INT, " & _
  16.       "Description MEMO, " & _
  17.       "Price CURRENCY, " & _
  18.       "CONSTRAINT FK_Products_Categories FOREIGN KEY (CategoryID) REFERENCES Categories(CategoryID)" & _
  19.       ")"
  20. conn.Execute sql
  21. %>
复制代码

唯一约束

唯一约束确保列中的所有值都是唯一的。
  2. <%
  3. sql = "CREATE TABLE Users (" & _
  4.       "UserID COUNTER CONSTRAINT PK_Users PRIMARY KEY, " & _
  5.       "UserName VARCHAR(50) NOT NULL, " & _
  6.       "UserEmail VARCHAR(100) CONSTRAINT UQ_Users_UserEmail UNIQUE, " & _
  7.       "UserPassword VARCHAR(50) NOT NULL" & _
  8.       ")"
  9. conn.Execute sql
  10. %>
复制代码

检查约束

检查约束用于限制列中的值。
  2. <%
  3. sql = "CREATE TABLE Employees (" & _
  4.       "EmployeeID COUNTER CONSTRAINT PK_Employees PRIMARY KEY, " & _
  5.       "FirstName VARCHAR(50) NOT NULL, " & _
  6.       "LastName VARCHAR(50) NOT NULL, " & _
  7.       "Age INT CONSTRAINT CHK_Employees_Age CHECK (Age >= 18 AND Age <= 70), " & _
  8.       "Salary CURRENCY CONSTRAINT CHK_Employees_Salary CHECK (Salary >= 0)" & _
  9.       ")"
  10. conn.Execute sql
  11. %>
复制代码

默认值约束

默认值约束为列提供默认值。
  2. <%
  3. sql = "CREATE TABLE Orders (" & _
  4.       "OrderID COUNTER CONSTRAINT PK_Orders PRIMARY KEY, " & _
  5.       "CustomerID INT NOT NULL, " & _
  6.       "OrderDate DATE DEFAULT NOW(), " & _
  7.       "ShipDate DATE, " & _
  8.       "Status VARCHAR(20) DEFAULT 'Pending'" & _
  9.       ")"
  10. conn.Execute sql
  11. %>
复制代码

创建索引

索引可以显著提高查询性能。
  2. <%
  3. ' 创建表
  4. sql = "CREATE TABLE Sales (" & _
  5.       "SaleID COUNTER CONSTRAINT PK_Sales PRIMARY KEY, " & _
  6.       "ProductID INT NOT NULL, " & _
  7.       "CustomerID INT NOT NULL, " & _
  8.       "SaleDate DATE NOT NULL, " & _
  9.       "Amount CURRENCY NOT NULL" & _
  10.       ")"
  11. conn.Execute sql
  13. ' 创建索引
  14. sql = "CREATE INDEX IDX_Sales_ProductID ON Sales(ProductID)"
  15. conn.Execute sql
  17. sql = "CREATE INDEX IDX_Sales_CustomerID ON Sales(CustomerID)"
  18. conn.Execute sql
  20. sql = "CREATE INDEX IDX_Sales_SaleDate ON Sales(SaleDate)"
  21. conn.Execute sql
  22. %>
复制代码

实际应用案例

下面是一个完整的示例，展示如何在ASP中创建一个简单的博客系统的数据库表。
  2. <%@ Language=VBScript %>
  3. <%
  4. Option Explicit
  6. ' 错误处理
  7. On Error Resume Next
  9. ' 创建连接对象
  10. Dim conn
  11. Set conn = Server.CreateObject("ADODB.Connection")
  13. ' 定义连接字符串
  14. Dim connStr
  15. connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("blog.mdb")
  17. ' 打开连接
  18. conn.Open connStr
  20. ' 检查连接是否成功
  21. If Err.Number <> 0 Then
  22.     Response.Write "数据库连接失败: " & Err.Description
  23.     Response.End
  24. End If
  26. ' 开始创建表
  27. Dim sql
  29. ' 1. 创建用户表
  30. sql = "CREATE TABLE Users (" & _
  31.       "UserID COUNTER CONSTRAINT PK_Users PRIMARY KEY, " & _
  32.       "Username VARCHAR(50) NOT NULL CONSTRAINT UQ_Users_Username UNIQUE, " & _
  33.       "Password VARCHAR(50) NOT NULL, " & _
  34.       "Email VARCHAR(100) CONSTRAINT UQ_Users_Email UNIQUE, " & _
  35.       "FirstName VARCHAR(50), " & _
  36.       "LastName VARCHAR(50), " & _
  37.       "Bio MEMO, " & _
  38.       "Avatar VARCHAR(255), " & _
  39.       "Role VARCHAR(20) DEFAULT 'User', " & _
  40.       "IsActive YES/NO DEFAULT True, " & _
  41.       "CreatedDate DATE DEFAULT NOW(), " & _
  42.       "LastLoginDate DATE" & _
  43.       ")"
  45. conn.Execute sql
  46. If Err.Number <> 0 Then
  47.     Response.Write "创建用户表时出错: " & Err.Description & "<br>"
  48.     Err.Clear
  49. Else
  50.     Response.Write "用户表创建成功!<br>"
  51. End If
  53. ' 2. 创建分类表
  54. sql = "CREATE TABLE Categories (" & _
  55.       "CategoryID COUNTER CONSTRAINT PK_Categories PRIMARY KEY, " & _
  56.       "CategoryName VARCHAR(50) NOT NULL CONSTRAINT UQ_Categories_CategoryName UNIQUE, " & _
  57.       "Description MEMO, " & _
  58.       "ParentCategoryID INT, " & _
  59.       "IsActive YES/NO DEFAULT True, " & _
  60.       "CreatedDate DATE DEFAULT NOW(), " & _
  61.       "CONSTRAINT FK_Categories_Parent FOREIGN KEY (ParentCategoryID) REFERENCES Categories(CategoryID)" & _
  62.       ")"
  64. conn.Execute sql
  65. If Err.Number <> 0 Then
  66.     Response.Write "创建分类表时出错: " & Err.Description & "<br>"
  67.     Err.Clear
  68. Else
  69.     Response.Write "分类表创建成功!<br>"
  70. End If
  72. ' 3. 创建标签表
  73. sql = "CREATE TABLE Tags (" & _
  74.       "TagID COUNTER CONSTRAINT PK_Tags PRIMARY KEY, " & _
  75.       "TagName VARCHAR(50) NOT NULL CONSTRAINT UQ_Tags_TagName UNIQUE, " & _
  76.       "CreatedDate DATE DEFAULT NOW()" & _
  77.       ")"
  79. conn.Execute sql
  80. If Err.Number <> 0 Then
  81.     Response.Write "创建标签表时出错: " & Err.Description & "<br>"
  82.     Err.Clear
  83. Else
  84.     Response.Write "标签表创建成功!<br>"
  85. End If
  87. ' 4. 创建文章表
  88. sql = "CREATE TABLE Posts (" & _
  89.       "PostID COUNTER CONSTRAINT PK_Posts PRIMARY KEY, " & _
  90.       "Title VARCHAR(200) NOT NULL, " & _
  91.       "Content MEMO NOT NULL, " & _
  92.       "Excerpt MEMO, " & _
  93.       "AuthorID INT NOT NULL, " & _
  94.       "CategoryID INT, " & _
  95.       "Status VARCHAR(20) DEFAULT 'Draft', " & _
  96.       "CommentStatus VARCHAR(20) DEFAULT 'Open', " & _
  97.       "IsFeatured YES/NO DEFAULT False, " & _
  98.       "ViewCount INT DEFAULT 0, " & _
  99.       "Slug VARCHAR(200), " & _
  100.       "PublishedDate DATE, " & _
  101.       "CreatedDate DATE DEFAULT NOW(), " & _
  102.       "UpdatedDate DATE, " & _
  103.       "CONSTRAINT FK_Posts_Authors FOREIGN KEY (AuthorID) REFERENCES Users(UserID), " & _
  104.       "CONSTRAINT FK_Posts_Categories FOREIGN KEY (CategoryID) REFERENCES Categories(CategoryID)" & _
  105.       ")"
  107. conn.Execute sql
  108. If Err.Number <> 0 Then
  109.     Response.Write "创建文章表时出错: " & Err.Description & "<br>"
  110.     Err.Clear
  111. Else
  112.     Response.Write "文章表创建成功!<br>"
  113. End If
  115. ' 5. 创建文章标签关联表
  116. sql = "CREATE TABLE PostTags (" & _
  117.       "PostID INT NOT NULL, " & _
  118.       "TagID INT NOT NULL, " & _
  119.       "CONSTRAINT PK_PostTags PRIMARY KEY (PostID, TagID), " & _
  120.       "CONSTRAINT FK_PostTags_Posts FOREIGN KEY (PostID) REFERENCES Posts(PostID), " & _
  121.       "CONSTRAINT FK_PostTags_Tags FOREIGN KEY (TagID) REFERENCES Tags(TagID)" & _
  122.       ")"
  124. conn.Execute sql
  125. If Err.Number <> 0 Then
  126.     Response.Write "创建文章标签关联表时出错: " & Err.Description & "<br>"
  127.     Err.Clear
  128. Else
  129.     Response.Write "文章标签关联表创建成功!<br>"
  130. End If
  132. ' 6. 创建评论表
  133. sql = "CREATE TABLE Comments (" & _
  134.       "CommentID COUNTER CONSTRAINT PK_Comments PRIMARY KEY, " & _
  135.       "PostID INT NOT NULL, " & _
  136.       "UserID INT, " & _
  137.       "AuthorName VARCHAR(100), " & _
  138.       "AuthorEmail VARCHAR(100), " & _
  139.       "AuthorURL VARCHAR(255), " & _
  140.       "AuthorIP VARCHAR(45), " & _
  141.       "Content MEMO NOT NULL, " & _
  142.       "Status VARCHAR(20) DEFAULT 'Pending', " & _
  143.       "ParentCommentID INT, " & _
  144.       "CreatedDate DATE DEFAULT NOW(), " & _
  145.       "CONSTRAINT FK_Comments_Posts FOREIGN KEY (PostID) REFERENCES Posts(PostID), " & _
  146.       "CONSTRAINT FK_Comments_Users FOREIGN KEY (UserID) REFERENCES Users(UserID), " & _
  147.       "CONSTRAINT FK_Comments_Parent FOREIGN KEY (ParentCommentID) REFERENCES Comments(CommentID)" & _
  148.       ")"
  150. conn.Execute sql
  151. If Err.Number <> 0 Then
  152.     Response.Write "创建评论表时出错: " & Err.Description & "<br>"
  153.     Err.Clear
  154. Else
  155.     Response.Write "评论表创建成功!<br>"
  156. End If
  158. ' 7. 创建设置表
  159. sql = "CREATE TABLE Settings (" & _
  160.       "SettingID COUNTER CONSTRAINT PK_Settings PRIMARY KEY, " & _
  161.       "SettingKey VARCHAR(50) NOT NULL CONSTRAINT UQ_Settings_SettingKey UNIQUE, " & _
  162.       "SettingValue MEMO, " & _
  163.       "Description VARCHAR(255), " & _
  164.       "UpdatedDate DATE DEFAULT NOW()" & _
  165.       ")"
  167. conn.Execute sql
  168. If Err.Number <> 0 Then
  169.     Response.Write "创建设置表时出错: " & Err.Description & "<br>"
  170.     Err.Clear
  171. Else
  172.     Response.Write "设置表创建成功!<br>"
  173. End If
  175. ' 创建索引以提高查询性能
  176. ' 文章表索引
  177. sql = "CREATE INDEX IDX_Posts_Status ON Posts(Status)"
  178. conn.Execute sql
  179. If Err.Number <> 0 Then
  180.     Response.Write "创建文章状态索引时出错: " & Err.Description & "<br>"
  181.     Err.Clear
  182. End If
  184. sql = "CREATE INDEX IDX_Posts_AuthorID ON Posts(AuthorID)"
  185. conn.Execute sql
  186. If Err.Number <> 0 Then
  187.     Response.Write "创建文章作者索引时出错: " & Err.Description & "<br>"
  188.     Err.Clear
  189. End If
  191. sql = "CREATE INDEX IDX_Posts_CategoryID ON Posts(CategoryID)"
  192. conn.Execute sql
  193. If Err.Number <> 0 Then
  194.     Response.Write "创建文章分类索引时出错: " & Err.Description & "<br>"
  195.     Err.Clear
  196. End If
  198. sql = "CREATE INDEX IDX_Posts_PublishedDate ON Posts(PublishedDate)"
  199. conn.Execute sql
  200. If Err.Number <> 0 Then
  201.     Response.Write "创建文章发布日期索引时出错: " & Err.Description & "<br>"
  202.     Err.Clear
  203. End If
  205. ' 评论表索引
  206. sql = "CREATE INDEX IDX_Comments_PostID ON Comments(PostID)"
  207. conn.Execute sql
  208. If Err.Number <> 0 Then
  209.     Response.Write "创建评论文章索引时出错: " & Err.Description & "<br>"
  210.     Err.Clear
  211. End If
  213. sql = "CREATE INDEX IDX_Comments_Status ON Comments(Status)"
  214. conn.Execute sql
  215. If Err.Number <> 0 Then
  216.     Response.Write "创建评论状态索引时出错: " & Err.Description & "<br>"
  217.     Err.Clear
  218. End If
  220. sql = "CREATE INDEX IDX_Comments_UserID ON Comments(UserID)"
  221. conn.Execute sql
  222. If Err.Number <> 0 Then
  223.     Response.Write "创建评论用户索引时出错: " & Err.Description & "<br>"
  224.     Err.Clear
  225. End If
  227. ' 关闭连接
  228. conn.Close
  229. Set conn = Nothing
  231. Response.Write "<br>博客数据库表创建完成!"
  232. %>
复制代码

这个示例创建了一个完整的博客系统数据库结构，包括用户表、分类表、标签表、文章表、文章标签关联表、评论表和设置表。每个表都有适当的约束和关系，并创建了必要的索引以提高查询性能。

高级技巧

在ASP中创建数据库表时，还有一些高级技巧可以帮助我们更好地管理数据库结构。

动态创建表

有时我们需要根据用户输入或其他条件动态创建表。
  2. <%
  3. ' 获取表名
  4. Dim tableName
  5. tableName = Request.Form("tableName")
  7. ' 验证表名
  8. If tableName = "" Then
  9.     Response.Write "表名不能为空!"
  10.     Response.End
  11. End If
  13. ' 检查表名是否合法（只允许字母、数字和下划线）
  14. Dim regEx
  15. Set regEx = New RegExp
  16. regEx.Pattern = "^[a-zA-Z0-9_]+$"
  17. If Not regEx.Test(tableName) Then
  18.     Response.Write "表名只能包含字母、数字和下划线!"
  19.     Response.End
  20. End If
  22. ' 创建连接对象
  23. Dim conn
  24. Set conn = Server.CreateObject("ADODB.Connection")
  26. ' 定义连接字符串
  27. Dim connStr
  28. connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database.mdb")
  30. ' 打开连接
  31. conn.Open connStr
  33. ' 检查表是否已存在
  34. Dim rs
  35. Set rs = conn.OpenSchema(20, Array(Empty, Empty, tableName))
  36. If Not rs.EOF Then
  37.     Response.Write "表 '" & tableName & "' 已存在!"
  38.     rs.Close
  39.     Set rs = Nothing
  40.     conn.Close
  41.     Set conn = Nothing
  42.     Response.End
  43. End If
  44. rs.Close
  45. Set rs = Nothing
  47. ' 动态创建表
  48. Dim sql
  49. sql = "CREATE TABLE [" & tableName & "] (" & _
  50.       "ID COUNTER CONSTRAINT PK_" & tableName & " PRIMARY KEY, " & _
  51.       "Name VARCHAR(100) NOT NULL, " & _
  52.       "Description MEMO, " & _
  53.       "CreatedDate DATE DEFAULT NOW(), " & _
  54.       "IsActive YES/NO DEFAULT True" & _
  55.       ")"
  57. ' 执行SQL语句
  58. On Error Resume Next
  59. conn.Execute sql
  61. ' 检查是否出错
  62. If Err.Number <> 0 Then
  63.     Response.Write "创建表时出错: " & Err.Description
  64. Else
  65.     Response.Write "表 '" & tableName & "' 创建成功!"
  66. End If
  68. ' 关闭连接
  69. conn.Close
  70. Set conn = Nothing
  71. %>
复制代码

修改表结构

有时我们需要在已存在的表上添加、修改或删除列。
  2. <%
  3. ' 创建连接对象
  4. Dim conn
  5. Set conn = Server.CreateObject("ADODB.Connection")
  7. ' 定义连接字符串
  8. Dim connStr
  9. connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database.mdb")
  11. ' 打开连接
  12. conn.Open connStr
  14. ' 1. 添加新列
  15. Dim sql
  16. sql = "ALTER TABLE Users ADD COLUMN Age INT"
  17. conn.Execute sql
  19. ' 2. 修改列（Access不支持直接修改列，需要创建新列、复制数据、删除旧列、重命名新列）
  20. ' 添加临时列
  21. sql = "ALTER TABLE Users ADD COLUMN TempPassword VARCHAR(100)"
  22. conn.Execute sql
  24. ' 复制数据
  25. sql = "UPDATE Users SET TempPassword = Password"
  26. conn.Execute sql
  28. ' 删除旧列
  29. sql = "ALTER TABLE Users DROP COLUMN Password"
  30. conn.Execute sql
  32. ' 重命名临时列（Access不支持直接重命名列，需要使用ADOX）
  33. %>
  34. <!--#include file="adovbs.inc"-->
  35. <%
  36. Dim cat
  37. Set cat = Server.CreateObject("ADOX.Catalog")
  38. cat.ActiveConnection = conn
  40. ' 重命名列
  41. cat.Tables("Users").Columns("TempPassword").Name = "Password"
  43. ' 清理
  44. Set cat = Nothing
  46. ' 3. 删除列
  47. sql = "ALTER TABLE Users DROP COLUMN Age"
  48. conn.Execute sql
  50. ' 关闭连接
  51. conn.Close
  52. Set conn = Nothing
  54. Response.Write "表结构修改完成!"
  55. %>
复制代码

创建存储过程（SQL Server）

如果使用SQL Server数据库，可以创建存储过程来封装创建表的逻辑。
  2. <%
  3. ' 创建连接对象
  4. Dim conn
  5. Set conn = Server.CreateObject("ADODB.Connection")
  7. ' 定义连接字符串
  8. Dim connStr
  9. connStr = "Provider=SQLOLEDB;Data Source=服务器名;Initial Catalog=数据库名;User ID=用户名;Password=密码"
  11. ' 打开连接
  12. conn.Open connStr
  14. ' 创建存储过程
  15. Dim sql
  16. sql = "CREATE PROCEDURE sp_CreateUserTable " & _
  17.       "@TableName VARCHAR(50), " & _
  18.       "@HasEmail BIT = 1, " & _
  19.       "@HasPhone BIT = 0 " & _
  20.       "AS " & _
  21.       "BEGIN " & _
  22.       "    DECLARE @SQL NVARCHAR(4000) " & _
  23.       "    SET @SQL = 'CREATE TABLE ' + QUOTENAME(@TableName) + ' (' " & _
  24.       "    SET @SQL = @SQL + 'UserID INT IDENTITY(1,1) PRIMARY KEY, ' " & _
  25.       "    SET @SQL = @SQL + 'UserName VARCHAR(50) NOT NULL, ' " & _
  26.       "    SET @SQL = @SQL + 'UserPassword VARCHAR(50) NOT NULL' "
  28. sql = sql & "    IF @HasEmail = 1 " & _
  29.            "        SET @SQL = @SQL + ', UserEmail VARCHAR(100)' " & _
  30.            "    IF @HasPhone = 1 " & _
  31.            "        SET @SQL = @SQL + ', UserPhone VARCHAR(20)' " & _
  32.            "    SET @SQL = @SQL + ', CreatedDate DATETIME DEFAULT GETDATE())' " & _
  33.            "    EXEC sp_executesql @SQL " & _
  34.            "END"
  36. ' 执行SQL语句
  37. conn.Execute sql
  39. ' 使用存储过程创建表
  40. Dim cmd
  41. Set cmd = Server.CreateObject("ADODB.Command")
  42. cmd.ActiveConnection = conn
  43. cmd.CommandText = "sp_CreateUserTable"
  44. cmd.CommandType = adCmdStoredProc
  46. ' 添加参数
  47. cmd.Parameters.Append cmd.CreateParameter("@TableName", adVarChar, adParamInput, 50, "Customers")
  48. cmd.Parameters.Append cmd.CreateParameter("@HasEmail", adBoolean, adParamInput, , True)
  49. cmd.Parameters.Append cmd.CreateParameter("@HasPhone", adBoolean, adParamInput, , True)
  51. ' 执行存储过程
  52. cmd.Execute
  54. ' 清理
  55. Set cmd = Nothing
  56. conn.Close
  57. Set conn = Nothing
  59. Response.Write "存储过程创建完成，并已使用存储过程创建表!"
  60. %>
复制代码

常见问题与解决方案

在ASP中创建数据库表时，可能会遇到一些常见问题。以下是一些问题及其解决方案：

问题1：权限不足

问题描述：执行CREATE TABLE语句时，出现”权限不足”错误。

解决方案：
  2. <%
  3. ' 检查数据库文件是否有写入权限
  4. Dim fso, dbFile
  5. Set fso = Server.CreateObject("Scripting.FileSystemObject")
  6. dbFile = Server.MapPath("database.mdb")
  8. If Not fso.FileExists(dbFile) Then
  9.     ' 如果数据库文件不存在，尝试创建
  10.     On Error Resume Next
  11.     Set dbFile = fso.CreateTextFile(dbFile)
  12.     If Err.Number <> 0 Then
  13.         Response.Write "无法创建数据库文件，请检查目录权限: " & Err.Description
  14.         Response.End
  15.     End If
  16.     dbFile.Close
  17. End If
  19. ' 检查是否有写入权限
  20. On Error Resume Next
  21. Set dbFile = fso.OpenTextFile(dbFile, 8, True) ' 8 = ForAppending
  22. If Err.Number <> 0 Then
  23.     Response.Write "没有数据库文件的写入权限，请联系管理员: " & Err.Description
  24.     Response.End
  25. End If
  26. dbFile.Close
  28. Set fso = Nothing
  30. ' 现在可以安全地创建表
  31. Dim conn
  32. Set conn = Server.CreateObject("ADODB.Connection")
  33. conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database.mdb")
  35. ' 创建表的代码...
  36. %>
复制代码

问题2：表已存在

问题描述：尝试创建已存在的表，导致错误。

解决方案：
  2. <%
  3. ' 创建连接对象
  4. Dim conn
  5. Set conn = Server.CreateObject("ADODB.Connection")
  7. ' 定义连接字符串
  8. Dim connStr
  9. connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database.mdb")
  11. ' 打开连接
  12. conn.Open connStr
  14. ' 检查表是否已存在
  15. Function TableExists(tableName)
  16.     Dim rs
  17.     Set rs = conn.OpenSchema(20, Array(Empty, Empty, tableName))
  18.     If Not rs.EOF Then
  19.         TableExists = True
  20.     Else
  21.         TableExists = False
  22.     End If
  23.     rs.Close
  24.     Set rs = Nothing
  25. End Function
  27. ' 尝试创建表
  28. Dim tableName
  29. tableName = "Users"
  31. If TableExists(tableName) Then
  32.     Response.Write "表 '" & tableName & "' 已存在!"
  33. Else
  34.     Dim sql
  35.     sql = "CREATE TABLE " & tableName & " (" & _
  36.           "UserID COUNTER PRIMARY KEY, " & _
  37.           "UserName VARCHAR(50) NOT NULL, " & _
  38.           "UserEmail VARCHAR(100) UNIQUE, " & _
  39.           "UserPassword VARCHAR(50) NOT NULL" & _
  40.           ")"
  41.    
  42.     On Error Resume Next
  43.     conn.Execute sql
  44.    
  45.     If Err.Number <> 0 Then
  46.         Response.Write "创建表时出错: " & Err.Description
  47.     Else
  48.         Response.Write "表 '" & tableName & "' 创建成功!"
  49.     End If
  50. End If
  52. ' 关闭连接
  53. conn.Close
  54. Set conn = Nothing
  55. %>
复制代码

问题3：SQL注入攻击

问题描述：使用用户输入作为表名或列名时，可能导致SQL注入攻击。

解决方案：
  2. <%
  3. ' 获取用户输入
  4. Dim tableName
  5. tableName = Request.Form("tableName")
  7. ' 验证表名
  8. Function IsValidTableName(name)
  9.     ' 表名只能包含字母、数字和下划线，且必须以字母开头
  10.     Dim regEx
  11.     Set regEx = New RegExp
  12.     regEx.Pattern = "^[a-zA-Z][a-zA-Z0-9_]*$"
  13.     IsValidTableName = regEx.Test(name)
  14. End Function
  16. ' 检查是否为SQL保留字
  17. Function IsReservedWord(word)
  18.     Dim reservedWords
  19.     reservedWords = Array("SELECT", "INSERT", "UPDATE", "DELETE", "DROP", "CREATE", "ALTER", "TABLE", "FROM", "WHERE", "AND", "OR", "NOT", "IN", "LIKE", "BETWEEN", "JOIN", "INNER", "OUTER", "LEFT", "RIGHT", "FULL", "UNION", "GROUP", "ORDER", "BY", "HAVING", "DISTINCT", "COUNT", "SUM", "AVG", "MIN", "MAX", "AS", "ON", "SET", "VALUES", "INTO", "PRIMARY", "KEY", "FOREIGN", "REFERENCES", "CONSTRAINT", "DEFAULT", "NULL", "NOT", "UNIQUE", "INDEX", "VIEW", "TRIGGER", "PROCEDURE", "FUNCTION", "DATABASE", "USER", "PASSWORD", "GRANT", "REVOKE", "COMMIT", "ROLLBACK", "TRANSACTION")
  20.    
  21.     Dim i
  22.     For i = LBound(reservedWords) To UBound(reservedWords)
  23.         If UCase(word) = reservedWords(i) Then
  24.             IsReservedWord = True
  25.             Exit Function
  26.         End If
  27.     Next
  28.    
  29.     IsReservedWord = False
  30. End Function
  32. If Not IsValidTableName(tableName) Then
  33.     Response.Write "无效的表名! 表名只能包含字母、数字和下划线，且必须以字母开头。"
  34.     Response.End
  35. End If
  37. If IsReservedWord(tableName) Then
  38.     Response.Write "表名不能是SQL保留字!"
  39.     Response.End
  40. End If
  42. ' 创建连接对象
  43. Dim conn
  44. Set conn = Server.CreateObject("ADODB.Connection")
  46. ' 定义连接字符串
  47. Dim connStr
  48. connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database.mdb")
  50. ' 打开连接
  51. conn.Open connStr
  53. ' 安全地创建表
  54. Dim sql
  55. sql = "CREATE TABLE [" & tableName & "] (" & _
  56.       "ID COUNTER PRIMARY KEY, " & _
  57.       "Name VARCHAR(100) NOT NULL, " & _
  58.       "Description MEMO, " & _
  59.       "CreatedDate DATE DEFAULT NOW()" & _
  60.       ")"
  62. ' 执行SQL语句
  63. On Error Resume Next
  64. conn.Execute sql
  66. ' 检查是否出错
  67. If Err.Number <> 0 Then
  68.     Response.Write "创建表时出错: " & Err.Description
  69. Else
  70.     Response.Write "表 '" & tableName & "' 创建成功!"
  71. End If
  73. ' 关闭连接
  74. conn.Close
  75. Set conn = Nothing
  76. %>
复制代码

问题4：数据库版本兼容性

问题描述：不同版本的Access或SQL Server可能支持不同的SQL语法和数据类型。

解决方案：
  2. <%
  3. ' 创建连接对象
  4. Dim conn
  5. Set conn = Server.CreateObject("ADODB.Connection")
  7. ' 检测数据库类型和版本
  8. Function GetDatabaseType()
  9.     On Error Resume Next
  10.    
  11.     ' 尝试连接Access数据库
  12.     Dim connStr
  13.     connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database.mdb")
  14.     conn.Open connStr
  15.    
  16.     If Err.Number = 0 Then
  17.         GetDatabaseType = "Access"
  18.         conn.Close
  19.         Exit Function
  20.     End If
  21.    
  22.     ' 尝试连接SQL Server数据库
  23.     Err.Clear
  24.     connStr = "Provider=SQLOLEDB;Data Source=服务器名;Initial Catalog=数据库名;User ID=用户名;Password=密码"
  25.     conn.Open connStr
  26.    
  27.     If Err.Number = 0 Then
  28.         GetDatabaseType = "SQLServer"
  29.         conn.Close
  30.         Exit Function
  31.     End If
  32.    
  33.     GetDatabaseType = "Unknown"
  34. End Function
  36. ' 根据数据库类型创建表
  37. Dim dbType
  38. dbType = GetDatabaseType()
  40. If dbType = "Unknown" Then
  41.     Response.Write "无法连接到任何支持的数据库!"
  42.     Response.End
  43. End If
  45. ' 重新打开连接
  46. If dbType = "Access" Then
  47.     conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database.mdb")
  48. ElseIf dbType = "SQLServer" Then
  49.     conn.Open "Provider=SQLOLEDB;Data Source=服务器名;Initial Catalog=数据库名;User ID=用户名;Password=密码"
  50. End If
  52. ' 根据数据库类型生成不同的SQL
  53. Dim sql
  54. If dbType = "Access" Then
  55.     sql = "CREATE TABLE Users (" & _
  56.           "UserID COUNTER PRIMARY KEY, " & _
  57.           "UserName VARCHAR(50) NOT NULL, " & _
  58.           "UserEmail VARCHAR(100) UNIQUE, " & _
  59.           "UserPassword VARCHAR(50) NOT NULL, " & _
  60.           "RegistrationDate DATE DEFAULT NOW()" & _
  61.           ")"
  62. ElseIf dbType = "SQLServer" Then
  63.     sql = "CREATE TABLE Users (" & _
  64.           "UserID INT IDENTITY(1,1) PRIMARY KEY, " & _
  65.           "UserName VARCHAR(50) NOT NULL, " & _
  66.           "UserEmail VARCHAR(100) UNIQUE, " & _
  67.           "UserPassword VARCHAR(50) NOT NULL, " & _
  68.           "RegistrationDate DATETIME DEFAULT GETDATE()" & _
  69.           ")"
  70. End If
  72. ' 执行SQL语句
  73. On Error Resume Next
  74. conn.Execute sql
  76. ' 检查是否出错
  77. If Err.Number <> 0 Then
  78.     Response.Write "创建表时出错: " & Err.Description
  79. Else
  80.     Response.Write "表创建成功! 数据库类型: " & dbType
  81. End If
  83. ' 关闭连接
  84. conn.Close
  85. Set conn = Nothing
  86. %>
复制代码

总结与最佳实践

在ASP动态网页开发中创建数据库表是一个基础而重要的任务。通过本文的介绍，我们了解了从基础语法到实际应用案例的完整过程。以下是一些总结和最佳实践：

总结

1. 连接数据库：使用ADO对象连接数据库是ASP中操作数据库的基础。
2. SQL语法：掌握CREATE TABLE语句及其相关语法是创建数据库表的关键。
3. 数据类型：选择合适的数据类型对于数据库性能和数据完整性至关重要。
4. 约束和索引：合理使用约束可以保证数据完整性，使用索引可以提高查询性能。
5. 错误处理：在ASP代码中实现适当的错误处理可以提高应用程序的健壮性。

最佳实践

1. 命名规范：使用一致的命名规范，如表名使用单数形式，列名使用驼峰命名法。
2. 安全性：始终验证用户输入，防止SQL注入攻击。
3. 错误处理：实现全面的错误处理，提供有意义的错误信息。
4. 代码重用：将常用的数据库操作封装为函数或类，提高代码重用性。
5. 文档记录：为数据库结构和代码添加详细的注释和文档。
6. 备份：在修改数据库结构之前，始终备份现有数据。
7. 版本控制：使用版本控制系统跟踪数据库结构的变化。
8. 性能考虑：根据应用需求合理设计表结构和索引。

示例：最佳实践实现
  2. <%@ Language=VBScript %>
  3. <%
  4. Option Explicit
  6. ' 错误处理
  7. On Error Resume Next
  9. ' 数据库操作类
  10. Class DatabaseManager
  11.     Private conn
  12.    
  13.     Private Sub Class_Initialize()
  14.         Set conn = Server.CreateObject("ADODB.Connection")
  15.     End Sub
  16.    
  17.     Private Sub Class_Terminate()
  18.         If Not (conn Is Nothing) Then
  19.             If conn.State = 1 Then conn.Close
  20.             Set conn = Nothing
  21.         End If
  22.     End Sub
  23.    
  24.     ' 连接数据库
  25.     Public Function Connect(dbType, dbPath, serverName, dbName, userId, password)
  26.         Dim connStr
  27.         
  28.         Select Case LCase(dbType)
  29.             Case "access"
  30.                 connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbPath)
  31.             Case "sqlserver"
  32.                 connStr = "Provider=SQLOLEDB;Data Source=" & serverName & ";Initial Catalog=" & dbName & ";User ID=" & userId & ";Password=" & password
  33.             Case Else
  34.                 Connect = False
  35.                 Exit Function
  36.         End Select
  37.         
  38.         conn.Open connStr
  39.         
  40.         If Err.Number <> 0 Then
  41.             Connect = False
  42.             Err.Clear
  43.         Else
  44.             Connect = True
  45.         End If
  46.     End Function
  47.    
  48.     ' 检查表是否存在
  49.     Public Function TableExists(tableName)
  50.         Dim rs
  51.         Set rs = conn.OpenSchema(20, Array(Empty, Empty, tableName))
  52.         
  53.         If Not rs.EOF Then
  54.             TableExists = True
  55.         Else
  56.             TableExists = False
  57.         End If
  58.         
  59.         rs.Close
  60.         Set rs = Nothing
  61.     End Function
  62.    
  63.     ' 创建表
  64.     Public Function CreateTable(tableName, columns)
  65.         If TableExists(tableName) Then
  66.             CreateTable = False
  67.             Exit Function
  68.         End If
  69.         
  70.         Dim sql, i
  71.         sql = "CREATE TABLE [" & tableName & "] ("
  72.         
  73.         For i = LBound(columns) To UBound(columns)
  74.             sql = sql & columns(i).Name & " " & columns(i).DataType
  75.             
  76.             If columns(i).Size > 0 Then
  77.                 sql = sql & "(" & columns(i).Size & ")"
  78.             End If
  79.             
  80.             If columns(i).Nullable = False Then
  81.                 sql = sql & " NOT NULL"
  82.             End If
  83.             
  84.             If columns(i).DefaultValue <> "" Then
  85.                 sql = sql & " DEFAULT " & columns(i).DefaultValue
  86.             End If
  87.             
  88.             If columns(i).IsPrimaryKey Then
  89.                 sql = sql & " PRIMARY KEY"
  90.             End If
  91.             
  92.             If i < UBound(columns) Then
  93.                 sql = sql & ", "
  94.             End If
  95.         Next
  96.         
  97.         sql = sql & ")"
  98.         
  99.         conn.Execute sql
  100.         
  101.         If Err.Number <> 0 Then
  102.             CreateTable = False
  103.             Err.Clear
  104.         Else
  105.             CreateTable = True
  106.         End If
  107.     End Function
  108.    
  109.     ' 执行SQL
  110.     Public Function ExecuteSQL(sql)
  111.         conn.Execute sql
  112.         
  113.         If Err.Number <> 0 Then
  114.             ExecuteSQL = False
  115.             Err.Clear
  116.         Else
  117.             ExecuteSQL = True
  118.         End If
  119.     End Function
  120. End Class
  122. ' 列定义类
  123. Class ColumnDefinition
  124.     Public Name
  125.     Public DataType
  126.     Public Size
  127.     Public Nullable
  128.     Public DefaultValue
  129.     Public IsPrimaryKey
  130.    
  131.     Private Sub Class_Initialize()
  132.         Size = 0
  133.         Nullable = True
  134.         DefaultValue = ""
  135.         IsPrimaryKey = False
  136.     End Sub
  137. End Class
  139. ' 使用示例
  140. Dim db, columns(4), col, i
  142. ' 创建数据库管理器
  143. Set db = New DatabaseManager
  145. ' 连接数据库
  146. If Not db.Connect("Access", "database.mdb", "", "", "", "") Then
  147.     Response.Write "数据库连接失败!"
  148.     Response.End
  149. End If
  151. ' 定义列
  152. For i = 0 To 4
  153.     Set col = New ColumnDefinition
  154.     Set columns(i) = col
  155. Next
  157. ' 设置列属性
  158. columns(0).Name = "UserID"
  159. columns(0).DataType = "COUNTER"
  160. columns(0).IsPrimaryKey = True
  162. columns(1).Name = "UserName"
  163. columns(1).DataType = "VARCHAR"
  164. columns(1).Size = 50
  165. columns(1).Nullable = False
  167. columns(2).Name = "UserEmail"
  168. columns(2).DataType = "VARCHAR"
  169. columns(2).Size = 100
  171. columns(3).Name = "UserPassword"
  172. columns(3).DataType = "VARCHAR"
  173. columns(3).Size = 50
  174. columns(3).Nullable = False
  176. columns(4).Name = "RegistrationDate"
  177. columns(4).DataType = "DATE"
  178. columns(4).DefaultValue = "NOW()"
  180. ' 创建表
  181. If db.CreateTable("Users", columns) Then
  182.     Response.Write "表创建成功!"
  183. Else
  184.     Response.Write "表创建失败!"
  185. End If
  187. ' 清理
  188. Set db = Nothing
  189. For i = 0 To 4
  190.     Set columns(i) = Nothing
  191. Next
  192. %>
复制代码

这个示例展示了如何使用面向对象的方式封装数据库操作，使代码更加模块化和可重用。通过这种方式，我们可以更轻松地管理数据库操作，减少错误，并提高代码的可维护性。

总之，在ASP动态网页开发中创建数据库表是一项基础而重要的任务。通过掌握基础语法、理解数据类型、约束和索引的使用，以及遵循最佳实践，我们可以设计出高效、安全和可维护的数据库结构，为Web应用程序提供强大的数据支持。
详解, 网页, 数据库
回复

使用道具 举报

mai2

0

主题

645

科技点

436

积分

候风辨气

积分
436
发表于 2025-9-10 16:32:17 | 显示全部楼层
感謝分享
温馨提示：看帖回帖是一种美德，您的每一次发帖、回帖都是对论坛最大的支持，谢谢！ [这是默认签名,点我更换签名]
回复 支持 反对

使用道具 举报

返回列表 发新帖
您需要登录后才可以回帖 登录 | 立即注册
高级模式
B Color Image Link Quote Code Smilies

本版积分规则

友情链接

keba
磕巴白菜
别管 别听 就是玩
二次元论坛
二次元论坛
按下F逃离世界！
次元宅社
次元宅社
开放、共创，CHANGE SEKAI！
频道订阅

频道订阅

加入社群

加入社群

联系我们|TG频道|RSS

Powered by Pixtech

© 2025 Pixtech Team.