onlineaccess.asp

学校成绩查询系统是一个非常好的软件请大家试试

  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="" method=post name="exesql">        
  <font color=red>执行sql语句：</font><font color=#999999>(每句语句以“;”结束，支持(--)SQL注释，Ctrl + Enter 快速提交)</font>&nbsp; <input type="button" value="刷新本页" onClick="javascript:location.reload()">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
  <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 &nbsp; 
  分页大小：
  <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="" method="post">        
  <div style="clear:both;text-align:left;"><br />
  <font color=red>创建新表：</font><br>
  表&nbsp;&nbsp;名：<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="">导出所有表结构到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="" 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=" 提 交 ">
            &nbsp;&nbsp;
            <input type="reset" name="Submit2" value=" 重 置 ">
          &nbsp;&nbsp; 
          <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>&nbsp;&nbsp;&nbsp;&nbsp;<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="">修改</a>&nbsp;
   <a href="" onClick="return table_delete();">删除</a>
    </td>
  </tr>
  <%
   editstr = editstr&"<option value=‘"&rs(i).name&"‘>"&rs(i).name&"</option>"
  next
  %>
  </table>
  <br>
  <a href="">导出表结构</a> &nbsp;
  <a href="">浏览表记录</a> &nbsp;
  <a href="" onClick="return table_delete();">删除表</a> &nbsp;&nbsp;&nbsp; 
  <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>&nbsp;"
   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>"