发表于 2009-1-5 19:48
| 
涓娈电敤ASP鏌ョ湅ASP鏂囦欢婧愮爜鐨勭▼搴
鍙戝竷: 2008-6-27 11:50 | 浣滆: admin | 鏌ョ湅: 5娆
<%
SUB PrintLine (ByVal strLine)
strLine=server.HTMLEncode(strLine)
strLine=replace(strLine,"<%","<%")
strLine=replace(strLine,"%>","%>")
strLine=replace(strLine," strLine=replace(strLine,"","",1,-1,1) strLine=replace(strLine,"","-->",1,-1,1) Response.Write strLine END SUB Function ShowCode(filename) Dim strFilename Dim FileObject, oInStream, strOutput strFilename = filename Set FileObject = Server.CreateObject("Scripting.FileSystemObject") Set oInStream = FileObject.OpenTextFile(strFilename, 1, 0, 0 ) While NOT oInStream.AtEndOfStream strOutput = oInStream.ReadLine Call PrintLine(strOutput) Response.Write(" Wend end function %>
")
<%
on error resume next
dim file
file=request.form("filename")
response.write file & "婧愮▼搴忓涓
"
if trim(file)<> "" then
call showcode(file)
end if
%>
