📄 onlineaccess.asp

📁 学校成绩查询系统是一个非常好的软件请大家试试
💻 ASP
📖 第 1 页 / 共 4 页
字号:
12 3 4 下一页
<!--
‘********************************
‘* 用途:
‘^ 以视图界面方式在线处理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>数据库工具</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="" 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="">
   <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>"
12 3 4 下一页
💿 文件大小 212 K
👤 上传用户 lhf123290507
📂 所属分类教育系统应用
🏷️ 相关标签

#成绩查询系统 #家 #软件
⌨️ 快捷键说明

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