;
帖子
3919 
精华
积分
11710 
鱼币
0 ¥ 
来自
大连 
在线时间
1858 小时 
注册时间
2007-6-11 
最后登录
2009-10-20 

贴图大师勋章新人进步勋章宣传大使勋章论坛元老勋章

3
发表于 2009-1-5 19:48 | 只看该作者
涓娈电敤ASP鏌ョ湅ASP鏂囦欢婧愮爜鐨勭▼搴 - 缂栫▼搴 - Powered by SupeSite

浣犵殑浣嶇疆锛缂栫▼搴 >> 璧勮 >> 缃戠珯缂栫▼ >> ASP >> 璇︾粏鍐呭 鍦ㄧ嚎鎶曠ǹ

涓娈电敤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

%>

ASP婧愮爜娴忚鍣

璇疯緭鍏SP鏂囦欢鍚

<%

on error resume next

dim file

file=request.form("filename")

response.write file & "婧愮▼搴忓涓


"

if trim(file)<> "" then

call showcode(file)

end if

%>

鎵撳嵃 | 鏀惰棌姝ら〉 |  鎺ㄨ崘缁欏ソ鍙 | 涓炬姤
涓婁竴绡 涓嬩竴绡
 

璇勫垎锛0

鍙戣〃璇勮
鏌ョ湅鍏ㄩ儴鍥炲銆愬凡鏈0浣嶇綉鍙嬪彂琛ㄤ簡鐪嬫硶銆