📄 ad_xieyi.asp

📁 商品订单管理：商品分类管理添加与修改商品管理订单投诉订单反馈信息商品留言管理管理网站用户：管理用户管理后台管理员新闻公告管理：新闻添加（支持图片新闻）修改删除首页公告设置网站常规

💻 ASP

字号:

<!--#include file="conn.asp"-->
<%
function htmlencode2(str)
    dim result
    dim l
    if isNULL(str) then 
       htmlencode2=""
       exit function
    end if
    l=len(str)
    result=""
	dim i
	for i = 1 to l
	    select case mid(str,i,1)
	           case "<"
	                result=result+"&lt;"
	           case ">"
	                result=result+"&gt;"
              case chr(13)
	                result=result+"<br>"
	           case chr(34)
	                result=result+"&quot;"
	           case "&"
	                result=result+"&amp;"
              case chr(32)	           
	                'result=result+"&nbsp;"
	                if i+1<=l and i-1>0 then
	                   if mid(str,i+1,1)=chr(32) or mid(str,i+1,1)=chr(9) or mid(str,i-1,1)=chr(32) or mid(str,i-1,1)=chr(9)  then	                      
	                      result=result+"&nbsp;"
	                   else
	                      result=result+" "
	                   end if
	                else
	                   result=result+"&nbsp;"	                    
	                end if
	           case chr(9)
	                result=result+"    "
	           case else
	                result=result+mid(str,i,1)
         end select
       next 
       htmlencode2=result
   end function
%><%if request.QueryString("action")="save" then
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from system",conn,1,3

rs("reg")=htmlencode2(request("reg"))
rs.update
rs.close
set rs=nothing
response.write "<script language=javascript>alert('OK！');history.go(-1);</script>"
response.End
end if
%>

<html>
<head>
<title>Untitled Document</title>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=ISO-8859-1">
<link href="img/css.css" rel="stylesheet" type="text/css">
</head>
<body>
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select * from system",conn,1,1%>
<div align="center">
  <center>

                        <table width="600" border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" >
                          <tr> 
                            <td bgcolor="#DBC2B0" height="30"> 
                              <div align="center"><b><font color="#336699">User Agreement and Privacy Policy</font></b></div>
                            </td>
                          </tr>
                          <tr> 
                            <td valign="top" bgcolor="#F5EFE7">
                              <form name="form1" method="post" action="ad_xieyi.asp?action=save">
                                <div align="center">
                                  <center>
                                <table width="100%" border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111">
                                  <tr> 
                                    <td width="100%" style="PADDING-LEFT: 6px"><div align="center"><textarea rows="10" name="reg" cols="65"><%
                reg=replace(rs("reg"),"<br>",chr(13))
                reg=replace(reg,"&nbsp;"," ")    
            response.write reg%></textarea></div></td>
                                  </tr>
                                  <tr> 
                                    <td height="32" style="PADDING-LEFT: 6px"> 
                                      <div align="center"> 
                                        <input type="submit" name="Submit" value="Submit">
                                      </div></td>
                                  </tr>
                                </table>
                                  </center>
                                </div>
                              </form>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -