xm.asp

来自「一个优秀的学校学籍,成绩,图书管理系统.有需要的朋友可以来看看.是完整代码.」· ASP 代码 · 共 31 行

ASP
31
字号
<%
Set Conn = Server.CreateObject("ADODB.Connection")
'Conn.Open "tsgl"
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("xmgl.mdb")
sql="create table xmk (xh text (5) CONSTRAINT xh PRIMARY KEY,xm text (8),csrq DATE,cj number)"

on error resume next  '忽略错误继续向下执行


conn.execute(sql)

if err=0 then
	response.write("表XMK建立成功!")
else
	response.write("表XMK已存在,不能再建立!"&"<p>")
	conn.execute("DROP TABLE xmk")   '删除已存在的表
	conn.execute(sql)
	response.write("重建表XMK成功!"&"<p>")
end if
on error goto 0  '恢复错误检查

Conn.Close
set Conn = nothing
%>

<HTML>
<HEAD><TITLE>Simple ADO Page Scrolling Example - Results</TITLE></HEAD>
<BODY BGCOLOR=#FFFFFF>

</BODY>
</HTML>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?