%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% ' *** Edit Operations: declare variables Dim MM_editAction Dim MM_abortEdit Dim MM_editQuery Dim MM_editCmd Dim MM_editConnection Dim MM_editTable Dim MM_editRedirectUrl Dim MM_editColumn Dim MM_recordId Dim MM_fieldsStr Dim MM_columnsStr Dim MM_fields Dim MM_columns Dim MM_typeArray Dim MM_formVal Dim MM_delim Dim MM_altVal Dim MM_emptyVal Dim MM_i MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString) End If ' boolean to abort record edit MM_abortEdit = false ' query string to execute MM_editQuery = "" %> <% ' *** Update Record: set variables If (CStr(Request("MM_update")) = "form1" And CStr(Request("MM_recordId")) <> "") Then MM_editConnection = MM_selfrecords_STRING MM_editTable = "news" MM_editColumn = "ID" MM_recordId = "" + Request.Form("MM_recordId") + "" MM_editRedirectUrl = "admin.asp" MM_fieldsStr = "vtime|value|week|value|lunar|value|weather|value|title|value|content|value" MM_columnsStr = "vtime|',none,NULL|week|',none,''|lunar|',none,''|weather|',none,''|title|',none,''|content|',none,''" ' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") ' set the form values For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i))) Next ' append the query string to the redirect URL If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If End If %> <% ' *** Update Record: construct a sql update statement and execute it If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> "") Then ' create the sql update statement MM_editQuery = "update " & MM_editTable & " set " For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_formVal = MM_fields(MM_i+1) MM_typeArray = Split(MM_columns(MM_i+1),",") MM_delim = MM_typeArray(0) If (MM_delim = "none") Then MM_delim = "" MM_altVal = MM_typeArray(1) If (MM_altVal = "none") Then MM_altVal = "" MM_emptyVal = MM_typeArray(2) If (MM_emptyVal = "none") Then MM_emptyVal = "" If (MM_formVal = "") Then MM_formVal = MM_emptyVal Else If (MM_altVal <> "") Then MM_formVal = MM_altVal ElseIf (MM_delim = "'") Then ' escape quotes MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'" Else MM_formVal = MM_delim + MM_formVal + MM_delim End If End If If (MM_i <> LBound(MM_fields)) Then MM_editQuery = MM_editQuery & "," End If MM_editQuery = MM_editQuery & MM_columns(MM_i) & " = " & MM_formVal Next MM_editQuery = MM_editQuery & " where " & MM_editColumn & " = " & MM_recordId If (Not MM_abortEdit) Then ' execute the update Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End If End If %> <% Dim Recordset1__MMColParam Recordset1__MMColParam = "1" If (Request.QueryString("ID") <> "") Then Recordset1__MMColParam = Request.QueryString("ID") End If %> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_selfrecords_STRING Recordset1.Source = "SELECT * FROM news WHERE ID = " + Replace(Recordset1__MMColParam, "'", "''") + "" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %>
|
Fair 晴 Mostly Clear 大部晴朗 Clouds Early 早多云 Clearing Late 晚转晴 Partly Cloudy/ Windy 多云时有风 Calm 无风 gentle/Light/moderate breeze 微/轻/和风 fresh/strong breeze 清/强风 gale/squall 大风/狂风 gust wind 疾风 violent storm 暴风 |
Light Drizzle 微雨 Drizzle 毛毛雨 Light Rain 小雨 Few Showers 短暂阵雨 intermitten 间歇雨 Heavy Rain 大雨 Downpour 滂沱大雨 Heavy T-Storm 强烈雷雨 Isolated T-Storms 局部雷雨 Light Rain Shower & Windy 小阵雨带风 Light Rain with Thunder 小雨有雷声 |
Light Snow 小雪 Drifting Snow 飘雪 Heavy Snow 大雪 Light Snow Grains 小粒雪 Light Snow Shower 小阵雪 Few Snow Showers 短暂阵雪 Few Snow Showers/Wind 短暂阵雪时有风 Heavy Rain Icy 大冰雨 Fog 雾 Haze 薄雾 Hail 冰雹 |
Scorching Heat 炎热 Muggy 闷热 Cool 凉快 Chilly 寒冷 lovely day Dust 灰尘 Lightening 雷电 AM T-Storms 上午雷暴雨 |
三十日晴。上午访季芾。下午大睡。宗武寄赠《文录》一本。夜衣萍来。(1925.5.30,“五卅惨案”当天)
十八日晴。上午寄小峰信。下午有麟来并赠糖食三种。夜鲁豢来,得秋芳信。(1926年,“三、一八惨案”)
十二日晴。午后得靖华信,一日发。(1927年“四、一二政变”)
九日小雨。上午张莹来。午后得刘岗信信并木刻八幅。得三笠书房编辑小川正夫信并赠《卜卜亻工夕戈亻全集》普及本全部,先得第一及第六两册。(1935年“一二、九运动”)
十二日,星期二,晴(三月十一日)。
东天未明,就听见窗外枪声四起。起床来洗面更衣,寒冷不可耐。急出户外,向驻在近旁的兵队问讯,知道总工会纠察队总部,在和军部内来缴械的军人开火,路上行人,受伤者数人,死者一二人。我披上大衣,冒险夺围,想冲出去,上南站去趁车,不意路途为戒严兵所阻。
天气很好,午前伏处在家里,心里很不舒服,窗外的轮声时断时续,大约此番缴械冲突,须持续至一昼夜以上。我颇悔昨晚不去南站,否则此刻已在杭沪道上。
午后出去访友人,谈及此番蒋介石的高压政策,大家都只敢怒而不敢言。从友人处出来,又上南站去打听沪杭车。晚上天又下雨,至法科大学上了一小时课,冒雨回至英界,向鼎新旅馆内投宿。
上床后,回想映霞心切,不能入睡。同乡陆某邀我打牌,就入局打了十二圈牌,至午前三时就寝。