📄 documentdetail.aspx
字号:
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="documentdetail.aspx.vb" Inherits="Teacher_documentdetail" %>
<%--<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.Sqlclint" %>--%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
<title>无标题页</title>
</head>
<%--<script language=vbscript runat="server">
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim data() As Byte
Dim length As Integer
Dim type As String
Dim name As String
Dim db As New DBObject
Dim cmd As New SqlCommand
cmd.Connection = db.cn
cmd.Connection.Open()
cmd.CommandText = "select * from document where documentname='ICASurveyNew.doc'"
Dim dr As SqlDataReader
dr = cmd.ExecuteReader()
dr.Read()
data = dr("documentData")
length = dr("documentLength")
type = dr("documenttype")
name = dr("documentname")
DeliverFile(Page, data, type, length, name)
cmd.Connection.Close()
With Page.Response
.Clear()
.ContentType = type
If name <> "" Then
Page.Response.AddHeader("content-disposition", "filename=" & name)
End If
.OutputStream.Write(data, 0, length)
.End()
End With
End Sub
</script>--%>
<body>
<form id="form1" runat="server">
<div>
</div>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -