asp简单调用DataTable

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<html><title>出诊信息</title>


</head>

 <link rel="stylesheet" type="text/css" href="jquery.dataTables.min.css">
 <!--jquery js-->
 <script src="jquery.js"></script>
 <!--DataTables 核心 js-->
 <script src="jquery.dataTables.min.js"></script>
<script>
    $(function () {
        $('#example').DataTable({
            columns:[
                {data:"科室"},
                {data:"医师姓名"},
                {data:"医师职称"},
                {data:"午别"},
                {data:"出诊状态"}
            ],
		        language: {
        "sProcessing": "处理中...",
        "sLengthMenu": "显示 _MENU_ 项结果",
        "sZeroRecords": "没有匹配结果",
        "sInfo": "显示第 _START_ 至 _END_ 项结果，共 _TOTAL_ 项",
        "sInfoEmpty": "显示第 0 至 0 项结果，共 0 项",
        "sInfoFiltered": "(由 _MAX_ 项结果过滤)",
        "sInfoPostFix": "",
        "sSearch": "搜索:",
        "sUrl": "",
        "sEmptyTable": "表中数据为空",
        "sLoadingRecords": "载入中...",
        "sInfoThousands": ",",
        "oPaginate": {
            "sFirst": "首页",
            "sPrevious": "上页",
            "sNext": "下页",
            "sLast": "末页"
        },
        "oAria": {
            "sSortAscending": ": 以升序排列此列",
            "sSortDescending": ": 以降序排列此列"
        }
    },
	"lengthMenu": [[10, 25, 50, -1], [10, 25, 50, "全部"]]
        });
    });
</script>
<body>

<p>
<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set f=fs.OpenTextFile(Server.MapPath("record.csv"), 1)  '打开文本文件
Response.Write("<table id=""example"" class=""display"">" ) '建立表格应用c2样式
Response.Write("<thead>")
Response.Write("<tr>")  '建立表格标题行	
str=f.ReadLine
splitstr=split(str,",")  '分割一行的字符串
for i =0 to ubound(splitstr) 
response.Write("<th>")   '建立表格标题栏应使用样式c3
response.Write("<span>")
Response.Write splitstr(i) '将分割后的字符串写入表格
response.Write("</span>")
response.Write("</th>")
next '以上代码读取表格的标题栏，并设为固定

Response.Write("</tr>")
Response.Write("</thead>")
Response.Write("<tbody>") '表格名称为test与js代码中保持一致
do while f.AtEndOfStream = false
str=f.ReadLine
splitstr=split(str,",")  '分割一行的字符串		
Response.Write("<tr>")   '建立表格行	
for i =0 to ubound(splitstr) 
response.Write("<td>")   '建立表格列

Response.Write splitstr(i) '将分割后的字符串写入表格

response.Write("</td>")
next
Response.Write("</tr>")
loop
Response.Write("</tbody>")
Response.Write("</table>")
f.Close
Set f=Nothing
Set fs=Nothing
%>  
</p>
</body>

</html>
asp简单调用DataTable

猜你喜欢
