📄 viweart.asp

📁 这个东东叫<掌中无限>的WAP整站程序,但是用不鸟的.. 如果你们可以.改良 ..改良...弄好它..就好啦!

💻 ASP

字号:

<!--#include file="conn.asp"-->
<%
function encodestr(str)
	if IsNull(str) then exit function
	str=trim(str)
	str=replace(str,"&","&amp;")
	str=replace(str,"<","&lt;")
	str=replace(str,">","&gt;")
	str=replace(str,"$","$$")
        str=replace(str,Chr(13),"<br/>")
        str=replace(str,"@/","<br/>")
	str=replace(str,"'","&#39;")
	Set re=new RegExp
	re.IgnoreCase =true
	re.Global=True
	re.pattern="(\[img\])(.[^\[]*)(\[\/img\])"
	str= re.Replace(str,"<a hret=""up/upfile/$2""><img src=""up/small/$2"" alt=''/></a>")
	re.pattern="(\[url\])(.[^\[]*)(\[\/url\])"
	str= re.Replace(str,"<a href=""$2"" >$2</a>")
	re.pattern="(\[f=(.[^\]]*)\])"
	str= re.Replace(str,"<img src=""face/$2.gif""/>")
	re.pattern="(\[url=(.[^\]]*)\])(.[^\[]*)(\[\/url\])"
	str= re.Replace(str,"<a href=""$2"" >$3</a>")
	re.Pattern = "^(http://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)"
	str = re.Replace(str,"<a href=""$1"">$1</a>")
	re.pattern="(\[no\])(.[^\[]*)(\[\/no\])"
	str= re.Replace(str,"<a href=""wtai://wp/mc;$2"" >$2</a>")
	set re=Nothing
	encodestr=str
end function

	set rs=server.createobject("adodb.recordset")
  	sql="select * from article order by articleid desc" 
 	rs.open sql,conn,1,1
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<link rel="stylesheet" type="text/css" href="inc/admin.css">
</head>
<body>
<table align="center" width="100%" align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
    <tr>
      <td class=lanyuss>查 看 文 章</td>
    </tr>
<%
	if rs.eof and rs.bof then
		response.write "<tr class=lanyuds><td>没有找到相关文章。</td>"
		response.end
	end if
%>  
<tr class=lanyuds><td><%=encodestr(rs("title"))%></td>
<tr class=lanyuqs><td><%=encodestr(rs("content"))%></td>
<tr class=lanyuqs><td><a href='adminping.asp'><b>评论管理</b></td>
</table>
</body>
</html>
<%   
rs.close   
set rs=nothing   
conn.close   
set conn=nothing
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -