分类目录归档：已流逝的岁月

你一定想来参观的停尸房

发表于 由
回复

其实我从大一进来的时候就一直想参观学校的停尸房。但是一直没有机会。
之前上系统解剖的时候，老师拿的都是装在玻璃罐子里的标本，或者是给我们看学长们切剩下的尸体。
总觉得不能满足我对学校这个亚洲最大的停尸间的好奇。

今年开了局部解剖课，听说能自己动手其实我也小兴奋了一把。
自己的课外创新项目找了解剖教研室的一位老师做导师，因为这个缘故，我和局解课的老师混的很熟。

有一次我实在忍不住问他，“老师，地下的尸库到底长什么样？”

老师轻轻地笑了一下，又像我第一次找他帮忙完成我的项目时的那样，上下打量我一下。

“想看看吗？我带你去。”老师略带调戏性的语气让我心脏早搏了。 继续阅读 →

毛邓三免考论文一篇：“谁动了我们一腔热血？”

发表于 由
回复

b201082711479.png“谁动了我们一腔热血？”
–同济大学献血情况调查报告

朱方亮（同济大学医学院）

【摘要】无偿献血是指志愿献血者，为了拯救他人生命，将自己的全血或者血液成分捐献给社会公益事业，并不收取任何报酬的行为。文章通过走访、问卷调查等方式，分析并出结论：学生之所以对无偿献血热情不如往日，有一部分原因是由于缺乏相关无偿献血知识的普及而造成的恐惧、误解、矛盾、抵触。因此为了提高在校园中无偿献血的热情，呼吁大学生参与进无偿献血的活动中来，很重要的一点是向大学生直接或间接进行献血知识的宣讲。这里的直接和间接分别指的是在大学生中间开展相关课程和对各学院的辅导员进行培训。

【关键词】 献血 大学 调查

继续阅读 →

实验八的答案

发表于 由
回复

我相信我的听众
——天空，还有
海上迸溅的水滴
它们将复盖我的一切
复盖那无法寻找的
坟墓。我知道
那时，所有的草和小花
都会围拢
在灯光暗淡的一瞬
轻轻地亲吻我的悲哀

上面是吐槽，摘自顾城的《简历》。
下面是[实验八]三题的答案，大家自己相互学习一下吧
继续阅读 →

用VB.net向豆瓣API发送和获取数据

发表于 由
回复

最近在用VB制作关于豆瓣的本地应用，有这样几个难点。
其一是豆瓣的API必须以UTF-8格式发送，而VB的编码都是ASCII的。
其二是如何发送和接受数据。

'这是用来将字符串转变为UTF-8格式
Public Function StringAsUtf8Bytes(ByVal strData As String) As String
  Dim bytes() As Byte
  bytes = System.Text.Encoding.UTF8.GetBytes(strData)
  '这是用来将字符串转变为UTF-8格式，现在是字节数组形式。
  Dim i%
  For i = 0 To UBound(bytes)
    StringAsUtf8Bytes &= "%" & Hex(bytes(i))
  Next
  '通过循环来把字节数组先转换为16进制，再在前方加上%就是API能接受的格式了。UTF-8把一个汉字转换为三个字节[?].即%AA%BB%CC的格式。
End Function

Sub FromDouban(ByVal moviename)
  Dim objXMLHTTP, URL, html
  objXMLHTTP = CreateObject("Microsoft.XMLHTTP")
  Dim mn = StringAsUtf8Bytes(moviename)
  URL = "http://api.douban.com/movie/subjects?q=" & mn & "&max-results=1"
  '子过程接受外部输入的检索字符串，转变为API能接受的UTF-8格式后插入URL字符串变量。URL的其他部分是豆瓣提供的API接口。
  Try
    objXMLHTTP.Open("GET", URL, False)　　'用GET 命令发送和接受数据。
    objXMLHTTP.Send()
    html = objXMLHTTP.responseText
    Dim s = srchwds(html, "<opensearch:totalResults>", "</opensearch:totalResults>")
    If s = "0" Then
      MessageBox.Show("糟糕~没找到影片。尝试着使用一下它的英文名字吧~", "出错啦~")
    Else
      '输出为xml文件。XML文件可用数据岛技术在HTML中打开，或者直接用VB通过设计检索特定的字符串来读取。
      '这里推荐用下述的数据流的写入方式，直接用FileOpen会导致UTF-8编码的文字写入一个不是以UTF-8编码的文件。
      Dim ADO_Stream As Object
      ADO_Stream = CreateObject("ADODB.Stream")
      With ADO_Stream
        .Type = 2
        .Mode = 3
        .Charset = "utf-8"
        .Open()
        .WriteText(html)
        .SaveToFile("default.xml", 2)
      End With
      ADO_Stream = Nothing
    End If
  Catch ex As Exception
    MessageBox.Show(ex.ToString, "Error From Sub FromDouban")
  End Try
End Sub