复制代码 代码如下:
<!--
'********************************
'* 用途:
'^ 以视图界面方式在线处理access、sql数据库
'* 作者:官世杰
'* 创建日期:2006-5-28
'* 2006-06-04 增加数据修改功能
'* 2006-06-10 增加了在空表中插入数据功能
'* 2006-09-8 增加修改字段名和表名功能，修正部分错误
'* 执行sql,如果是 select 就返回结果,否则返回执行结果
'* 本程序可以免费使用，转载请保留此信息
'********************************
-->
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=gb2312">
<title>在线数据库管理工具 db007 1.5</title>
<style type="text/css">
<!--
body,td,th {font-family: "宋体";font-size: 12px;}
form {margin:0px;padding:0px;}
body {margin:5px;scrollbar-arrow-color:#666666;scrollbar-face-color:#dddddd;scrollbar-darkshadow-color:#999999;scrollbar-highlight-color:#ffffff;scrollbar-3dlight-color:#cccccc;scrollbar-shadow-color:#ffffff;scrollbar-track-color:#eeeeee;}
input { border-width: 1px;border-style:solid;border-color: #cccccc #999999 #999999 #cccccc;height: 16px;}
td {background:#fff;}
textarea {border-width: 1px;border-style: solid;border-color: #cccccc #999999 #999999 #cccccc;}
a:link {text-decoration: none;}
a:visited {text-decoration: none;}
a:hover {text-decoration: underline;}
a:active {text-decoration: none;}
.fixspan {width:150px;white-space:nowrap;word-break:keep-all;overflow:hidden;text-overflow:ellipsis;}
-->
</style>
</head>
<body>
<%
if request("key") = "db" then
session("dbtype") = request("dbtype")
session("dbstr") = request("dbstr")
response.redirect "?"
end if
if request("key") = "createdatabase" then
call createdatabase()
end if
if session("dbtype") = "" or session("dbstr") = "" then
%>
<form action="?key=db" method="post" name="dbt">
<br>
连接类型：
<input name="dbtype" type="radio" value="access" onclick="dbstr.value='provider=microsoft.jet.oledb.4.0;persist security info=false;password=;data source=<%=server.mappath("/")&""%>'" checked>
access
<input disabled="disabled" type="radio" name="dbtype" value="sql" onclick="dbstr.value='driver={sql server};database=;server=;uid=;pwd='">
sql<br><br>
连接字符：<input name="dbstr" type="text" id="dbstr" size="120" value="provider=microsoft.jet.oledb.4.0;persist security info=false;password=;data source=<%=server.mappath("/")&""%>">
<input type="submit" name="submit" value="连接" /><br><br>
注：access请使用绝对路径,本文件路径：<%=server.mappath("db007.asp")%>
</form>
<form name="createdatabase" method="post" action="?key=createdatabase">
<font color=red>创建数据库：</font>路径
<input name="dataname" type="text" value="<%=server.mappath("/")&"database.mdb"%>" size="100">
<input type="submit" name="submit" value="创建">
</form>
<%
response.end()
end if
'==================================================================建库
sub createdatabase()
dim dbname,dbstr,mycat
on error resume next
dbname = request("dataname")
dbstr = "provider=microsoft.jet.oledb.4.0;data source=" & dbname
set mycat = server.createobject( "adox.catalog" )
mycat.create dbstr
if err <> 0 then
response.write err.description
session("dbtype") = ""
session("dbstr") = ""
response.write "<input type='button' name='ok' value=' 返 回 ' onclick='javascript:history.go(-1)'>"
response.end
end if
session("dbtype") = "access"
session("dbstr") = dbstr
response.redirect "?"
end sub
'==================================================================调用链接函数
conn()
function conn()
dim conn1,connstr
on error resume next
select case session("dbtype")
case "access"
'==================================================================连接access数据库
connstr = session("dbstr")
set conn1 = server.createobject("adodb.connection")
conn1.open connstr
case "sql"
'==================================================================连接sql数据库
set conn1 = server.createobject("adodb.connection")
conn1.open session("dbstr")
end select
if err <> 0 then
response.write err.description
session("dbtype") = ""
session("dbstr") = ""
response.write "<input type='button' name='ok' value=' 返 回 ' onclick='javascript:history.go(-1)'>"
response.end
end if
set conn = conn1
end function
sub echo(str)
response.write(str)
end sub
function iif(var, val1, val2)
if var = true then
iif = val1
else
iif = val2
end if
end function
'正则表达式函数，用于删除注释
'-------------------------------------
function regexpreplace(strng, patrn, replstr)
dim regex,match,matches ' 建立变量。
set regex = new regexp ' 建立正则表达式。
regex.pattern = patrn ' 设置模式。
regex.ignorecase = true ' 设置是否区分大小写。
regex.global = true ' 设置全局可用性。
regexpreplace = regex.replace(strng, replstr) ' 作替换。
end function
'==================================================================adovbs 常量声明
'---- datatypeenum values ----
const adempty = 0
const adtinyint = 16
const adsmallint = 2
const adinteger = 3
const adbigint = 20
const adunsignedtinyint = 17
const adunsignedsmallint = 18
const adunsignedint = 19
const adunsignedbigint = 21
const adsingle = 4
const addouble = 5
const adcurrency = 6
const addecimal = 14
const adnumeric = 131
const adboolean = 11
const aderror = 10
const aduserdefined = 132
const advariant = 12
const adidispatch = 9
const adiunknown = 13
const adguid = 72
const addate = 7
const addbdate = 133
const addbtime = 134
const addbtimestamp = 135
const adbstr = 8
const adchar = 129
const advarchar = 200
const adlongvarchar = 201
const adwchar = 130
const advarwchar = 202
const adlongvarwchar = 203
const adbinary = 128
const advarbinary = 204
const adlongvarbinary = 205
'---- fieldattributeenum values ----
const adfldmaydefer = &h00000002
const adfldupdatable = &h00000004
const adfldunknownupdatable = &h00000008
const adfldfixed = &h00000010
const adfldisnullable = &h00000020
const adfldmaybenull = &h00000040
const adfldlong = &h00000080
const adfldrowid = &h00000100
const adfldrowversion = &h00000200
const adfldcachedeferred = &h00001000
'---- schemaenum values ----
'---- schemaenum values ----
const adschemaproviderspecific = -1
const adschemaasserts = 0
const adschemacatalogs = 1
const adschemacharactersets = 2
const adschemacollations = 3
const adschemacolumns = 4
const adschemacheckconstraints = 5
const adschemaconstraintcolumnusage = 6
const adschemaconstrainttableusage = 7
const adschemakeycolumnusage = 8
const adschemareferentialconstraints = 9
const adschematableconstraints = 10
const adschemacolumnsdomainusage = 11
const adschemaindexes = 12
const adschemacolumnprivileges = 13
const adschematableprivileges = 14
const adschemausageprivileges = 15
const adschemaprocedures = 16
const adschemaschemata = 17
const adschemasqllanguages = 18
const adschemastatistics = 19
const adschematables = 20
const adschematranslations = 21
const adschemaprovidertypes = 22
const adschemaviews = 23
const adschemaviewcolumnusage = 24
const adschemaviewtableusage = 25
const adschemaprocedureparameters = 26
const adschemaforeignkeys = 27
const adschemaprimarykeys = 28
const adschemaprocedurecolumns = 29
const adschemadbinfokeywords = 30
const adschemadbinfoliterals = 31
const adschemacubes = 32
const adschemadimensions = 33
const adschemahierarchies = 34
const adschemalevels = 35
const adschemameasures = 36
const adschemaproperties = 37
const adschemamembers = 38
const adschematrustees = 39
const adschemafunctions = 40
const adschemaactions = 41
const adschemacommands = 42
const adschemasets = 43
'==================================================================返回字段类型函数
function typ(field_type)
'field_type = 字段类型值
select case field_type
case adempty:typ = "empty"
case adtinyint:typ = "tinyint"
case adsmallint:typ = "smallint"
case adinteger:typ = "integer"
case adbigint:typ = "bigint"
case adunsignedtinyint:typ = "tinyint" 'unsignedtinyint
case adunsignedsmallint:typ = "unsignedsmallint"
case adunsignedint:typ = "unsignedint"
case adunsignedbigint:typ = "unsignedbigint"
case adsingle:typ = "single" 'single
case addouble:typ = "double" 'double
case adcurrency:typ = "money" 'currency
case addecimal:typ = "decimal"
case adnumeric:typ = "numeric" 'numeric
case adboolean:typ = "bit" 'boolean
case aderror:typ = "error"
case aduserdefined:typ = "userdefined"
case advariant:typ = "variant"
case adidispatch:typ = "idispatch"
case adiunknown:typ = "iunknown"
case adguid:typ = "guid" 'guid
case addate:typ = "datetime" 'date
case addbdate:typ = "dbdate"
case addbtime:typ = "dbtime"
case addbtimestamp:typ = "datetime" 'dbtimestamp
case adbstr:typ = "bstr"
case adchar:typ = "char"
case advarchar:typ = "varchar"
case adlongvarchar:typ = "longvarchar"
case adwchar:typ = "text" 'wchar类型 sql中为text
case advarwchar:typ = "varchar" 'varwchar
case adlongvarwchar:typ = "text" 'longvarwchar
case adbinary:typ = "binary"
case advarbinary:typ = "varbinary"
case adlongvarbinary:typ = "longbinary"'longvarbinary
case adchapter:typ = "chapter"
case adpropvariant:typ = "propvariant"
case else:typ = "unknown"
end select
end function
'==================================================================返回字段类型列表
function fieldtypelist(n)
dim strlist,str1,str2
strlist = "<select name=""field_type"">"
if session("dbtype") = "access" then
strlist = strlist & "<option value=""varchar"">文本</option>"
strlist = strlist & "<option value=""text"">备注</option>"
strlist = strlist & "<option value=""bit"">(是/否)</option>"
strlist = strlist & "<option value=""tinyint"">数字(字节)</option>"
strlist = strlist & "<option value=""smallint"">数字(整型)</option>"
strlist = strlist & "<option value=""integer"">数字(长整型)</option>"
strlist = strlist & "<option value=""single"">数字(单精度)</option>"
strlist = strlist & "<option value=""double"">数字(双精度)</option>"
strlist = strlist & "<option value=""numeric"">数字(小数)</option>"
strlist = strlist & "<option value=""guid"">数字(同步id)</option>"
strlist = strlist & "<option value=""datetime"">时间/日期</option>"
strlist = strlist & "<option value=""money"">货币</option>"
strlist = strlist & "<option value=""binary"">二进制</option>"
strlist = strlist & "<option value=""longbinary"">长二进制</option>"
strlist = strlist & "<option value=""longbinary"">ole 对象</option>"
else
strlist = strlist & "<option value="""">选择类型</option>"
strlist = strlist & "<option value=""bigint"">bigint</option>"
strlist = strlist & "<option value=""binary"">binary(二进制数据类型)</option>"
strlist = strlist & "<option value=""bit"">bit(整型)</option>"
strlist = strlist & "<option value=""char"">char(字符型)</option>"
strlist = strlist & "<option value=""datetime"">datetime(日期时间型)</option>"
strlist = strlist & "<option value=""decimal"">decimal(精确数值型)</option>"
strlist = strlist & "<option value=""float"">float(近似数值型)</option>"
strlist = strlist & "<option value=""image"">image(二进制数据类型)</option>"
strlist = strlist & "<option value=""int"">int(整型)</option>"
strlist = strlist & "<option value=""money"">money(货币型)</option>"
strlist = strlist & "<option value=""nchar"">nchar(统一编码字符型)</option>"
strlist = strlist & "<option value=""ntext"">ntext(统一编码字符型)</option>"
strlist = strlist & "<option value=""numeric"">numeric(精确数值型)</option>"
strlist = strlist & "<option value=""nvarchar"">nvarchar(统一编码字符型)</option>"
strlist = strlist & "<option value=""real"">real(近似数值型)</option>"
strlist = strlist & "<option value=""smalldatetime"">smalldatetime(日期时间型)</option>"
strlist = strlist & "<option value=""smallint"">smallint(整型)</option>"
strlist = strlist & "<option value=""smallmoney"">smallmoney(货币型)</option>"
strlist = strlist & "<option value=""sql_variant"">sql_variant()</option>"
strlist = strlist & "<option value=""text"">text(字符型)</option>"
strlist = strlist & "<option value=""timestamp"">timestamp(特殊数据型)</option>"
strlist = strlist & "<option value=""tinyint"">tinyint(整型)</option>"
strlist = strlist & "<option value=""uniqueidentifier"">uniqueidentifier(特殊数据型)</option>"
strlist = strlist & "<option value=""varbinary"">varbinary(二进制数据类型)</option>"
strlist = strlist & "<option value=""varchar"">varchar(字符型)</option>"
end if
str1 = """" & n & """"
str2 = """" & n & """" & " selected"
strlist = replace(strlist,str1,str2)
strlist = strlist & "</select>"
echo strlist
end function
'==================================================================主界面
sub main(str)
on error resume next
%>
<script language=javascript>
ie = (document.all)? true:false
if (ie){
function ctlent(eventobject){if(event.ctrlkey &&
window.event.keycode==13){this.document.exesql.submit();}}
}
</script>
<script language="javascript">
function table_delete()
{
if (confirm("确认删除该记录吗？ 该操作将不可撤销！！！"))
return true;
else
return false;
}
</script>
<form action="?key=sql" method=post name="exesql">
<font color=red>执行sql语句：</font><font color=#999999>(每句语句以“;”结束，支持(--)sql注释，ctrl + enter 快速提交)</font> <input type="button" value="刷新本页" onclick="javascript:location.reload()">
<span onclick="document.exesql.sql.rows+=5;" style="cursor:pointer;">+</span>
<span onclick="if(document.exesql.sql.rows>9)document.exesql.sql.rows-=5" style="cursor:pointer;">-</span>
<div style="float:left;width:600px;">
<textarea id="sql" name="sql" style="width:600px;" rows="9" ondblclick="this.select();" onkeydown="ctlent()"><%=request("sql")%></textarea><br />
<input type="checkbox" name="schematable" value="1" style="border:0px;">adschematables
<input type="checkbox" name="schemacolumn" value="2" style="border:0px;">adschemacolumns
<input type="checkbox" name="schemaprovider" value="3" style="border:0px;">adschemaprovidertypes
分页大小：
<select name="pagesize">
<%
if request("pagesize") <> "" and isnumeric(request("pagesize")) then
echo "<option value='"&request("pagesize")&"' selected>"&request("pagesize")&"</option>"
else
echo "<option value='50'>50</option>"
end if
%>
<option value="10">10</option>
<option value="20">20</option>
<option value="30">30</option>
<option value="40">40</option>
<option value="50">50</option>
<option value="60">60</option>
<option value="70">70</option>
<option value="80">80</option>
<option value="90">90</option>
<option value="100">100</option>
</select>
</div>
<div style="float:left;width:50px;padding:60px 0px 0px 5px;">
<input type="submit" name="submit_confirm" value="提交"> <br /> <br />
<input type="button" name="submit3" value="清空" onclick="sql.value=''"><br /><br />
<input type="button" name="ok" value="返回" onclick="javascript:history.go(-1)">
</div>
</form>
<div style="clear:both"></div>
<% if str = "" then %>
<form action="?key=addtable" method="post">
<div style="clear:both;text-align:left;"><br />
<font color=red>创建新表：</font><br>
表 名：<input type="text" name="table_name" size="20"><br>
字段数：<input type="text" name="field_num" size="20">
<input type="submit" name="submit_create" value="提交">
<input type="reset" name="submit32" value="重置">
</div>
</form>
<br><br>
<a href="?key=tosql&strt=2">导出所有表结构到sql</a>
<%
end if
end sub
'==================================================================创建表界面
sub add_table(table_name,field_num)
'table_name = 表名称
'field_num = 字段数
on error resume next
if not isnumeric(field_num) then
echo "字段数必须是整数。"
echo "<input type='button' name='ok' value=' 返 回 ' onclick='javascript:history.go(-1)'>"
exit sub
end if
%>
<p class="hei"><span>创建表：</span><%=table_name%></p>
<form action="?key=createtable" method="post">
<table width="600" border="0" cellpadding="2" cellspacing="1" bgcolor="#cccccc">
<tr>
<td width="75" height="20" align="center">字段名</td>
<td width="99" height="20" align="center">类 型</td>
<td width="73" height="20" align="center">大 小</td>
<td width="96" height="20" align="center">空值</td>
<td width="83" height="20" align="center">自动编号</td>
<td width="143" height="20" align="center">主 键</td>
</tr>
<% for i = 0 to field_num - 1 %>
<tr>
<td width="75" height="20" align="center">
<input type="text" name="field_name" size="10">
</td>
<td width="99" height="20" align="center">
<% fieldtypelist(0) %>
</td>
<td width="73" height="20" align="center">
<input type="text" name="field_size" size="10">
</td>
<td width="96" height="20" align="center">
<select name="null">
<option value="not_null">not_null</option>
<option value="null">null</option>
</select>
</td>
<td width="83" height="20" align="center">
<select size="1" name="autoincrement">
<option></option>
<option>自动编号</option>
</select>
</td>
<td width="143" height="20" align="left">
<select name="primarykey">
<option></option>
<option value="primarykey">primarykey</option>
</select>
</td>
</tr>
<% next %>
<tr>
<td height="35" align="center" colspan="5">
<input type="hidden" name="i" value=<%=field_num%>>
<input type="hidden" name="table_name" value="<%=table_name%>">
<input type="submit" name="submit" value=" 提 交 ">
<input type="reset" name="submit2" value=" 重 置 ">
<input type="button" name="ok" value=" 放 弃 " onclick="javascript:history.go(-1)">
</td>
<td height="20"></td>
</tr>
</table>
</form>
<%
end sub
'==================================================================构建创建表的sql语句
sub create_table()
dim sql,i,primarykey
on error resume next
sql = "create table ["&request("table_name")&"] ("
for i = 1 to request("i")
sql = sql & "[" & request("field_name")(i) & "] " & request("field_type")(i)
if request("field_size")(i) <> "" then
sql = sql & "(" & request("field_size")(i) & ")"
end if
if request("null")(i) = "not_null" then
sql = sql & " not null"
end if
if request("autoincrement")(i) = "自动编号" then
sql = sql & " identity"
end if
if request("primarykey")(i) = "primarykey" then
primarykey = request("field_name")(i)
end if
'if primarykey <> "" then
sql = sql & ","
'end if
next
if primarykey<>"" then
sql=sql&" primary key (["&primarykey&"]) "
end if
sql = sql & ")"
sql = replace(sql,"()","") '构建空表
response.redirect "?key=sql&sql=" & sql
end sub
'==================================================================修改表名或字段名 2006-09-08
sub reobj()
on error resume next
dim mydb,mytable,tablename
tablename = request("tablename")
set mydb = server.createobject("adox.catalog")
mydb.activeconnection = conn
if request("obj") = "field" then '修改字段名
dim fieldsname,newfieldsname
fieldsname = request("fieldsname")
newfieldsname = request("newfieldsname")
set mytable = server.createobject("adox.table")
set mytable = mydb.tables(tablename)
mytable.columns(fieldsname).name = newfieldsname
end if
if request("obj") = "table" then '修改表名
dim newtablename
newtablename = request("newtablename")
mydb.tables(tablename).name = newtablename
end if
if err <> 0 then
echo err.description
echo "<input type='button' name='ok' value=' 返 回 ' onclick='javascript:history.go(-1)'>"
exit sub
end if
if request("obj") = "field" then
response.redirect "?key=view&table_name=" & tablename
else
response.redirect "?key=view&table_name=" & newtablename
end if
end sub
'==================================================================查看表结构函数
sub view(table_name)
'table_name = 表名称
dim rs,sql,table,primary,primarykey,i,editstr,typs
on error resume next
table = table_name
set primary = conn.openschema(adschemaprimarykeys,array(empty, empty, table))
if primary("column_name") <> "" then
primarykey = primary("column_name")
end if
primary.close
set primary = nothing
%>
<script language="javascript">
function table_delete()
{
if (confirm("确认删除该记录吗？ 该操作将不可撤销！！！"))
return true;
else
return false;
}
</script>
<font color=red>表：<%=table_name%></font> <input type="button" value="刷新本页" onclick="javascript:location.reload()"><br><br>
<% if request("key") = "editfidlevi" then call editfidlevi() %>
<table width="600" border="0" cellpadding="1" cellspacing="1" bgcolor="#cccccc">
<tr>
<td width="125" height="20" align="center">字 段 名</td>
<td width="110" align="center">类 型</td>
<td width="83" align="center"> 设定大小</td>
<td width="48" align="center">允许空</td>
<td width="76" align="center">自动编号</td>
<td width="54" align="center">主键</td>
<td width="82" align="center">执行操作</td>
</tr>
<%
sql = "select * from [" & table_name & "] "
set rs = conn.execute(sql)
if err = 0 then
for i = 0 to rs.fields.count-1
%>
<tr>
<td height="20" align="left"><%=rs(i).name%></td>
<td align="left"><%=typ(rs(i).type)%></td>
<td align="center"><%=rs(i).definedsize%></td>
<td align="center"><%=iif((rs(i).attributes and adfldisnullable)=0,"no","yes")%></td>
<td align="center"><%=iif(rs(i).properties("isautoincrement") = true,"是","否")%></td>
<td align="center"><%=iif(rs(i).name = primarykey,"是","否")%></td>
<td align="center">
<a href="?key=editfidlevi&fidle=<%=rs(i).name%>&table_name=<%=table_name%>&fidletype=<%=typ(rs(i).type)%>">修改</a>
<a href="?key=sql&sql=alter table [<%=table_name%>] drop [<%=rs(i).name%>];" onclick="return table_delete();">删除</a>
</td>
</tr>
<%
editstr = editstr&"<option value='"&rs(i).name&"'>"&rs(i).name&"</option>"
next
%>
</table>
<br>
<a href="?key=tosql&strt=0&table_name=<%=table_name%>">导出表结构</a>
<a href="?key=sql&sql=select * from <%=table_name%>&table_name=<%=table_name%>&primarykey=<%=primarykey%>">浏览表记录</a>
<a href="?key=sql&sql=drop table <%=table_name%>" onclick="return table_delete();">删除表</a>
<input type="text" name="newtablename" size="20" value="<%=table_name%>">
<input type="button" value="修改表名" onclick="location.href='?key=reobj&obj=table&tablename=<%=table_name%>&newtablename='+newtablename.value">
<br><br>
<%
'判断是否有主键
if primarykey = "" then
echo "<font color=red>该表没有主键，执行操作可能会导致数据损坏或丢失。</font><br>"
echo "你可以将："
echo "<select name='keyname'>"
for i=0 to rs.fields.count-1
echo "<option value=" & rs(i).name & ">" & rs(i).name & "</option>"
next
echo "</select> "
echo "<input type=button value=设为主键 onclick=""location.href='?key=sql&sql=alter table ["&table_name&"] add primary key (['+keyname.value+'])';"">"
echo "<br><br>"
end if
'显示修改字段名
echo "<select name='fieldsname'>"
echo "<option value=''>选择字段</option>"
echo editstr
echo "</select> 改名为 " & chr(10)
echo "<input type='text' name='newfieldsname' size='20'> " & chr(10)
echo "<input type=button value=修改字段名 onclick=""location.href='?key=reobj&obj=field&tablename="&table_name&"&fieldsname='+fieldsname.value+'&newfieldsname='+newfieldsname.value"">"
echo "<br><br>"
end if
rs.close
set rs = nothing
%>
<font color=red>增加字段：</font><br><br>
<form action="?key=addfield" method="post">
<table width="600" height="39" border="0" cellpadding="2" cellspacing="1" bgcolor="#cccccc">
<tr>
<td width="60" height="20" align="center">字段名</td>
<td width="50" height="20" align="center">类型</td>
<td width="58" height="20" align="center">设定大小</td>
<td width="64" height="20" align="center">允许空值</td>
<td width="66" height="20" align="center"> 自动编号</td>
<td width="96" height="20" align="center"> </td>
</tr>
<tr>
<td width="60" height="20" align="center">
<input type="text" name="fldname" size="10">
</td>
<td width="50" height="20" align="center">
<% fieldtypelist(0) %>
</td>
<td width="58" height="20" align="center">
<input type="text" name="fldsize" size="10">
</td>
<td width="64" height="20" align="center">
<input name="null" type="checkbox" value="on" checked>
</td>
<td width="66" height="20" align="center">
<input type="checkbox" name="autoincrement" value="on">
</td>
<td width="96" height="20" align="center">
<input type="hidden" name="table_name" value="<%=table_name%>">
<input type="submit" value="提交">
</td>
</tr>
</table>
</form>
<%
end sub
'==================================================================修改字段属性的界面
sub editfidlevi()
dim sql,rs,i
on error resume next
sql = "select * from [" & request("table_name") & "]"
set rs = conn.execute(sql)
for i = 0 to rs.fields.count - 1
if rs(i).name = request("fidle") then
%>
<script language="javascript">
function validate(theform) {
if (theform.type.value == "")
{
alert("请输入数据类型");
theform.type.focus();
return (false);
}
return (true);
}
</script>
<font color=red>修改字段属性：</font>
<form action="?key=editfidle&fidle=<%=request("fidle")%>&table_name=<%=request("table_name")%>" method="post" name=frm onsubmit="return validate(frm)">
<table width="600" border="0" cellpadding="2" cellspacing="1" bgcolor="#cccccc">
<tr>
<td width="60" height="20" align="center">字段名</td>
<td width="50" height="20" align="center">类型</td>
<td width="58" height="20" align="center">设定大小</td>
<td width="64" height="20" align="center">允许空值</td>
<td width="66" height="20" align="center">自动编号</td>
<td width="96" height="20"></td>
</tr>
<tr>
<td width="60" height="20" align="center"><%=rs(i).name%></td>
<td width="50" height="20" align="center">
<% fieldtypelist(request("fidletype")) %>
</td>
<td width="58" height="20"><input type="text" name="size" size="10"></td>
<td width="64" height="20" align="center">
<input type="checkbox" name="null" value="null"<%=iif((rs(i).attributes and adfldisnullable)=0,""," checked")%>>
</td>
<td width="66" height="20" align="center">
<input type="checkbox" name="autoincrement" value="y"<%=iif(rs(i).properties("isautoincrement") = true," checked","")%>>
</td>
<td width="96" height="20" align="center">
<input type="submit" name="submit" value="提交"&g
【说明】：本文章由站长整理发布，文章内容不代表本站观点，如文中有侵权行为，请与本站客服联系(QQ:)！
相关教程推荐
- 在线数据库管理工具(db007) v1.5
- 为什么ASP中执行动态SQL总报错误信息？提示语句语法错误
- asp 合并记录集并删除的sql语句
- asp获取数据库中表名和字段名的代码
- Asp Oracle存储过程返回结果集的代码
- asp连接mssql2005的代码
- asp 自定义分段函数/求第N名成绩
- ASP连接SQL2005数据库连接代码
- asp Access数据备份,还原,压缩类代码
- asp Driver和Provider两种连接字符串连接Access时的区别
- asp实现的查询某关键词在MSSQL数据库位置的代码
- asp 在线备份与恢复sqlserver数据库的代码
- set rs=server.CreateObject("adodb.recordset") 的中文详细说明
- 用SQL批量插入数据的存储过程
- asp经典入门教程 在ASP中使用SQL 语句第1/2页
- 使用 Osql 工具管理 SQL Server 桌面引擎 (MSDE 2000)应用介绍
其他课程推荐
- PHP正则删除HTML代码中宽高样式的方法
- 删除html标签得到纯文本可处理嵌套的标签
- php 面试碰到过的问题 在此做下记录
- PHP 日期加减的类，很不错
- php2html php生成静态页函数
- 几篇关于无限分类算法的文章第1/5页
- 使用adodb lite解决问题
- 使PHP自定义函数返回多个值
- PHP邮箱验证示例教程
- WordPress分页伪静态加html后缀
- linux下php上传文件注意事项
- thinkphp如何获取客户端IP
- PHP导入导出Excel代码
- PHP中foreach()用法汇总
- PHP实现一维数组转二维数组的方法
- php json_encode()函数返回json数据实例代码
- php中var_export与var_dump的区别分析
- PHP 与 UTF-8 的最佳实践详细介绍
- PHP基于反射机制实现插件的可插拔设计详解
- PHP+mysql+ajax轻量级聊天室实现方法详解