📄 xieyi.asp

📁 网络购物
💻 ASP
字号:
<%
'=========================================
'
'         凡人网络购物系统V4.0免费版
'    FreeDown.Net info@freedown.net 
'            www.freedown.net
'     版权所有·免费版仅供研究测试只用
'            商业使用请购买正版
'
'=========================================
%>
<!--#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('修改成功！');history.go(-1);</script>"
response.End
end if
%>

<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../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">网站注册协议修改</font></b></div>
                            </td>
                          </tr>
                          <tr> 
                            <td valign="top" bgcolor="#F5EFE7">
                              <form name="form1" method="post" action="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"> 
                                        　</div> <div align="center"> 
                                        &nbsp;<textarea rows="10" name="reg" cols="65"><%=trim(rs("reg"))%></textarea></div></td>
                                  </tr>
                                  <tr> 
                                    <td height="32" style="PADDING-LEFT: 6px"> 
                                      <div align="center"> 
                                        <input type="submit" name="Submit" value="提交更改">
                                      </div></td>
                                  </tr>
                                </table>
                                  </center>
                                </div>
                              </form>
</body>
</html>
⌨️ 快捷键说明

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