⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 wm.article.asp

📁 网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。
💻 ASP
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
      Content = Content & "自动分页时的每页大约字符数(包含HTML标记)：<input name='WM_MaxCharPerPage' type='text' style='width:50' maxlength='5' value='5000'></td></tr>" & vbCrLf
	  Content = Content & "</table>" & vbCrLf
      Content = Content & "</td></tr>" & vbCrLf
	  
      Content = Content & "<tr ID=show2 Style='display:none'><td>" & vbCrLf
      Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
      Content = Content & "<tr class=td4><td colspan=2><strong>高级选项</strong></td></tr>" & vbCrLf
      Content = Content & "<tr class=td2><td width='20%'><strong>关键字</strong></td>" & vbCrLf
      Content = Content & "<td width='80%'><input name='WM_Keyword' type='text' style='width:250' maxlength='50' Value=" & WRMPS.GetCookies("A_Keyword") & "> 多个请用 “，” 隔开</td></tr>" & vbCrLf
      Content = Content & "<tr class=td2> <td><strong>文章作者</strong></td>" & vbCrLf
      Content = Content & "<td><input name='WM_Author' type='text' style='width:250' maxlength=50 Value=" & WRMPS.GetCookies("A_Author") & ">" & vbCrLf
      Content = Content & "<Select name=font onchange=""document.myform.WM_Author.value=this.options[this.selectedIndex].value""><Option Value=''>　<==　</Option><Option Value='未知'>未知</Option><Option Value='佚名'>佚名</Option><Option Value='"&Request.Cookies("Admin")("Admin")&"'>"&Request.Cookies("Admin")("Admin")&"</Option></Select></td></tr>" & vbCrLf
      Content = Content & "<tr class=td2><td><strong>文章来源</strong></td>" & vbCrLf
      Content = Content & "<td><input name='WM_CopyFrom' type='text' style='width:250' maxlength='50' Value=" & WRMPS.GetCookies("A_CopyFrom") & "></td></tr>" & vbCrLf
      Content = Content & "<tr class=td2><td><strong>文章属性</strong></td>" & vbCrLf
      Content = Content & "<td><input type='checkbox' name='WM_Hot' value=1 class=radio> 热门文章　　<input type='checkbox' name='WM_Commend' value=1 class=radio> 推荐文章　　文章评分 <select name='WM_Grade'><option value='5'>★★★★★</option><option value='4'>★★★★</option><option value='3' selected>★★★</option><option value='2'>★★</option><option value='1'>★</option></select></td></tr>" & vbCrLf
      Content = Content & "<tr class=td2><td><strong>初始点击</strong><br>这功能是提供给管理员作弊用的。不过尽量不要用呀！^_^</td>" & vbCrLf
      Content = Content & "<td><input name='WM_Hit' type='text' style='width:50' maxlength='50' value='0'></td></tr>" & vbCrLf
	  Content = Content & "<tr class=td2><td><strong>录入时间</strong><br>时间格式为“年-月-日 时:分:秒”<br>如：<font class=font3>" & Now() & "</font></td>" & vbCrLf
      Content = Content & "<td><input name='WM_AddTime' type='text'  style='width:150' maxlength='19' value='" & Now() & "'></td></tr>" & vbCrLf
	  Content = Content & "<tr class=td2><td><strong>模板选择</strong></td><td>"&TempSelect(0,24,ChannelID,"TempID")&"</td></tr>" & vbCrLf
      Content = Content & "</table>" & vbCrLf
      Content = Content & "</td></tr>" & vbCrLf
	  
      Content = Content & "<tr ID=show3 Style='display:none'><td>" & vbCrLf
      Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
      Content = Content & "<tr class=td4><td colspan=2><strong>收费选项</strong></td></tr>" & vbCrLf
	  Content = Content & "<tr class=td2><td width='20%'><strong>阅读"&WR_Other(0)&"</strong><br>免费阅读请设为 0，否则有权限的会员阅读此文章时将消耗相应"&WR_Other(0)&"，游客将无法阅读此文章<br><font class=font2>频道内容页设置生成HTML时收费无效</font></td>" & vbCrLf
      Content = Content & "<td width='80%'><input name='Charge' type='text' style='width:50' maxlength='19' value='0'></td></tr>" & vbCrLf
	  Content = Content & "<tr class=td2><td><strong>重复收费</strong><br>选择开启则用户每阅读此内容一次就重复收费一次</td>" & vbCrLf
      Content = Content & "<td><input type=radio name='RepeatCharge' value='1'> 开启　<input type=radio name='RepeatCharge' value='0' checked> 关闭</td></tr>" & vbCrLf
      Content = Content & "</table>" & vbCrLf
      Content = Content & "</td></tr>" & vbCrLf

      Content = Content & "<tr class=td4><td height=30 align=center><input type=submit name='Submit' value=' 提 交 ' onclick=""Loading.style.display='';Loading.style.bottom=100;""></td></tr>" & vbCrLf
      Content = Content & "</form></table><script>document.myform.WM_Title.focus()</script>" & vbCrLf
      WRMPS.DelCookies "A_Keyword"
      WRMPS.DelCookies "A_Author"
      WRMPS.DelCookies "A_CopyFrom"

    Case "Edit"
      Rs.Open "select * from WM_Article where WM_ID=" & WM_ID & " and WM_ChannelID = " & ChannelID & "", Conn, 1, 1
      If Not Rs.EOF Then
      WM_TitlePrefixion = Rs("WM_TitlePrefixion")
      If IsNull(WM_TitlePrefixion) Then WM_TitlePrefixion = ""
      WM_TitleColor = Rs("WM_TitleColor")
      If IsNull(WM_TitleColor) Then WM_TitleColor = ""
      Content = Content & "<table width='100%' cellpadding=0 cellspacing=0>" & vbCrLf
      Content = Content & "<form name='myform' method='post' Action='?Action=EditSave&ChannelID=" & ChannelID & "&SearchKey="&SearchKey&"&WM_ID=" & WM_ID & "&ClassID=" & WRMPS.CheckStr(Request("ClassID"), 1) & "&Page=" & WRMPS.CheckStr(Request("Page"), 1) & "&sID=" & sID & "'>" & vbCrLf
      Content = Content & "<tr><td class=td2 height=5></td></tr>" & vbCrLf
      Content = Content & "<tr><td class=td2>" & vbCrLf
      Content = Content & "<TABLE border=0 cellspacing=0 cellpadding=0><TR>" & vbCrLf
      Content = Content & "<TD width=5 height=22></TD><TD width=72 background='Img/Label.gif' id=tit1 onClick=""dis(tit1,show1,3,'Label')"" Class=Label1>基本设置</TD>" & vbCrLf
      Content = Content & "<TD width=2></TD><TD width=72 background='Img/Label_1.gif' id=tit2 onClick=""dis(tit2,show2,3,'Label')"" Class=Label>高级选项</TD>" & vbCrLf
      Content = Content & "<TD width=2></TD><TD width=72 background='Img/Label_1.gif' id=tit3 onClick=""dis(tit3,show3,3,'Label')"" Class=Label>收费选项</TD>" & vbCrLf
      Content = Content & "<TD width=*></TD></TR></TABLE>" & vbCrLf
      Content = Content & "</td></tr>" & vbCrLf
   
      Content = Content & "<tr ID=show1><td>" & vbCrLf
      Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
      Content = Content & "<tr class=td4><td colspan=2><strong>基本设置</strong></td></tr>" & vbCrLf
      Content = Content & "<tr class=td2><td width='20%'><strong>所属栏目</strong></td>" & vbCrLf
      Content = Content & "<td width='80%'>" & wrmps.SelectSort(1,ChannelID,0,1, Rs("WM_ClassID"), "WM_ArticleSort", "WM_ClassID", 0, 1) & " <font Class=Font2>*</font></td></tr>" & vbCrLf
      Content = Content & "<tr class=td2><td><strong>文章标题</strong></td>" & vbCrLf
      Content = Content & "<td>简短标题：<select name='WM_TitlePrefixion'>" & vbCrLf
      Content = Content & "<OPTION value=''" & WRMPS.GetCheckVer("", WM_TitlePrefixion, 0) & "></OPTION>" & vbCrLf
      Content = Content & "<option value='[图]'" & WRMPS.GetCheckVer("[图]", WM_TitlePrefixion, 0) & ">[图]</option>" & vbCrLf
      Content = Content & "<option value='[图文]'" & WRMPS.GetCheckVer("[图文]", WM_TitlePrefixion, 0) & ">[图文]</option>" & vbCrLf
      Content = Content & "<option value='[组图]'" & WRMPS.GetCheckVer("[组图]", WM_TitlePrefixion, 0) & ">[组图]</option>" & vbCrLf
      Content = Content & "<option value='[讨论]'" & WRMPS.GetCheckVer("[讨论]", WM_TitlePrefixion, 0) & ">[讨论]</option>" & vbCrLf
      Content = Content & "<option value='[公告]'" & WRMPS.GetCheckVer("[公告]", WM_TitlePrefixion, 0) & ">[公告]</option>" & vbCrLf
      Content = Content & "<option value='[转载]'" & WRMPS.GetCheckVer("[转载]", WM_TitlePrefixion, 0) & ">[转载]</option>" & vbCrLf
      Content = Content & "<option value='[推荐]'" & WRMPS.GetCheckVer("[推荐]", WM_TitlePrefixion, 0) & ">[推荐]</option>" & vbCrLf
      Content = Content & "<option value='[原创]'" & WRMPS.GetCheckVer("[原创]", WM_TitlePrefixion, 0) & ">[原创]</option>" & vbCrLf
      Content = Content & "</select> <input name='WM_Title' type='text' style='width:300' maxlength=50 Value=" & Rs("WM_Title") & " Class=TitInput> <font Class=Font2>*</font>" & vbCrLf
      Content = Content & "<select name='WM_TitleColor' id='TitleFontColor'>" & vbCrLf
      Content = Content & "<option value=''" & WRMPS.GetCheckVer("", WM_TitleColor, 0) & ">默认</option>" & vbCrLf
      Content = Content & "<option value='#000000' style='background-color:#000000'" & WRMPS.GetCheckVer("#000000", WM_TitleColor, 0) & "></option>" & vbCrLf
      Content = Content & "<option value='#FFFFFF' style='background-color:#FFFFFF'" & WRMPS.GetCheckVer("#FFFFFF", WM_TitleColor, 0) & "></option>" & vbCrLf
      Content = Content & "<option value='#008000' style='background-color:#008000'" & WRMPS.GetCheckVer("#008000", WM_TitleColor, 0) & "></option>" & vbCrLf
      Content = Content & "<option value='#800000' style='background-color:#800000'" & WRMPS.GetCheckVer("#800000", WM_TitleColor, 0) & "></option>" & vbCrLf
      Content = Content & "<option value='#808000' style='background-color:#808000'" & WRMPS.GetCheckVer("#808000", WM_TitleColor, 0) & "></option>" & vbCrLf
      Content = Content & "<option value='#000080' style='background-color:#000080'" & WRMPS.GetCheckVer("#000080", WM_TitleColor, 0) & "></option>" & vbCrLf
      Content = Content & "<option value='#800080' style='background-color:#800080'" & WRMPS.GetCheckVer("#800080", WM_TitleColor, 0) & "></option>" & vbCrLf
      Content = Content & "<option value='#808080' style='background-color:#808080'" & WRMPS.GetCheckVer("#808080", WM_TitleColor, 0) & "></option>" & vbCrLf
      Content = Content & "<option value='#FFFF00' style='background-color:#FFFF00'" & WRMPS.GetCheckVer("#FFFF00", WM_TitleColor, 0) & "></option>" & vbCrLf
      Content = Content & "<option value='#00FF00' style='background-color:#00FF00'" & WRMPS.GetCheckVer("#00FF00", WM_TitleColor, 0) & "></option>" & vbCrLf
      Content = Content & "<option value='#00FFFF' style='background-color:#00FFFF'" & WRMPS.GetCheckVer("#00FFFF", WM_TitleColor, 0) & "></option>" & vbCrLf
      Content = Content & "<option value='#FF00FF' style='background-color:#FF00FF'" & WRMPS.GetCheckVer("#FF00FF", WM_TitleColor, 0) & "></option>" & vbCrLf
      Content = Content & "<option value='#FF0000' style='background-color:#FF0000'" & WRMPS.GetCheckVer("#FF0000", WM_TitleColor, 0) & "></option>" & vbCrLf
      Content = Content & "<option value='#0000FF' style='background-color:#0000FF'" & WRMPS.GetCheckVer("#0000FF", WM_TitleColor, 0) & "></option>" & vbCrLf
      Content = Content & "<option value='#008080' style='background-color:#008080'" & WRMPS.GetCheckVer("#008080", WM_TitleColor, 0) & "></option>" & vbCrLf
      Content = Content & "</select>" & vbCrLf
      Content = Content & "<select name='WM_TitleFont' id='TitleFontType'>" & vbCrLf
      Content = Content & "<option value='0'" & WRMPS.GetCheckVer(0, Rs("WM_TitleFont"), 0) & ">规则</option>" & vbCrLf
      Content = Content & "<option value='1'" & WRMPS.GetCheckVer(1, Rs("WM_TitleFont"), 0) & ">粗体</option>" & vbCrLf
      Content = Content & "<option value='2'" & WRMPS.GetCheckVer(2, Rs("WM_TitleFont"), 0) & ">斜体</option>" & vbCrLf
      Content = Content & "<option value='3'" & WRMPS.GetCheckVer(3, Rs("WM_TitleFont"), 0) & ">粗+斜</option>" & vbCrLf
      Content = Content & "</select><br>" & vbCrLf
      Content = Content & "完整标题：<input name='WM_TitleIntact' type='text' style='width:485' maxlength='100' Value=" & Rs("WM_TitleIntact") & "><br>" & vbCrLf
      Content = Content & "<input type='checkbox' name='WM_TitleReview' value=1 class=radio" & WRMPS.GetCheckVer(1, Rs("WM_TitleReview"), 1) & "> 在文章列表标题旁显示评论连接</td></tr>" & vbCrLf
      Content = Content & "<tr class=td2> <td><strong>转向连接</strong></td>" & vbCrLf
      Content = Content & "<td><input type='checkbox' name='WM_UseLinkUrl' value=1 class=radio onClick='WM_LinkCheck()'"
      If Rs("WM_LinkUrl") <> "" Then Content = Content & " checked"
      Content = Content & "> 使用转向连接　<input name='WM_LinkUrl' type='text' style='width:250' maxlength='100'"
      If Rs("WM_LinkUrl") <> "" Then Content = Content & " value='" & Rs("WM_LinkUrl") & "'" Else Content = Content & " disabled value='http://'"
      Content = Content & "></td></tr>" & vbCrLf
      Content = Content & "<tr class=td2><td><strong>文章简介</strong></td>" & vbCrLf
      Content = Content & "<td><textarea name='WM_Synopsis' style='width:600;height:50'>" & WRMPS.CheckStr(Rs("WM_Synopsis"), 3) & "</textarea></td></tr>" & vbCrLf
      Content = Content & "<tr class=td2 id=ArticleContent"
      If Rs("WM_LinkUrl") <> "" Then Content = Content & " style='DisPlay:none'"
      Content = Content & "><td><strong>文章内容</strong>" & vbCrLf
      Content = Content & "<br><br><font class=font2>换行请按Shift+Enter<br>另起一段请按Enter</font><br>" & vbCrLf
      Content = Content & "<div class=Up><div class=UpFont><a href=""javascript:openWithIframe('添加附件','../Plus/UpLoad/Index.asp?Type=2&User=1',350,150);"">添加附件</a></div><div style='width:120px; height:120px; z-index:1;overflow:auto;' class=div ID=PicPreview><Img src='../Skins/"&WR_Setting(5)&"/nopic.gif'></div></div></td>" & vbCrLf
      Content = Content & "<td>" & vbCrLf
      Content = Content & "<INPUT type='hidden' name='WM_Content'"
      If Rs("WM_Content") <> "" Then
        Content = Content & " Value=""" & Server.HTMLEncode(WRMPS.CheckStr(Rs("WM_Content"), 5)) & """>" & vbCrLf
      Else
        Content = Content & " Value=''>" & vbCrLf
      End If
      Content = Content & "<IFRAME ID=EditContent SRC='../Plus/Edit/edit.asp?ID=WM_Content&sMode=EDIT&savepathfilename=d_savepathfilename&Tool=Article' FRAMEBORDER=0 SCROLLING=no WIDTH=600 HEIGHT=450></IFRAME></td></tr>" & vbCrLf
      Content = Content & "<tr class=td2><td><strong>文章图片</strong></td>" & vbCrLf
      Content = Content & "<td><input type=text name=Pic size=50 maxlength=100 value='" & WRMPS.CheckStr(Rs("WM_DefaultPicUrl"), 5) & "'><br>"
      WM_DefaultPicUrl = Rs("WM_DefaultPicUrl")
	  If IsNull(WM_DefaultPicUrl) = False and WM_DefaultPicUrl <> "" Then Content = Content & "<script>PicReset('"&WRMPS.CheckStr(WM_DefaultPicUrl,5)&"')</script>"
      Content = Content & "<select name=PicSelect onChange=PicReset(this.value)>" & vbCrLf
	  If IsNull(WM_DefaultPicUrl) = False and WM_DefaultPicUrl <> "" Then
	    Content = Content & "<option value='"&WRMPS.CheckStr(WM_DefaultPicUrl,5)&"' selected>"&WRMPS.CheckStr(WM_DefaultPicUrl,5)&"</option>" & vbCrLf
	  Else
        Content = Content & "<option value='' >还没有上传图片</option>" & vbCrLf
	  End If
      Content = Content & "</select><br><input type='checkbox' name='WM_DefaultShow' value=1 class=radio" & WRMPS.GetCheckVer(1, Rs("WM_DefaultShow"), 1) & ">作为头条文章，用于在首页及频道首页的图片文章处显示，文章图片为空则无效</td></tr>" & vbCrLf
      Content = Content & "<tr class=td2 id=ArticleContent1"
      If Rs("WM_LinkUrl") <> "" Then Content = Content & " style='DisPlay:none'"
      Content = Content & "><td><strong>内容分页方式</strong><br><font class=font3>手动分页符标记为<br><font class=font2>[NextPage]</font><br>注意大小写</font></td>" & vbCrLf
      Content = Content & "<td><select name='WM_PageNext'><option value='0'" & WRMPS.GetCheckVer(0, Rs("WM_PageNext"), 0) & ">不分页</option><option value='1'" & WRMPS.GetCheckVer(1, Rs("WM_PageNext"), 0) & ">自动分页</option><option value='2'" & WRMPS.GetCheckVer(2, Rs("WM_PageNext"), 0) & ">手动分页</option></select><br>" & vbCrLf
      Content = Content & "自动分页时的每页大约字符数(包含HTML标记)：<input name='WM_MaxCharPerPage' type='text' style='width:50' maxlength='5' value='" & Rs("WM_MaxCharPerPage") & "'></td></tr>" & vbCrLf
      Content = Content & "</table>" & vbCrLf
      Content = Content & "</td></tr>" & vbCrLf
	  
      Content = Content & "<tr ID=show2 Style='display:none'><td>" & vbCrLf
      Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
      Content = Content & "<tr class=td4><td colspan=2><strong>高级选项</strong></td></tr>" & vbCrLf
      Content = Content & "<tr class=td2><td width='20%'><strong>关键字</strong></td>" & vbCrLf
      WM_Keyword = Rs("WM_Keyword")
      Content = Content & "<td width='80%'><input name='WM_Keyword' type='text' style='width:250' maxlength='50' Value=" & WM_Keyword & "> 多个请用 “，” 隔开</td></tr>" & vbCrLf
      Content = Content & "<tr class=td2> <td><strong>文章作者</strong></td>" & vbCrLf
      Content = Content & "<td><input name='WM_Author' type='text' style='width:250' maxlength=50 Value=" & Rs("WM_Author") & ">" & vbCrLf
      Content = Content & "<Select name=font onchange=""document.myform.WM_Author.value=this.options[this.selectedIndex].value""><Option Value=''>　<==　</Option><Option Value='未知'>未知</Option><Option Value='佚名'>佚名</Option><Option Value='"&Request.Cookies("Admin")("Admin")&"'>"&Request.Cookies("Admin")("Admin")&"</Option></Select></td></tr>" & vbCrLf
      Content = Content & "<tr class=td2><td><strong>文章来源</strong></td>" & vbCrLf
      Content = Content & "<td><input name='WM_CopyFrom' type='text' style='width:250' maxlength='50' Value=" & Rs("WM_CopyFrom") & "></td></tr>" & vbCrLf
      Content = Content & "<tr class=td2><td><strong>文章属性</strong></td>" & vbCrLf
      Content = Content & "<td><input type='checkbox' name='WM_Hot' value=1 class=radio" & WRMPS.GetCheckVer(1, Rs("WM_Hot"), 1) & "> 热门文章　　<input type='checkbox' name='WM_Commend' value=1 class=radio" & WRMPS.GetCheckVer(1, Rs("WM_Commend"), 1) & "> 推荐文章　　文章评分 <select name='WM_Grade'><option value='5'" & WRMPS.GetCheckVer(5, Rs("WM_Grade"), 0) & ">★★★★★</option><option value='4'" & WRMPS.GetCheckVer(4, Rs("WM_Grade"), 0) & ">★★★★</option><option value='3'" & WRMPS.GetCheckVer(3, Rs("WM_Grade"), 0) & ">★★★</option><option value='2'" & WRMPS.GetCheckVer(2, Rs("WM_Grade"), 0) & ">★★</option><option value='1'" & WRMPS.GetCheckVer(1, Rs("WM_Grade"), 0) & ">★</option></select></td></tr>" & vbCrLf
      Content = Content & "<tr class=td2><td><strong>初始点击</strong><br>这功能是提供给管理员作弊用的。不过尽量不要用呀！^_^</td>" & vbCrLf
      Content = Content & "<td><input name='WM_Hit' type='text' style='width:50' maxlength='50' value='" & Rs("WM_Hit") & "'></td></tr>" & vbCrLf
      Content = Content & "<tr class=td2><td><strong>录入时间</strong><br>时间格式为“年-月-日 时:分:秒”<br>如：<font class=font3>" & Now() & "</font></td>" & vbCrLf
      Content = Content & "<td><input name='WM_AddTime' type='text' style='width:150' maxlength='19' value='" & Rs("WM_AddTime") & "'></td></tr>" & vbCrLf
	  Content = Content & "<tr class=td2><td><strong>模板选择</strong></td><td>"&TempSelect(Rs("WM_TempID"),24,ChannelID,"TempID")&"</td></tr>" & vbCrLf
      Content = Content & "</table>" & vbCrLf
      Content = Content & "</td></tr>" & vbCrLf
	  
      Content = Content & "<tr ID=show3 Style='display:none'><td>" & vbCrLf
      Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
      Content = Content & "<tr class=td4><td colspan=2><strong>收费选项</strong></td></tr>" & vbCrLf
	  Content = Content & "<tr class=td2><td width='20%'><strong>阅读"&WR_Other(0)&"</strong><br>免费阅读请设为 0，否则有权限的会员阅读此文章时将消耗相应"&WR_Other(0)&"，游客将无法阅读此文章<br><font class=font2>频道内容页设置生成HTML时收费无效</font></td>" & vbCrLf
      Content = Content & "<td width='80%'><input name='Charge' type='text' style='width:50' maxlength='19' value='" & Rs("WM_Charge") & "'></td></tr>" & vbCrLf
	  Content = Content & "<tr class=td2><td><strong>重复收费</strong><br>选择开启则用户每阅读此内容一次就重复收费一次</td>" & vbCrLf
      Content = Content & "<td><input type=radio name='RepeatCharge' value='1'" & WRMPS.GetCheckVer(1, Rs("WM_RepeatCharge"), 1) & "> 开启　<input type=radio name='RepeatCharge' value='0'" & WRMPS.GetCheckVer(0, Rs("WM_RepeatCharge"), 1) & "> 关闭</td></tr>" & vbCrLf
      Content = Content & "</table>" & vbCrLf
      Content = Content & "</td></tr>" & vbCrLf
12345

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -