针对有网友说看不见文章内容，
现提示如下:
点击每一个标题行任一地方都会展开和隐藏此文章内容(不要点击标题).
目前展开隐藏功能只支持IE浏览器，虽然可以改成支持FF浏览器，不过现在一直没时间去弄，等有时间再修改了。 |
|
blog名称:乱闪Blog
日志总数:267
评论数量:1618
留言数量:-26
访问次数:2675227
建立时间:2005年1月1日 |
|
|
| |
 加亮显示ASP文章原代码(转) 
|
| 加亮显示ASP文章原代码 加入时间：2000年10月29日 来源网站：中华技术网 <%@ LANGUAGE="VBSCRIPT" %><% Option Explicit %><%'File: CodeBrws.asp'Overview: This formats and writes the text of the selected page for' the View Script Button 'This file is provided as part of the Microsoft Visual Studio 6.0 Samples'THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT'WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED,'INCLUDING BUT NOT LIMITED TO THE IMPLIED WARRANTIES'OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR'PURPOSE.'Copyright (C) 1997, 1998 Microsoft Corporation, All rights reserved%><html><head><meta NAME="DESCRIPTION" CONTENT="ASP Source code browser"><meta NAME="GENERATOR" CONTENT="Microsoft FrontPage 3.0"><meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso8859-1"><title></title></head><body BGCOLOR="#FFFFFF" TOPMARGIN="0" LEFTMARGIN="0" ALINK="#23238E" VLINK="#808080"LINK="#FFCC00"><basefont FACE="VERDANA, ARIAL, HELVETICA" SIZE="2"><!--- DISPLAY THE COLOR LEGEND ---><table BORDER="1"><tr><td WIDTH="25" BGCOLOR="#FF0000"> </td><td><font FACE="VERDANA, ARIAL, HELVETICA" SIZE="2">ASP Script</font> </td></tr><tr><td BGCOLOR="#0000FF"> </td><td><font FACE="VERDANA, ARIAL, HELVETICA" SIZE="2">Comments</font> </td></tr><tr><td BGCOLOR="#000000"> </td><td><font FACE="VERDANA, ARIAL, HELVETICA" SIZE="2">HTML and Text</font> </td></tr></table><hr><font FACE="VERDANA, ARIAL, HELVETICA" SIZE="2"><% OutputSource %></font></body></html><%Sub OutputSourceDim strVirtualPath, strFilenamestrVirtualPath = Request("Source")strFilename = Server.MapPath(strVirtualPath)Dim FileObject, oInStream, strOutput'Creates a file object to hold the text of the selected pageSet FileObject = CreateObject("Scripting.FileSystemObject")Set oInStream = FileObject.OpenTextFile(strFilename, 1, 0, 0)'Loop that writes each line of text in the file according to'the PrintLine function belowWhile NOT oInStream.AtEndOfStreamstrOutput = oInStream.ReadLineCall PrintLine(strOutput, fCheckLine(strOutput))Response.Write "<BR>"WendEnd Sub' Returns the minimum number greater than 0' If both are 0, returns -1Function fMin(iNum1, iNum2)If iNum1 = 0 AND iNum2 = 0 ThenfMin = -1ElseIf iNum2 = 0 ThenfMin = iNum1ElseIf iNum1 = 0 ThenfMin = iNum2ElseIf iNum1 < iNum2 ThenfMin = iNum1ElsefMin = iNum2End IfEnd FunctionFunction fCheckLine (ByVal strLine)Dim iTemp, iPosfCheckLine = 0iTemp = 0iPos = InStr(strLine, "<" & "%")If fMin(iTemp, iPos) = iPos TheniTemp = iPosfCheckLine = 1End IfiPos = InStr(strLine, "%" & ">")If fMin(iTemp, iPos) = iPos TheniTemp = iPosfCheckLine = 2End IfiPos = InStr(1, strLine, "<" & "SCRIPT", 1)If fMin(iTemp, iPos) = iPos TheniTemp = iPosfCheckLine = 3End IfiPos = InStr(1, strLine, "<" & "/SCRIPT", 1)If fMin(iTemp, iPos) = iPos TheniTemp = iPosfCheckLine = 4End IfiPos = InStr(1, strLine, "<" & "!--", 1)If fMin(iTemp, iPos) = iPos TheniTemp = iPosfCheckLine = 5End IfiPos = InStr(1, strLine, "-" & "->", 1)If fMin(iTemp, iPos) = iPos TheniTemp = iPosfCheckLine = 6End IfEnd FunctionSub PrintHTML (ByVal strLine)Dim iPos, iSpaces, iiSpaces = Len(strLine) - Len(LTrim(strLine))i = 1'Correct for tabsWhile Mid(Strline, i, 1) = Chr(9)iSpaces = iSpaces + 5i = i + 1Wend'Insert spacesIf iSpaces > 0 ThenFor i = 1 to iSpacesResponse.Write(" ")NextEnd IfiPos = InStr(strLine, "<")If iPos ThenResponse.Write(Left(strLine, iPos - 1))Response.Write("<")strLine = Right(strLine, Len(strLine) - iPos)Call PrintHTML(strLine)ElseResponse.Write(strLine)End IfEnd SubSub PrintLine (ByVal strLine, iFlag)Dim iPosSelect Case iFlagCase 0Call PrintHTML(strLine)Case 1iPos = InStr(strLine, "<" & "%")Call PrintHTML(Left(strLine, iPos - 1))Response.Write("<FONT COLOR=#ff0000>")Response.Write("<%")strLine = Right(strLine, Len(strLine) - (iPos + 1))Call PrintLine(strLine, fCheckLine(strLine))Case 2iPos = InStr(strLine, "%" & ">")Call PrintHTML(Left(strLine, iPos -1))Response.Write("%>")Response.Write("</FONT>")strLine = Right(strLine, Len(strLine) - (iPos + 1))Call PrintLine(strLine, fCheckLine(strLine))Case 3iPos = InStr(1, strLine, "<" & "SCRIPT", 1)Call PrintHTML(Left(strLine, iPos - 1))Response.Write("<FONT COLOR=#0000ff>")Response.Write("<SCRIPT")strLine = Right(strLine, Len(strLine) - (iPos + 6))Call PrintLine(strLine, fCheckLine(strLine))Case 4iPos = InStr(1, strLine, "<" & "/SCRIPT>", 1)Call PrintHTML(Left(strLine, iPos - 1))Response.Write("</SCRIPT>")Response.Write("</FONT>")strLine = Right(strLine, Len(strLine) - (iPos + 8))Call PrintLine(strLine, fCheckLine(strLine))Case 5iPos = InStr(1, strLine, "<" & "!--", 1)Call PrintHTML(Left(strLine, iPos - 1))Response.Write("<FONT COLOR=#0000ff>")Response.Write("<!--")strLine = Right(strLine, Len(strLine) - (iPos + 3))Call PrintLine(strLine, fCheckLine(strLine))Case 6iPos = InStr(1, strLine, "-" & "->", 1)Call PrintHTML(Left(strLine, iPos - 1))Response.Write("-->")Response.Write("</FONT>")strLine = Right(strLine, Len(strLine) - (iPos + 2))Call PrintLine(strLine, fCheckLine(strLine))Case ElseResponse.Write("Function Error -- Please contact the administrator.")End SelectEnd Sub%> |
|
回复:加亮显示ASP文章原代码(转)
|
|
srcString = contentarea.value;
srcString = ubbReplace(srcString, 'all');
document.write(srcString);
srcString = signaturearea.value;
showSign(srcString);
才知道那都是真的 爱是真实存在 晴的天雨的夜 平常的语言 怎麽我宁愿不要懂 你温暖的宽容 让爱来让爱走 让你让心都受痛 我想哭但是哭不出来 等到思念像海 淹没我而爱已不在 你绝望的离开 没有泪流下来 我哭了爱再不会回来 我会这麽等待 舍不得已春去秋来 在你的爱之外 我在那里存在 我爱就爱错就错 为你爱为爱等待 我想哭哭不出来 我该不该等待 |
| 电脑与网络 **(游客)发表评论于2005/10/26 8:58:47 |
| |
» 1 »
|
