<%@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 %> modify
Modify record Time: " size="32">
  Week: " size="32"> 世界时间
  Lunar: " size="32" /> 万年历
  Weather: " size="32"> 天气预报(GZ) 天气词汇 天气后报(GZ) 2
  Summary: " size="32">
iciba
 
 
 
 
Content:
    回到列表
">

bdCidian

tqch

Luxun

Yudafu

weather

others

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年“一二、九运动”)

十二日,星期二,晴(三月十一日)。

东天未明,就听见窗外枪声四起。起床来洗面更衣,寒冷不可耐。急出户外,向驻在近旁的兵队问讯,知道总工会纠察队总部,在和军部内来缴械的军人开火,路上行人,受伤者数人,死者一二人。我披上大衣,冒险夺围,想冲出去,上南站去趁车,不意路途为戒严兵所阻。

天气很好,午前伏处在家里,心里很不舒服,窗外的轮声时断时续,大约此番缴械冲突,须持续至一昼夜以上。我颇悔昨晚不去南站,否则此刻已在杭沪道上。

午后出去访友人,谈及此番蒋介石的高压政策,大家都只敢怒而不敢言。从友人处出来,又上南站去打听沪杭车。晚上天又下雨,至法科大学上了一小时课,冒雨回至英界,向鼎新旅馆内投宿。

上床后,回想映霞心切,不能入睡。同乡陆某邀我打牌,就入局打了十二圈牌,至午前三时就寝。

<% Recordset1.Close() Set Recordset1 = Nothing %>