序号	表名称	表编号	表说明
1	SkyExamSort	1.1	题库分类表
2	SkyExamPoint	1.2	知识点分类表
3	SkyExamData	1.3	题库数据库
4	SkyExamPapers	1.4	试题表
5	SkyExamPapersInfo	1.5	试题详细表
6	SkyExamLog	1.6	考试记录表
7	SkyExamType	1.7	试题考试类型表
8	SkyExamItem	1.8	试题题型特征表

序号	字段名称	字段类型	默认值	说明
1	ID	自动编号		主键题库分类编号
2	ShowID	Int	0	显示顺序
3	SName	Varchar		题库分类名称
4	ParentID	Int	0	父分类编号0为一级分类

序号	字段名称	字段类型	默认值	说明
1	ID	自动编号		主键
2	ShowID	Int	0	显示顺序
3	PName	Varchar(50)		知识点名称
4	ParentID	Int	0	父分类编号0为一级分类
5	PScore	int	1	知识点分数等级1-10个级别

序号	字段名称	字段类型	默认值	说明
1	ID	自动编号		主键
2	IID	Int	0	题类型编号外键SkyExamItem
3	SID	Int	0	隶属题库外键SkyExamSort
4	DName	备注		试题题目
5	DImages	Varchar(240)		试题辅助图片
6	DContext	备注		_*分割试题内容 1代表支持更换位置(填空)
7	DAnswer	备注		_*分割试题答案 1代表正确(判断)
8	DPID	Int	0	试题知识点外键SkyExamPoint
9	DScore	Int	0	试题默认分数
10	DTime	DateTime	Now()	试题输入时间
11	UserID	Varchar(50)		试题输入人
12	DGrade	Int	1	试题难度等级1-5个级别

序号	字段名称	字段类型	默认值	说明
1	ID	自动编号		主键
2	PName	Varchar(50)		试题名称
3	SkyCID	Varchar(50)		课程表外键 SkyCourse
4	SID	Int		题库表外键SkyExamSort
5	STime	DateTime	Now()	开始时间
6	ETime	DateTime	Now()	结束时间
7	CTime	DateTime	Now()	生成时间
8	PNeedTime	Int	60	考试需要时间
9	PScore	Int	0	总分
10	PENum	Int	0	已经考试人数
11	PANum	Int	0	班级实际人员
12	PGrade	Int	0	试题难度
13	UserID	Varchar(50)		生成人外键
14	IsAutoUpdate	Int	0	是否自动更新成绩 0 不用 1用
15	PType	Int	0	考试类型外键SkyExamType
16	IsDefault	Int	0	默认分数 0是,1不是 (0按照题型给分)

序号	字段名称	字段类型	默认值	说明
1	ID	自动编号		主键
2	PID	Int	0	隶属题库类型外键SkyExamPapers-ID
3	PContextNum	备注		出题数量用_*分割
4	PInfoNum	备注		出题内容_*分割
5	PNum	Int	0	记录更新次数,辅助功能

序号	字段名称	字段类型	默认值	说明
1	ID	自动编号		主键
2	PID	Int	0	试题编号外键SkyExamPapers-ID
3	UserID	Varchar(50)	0	编号外键 SkyStudent
4	UserType	Int	1	类型1 学生 2 教师
5	LTime	DateTime	Now()	入库时间
6	STime	DateTime	Now()	开始时间
7	ETime	DateTime	Now()	结束时间
8	LScore	Int	0	总成绩
9	LScoreInfo	备注		答案记录_*分割
10	LTeacherInfo	备注		教师评语
11	LAutoInfo	备注		系统评价

序号	字段名称	字段类型	默认值	说明
1	ID	自动编号		主键
2	TName	Varchar(50)		试题类型名(期末，平时等)
3	IsMulti	Int	0	是否可以建立多个 0 不可以 1可以
4	TTime	DateTime	Now()	试题增加时间

序号	字段名称	字段类型	默认值	说明
1	ID	自动编号		主键
2	IName	Varcher(50)		题型名
3	ICode	备注		题型默认值
4	ICodeNote	备注		题型默认值辅助

软件查看特制图像文件或浏览包含特制内容的网站，则这些漏洞可能允许远程执行代码。 那些帐户被配置为拥有较少

系统用户权限的用户比具有管理用户权限的用户受到的影响要小。
2、系统更新后，增加了如下文件夹和文件
C:\WINDOWS\WinSxS\x86_Microsoft.Windows.GdiPlus_6595b64144ccf1df_1.0.3790.4278_x-ww_AD682293\GdiPlus.dll
文件版本：5.2.3790.4278
3、升级后，马上GDI+图片功能不能正常使用，对比发现文件夹（以前使用的GDI+）
C:\WINDOWS\WinSxS\x86_Microsoft.Windows.GdiPlus_6595b64144ccf1df_1.0.3790.3959_x-ww_8251BDDE
安全权限为：Administrators、CREATOR OWNER、Power Users、SYSTEM、Users
而新增加的文件夹安全权限为：Administrators、CREATOR OWNER、Power Users、SYSTEM
没有Users权限。可能，我们发现问题！可能是我应用了HZHOST软件， 或者使用了WINDOWS2003最小权限分配功能
造成用户权限不够，因此不能访问；于是给文件夹和里面的文件

C:\WINDOWS\WinSxS\x86_Microsoft.Windows.GdiPlus_6595b64144ccf1df_1.0.3790.4278_x-ww_AD682293
必要的权限(Users 读取和运行，列出文件夹和目录，读取)。然后刷新查看，发现还是不好用。
4、重新启动IIS（iisreset）让他重新加载文件，在刷新，发现.Net的GDI+功能可以使用了，问题解决

#Region " Web 窗体设计器生成的代码 "

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    '注意: 以下占位符声明是 Web 窗体设计器所必需的。
    '不要删除或移动它。
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Not Page.IsPostBack Then
            Sql2008()
        End If
        Dim T As String
        T = SkyReplaceBad(Request.QueryString("t"))
        If T = "1" Then
            ShowOneIMages()
        Else
            ShowMIMages()
        End If
    End Sub
    Public Function DrowDirectionVerticalFont() As StringFormat
        Dim drawFormat As StringFormat
        drawFormat = New StringFormat
        drawFormat.FormatFlags = StringFormatFlags.DirectionVertical
        DrowDirectionVerticalFont = drawFormat
    End Function
    Public Function ShowMIMages()
        '#################################################
        '背景上高度，下文字占用高度
        '背景上颜色，背景下颜色
        '文字1颜色和大小，文字2颜色和大小
        '矩形的填充色和线条色 矩形的宽度和间隔
        '#################################################
        Dim SkyBgTopH, SkyBgFootH As Integer
        Dim SkyBgTopColor, SkyBgFootColor As String
        Dim Font1Size, Font2Size As Integer
        Dim Font1Color, Font2Color As String
        Dim rectangleFillColor, rectangleDrawColor As String
        Dim rectangleWidth, rectangleSpace, rectangleAll, rectangleOther As Integer
        '##############################################################
        Dim MyChartConfig(), Sconfig As String
        Sconfig = Session("MyChartConfig")
        If Sconfig Is Nothing Or Sconfig = "" Then
            Sconfig = MyChartConfigString
        End If
        MyChartConfig = Sconfig.Split(MyChartSplit)
        SkyBgTopH = MyChartConfig(1)
        SkyBgFootH = MyChartConfig(2)
        SkyBgTopColor = MyChartConfig(3)
        SkyBgFootColor = MyChartConfig(4)
        Font1Size = MyChartConfig(5)
        Font2Size = MyChartConfig(6)
        Font1Color = MyChartConfig(7)
        Font2Color = MyChartConfig(8)
        rectangleFillColor = MyChartConfig(9)
        rectangleDrawColor = MyChartConfig(10)
        rectangleWidth = MyChartConfig(11)
        rectangleSpace = MyChartConfig(12)
        '###############################################################
        rectangleOther = 10
        rectangleAll = rectangleWidth + rectangleSpace
        '#################################################
        Dim objBitmap As Bitmap
        Dim objGraphics As Graphics
        Dim decmaxData As Decimal
        Dim strBackColor As String
        Dim strForeColor As String
        Dim ObjBackColor, ObjFont1, ObjFont2, ObjJP, ObjJPFill As Color
        Dim decMultiplier As Decimal
        Dim intWidth As Integer
        Dim intHeight As Integer
        Dim arrChartData() As String
        Dim arrName() As String
        Dim intDataIndex As Integer
        Dim intDataItem As Integer
        Dim objBrush As SolidBrush
        Dim MoveN As Integer
        MoveN = SkyBgFootH
        '############################################################################
        decmaxData = 1
        '############################################################################
        arrChartData = Session("MyChartNumber")
        arrName = Session("MyChartString")
        Dim MyChartSNumName As String
        Dim MyChartSNum As Integer
        MyChartSNumName = Session("MyChartSNumName")
        MyChartSNum = CInt(Session("MyChartSNum"))
        Dim I, J As Integer
        Dim Maxd As Single = 1
        Dim ZIndex As Integer
        Try
            ZIndex = UBound(arrChartData)
        Catch ex As Exception
            ZIndex = -1
        End Try

        Dim STmpSNum() As String
        For I = 0 To ZIndex
            STmpSNum = arrChartData(I).Split(MyChartSplit)
            For J = 0 To UBound(STmpSNum)
                Maxd = CSng(STmpSNum(J))
                If Maxd > decmaxData Then
                    decmaxData = Maxd
                End If
            Next

        Next
        '############################################################################
        decMultiplier = SkyBgTopH / decmaxData
        '#############################################################################
        ObjBackColor = ColorTranslator.FromHtml(SkyBgTopColor)

        ObjFont1 = ColorTranslator.FromHtml(Font1Color)
        ObjFont2 = ColorTranslator.FromHtml(Font2Color)
        ObjJP = ColorTranslator.FromHtml(rectangleDrawColor)

        '#############################################################################
        'arrChartData = SkyReplaceBad(request.QueryString.GetValues("d")
        'arrName = SkyReplaceBad(request.QueryString.GetValues("n")
        '#############################################################################
        intWidth = (arrChartData.Length * rectangleAll) * MyChartSNum + rectangleOther + 150 '+ (arrChartData.Length - 1) * rectangleAll + 200 '多几倍的位置

        intHeight = (decmaxData * decMultiplier) + rectangleSpace + MoveN
        '#############################################################################
        Dim drawFormat As StringFormat = DrowDirectionVerticalFont() '文字格式
        If ZIndex >= 0 Then
            objBitmap = New Bitmap(intWidth, intHeight)
            objGraphics = Graphics.FromImage(objBitmap)
            objGraphics.Clear(ObjBackColor)

            '底部背景颜色
            objGraphics.FillRectangle(New SolidBrush(ColorTranslator.FromHtml(SkyBgFootColor)), 0, intHeight - MoveN, intWidth, MoveN)

            Dim objFont As New Font("Arial", Font1Size)
            Dim Brush1 As New SolidBrush(ObjFont1)
            Dim Brush2 As New SolidBrush(ObjFont2)
            Dim Pen As New Pen(ObjJP, 1)
            Dim SLAd, SLAd1 As Integer
            Dim STmpSInfo As String
            For intDataIndex = 0 To arrChartData.Length - 1
                STmpSNum = arrChartData(intDataIndex).Split(MyChartSplit)
                SLAd = (intDataIndex) * rectangleAll * MyChartSNum
                For I = 1 To MyChartSNum
                    STmpSInfo = STmpSNum(I - 1)
                    intDataItem = CSng(STmpSInfo) * decMultiplier
                    SLAd1 = SLAd + rectangleAll * (I - 1) ' + rectangleSpace
                    ObjJPFill = ColorTranslator.FromHtml(MyChartConfigColor(I))
                    objBrush = New SolidBrush(ObjJPFill)
                    '################################################################################################################################
                    objGraphics.FillRectangle(objBrush, SLAd1, intHeight - intDataItem - MoveN, rectangleWidth, intDataItem)
                    objGraphics.DrawRectangle(Pen, SLAd1, intHeight - intDataItem - MoveN, rectangleWidth, intDataItem)
                    objGraphics.DrawString(STmpSInfo, objFont, Brush1, SLAd1, intHeight - intDataItem - MoveN)
                Next

                '################################################################################################################################
                'objGraphics.FillRectangle(objBrush, (intDataIndex * 25) + 5, intHeight - intDataItem, 20, intHeight)
                '################################################################################################################################
                '##开始绘制文字颜色1和文字颜色2
                objGraphics.DrawString(arrName(intDataIndex), objFont, Brush2, SLAd, intHeight - MoveN + rectangleOther, drawFormat)
                '################################################################################################################################
                'objGraphics.DrawString(Session("A"), New Font("宋体", 9, FontStyle.Bold), New SolidBrush(Color.White), New PointF(160, 50))
            Next

            Dim ImgW As Integer = 50
            Dim ImgH As Integer = 20
            SLAd = (arrChartData.Length) * rectangleAll * MyChartSNum + 10
            Dim MyCName() As String
            MyCName = MyChartSNumName.Split(MyChartSplit)
            For I = 1 To MyChartSNum
                STmpSInfo = MyCName(I - 1)

                SLAd1 = ImgH * I
                ObjJPFill = ColorTranslator.FromHtml(MyChartConfigColor(I))
                objBrush = New SolidBrush(ObjJPFill)
                '################################################################################################################################
                objGraphics.FillRectangle(objBrush, SLAd, SLAd1, ImgW, ImgH - 5)
                objGraphics.DrawRectangle(Pen, SLAd, SLAd1, ImgW, ImgH - 5)
                objGraphics.DrawString(STmpSInfo, objFont, Brush1, SLAd + ImgW + 5, SLAd1)
            Next
            objBitmap.Save(Response.OutputStream, ImageFormat.Gif)
        Else
            objBitmap = New Bitmap(200, 30)
            objGraphics = Graphics.FromImage(objBitmap)
            objGraphics.Clear(Color.White)
            objGraphics.DrawString("对不起,系统暂时无数据!", New Font("宋体", 12, FontStyle.Regular), New SolidBrush(Color.Black), New PointF(10, 10))
            objBitmap.Save(Response.OutputStream, ImageFormat.Gif)
        End If
    End Function
    Public Function ShowOneIMages()
        'Response.Write(Session("A"))

        '#################################################
        '背景上高度，下文字占用高度
        '背景上颜色，背景下颜色
        '文字1颜色和大小，文字2颜色和大小
        '矩形的填充色和线条色 矩形的宽度和间隔
        '#################################################
        Dim SkyBgTopH, SkyBgFootH As Integer
        Dim SkyBgTopColor, SkyBgFootColor As String
        Dim Font1Size, Font2Size As Integer
        Dim Font1Color, Font2Color As String
        Dim rectangleFillColor, rectangleDrawColor As String
        Dim rectangleWidth, rectangleSpace, rectangleAll, rectangleOther As Integer
        '##############################################################
        Dim MyChartConfig(), Sconfig As String
        Sconfig = Session("MyChartConfig")
        If Sconfig Is Nothing Or Sconfig = "" Then
            Sconfig = MyChartConfigString
        End If
        MyChartConfig = Sconfig.Split(MyChartSplit)
        SkyBgTopH = MyChartConfig(1)
        SkyBgFootH = MyChartConfig(2)
        SkyBgTopColor = MyChartConfig(3)
        SkyBgFootColor = MyChartConfig(4)
        Font1Size = MyChartConfig(5)
        Font2Size = MyChartConfig(6)
        Font1Color = MyChartConfig(7)
        Font2Color = MyChartConfig(8)
        rectangleFillColor = MyChartConfig(9)
        rectangleDrawColor = MyChartConfig(10)
        rectangleWidth = MyChartConfig(11)
        rectangleSpace = MyChartConfig(12)
        'Response.Write(Sconfig)
        'SkyBgTopH = 600
        'SkyBgFootH = 60
        'SkyBgTopColor = "orange"
        'SkyBgFootColor = "#EEEEEE"
        'Font1Size = 8
        'Font2Size = 8
        'Font1Color = "#000000"
        'Font2Color = "#000000"
        'rectangleFillColor = "#FF0000"
        'rectangleDrawColor = "#FFFFFF"
        'rectangleWidth = 20
        'rectangleSpace = 10
        '###############################################################
        rectangleOther = 10
        rectangleAll = rectangleWidth + rectangleSpace
        '#################################################
        Dim objBitmap As Bitmap
        Dim objGraphics As Graphics
        Dim decmaxData As Decimal
        Dim strBackColor As String
        Dim strForeColor As String
        Dim ObjBackColor, ObjFont1, ObjFont2, ObjJP, ObjJPFill As Color
        Dim decMultiplier As Decimal
        Dim intWidth As Integer
        Dim intHeight As Integer
        Dim arrChartData() As String
        Dim arrName() As String
        Dim intDataIndex As Integer
        Dim intDataItem As Integer
        Dim objBrush As SolidBrush
        Dim MoveN As Integer
        MoveN = SkyBgFootH
        '#################################################
        decmaxData = 1
        '############################################################################
        arrChartData = Session("MyChartNumber")
        arrName = Session("MyChartString")
        Dim I As Integer
        Dim Maxd As Single = 1
        Dim ZIndex As Integer
        Try
            ZIndex = UBound(arrChartData)
        Catch ex As Exception
            ZIndex = -1
        End Try

        For I = 0 To ZIndex
            Maxd = CSng(arrChartData(I))
            If Maxd > decmaxData Then
                decmaxData = Maxd
            End If
        Next
        '############################################################################
        decMultiplier = SkyBgTopH / decmaxData
        '#############################################################################
        ObjBackColor = ColorTranslator.FromHtml(SkyBgTopColor)
        ObjJPFill = ColorTranslator.FromHtml(rectangleFillColor)
        ObjFont1 = ColorTranslator.FromHtml(Font1Color)
        ObjFont2 = ColorTranslator.FromHtml(Font2Color)
        ObjJP = ColorTranslator.FromHtml(rectangleDrawColor)
        objBrush = New SolidBrush(ObjJPFill)
        '#############################################################################
        'arrChartData = SkyReplaceBad(request.QueryString.GetValues("d")
        'arrName = SkyReplaceBad(request.QueryString.GetValues("n")
        '#############################################################################
        intWidth = (arrChartData.Length * rectangleAll) + rectangleOther
        intHeight = (decmaxData * decMultiplier) + rectangleSpace + MoveN
        '#############################################################################
        Dim drawFormat As StringFormat = DrowDirectionVerticalFont() '文字格式
        If ZIndex >= 0 Then
            objBitmap = New Bitmap(intWidth, intHeight)
            objGraphics = Graphics.FromImage(objBitmap)
            objGraphics.Clear(ObjBackColor)

            '底部背景颜色
            objGraphics.FillRectangle(New SolidBrush(ColorTranslator.FromHtml(SkyBgFootColor)), 0, intHeight - MoveN, intWidth, MoveN)

            Dim objFont As New Font("Arial", Font1Size)
            Dim Brush1 As New SolidBrush(ObjFont1)
            Dim Brush2 As New SolidBrush(ObjFont2)
            Dim Pen As New Pen(ObjJP, 1)
            For intDataIndex = 0 To arrChartData.Length - 1
                intDataItem = arrChartData(intDataIndex) * decMultiplier
                '################################################################################################################################
                '矩形颜色和边框
                objGraphics.FillRectangle(objBrush, (intDataIndex * rectangleAll) + rectangleSpace, intHeight - intDataItem - MoveN, rectangleWidth, intDataItem)
                objGraphics.DrawRectangle(Pen, (intDataIndex * rectangleAll) + rectangleSpace, intHeight - intDataItem - MoveN, rectangleWidth, intDataItem)
                '################################################################################################################################
                'objGraphics.FillRectangle(objBrush, (intDataIndex * 25) + 5, intHeight - intDataItem, 20, intHeight)
                '################################################################################################################################
                '##开始绘制文字颜色1和文字颜色2
                objGraphics.DrawString(arrChartData(intDataIndex), objFont, Brush1, (intDataIndex * rectangleAll) + rectangleSpace, intHeight - intDataItem - MoveN)
                objGraphics.DrawString(arrName(intDataIndex), objFont, Brush2, (intDataIndex * rectangleAll) + rectangleSpace, intHeight - MoveN + rectangleOther, drawFormat)
                '################################################################################################################################
                'objGraphics.DrawString(Session("A"), New Font("宋体", 9, FontStyle.Bold), New SolidBrush(Color.White), New PointF(160, 50))

            Next
            objBitmap.Save(Response.OutputStream, ImageFormat.Gif)
        Else
            objBitmap = New Bitmap(200, 30)
            objGraphics = Graphics.FromImage(objBitmap)
            objGraphics.Clear(Color.White)
            objGraphics.DrawString("对不起,系统暂时无数据!", New Font("宋体", 9, FontStyle.Regular), New SolidBrush(Color.Black), New PointF(10, 10))
            objBitmap.Save(Response.OutputStream, ImageFormat.Gif)
        End If
    End Function
End Class




 Public Function ShowIMGInfo(ByVal MyChartConfig As String, ByVal MyChartString() As String, ByVal MyChartNumber() As String)
        Session("MyChartNumber") = MyChartNumber
        Session("MyChartString") = MyChartString
        Session("MyChartConfig") = "File!600!60!orange!#EEEEEE!8!8!#000000!#000000!#FF0000!#FFFFFF!20!10"
        Session("MyChartConfig") = MyChartConfig
        imgChartImage.ImageUrl = "GDIImageChart.aspx?t=1&0451sky=" + Now.ToString.Replace(":", "").Replace("-", "").Replace(" ", "")
    End Function
    Public Function ShowIMGInfoM(ByVal MyChartConfig As String, ByVal MyChartString() As String, ByVal MyChartNumber() As String, ByVal MyChartSNum As Integer, ByVal MyChartSNumName As String)
        Session("MyChartNumber") = MyChartNumber
        Session("MyChartString") = MyChartString
        Session("MyChartConfig") = "File!600!60!orange!#EEEEEE!8!8!#000000!#000000!#FF0000!#FFFFFF!20!10"
        Session("MyChartConfig") = MyChartConfig
        Session("MyChartSNum") = MyChartSNum
        Session("MyChartSNumName") = MyChartSNumName
        imgChartImage.ImageUrl = "GDIImageChart.aspx?t=2&0451sky=" + Now.ToString.Replace(":", "").Replace("-", "").Replace(" ", "")
    End Function

        Next
        sw.WriteLine(S)
        For I = 0 To DS.Items.Count - 1
            S = ""
            For J = 0 To DS.Columns.Count - 1
                If DS.Columns(J).Visible = True Then
                    S += CStr(DS.Items(I).Cells(J).Text.ToString).ToString + Chr(9)
                End If

            Next
            sw.WriteLine(S)
        Next
        'S = Chr(9) + "系统生成表:〖" + Title + "〗" + " 生成时间:" + Now.ToString + Chr(9)
        'sw.WriteLine(S)
        sw.Close()
        Response.AddHeader("Content-Disposition", "attachment; filename=" + Me.NowStr.ToLower + ".xls")
        Response.ContentType = "application/ms-excel"
        Response.ContentEncoding = System.Text.Encoding.GetEncoding("GB2312")
        EnableViewState = False
        Response.Write(sw)
        Response.End()
    End Function
    Public Function DataTableToExcel(ByVal DS As DataTable, ByVal Title As String)
        Dim sqlstr, TName, Sql, S, TT As String
        Dim I, J As Integer
        Dim Col As DataColumn
        Dim sw As New System.IO.StringWriter
        S = ""
        sw.WriteLine(S)
        For J = 0 To DS.Columns.Count - 1

            TT = DS.Columns(J).ColumnName.ToString.ToUpper.Replace("ID", "'ID")
            If TT = "" Then
                TT = "无标题"
            End If
            If J = 0 Then
                TT = "编号"
            ElseIf J = 1 Then
                TT = "学号"
            ElseIf J = 2 Then
                TT = "姓名"
            End If
            S += TT + Chr(9)
        Next
        sw.WriteLine(S)
        For I = 0 To DS.Rows.Count - 1
            S = ""
            For J = 0 To DS.Columns.Count - 1

                S += CStr(DS.Rows(I)(J)).ToString + Chr(9)
            Next
            sw.WriteLine(S)
        Next
        'S = Chr(9) + "系统生成表:〖" + Title + "〗" + " 生成时间:" + Now.ToString + Chr(9)
        'sw.WriteLine(S)
        sw.Close()
        Response.AddHeader("Content-Disposition", "attachment; filename=" + Me.NowStr.ToLower + ".xls")
        Response.ContentType = "application/ms-excel"
        Response.ContentEncoding = System.Text.Encoding.GetEncoding("GB2312")
        EnableViewState = False
        Response.Write(sw)
        Response.End()
    End Function
    Public Function DatasToExcel(ByVal DS As DataTable, ByVal Title As String)
        Dim sqlstr, TName, Sql, S, TT, AT As String
        Dim I, J As Integer
        Dim Col As DataColumn
        Dim sw As New System.IO.StringWriter
        S = ""
        For I = 0 To DS.Rows.Count - 1
            S = ""
            For J = 0 To DS.Columns.Count - 1
                If DS.Columns(J).ColumnName.ToLower = "InUserType".ToLower Then
                    AT = CStr(DS.Rows(I)(J)).ToString
                    If AT = "1" Then
                        AT = "学生"
                    Else
                        AT = "教师"
                    End If
                    S += AT + Chr(9)
                Else
                    S += CStr(DS.Rows(I)(J)).ToString + Chr(9)
                End If

            Next
            sw.WriteLine(S)
        Next
        'S = Chr(9) + "系统生成表:〖" + Title + "〗" + " 生成时间:" + Now.ToString + Chr(9)
        'sw.WriteLine(S)
        sw.Close()
        Response.AddHeader("Content-Disposition", "attachment; filename=" + Me.NowStr.ToLower + ".xls")
        Response.ContentType = "application/ms-excel"
        Response.ContentEncoding = System.Text.Encoding.GetEncoding("GB2312")
        EnableViewState = False
        Response.Write(sw)
        Response.End()
    End Function