jlxmk1.asp

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

ASP
51 行
字号 
<%
'修改班级库BJK中所有班级的姓名库的字段
Set Conn = Server.CreateObject("ADODB.Connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("/gl/dbf/xmgl.mdb")
sql="select * from bjk order by bjdm"
Set RS = Server.CreateObject("ADODB.RecordSet")
RS.Open sql, Conn
Do While Not RS.EOF
	tmc=rs("bjmc")
	response.writ ("正在修改"&tmc"<br>")
	tdm=rs("bjdm")
	'sql="create table "&tdm&" (xh text (2) CONSTRAINT xh PRIMARY KEY,xm text (8))"
	sql="alter table "&tdm&" add column xb text (2)"
'	on error resume next  '忽略错误继续向下执行
	conn.execute(sql)
	sql="alter table "&tdm&" add column rq date"
	conn.execute(sql)

	sql="alter table "&tdm&" add column dz text (50)"
	conn.execute(sql)

	sql="alter table "&tdm&" add column yb text (6)"
	conn.execute(sql)

	sql="alter table "&tdm&" add column dh text (20)"
	conn.execute(sql)

	sql="alter table "&tdm&" add column cj short"
	conn.execute(sql)

'	if err=0 then
'		response.write("“"&tmc&"”的姓名表("&tdm&")建立成功！"&"<p>")
'	else
'		response.write("“"&tmc&"”的姓名表("&tdm&")已存在，不能再建立！"&"<p>")
'	end if
'	on error goto 0  '恢复错误检查
	rs.movenext
loop
rs.close
set rs=nothing
Conn.Close
set Conn = nothing
'<a href="zjbj.htm">返回</a>
%>

<HTML>
<HEAD><TITLE>系统管理</TITLE></HEAD>
<BODY BGCOLOR=#FFFFFF>
修改完成
</BODY>
</HTML>

jlxmk1.asp - 源码说明

本页面展示了「一个优秀的学校学籍,成绩,图书管理系统.有需要的朋友可以来看看.是完整代码.」中的 jlxmk1.asp 源码文件，采用 ASP 编程语言编写，共 51 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与图书管理相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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