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

📄 content_view.asp

📁 一个不错的企业网站源代码！
💻 ASP
字号:
🔍 
<%@ Language=VBScript %>
<%
Response.Buffer=true
Response.Expires=0
content=checkstr(trim(Request.Form("viewbody")),1)
title=trim(Request.Form("viewtitle"))
%>
<html>
<head>
<title>预览</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
body {font-size: 12px; color: #000000; font-family: 宋体}
td {font-size: 12px; color: #000000; font-family: 宋体;}
.t1 {font:12px 宋体;color=000000} 
.t2 {font:12px 宋体;color:ffffff} 

.bt1 {font:14px 宋体;color=000000} 
.bt2 {font:14px 宋体;color:ffffff} 

A:link {color: #000066}
A:visited {color: #000066}
A:hover {color: #ff0000}

A.r1:link {font-size:12px;text-decoration:underline;color:#000000;}
A.r1:visited {font-size:12px;text-decoration:underline;color:#000000;}
A.r1:hover {font-size:12px;text-decoration:underline;color:#ff6600;}

A.r2:link {font-size:12px;text-decoration:underline;color:#ffffff;}
A.r2:visited {font-size:12px;text-decoration:underline;color:#ffffff;}
A.r2:hover {font-size:12px;text-decoration:underline;color:#ff6600;}
-->
</style>
</head>

<body bgcolor="#CFCDC7" text="#000000" leftmargin="0" topmargin="0">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="460" valign=top>
  <tr> 
    <td bgcolor="#CFCDC7" valign=top> 
      <table width="96%" border="0" cellspacing="0" cellpadding="0" align=center>
        <tr> 
          <td align=center height=10>&nbsp;</td>
        </tr>
        <tr> 
          <td valign=top class=bt1 style="line-height:150%">
			<%=checkstr(content,1)%>
			<%'=Server.HTMLEncode(checkstr(content))%>
          </td>
        </tr>
        <tr> 
          <td>&nbsp;</td>
        </tr>
      </table>
    </td>
  </tr>
</table>
</body>
</html>
<%
function checkstr(str,lx)
	if lx="" then lx="1" 
	if len(str)>0 then
	else
		str=""
	end if			
	
    Set re=new RegExp
    re.IgnoreCase =true
    re.Global=True

    re.Pattern="(script)"
    str=re.Replace(str,"sc ript")

    re.Pattern="(>"+chr(13)+")"
    str=re.Replace(str,">")
    re.Pattern="(> "+chr(13)+")"
    str=re.Replace(str,">")
    re.Pattern="(>  "+chr(13)+")"
    str=re.Replace(str,">")

    re.Pattern="("+chr(13)+")"
	if lx="2" then
		str=re.Replace(str,"<br>")
	else	
	    str=re.Replace(str,"<br>&nbsp;&nbsp;&nbsp;&nbsp;")
	end if
	if left(lcase(str),6)<>"<table" then
		if lx="1" then
			str="&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"+str
		end if			
	end if	
	checkstr=str
end function	
%>

⌨️ 快捷键说明

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